home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 100.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 30 3a 34 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:41 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 63 70 65 72 6c 2d | 6d 6f 64 65 2e 65 6c 0a |s/cperl-|mode.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 63 70 65 | (err|or "`cpe|
|000001f0| 72 6c 2d 6d 6f 64 65 2e | 65 6c 27 20 77 61 73 20 |rl-mode.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 c1 | 5c 6e 5c 22 13 c3 0c 42 |code "..|\n\"...B|
|00000270| 14 c5 c6 c7 c8 c9 ca cb | cc 26 07 88 c5 cd c7 ce |........|.&......|
|00000280| c9 ca cb c6 26 07 87 22 | 20 5b 73 74 72 69 6e 67 |....&.."| [string|
|00000290| 2d 6d 61 74 63 68 20 22 | 58 45 6d 61 63 73 5c 5c |-match "|XEmacs\\|
|000002a0| 7c 4c 75 63 69 64 22 20 | 65 6d 61 63 73 2d 76 65 ||Lucid" |emacs-ve|
|000002b0| 72 73 69 6f 6e 20 63 70 | 65 72 6c 2d 78 65 6d 61 |rsion cp|erl-xema|
|000002c0| 63 73 2d 70 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |cs-p cur|rent-loa|
|000002d0| 64 2d 6c 69 73 74 20 63 | 75 73 74 6f 6d 2d 64 65 |d-list c|ustom-de|
|000002e0| 63 6c 61 72 65 2d 67 72 | 6f 75 70 20 70 65 72 6c |clare-gr|oup perl|
|000002f0| 20 6e 69 6c 20 22 43 50 | 65 72 6c 20 6d 6f 64 65 | nil "CP|erl mode|
|00000300| 20 31 2e 33 35 20 77 69 | 74 68 20 58 45 6d 61 63 | 1.35 wi|th XEmac|
|00000310| 73 20 65 6e 68 61 6e 63 | 65 6d 65 6e 74 73 2e 22 |s enhanc|ements."|
|00000320| 20 3a 70 72 65 66 69 78 | 20 22 63 70 65 72 6c 22 | :prefix| "cperl"|
|00000330| 20 3a 67 72 6f 75 70 20 | 6c 61 6e 67 75 61 67 65 | :group |language|
|00000340| 73 20 63 70 65 72 6c 2d | 69 6e 64 65 6e 74 20 22 |s cperl-|indent "|
|00000350| 43 50 65 72 6c 20 69 6e | 64 65 6e 74 69 6f 6e 20 |CPerl in|dention |
|00000360| 63 6f 6e 74 72 6f 6c 20 | 76 61 72 69 61 62 6c 65 |control |variable|
|00000370| 73 2e 22 5d 20 38 29 0a | 28 63 75 73 74 6f 6d 2d |s."] 8).|(custom-|
|00000380| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00000390| 20 27 63 70 65 72 6c 2d | 74 61 62 2d 61 6c 77 61 | 'cperl-|tab-alwa|
|000003a0| 79 73 2d 69 6e 64 65 6e | 74 20 27 74 20 22 2a 4e |ys-inden|t 't "*N|
|000003b0| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 54 41 42 |on-nil m|eans TAB|
|000003c0| 20 69 6e 20 43 50 65 72 | 6c 20 6d 6f 64 65 20 73 | in CPer|l mode s|
|000003d0| 68 6f 75 6c 64 20 61 6c | 77 61 79 73 20 72 65 69 |hould al|ways rei|
|000003e0| 6e 64 65 6e 74 20 74 68 | 65 20 63 75 72 72 65 6e |ndent th|e curren|
|000003f0| 74 20 6c 69 6e 65 2c 5c | 6e 72 65 67 61 72 64 6c |t line,\|nregardl|
|00000400| 65 73 73 20 6f 66 20 77 | 68 65 72 65 20 69 6e 20 |ess of w|here in |
|00000410| 74 68 65 20 6c 69 6e 65 | 20 70 6f 69 6e 74 20 69 |the line| point i|
|00000420| 73 20 77 68 65 6e 20 74 | 68 65 20 54 41 42 20 63 |s when t|he TAB c|
|00000430| 6f 6d 6d 61 6e 64 20 69 | 73 20 75 73 65 64 2e 22 |ommand i|s used."|
|00000440| 20 3a 74 79 70 65 20 27 | 62 6f 6f 6c 65 61 6e 20 | :type '|boolean |
|00000450| 3a 67 72 6f 75 70 20 27 | 63 70 65 72 6c 2d 69 6e |:group '|cperl-in|
|00000460| 64 65 6e 74 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |dent).(c|ustom-de|
|00000470| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000480| 63 70 65 72 6c 2d 65 78 | 74 72 61 2d 6e 65 77 6c |cperl-ex|tra-newl|
|00000490| 69 6e 65 2d 62 65 66 6f | 72 65 2d 62 72 61 63 65 |ine-befo|re-brace|
|000004a0| 20 27 6e 69 6c 20 22 2a | 4e 6f 6e 2d 6e 69 6c 20 | 'nil "*|Non-nil |
|000004b0| 6d 65 61 6e 73 20 74 68 | 61 74 20 69 66 2c 20 65 |means th|at if, e|
|000004c0| 6c 73 69 66 2c 20 77 68 | 69 6c 65 2c 20 75 6e 74 |lsif, wh|ile, unt|
|000004d0| 69 6c 2c 20 65 6c 73 65 | 2c 20 66 6f 72 2c 20 66 |il, else|, for, f|
|000004e0| 6f 72 65 61 63 68 5c 6e | 61 6e 64 20 64 6f 20 63 |oreach\n|and do c|
|000004f0| 6f 6e 73 74 72 75 63 74 | 73 20 6c 6f 6f 6b 20 6c |onstruct|s look l|
|00000500| 69 6b 65 3a 5c 6e 5c 6e | 09 69 66 20 28 29 5c 6e |ike:\n\n|.if ()\n|
|00000510| 09 7b 5c 6e 09 7d 5c 6e | 5c 6e 69 6e 73 74 65 61 |.{\n.}\n|\ninstea|
|00000520| 64 20 6f 66 3a 5c 6e 5c | 6e 09 69 66 20 28 29 20 |d of:\n\|n.if () |
|00000530| 7b 5c 6e 09 7d 5c 6e 22 | 20 3a 74 79 70 65 20 27 |{\n.}\n"| :type '|
|00000540| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00000550| 63 70 65 72 6c 2d 69 6e | 64 65 6e 74 29 0a 28 63 |cperl-in|dent).(c|
|00000560| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000570| 72 69 61 62 6c 65 20 27 | 63 70 65 72 6c 2d 69 6e |riable '|cperl-in|
|00000580| 64 65 6e 74 2d 6c 65 76 | 65 6c 20 27 32 20 22 2a |dent-lev|el '2 "*|
|00000590| 49 6e 64 65 6e 74 61 74 | 69 6f 6e 20 6f 66 20 43 |Indentat|ion of C|
|000005a0| 50 65 72 6c 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |Perl sta|tements |
|000005b0| 77 69 74 68 20 72 65 73 | 70 65 63 74 20 74 6f 20 |with res|pect to |
|000005c0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 62 6c 6f 63 6b |containi|ng block|
|000005d0| 2e 22 20 3a 74 79 70 65 | 20 27 28 63 68 6f 69 63 |." :type| '(choic|
|000005e0| 65 20 28 63 6f 6e 73 74 | 20 31 29 20 28 63 6f 6e |e (const| 1) (con|
|000005f0| 73 74 20 32 29 20 28 63 | 6f 6e 73 74 20 34 29 20 |st 2) (c|onst 4) |
|00000600| 28 63 6f 6e 73 74 20 36 | 29 20 28 63 6f 6e 73 74 |(const 6|) (const|
|00000610| 20 38 29 29 20 3a 67 72 | 6f 75 70 20 27 63 70 65 | 8)) :gr|oup 'cpe|
|00000620| 72 6c 2d 69 6e 64 65 6e | 74 29 0a 28 63 75 73 74 |rl-inden|t).(cust|
|00000630| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000640| 62 6c 65 20 27 63 70 65 | 72 6c 2d 6c 69 6e 65 75 |ble 'cpe|rl-lineu|
|00000650| 70 2d 73 74 65 70 20 27 | 6e 69 6c 20 22 2a 60 63 |p-step '|nil "*`c|
|00000660| 70 65 72 6c 2d 6c 69 6e | 65 75 70 27 20 77 69 6c |perl-lin|eup' wil|
|00000670| 6c 20 61 6c 77 61 79 73 | 20 6c 69 6e 65 75 70 20 |l always| lineup |
|00000680| 61 74 20 6d 75 6c 74 69 | 70 6c 65 20 6f 66 20 74 |at multi|ple of t|
|00000690| 68 69 73 20 6e 75 6d 62 | 65 72 2e 5c 6e 49 66 20 |his numb|er.\nIf |
|000006a0| 60 6e 69 6c 27 2c 20 74 | 68 65 20 76 61 6c 75 65 |`nil', t|he value|
|000006b0| 20 6f 66 20 60 63 70 65 | 72 6c 2d 69 6e 64 65 6e | of `cpe|rl-inden|
|000006c0| 74 2d 6c 65 76 65 6c 27 | 20 77 69 6c 6c 20 62 65 |t-level'| will be|
|000006d0| 20 75 73 65 64 2e 22 20 | 3a 74 79 70 65 20 27 28 | used." |:type '(|
|000006e0| 63 68 6f 69 63 65 20 28 | 63 6f 6e 73 74 20 6e 69 |choice (|const ni|
|000006f0| 6c 29 20 28 63 6f 6e 73 | 74 20 31 29 20 28 63 6f |l) (cons|t 1) (co|
|00000700| 6e 73 74 20 32 29 20 28 | 63 6f 6e 73 74 20 34 29 |nst 2) (|const 4)|
|00000710| 20 28 63 6f 6e 73 74 20 | 36 29 20 28 63 6f 6e 73 | (const |6) (cons|
|00000720| 74 20 38 29 29 20 3a 67 | 72 6f 75 70 20 27 63 70 |t 8)) :g|roup 'cp|
|00000730| 65 72 6c 2d 69 6e 64 65 | 6e 74 29 0a 28 63 75 73 |erl-inde|nt).(cus|
|00000740| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000750| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 62 72 61 63 |able 'cp|erl-brac|
|00000760| 65 2d 69 6d 61 67 69 6e | 61 72 79 2d 6f 66 66 73 |e-imagin|ary-offs|
|00000770| 65 74 20 27 30 20 22 2a | 49 6d 61 67 69 6e 65 64 |et '0 "*|Imagined|
|00000780| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 | indenta|tion of |
|00000790| 61 20 50 65 72 6c 20 6f | 70 65 6e 20 62 72 61 63 |a Perl o|pen brac|
|000007a0| 65 20 74 68 61 74 20 61 | 63 74 75 61 6c 6c 79 20 |e that a|ctually |
|000007b0| 66 6f 6c 6c 6f 77 73 20 | 61 20 73 74 61 74 65 6d |follows |a statem|
|000007c0| 65 6e 74 2e 5c 6e 41 6e | 20 6f 70 65 6e 20 62 72 |ent.\nAn| open br|
|000007d0| 61 63 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6f 74 |ace foll|owing ot|
|000007e0| 68 65 72 20 74 65 78 74 | 20 69 73 20 74 72 65 61 |her text| is trea|
|000007f0| 74 65 64 20 61 73 20 69 | 66 20 69 74 20 77 65 72 |ted as i|f it wer|
|00000800| 65 20 74 68 69 73 20 66 | 61 72 5c 6e 74 6f 20 74 |e this f|ar\nto t|
|00000810| 68 65 20 72 69 67 68 74 | 20 6f 66 20 74 68 65 20 |he right| of the |
|00000820| 73 74 61 72 74 20 6f 66 | 20 69 74 73 20 6c 69 6e |start of| its lin|
|00000830| 65 2e 22 20 3a 74 79 70 | 65 20 27 28 63 68 6f 69 |e." :typ|e '(choi|
|00000840| 63 65 20 28 63 6f 6e 73 | 74 20 30 29 20 28 63 6f |ce (cons|t 0) (co|
|00000850| 6e 73 74 20 31 29 20 28 | 63 6f 6e 73 74 20 32 29 |nst 1) (|const 2)|
|00000860| 20 28 63 6f 6e 73 74 20 | 34 29 20 28 63 6f 6e 73 | (const |4) (cons|
|00000870| 74 20 36 29 20 28 63 6f | 6e 73 74 20 38 29 29 20 |t 6) (co|nst 8)) |
|00000880| 3a 67 72 6f 75 70 20 27 | 63 70 65 72 6c 2d 69 6e |:group '|cperl-in|
|00000890| 64 65 6e 74 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |dent).(c|ustom-de|
|000008a0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000008b0| 63 70 65 72 6c 2d 62 72 | 61 63 65 2d 6f 66 66 73 |cperl-br|ace-offs|
|000008c0| 65 74 20 27 30 20 22 2a | 45 78 74 72 61 20 69 6e |et '0 "*|Extra in|
|000008d0| 64 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 62 72 |dentatio|n for br|
|000008e0| 61 63 65 73 2c 20 63 6f | 6d 70 61 72 65 64 20 77 |aces, co|mpared w|
|000008f0| 69 74 68 20 6f 74 68 65 | 72 20 74 65 78 74 20 69 |ith othe|r text i|
|00000900| 6e 20 73 61 6d 65 20 63 | 6f 6e 74 65 78 74 2e 22 |n same c|ontext."|
|00000910| 20 3a 74 79 70 65 20 27 | 28 63 68 6f 69 63 65 20 | :type '|(choice |
|00000920| 28 63 6f 6e 73 74 20 30 | 29 20 28 63 6f 6e 73 74 |(const 0|) (const|
|00000930| 20 31 29 20 28 63 6f 6e | 73 74 20 32 29 20 28 63 | 1) (con|st 2) (c|
|00000940| 6f 6e 73 74 20 34 29 20 | 28 63 6f 6e 73 74 20 36 |onst 4) |(const 6|
|00000950| 29 20 28 63 6f 6e 73 74 | 20 38 29 29 20 3a 67 72 |) (const| 8)) :gr|
|00000960| 6f 75 70 20 27 63 70 65 | 72 6c 2d 69 6e 64 65 6e |oup 'cpe|rl-inden|
|00000970| 74 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |t).(cust|om-decla|
|00000980| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 63 70 65 |re-varia|ble 'cpe|
|00000990| 72 6c 2d 6c 61 62 65 6c | 2d 6f 66 66 73 65 74 20 |rl-label|-offset |
|000009a0| 27 2d 32 20 22 2a 4f 66 | 66 73 65 74 20 6f 66 20 |'-2 "*Of|fset of |
|000009b0| 43 50 65 72 6c 20 6c 61 | 62 65 6c 20 6c 69 6e 65 |CPerl la|bel line|
|000009c0| 73 20 72 65 6c 61 74 69 | 76 65 20 74 6f 20 75 73 |s relati|ve to us|
|000009d0| 75 61 6c 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 2e |ual inde|ntation.|
|000009e0| 22 20 3a 74 79 70 65 20 | 27 28 63 68 6f 69 63 65 |" :type |'(choice|
|000009f0| 20 28 63 6f 6e 73 74 20 | 2d 34 29 20 28 63 6f 6e | (const |-4) (con|
|00000a00| 73 74 20 2d 32 29 20 28 | 63 6f 6e 73 74 20 2d 31 |st -2) (|const -1|
|00000a10| 29 29 20 3a 67 72 6f 75 | 70 20 27 63 70 65 72 6c |)) :grou|p 'cperl|
|00000a20| 2d 69 6e 64 65 6e 74 29 | 0a 28 63 75 73 74 6f 6d |-indent)|.(custom|
|00000a30| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000a40| 65 20 27 63 70 65 72 6c | 2d 6d 69 6e 2d 6c 61 62 |e 'cperl|-min-lab|
|00000a50| 65 6c 2d 69 6e 64 65 6e | 74 20 27 31 20 22 2a 4d |el-inden|t '1 "*M|
|00000a60| 69 6e 69 6d 61 6c 20 6f | 66 66 73 65 74 20 6f 66 |inimal o|ffset of|
|00000a70| 20 43 50 65 72 6c 20 6c | 61 62 65 6c 20 6c 69 6e | CPerl l|abel lin|
|00000a80| 65 73 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |es." :ty|pe '(cho|
|00000a90| 69 63 65 20 28 63 6f 6e | 73 74 20 31 29 20 28 63 |ice (con|st 1) (c|
|00000aa0| 6f 6e 73 74 20 32 29 20 | 28 63 6f 6e 73 74 20 34 |onst 2) |(const 4|
|00000ab0| 29 29 20 3a 67 72 6f 75 | 70 20 27 63 70 65 72 6c |)) :grou|p 'cperl|
|00000ac0| 2d 69 6e 64 65 6e 74 29 | 0a 28 63 75 73 74 6f 6d |-indent)|.(custom|
|00000ad0| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000ae0| 65 20 27 63 70 65 72 6c | 2d 63 6f 6e 74 69 6e 75 |e 'cperl|-continu|
|00000af0| 65 64 2d 73 74 61 74 65 | 6d 65 6e 74 2d 6f 66 66 |ed-state|ment-off|
|00000b00| 73 65 74 20 27 32 20 22 | 2a 45 78 74 72 61 20 69 |set '2 "|*Extra i|
|00000b10| 6e 64 65 6e 74 20 66 6f | 72 20 6c 69 6e 65 73 20 |ndent fo|r lines |
|00000b20| 6e 6f 74 20 73 74 61 72 | 74 69 6e 67 20 6e 65 77 |not star|ting new|
|00000b30| 20 73 74 61 74 65 6d 65 | 6e 74 73 2e 22 20 3a 74 | stateme|nts." :t|
|00000b40| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|00000b50| 6e 73 74 20 32 29 20 28 | 63 6f 6e 73 74 20 34 29 |nst 2) (|const 4)|
|00000b60| 20 28 63 6f 6e 73 74 20 | 36 29 20 28 63 6f 6e 73 | (const |6) (cons|
|00000b70| 74 20 38 29 29 20 3a 67 | 72 6f 75 70 20 27 63 70 |t 8)) :g|roup 'cp|
|00000b80| 65 72 6c 2d 69 6e 64 65 | 6e 74 29 0a 28 63 75 73 |erl-inde|nt).(cus|
|00000b90| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000ba0| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 63 6f 6e 74 |able 'cp|erl-cont|
|00000bb0| 69 6e 75 65 64 2d 62 72 | 61 63 65 2d 6f 66 66 73 |inued-br|ace-offs|
|00000bc0| 65 74 20 27 30 20 22 2a | 45 78 74 72 61 20 69 6e |et '0 "*|Extra in|
|00000bd0| 64 65 6e 74 20 66 6f 72 | 20 73 75 62 73 74 61 74 |dent for| substat|
|00000be0| 65 6d 65 6e 74 73 20 74 | 68 61 74 20 73 74 61 72 |ements t|hat star|
|00000bf0| 74 20 77 69 74 68 20 6f | 70 65 6e 2d 62 72 61 63 |t with o|pen-brac|
|00000c00| 65 73 2e 5c 6e 54 68 69 | 73 20 69 73 20 69 6e 20 |es.\nThi|s is in |
|00000c10| 61 64 64 69 74 69 6f 6e | 20 74 6f 20 63 70 65 72 |addition| to cper|
|00000c20| 6c 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |l-contin|ued-stat|
|00000c30| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 2e 22 20 3a |ement-of|fset." :|
|00000c40| 74 79 70 65 20 27 28 63 | 68 6f 69 63 65 20 28 63 |type '(c|hoice (c|
|00000c50| 6f 6e 73 74 20 30 29 20 | 28 63 6f 6e 73 74 20 31 |onst 0) |(const 1|
|00000c60| 29 20 28 63 6f 6e 73 74 | 20 32 29 20 28 63 6f 6e |) (const| 2) (con|
|00000c70| 73 74 20 34 29 20 28 63 | 6f 6e 73 74 20 36 29 20 |st 4) (c|onst 6) |
|00000c80| 28 63 6f 6e 73 74 20 38 | 29 29 20 3a 67 72 6f 75 |(const 8|)) :grou|
|00000c90| 70 20 27 63 70 65 72 6c | 2d 69 6e 64 65 6e 74 29 |p 'cperl|-indent)|
|00000ca0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00000cb0| 2d 76 61 72 69 61 62 6c | 65 20 27 63 70 65 72 6c |-variabl|e 'cperl|
|00000cc0| 2d 63 6c 6f 73 65 2d 70 | 61 72 65 6e 2d 6f 66 66 |-close-p|aren-off|
|00000cd0| 73 65 74 20 27 2d 31 20 | 22 2a 45 78 74 72 61 20 |set '-1 |"*Extra |
|00000ce0| 69 6e 64 65 6e 74 20 66 | 6f 72 20 73 75 62 73 74 |indent f|or subst|
|00000cf0| 61 74 65 6d 65 6e 74 73 | 20 74 68 61 74 20 73 74 |atements| that st|
|00000d00| 61 72 74 20 77 69 74 68 | 20 63 6c 6f 73 65 2d 70 |art with| close-p|
|00000d10| 61 72 65 6e 74 68 65 73 | 69 73 2e 22 20 3a 74 79 |arenthes|is." :ty|
|00000d20| 70 65 20 27 28 63 68 6f | 69 63 65 20 28 63 6f 6e |pe '(cho|ice (con|
|00000d30| 73 74 20 2d 34 29 20 28 | 63 6f 6e 73 74 20 2d 33 |st -4) (|const -3|
|00000d40| 29 20 28 63 6f 6e 73 74 | 20 2d 32 29 20 28 63 6f |) (const| -2) (co|
|00000d50| 6e 73 74 20 2d 31 29 20 | 28 63 6f 6e 73 74 20 30 |nst -1) |(const 0|
|00000d60| 29 29 20 3a 67 72 6f 75 | 70 20 27 63 70 65 72 6c |)) :grou|p 'cperl|
|00000d70| 2d 69 6e 64 65 6e 74 29 | 0a 28 63 75 73 74 6f 6d |-indent)|.(custom|
|00000d80| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000d90| 65 20 27 63 70 65 72 6c | 2d 72 65 67 65 78 70 2d |e 'cperl|-regexp-|
|00000da0| 69 6e 64 65 6e 74 2d 73 | 74 65 70 20 27 6e 69 6c |indent-s|tep 'nil|
|00000db0| 20 22 2a 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 75 | "*inden|tation u|
|00000dc0| 73 65 64 20 77 68 65 6e | 20 62 65 61 75 74 69 66 |sed when| beautif|
|00000dd0| 79 69 6e 67 20 72 65 67 | 65 78 70 73 2e 5c 6e 49 |ying reg|exps.\nI|
|00000de0| 66 20 60 6e 69 6c 27 2c | 20 74 68 65 20 76 61 6c |f `nil',| the val|
|00000df0| 75 65 20 6f 66 20 60 63 | 70 65 72 6c 2d 69 6e 64 |ue of `c|perl-ind|
|00000e00| 65 6e 74 2d 6c 65 76 65 | 6c 27 20 77 69 6c 6c 20 |ent-leve|l' will |
|00000e10| 62 65 20 75 73 65 64 2e | 22 20 3a 74 79 70 65 20 |be used.|" :type |
|00000e20| 27 28 63 68 6f 69 63 65 | 20 28 63 6f 6e 73 74 20 |'(choice| (const |
|00000e30| 6e 69 6c 29 20 28 63 6f | 6e 73 74 20 30 29 20 28 |nil) (co|nst 0) (|
|00000e40| 63 6f 6e 73 74 20 32 29 | 20 28 63 6f 6e 73 74 20 |const 2)| (const |
|00000e50| 34 29 20 28 63 6f 6e 73 | 74 20 36 29 20 28 63 6f |4) (cons|t 6) (co|
|00000e60| 6e 73 74 20 38 29 29 20 | 3a 67 72 6f 75 70 20 27 |nst 8)) |:group '|
|00000e70| 63 70 65 72 6c 2d 69 6e | 64 65 6e 74 29 0a 28 63 |cperl-in|dent).(c|
|00000e80| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000e90| 72 69 61 62 6c 65 20 27 | 63 70 65 72 6c 2d 69 6e |riable '|cperl-in|
|00000ea0| 64 65 6e 74 2d 6c 65 66 | 74 2d 61 6c 69 67 6e 65 |dent-lef|t-aligne|
|00000eb0| 64 2d 63 6f 6d 6d 65 6e | 74 73 20 27 74 20 22 2a |d-commen|ts 't "*|
|00000ec0| 4e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 74 68 |Non-nil |means th|
|00000ed0| 61 74 20 74 68 65 20 63 | 6f 6d 6d 65 6e 74 20 73 |at the c|omment s|
|00000ee0| 74 61 72 74 69 6e 67 20 | 69 6e 20 6c 65 66 74 6d |tarting |in leftm|
|00000ef0| 6f 73 74 20 63 6f 6c 75 | 6d 6e 20 73 68 6f 75 6c |ost colu|mn shoul|
|00000f00| 64 20 69 6e 64 65 6e 74 | 2e 22 20 3a 74 79 70 65 |d indent|." :type|
|00000f10| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00000f20| 20 27 63 70 65 72 6c 2d | 69 6e 64 65 6e 74 29 0a | 'cperl-|indent).|
|00000f30| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00000f40| 76 61 72 69 61 62 6c 65 | 20 27 63 70 65 72 6c 2d |variable| 'cperl-|
|00000f50| 68 61 69 72 79 20 27 6e | 69 6c 20 22 2a 4e 6f 74 |hairy 'n|il "*Not|
|00000f60| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 61 6c 6c 20 74 |-nil mea|ns all t|
|00000f70| 68 65 20 62 65 6c 6c 73 | 20 61 6e 64 20 77 68 69 |he bells| and whi|
|00000f80| 73 74 6c 65 73 20 61 72 | 65 20 65 6e 61 62 6c 65 |stles ar|e enable|
|00000f90| 64 20 69 6e 20 43 50 65 | 72 6c 2e 22 20 3a 74 79 |d in CPe|rl." :ty|
|00000fa0| 70 65 20 27 62 6f 6f 6c | 65 61 6e 20 3a 67 72 6f |pe 'bool|ean :gro|
|00000fb0| 75 70 20 27 70 65 72 6c | 29 0a 28 63 75 73 74 6f |up 'perl|).(custo|
|00000fc0| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000fd0| 6c 65 20 27 63 70 65 72 | 6c 2d 61 75 74 6f 2d 6e |le 'cper|l-auto-n|
|00000fe0| 65 77 6c 69 6e 65 20 27 | 6e 69 6c 20 22 2a 4e 6f |ewline '|nil "*No|
|00000ff0| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 61 75 74 6f |n-nil me|ans auto|
|00001000| 6d 61 74 69 63 61 6c 6c | 79 20 6e 65 77 6c 69 6e |maticall|y newlin|
|00001010| 65 20 62 65 66 6f 72 65 | 20 61 6e 64 20 61 66 74 |e before| and aft|
|00001020| 65 72 20 62 72 61 63 65 | 73 2c 5c 6e 61 6e 64 20 |er brace|s,\nand |
|00001030| 61 66 74 65 72 20 63 6f | 6c 6f 6e 73 20 61 6e 64 |after co|lons and|
|00001040| 20 73 65 6d 69 63 6f 6c | 6f 6e 73 2c 20 69 6e 73 | semicol|ons, ins|
|00001050| 65 72 74 65 64 20 69 6e | 20 43 50 65 72 6c 20 63 |erted in| CPerl c|
|00001060| 6f 64 65 2e 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |ode. The| followi|
|00001070| 6e 67 5c 6e 5c 5c 5b 63 | 70 65 72 6c 2d 65 6c 65 |ng\n\\[c|perl-ele|
|00001080| 63 74 72 69 63 2d 62 61 | 63 6b 73 70 61 63 65 5d |ctric-ba|ckspace]|
|00001090| 20 77 69 6c 6c 20 72 65 | 6d 6f 76 65 20 74 68 65 | will re|move the|
|000010a0| 20 69 6e 73 65 72 74 65 | 64 20 77 68 69 74 65 73 | inserte|d whites|
|000010b0| 70 61 63 65 2e 5c 6e 49 | 6e 73 65 72 74 69 6f 6e |pace.\nI|nsertion|
|000010c0| 20 61 66 74 65 72 20 63 | 6f 6c 6f 6e 73 20 72 65 | after c|olons re|
|000010d0| 71 75 69 72 65 73 20 62 | 6f 74 68 20 74 68 69 73 |quires b|oth this|
|000010e0| 20 76 61 72 69 61 62 6c | 65 20 61 6e 64 20 5c 6e | variabl|e and \n|
|000010f0| 60 63 70 65 72 6c 2d 61 | 75 74 6f 2d 6e 65 77 6c |`cperl-a|uto-newl|
|00001100| 69 6e 65 2d 61 66 74 65 | 72 2d 63 6f 6c 6f 6e 27 |ine-afte|r-colon'|
|00001110| 20 73 65 74 2e 22 20 3a | 74 79 70 65 20 27 62 6f | set." :|type 'bo|
|00001120| 6f 6c 65 61 6e 20 3a 67 | 72 6f 75 70 20 27 70 65 |olean :g|roup 'pe|
|00001130| 72 6c 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |rl).(cus|tom-decl|
|00001140| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 63 70 |are-vari|able 'cp|
|00001150| 65 72 6c 2d 61 75 74 6f | 2d 6e 65 77 6c 69 6e 65 |erl-auto|-newline|
|00001160| 2d 61 66 74 65 72 2d 63 | 6f 6c 6f 6e 20 27 6e 69 |-after-c|olon 'ni|
|00001170| 6c 20 22 2a 4e 6f 6e 2d | 6e 69 6c 20 6d 65 61 6e |l "*Non-|nil mean|
|00001180| 73 20 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 20 |s automa|tically |
|00001190| 6e 65 77 6c 69 6e 65 20 | 65 76 65 6e 20 61 66 74 |newline |even aft|
|000011a0| 65 72 20 63 6f 6c 6f 6e | 73 2e 5c 6e 53 75 62 6a |er colon|s.\nSubj|
|000011b0| 65 63 74 20 74 6f 20 60 | 63 70 65 72 6c 2d 61 75 |ect to `|cperl-au|
|000011c0| 74 6f 2d 6e 65 77 6c 69 | 6e 65 27 20 73 65 74 74 |to-newli|ne' sett|
|000011d0| 69 6e 67 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |ing." :t|ype 'boo|
|000011e0| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 70 65 72 |lean :gr|oup 'per|
|000011f0| 6c 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |l).(cust|om-decla|
|00001200| 72 65 2d 67 72 6f 75 70 | 20 27 63 70 65 72 6c 2d |re-group| 'cperl-|
|00001210| 65 6c 65 63 74 72 69 63 | 20 6e 69 6c 20 22 43 75 |electric| nil "Cu|
|00001220| 73 74 6f 6d 69 7a 61 62 | 6c 65 20 65 6c 65 63 74 |stomizab|le elect|
|00001230| 72 69 63 20 62 65 68 61 | 76 69 6f 75 72 2e 22 20 |ric beha|viour." |
|00001240| 3a 70 72 65 66 69 78 20 | 22 63 70 65 72 6c 22 20 |:prefix |"cperl" |
|00001250| 3a 67 72 6f 75 70 20 27 | 70 65 72 6c 29 0a 28 63 |:group '|perl).(c|
|00001260| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001270| 72 69 61 62 6c 65 20 27 | 63 70 65 72 6c 2d 65 6c |riable '|cperl-el|
|00001280| 65 63 74 72 69 63 2d 6c | 62 72 61 63 65 2d 73 70 |ectric-l|brace-sp|
|00001290| 61 63 65 20 27 6e 69 6c | 20 22 2a 4e 6f 6e 2d 6e |ace 'nil| "*Non-n|
|000012a0| 69 6c 20 28 61 6e 64 20 | 6e 6f 6e 2d 6e 75 6c 6c |il (and |non-null|
|000012b0| 29 20 6d 65 61 6e 73 20 | 7b 20 61 66 74 65 72 20 |) means |{ after |
|000012c0| 24 20 69 6e 20 43 50 65 | 72 6c 20 62 75 66 66 65 |$ in CPe|rl buffe|
|000012d0| 72 73 20 73 68 6f 75 6c | 64 20 62 65 20 70 72 65 |rs shoul|d be pre|
|000012e0| 63 65 64 65 64 20 62 79 | 20 60 20 27 2e 5c 6e 43 |ceded by| ` '.\nC|
|000012f0| 61 6e 20 62 65 20 6f 76 | 65 72 77 72 69 74 74 65 |an be ov|erwritte|
|00001300| 6e 20 62 79 20 60 63 70 | 65 72 6c 2d 68 61 69 72 |n by `cp|erl-hair|
|00001310| 79 27 20 69 66 20 6e 69 | 6c 2e 22 20 3a 74 79 70 |y' if ni|l." :typ|
|00001320| 65 20 27 62 6f 6f 6c 65 | 61 6e 20 3a 67 72 6f 75 |e 'boole|an :grou|
|00001330| 70 20 27 63 70 65 72 6c | 2d 65 6c 65 63 74 72 69 |p 'cperl|-electri|
|00001340| 63 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |c).(cust|om-decla|
|00001350| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 63 70 65 |re-varia|ble 'cpe|
|00001360| 72 6c 2d 65 6c 65 63 74 | 72 69 63 2d 70 61 72 65 |rl-elect|ric-pare|
|00001370| 6e 73 2d 73 74 72 69 6e | 67 20 27 22 28 7b 5b 5d |ns-strin|g '"({[]|
|00001380| 7d 29 3c 22 20 22 2a 53 | 74 72 69 6e 67 20 6f 66 |})<" "*S|tring of|
|00001390| 20 70 61 72 65 6e 74 68 | 65 73 65 73 20 74 68 61 | parenth|eses tha|
|000013a0| 74 20 73 68 6f 75 6c 64 | 20 62 65 20 65 6c 65 63 |t should| be elec|
|000013b0| 74 72 69 63 20 69 6e 20 | 43 50 65 72 6c 2e 22 20 |tric in |CPerl." |
|000013c0| 3a 74 79 70 65 20 27 73 | 74 72 69 6e 67 20 3a 67 |:type 's|tring :g|
|000013d0| 72 6f 75 70 20 27 63 70 | 65 72 6c 2d 65 6c 65 63 |roup 'cp|erl-elec|
|000013e0| 74 72 69 63 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |tric).(c|ustom-de|
|000013f0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00001400| 63 70 65 72 6c 2d 65 6c | 65 63 74 72 69 63 2d 70 |cperl-el|ectric-p|
|00001410| 61 72 65 6e 73 20 27 6e | 69 6c 20 22 2a 4e 6f 6e |arens 'n|il "*Non|
|00001420| 2d 6e 69 6c 20 28 61 6e | 64 20 6e 6f 6e 2d 6e 75 |-nil (an|d non-nu|
|00001430| 6c 6c 29 20 6d 65 61 6e | 73 20 70 61 72 65 6e 74 |ll) mean|s parent|
|00001440| 68 65 73 65 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |heses sh|ould be |
|00001450| 65 6c 65 63 74 72 69 63 | 20 69 6e 20 43 50 65 72 |electric| in CPer|
|00001460| 6c 2e 5c 6e 43 61 6e 20 | 62 65 20 6f 76 65 72 77 |l.\nCan |be overw|
|00001470| 72 69 74 74 65 6e 20 62 | 79 20 60 63 70 65 72 6c |ritten b|y `cperl|
|00001480| 2d 68 61 69 72 79 27 20 | 69 66 20 6e 69 6c 2e 22 |-hairy' |if nil."|
|00001490| 20 3a 74 79 70 65 20 27 | 62 6f 6f 6c 65 61 6e 20 | :type '|boolean |
|000014a0| 3a 67 72 6f 75 70 20 27 | 63 70 65 72 6c 2d 65 6c |:group '|cperl-el|
|000014b0| 65 63 74 72 69 63 29 0a | 28 63 75 73 74 6f 6d 2d |ectric).|(custom-|
|000014c0| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|000014d0| 20 27 63 70 65 72 6c 2d | 65 6c 65 63 74 72 69 63 | 'cperl-|electric|
|000014e0| 2d 70 61 72 65 6e 73 2d | 6d 61 72 6b 20 27 28 61 |-parens-|mark '(a|
|000014f0| 6e 64 20 77 69 6e 64 6f | 77 2d 73 79 73 74 65 6d |nd windo|w-system|
|00001500| 20 28 62 6f 75 6e 64 70 | 20 27 7a 6d 61 63 73 2d | (boundp| 'zmacs-|
|00001510| 72 65 67 69 6f 6e 73 29 | 20 7a 6d 61 63 73 2d 72 |regions)| zmacs-r|
|00001520| 65 67 69 6f 6e 73 29 20 | 22 2a 4e 6f 74 2d 6e 69 |egions) |"*Not-ni|
|00001530| 6c 20 6d 65 61 6e 73 20 | 74 68 61 74 20 65 6c 65 |l means |that ele|
|00001540| 63 74 72 69 63 20 70 61 | 72 65 6e 73 20 6c 6f 6f |ctric pa|rens loo|
|00001550| 6b 20 66 6f 72 20 61 63 | 74 69 76 65 20 6d 61 72 |k for ac|tive mar|
|00001560| 6b 2e 5c 6e 44 65 66 61 | 75 6c 74 20 69 73 20 79 |k.\nDefa|ult is y|
|00001570| 65 73 20 69 66 20 74 68 | 65 72 65 20 69 73 20 76 |es if th|ere is v|
|00001580| 69 73 75 61 6c 20 66 65 | 65 64 62 61 63 6b 20 6f |isual fe|edback o|
|00001590| 6e 20 6d 61 72 6b 2e 22 | 20 3a 74 79 70 65 20 27 |n mark."| :type '|
|000015a0| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|000015b0| 63 70 65 72 6c 2d 65 6c | 65 63 74 72 69 63 29 0a |cperl-el|ectric).|
|000015c0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000015d0| 76 61 72 69 61 62 6c 65 | 20 27 63 70 65 72 6c 2d |variable| 'cperl-|
|000015e0| 65 6c 65 63 74 72 69 63 | 2d 6c 69 6e 65 66 65 65 |electric|-linefee|
|000015f0| 64 20 27 6e 69 6c 20 22 | 2a 49 66 20 74 72 75 65 |d 'nil "|*If true|
|00001600| 2c 20 4c 46 44 20 73 68 | 6f 75 6c 64 20 62 65 20 |, LFD sh|ould be |
|00001610| 68 61 69 72 79 20 69 6e | 20 43 50 65 72 6c 2c 20 |hairy in| CPerl, |
|00001620| 6f 74 68 65 72 77 69 73 | 65 20 43 2d 63 20 4c 46 |otherwis|e C-c LF|
|00001630| 44 20 69 73 20 68 61 69 | 72 79 2e 5c 6e 49 6e 20 |D is hai|ry.\nIn |
|00001640| 61 6e 79 20 63 61 73 65 | 20 74 68 65 73 65 20 74 |any case| these t|
|00001650| 77 6f 20 6d 65 61 6e 20 | 70 6c 61 69 6e 20 61 6e |wo mean |plain an|
|00001660| 64 20 68 61 69 72 79 20 | 6c 69 6e 65 66 65 65 64 |d hairy |linefeed|
|00001670| 73 20 74 6f 67 65 74 68 | 65 72 2e 5c 6e 43 61 6e |s togeth|er.\nCan|
|00001680| 20 62 65 20 6f 76 65 72 | 77 72 69 74 74 65 6e 20 | be over|written |
|00001690| 62 79 20 60 63 70 65 72 | 6c 2d 68 61 69 72 79 27 |by `cper|l-hairy'|
|000016a0| 20 69 66 20 6e 69 6c 2e | 22 20 3a 74 79 70 65 20 | if nil.|" :type |
|000016b0| 27 62 6f 6f 6c 65 61 6e | 20 3a 67 72 6f 75 70 20 |'boolean| :group |
|000016c0| 27 63 70 65 72 6c 2d 65 | 6c 65 63 74 72 69 63 29 |'cperl-e|lectric)|
|000016d0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|000016e0| 2d 76 61 72 69 61 62 6c | 65 20 27 63 70 65 72 6c |-variabl|e 'cperl|
|000016f0| 2d 65 6c 65 63 74 72 69 | 63 2d 6b 65 79 77 6f 72 |-electri|c-keywor|
|00001700| 64 73 20 27 6e 69 6c 20 | 22 2a 4e 6f 74 2d 6e 69 |ds 'nil |"*Not-ni|
|00001710| 6c 20 28 61 6e 64 20 6e | 6f 6e 2d 6e 75 6c 6c 29 |l (and n|on-null)|
|00001720| 20 6d 65 61 6e 73 20 6b | 65 79 77 6f 72 64 73 20 | means k|eywords |
|00001730| 61 72 65 20 65 6c 65 63 | 74 72 69 63 20 69 6e 20 |are elec|tric in |
|00001740| 43 50 65 72 6c 2e 5c 6e | 43 61 6e 20 62 65 20 6f |CPerl.\n|Can be o|
|00001750| 76 65 72 77 72 69 74 74 | 65 6e 20 62 79 20 60 63 |verwritt|en by `c|
|00001760| 70 65 72 6c 2d 68 61 69 | 72 79 27 20 69 66 20 6e |perl-hai|ry' if n|
|00001770| 69 6c 2e 22 20 3a 74 79 | 70 65 20 27 62 6f 6f 6c |il." :ty|pe 'bool|
|00001780| 65 61 6e 20 3a 67 72 6f | 75 70 20 27 63 70 65 72 |ean :gro|up 'cper|
|00001790| 6c 2d 65 6c 65 63 74 72 | 69 63 29 0a 28 63 75 73 |l-electr|ic).(cus|
|000017a0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|000017b0| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 63 6f 6d 6d |able 'cp|erl-comm|
|000017c0| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 27 33 32 20 22 |ent-colu|mn '32 "|
|000017d0| 2a 43 6f 6c 75 6d 6e 20 | 74 6f 20 70 75 74 20 63 |*Column |to put c|
|000017e0| 6f 6d 6d 65 6e 74 73 20 | 69 6e 20 43 50 65 72 6c |omments |in CPerl|
|000017f0| 20 28 75 73 65 20 5c 5c | 5b 63 70 65 72 6c 2d 69 | (use \\|[cperl-i|
|00001800| 6e 64 65 6e 74 5d 27 20 | 74 6f 20 6c 69 6e 65 75 |ndent]' |to lineu|
|00001810| 70 20 77 69 74 68 20 63 | 6f 64 65 29 2e 22 20 3a |p with c|ode)." :|
|00001820| 74 79 70 65 20 27 69 6e | 74 65 67 65 72 20 3a 67 |type 'in|teger :g|
|00001830| 72 6f 75 70 20 27 70 65 | 72 6c 29 0a 28 63 75 73 |roup 'pe|rl).(cus|
|00001840| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00001850| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 76 63 2d 68 |able 'cp|erl-vc-h|
|00001860| 65 61 64 65 72 2d 61 6c | 69 73 74 20 27 27 28 28 |eader-al|ist ''((|
|00001870| 52 43 53 20 22 24 72 63 | 73 20 3d 20 27 20 24 49 |RCS "$rc|s = ' $I|
|00001880| 64 24 20 27 20 3b 22 29 | 20 28 43 56 53 20 22 24 |d$ ' ;")| (CVS "$|
|00001890| 63 76 73 20 3d 20 27 20 | 24 49 64 24 20 27 20 3b |cvs = ' |$Id$ ' ;|
|000018a0| 22 29 20 28 53 43 43 53 | 20 22 24 73 63 63 73 20 |") (SCCS| "$sccs |
|000018b0| 3d 20 27 25 57 25 27 20 | 3b 22 29 29 20 22 2a 57 |= '%W%' |;")) "*W|
|000018c0| 68 61 74 20 74 6f 20 75 | 73 65 20 61 73 20 60 76 |hat to u|se as `v|
|000018d0| 63 2d 68 65 61 64 65 72 | 2d 61 6c 69 73 74 27 20 |c-header|-alist' |
|000018e0| 69 6e 20 43 50 65 72 6c | 2e 22 29 0a 28 63 75 73 |in CPerl|.").(cus|
|000018f0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00001900| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 69 6e 66 6f |able 'cp|erl-info|
|00001910| 2d 6f 6e 2d 63 6f 6d 6d | 61 6e 64 2d 6e 6f 2d 70 |-on-comm|and-no-p|
|00001920| 72 6f 6d 70 74 20 27 6e | 69 6c 20 22 2a 4e 6f 74 |rompt 'n|il "*Not|
|00001930| 2d 6e 69 6c 20 28 61 6e | 64 20 6e 6f 6e 2d 6e 75 |-nil (an|d non-nu|
|00001940| 6c 6c 29 20 6d 65 61 6e | 73 20 6e 6f 74 20 74 6f |ll) mean|s not to|
|00001950| 20 70 72 6f 6d 70 74 20 | 6f 6e 20 43 2d 68 20 66 | prompt |on C-h f|
|00001960| 2e 5c 6e 54 68 65 20 6f | 70 70 6f 73 69 74 65 20 |.\nThe o|pposite |
|00001970| 62 65 68 61 76 69 6f 75 | 72 20 69 73 20 61 6c 77 |behaviou|r is alw|
|00001980| 61 79 73 20 61 76 61 69 | 6c 61 62 6c 65 20 69 66 |ays avai|lable if|
|00001990| 20 70 72 65 66 69 78 65 | 64 20 77 69 74 68 20 43 | prefixe|d with C|
|000019a0| 2d 63 2e 5c 6e 43 61 6e | 20 62 65 20 6f 76 65 72 |-c.\nCan| be over|
|000019b0| 77 72 69 74 74 65 6e 20 | 62 79 20 60 63 70 65 72 |written |by `cper|
|000019c0| 6c 2d 68 61 69 72 79 27 | 20 69 66 20 6e 69 6c 2e |l-hairy'| if nil.|
|000019d0| 22 20 3a 74 79 70 65 20 | 27 62 6f 6f 6c 65 61 6e |" :type |'boolean|
|000019e0| 20 3a 67 72 6f 75 70 20 | 27 70 65 72 6c 29 0a 28 | :group |'perl).(|
|000019f0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00001a00| 61 72 69 61 62 6c 65 20 | 27 63 70 65 72 6c 2d 68 |ariable |'cperl-h|
|00001a10| 65 6c 70 20 27 6e 69 6c | 20 22 2a 4e 6f 74 2d 6e |elp 'nil| "*Not-n|
|00001a20| 69 6c 20 28 61 6e 64 20 | 6e 6f 6e 2d 6e 75 6c 6c |il (and |non-null|
|00001a30| 29 20 6d 65 61 6e 73 20 | 74 6f 20 73 68 6f 77 20 |) means |to show |
|00001a40| 41 75 74 6f 20 68 65 6c | 70 2e 22 20 3a 74 79 70 |Auto hel|p." :typ|
|00001a50| 65 20 27 62 6f 6f 6c 65 | 61 6e 20 3a 67 72 6f 75 |e 'boole|an :grou|
|00001a60| 70 20 27 70 65 72 6c 29 | 0a 28 63 75 73 74 6f 6d |p 'perl)|.(custom|
|00001a70| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00001a80| 65 20 27 63 70 65 72 6c | 2d 66 6f 6e 74 2d 6c 6f |e 'cperl|-font-lo|
|00001a90| 63 6b 20 27 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |ck '(and| (boundp|
|00001aa0| 20 27 66 6f 6e 74 2d 6c | 6f 63 6b 2d 61 75 74 6f | 'font-l|ock-auto|
|00001ab0| 2d 66 6f 6e 74 69 66 79 | 29 20 66 6f 6e 74 2d 6c |-fontify|) font-l|
|00001ac0| 6f 63 6b 2d 61 75 74 6f | 2d 66 6f 6e 74 69 66 79 |ock-auto|-fontify|
|00001ad0| 29 20 22 2a 4e 6f 6e 2d | 6e 69 6c 20 28 61 6e 64 |) "*Non-|nil (and|
|00001ae0| 20 6e 6f 6e 2d 6e 75 6c | 6c 29 20 6d 65 61 6e 73 | non-nul|l) means|
|00001af0| 20 43 50 65 72 6c 20 62 | 75 66 66 65 72 73 20 77 | CPerl b|uffers w|
|00001b00| 69 6c 6c 20 75 73 65 20 | 66 6f 6e 74 2d 6c 6f 63 |ill use |font-loc|
|00001b10| 6b 2d 6d 6f 64 65 2e 5c | 6e 43 61 6e 20 62 65 20 |k-mode.\|nCan be |
|00001b20| 6f 76 65 72 77 72 69 74 | 74 65 6e 20 62 79 20 60 |overwrit|ten by `|
|00001b30| 63 70 65 72 6c 2d 68 61 | 69 72 79 27 20 69 66 20 |cperl-ha|iry' if |
|00001b40| 6e 69 6c 2e 20 20 49 66 | 20 6e 65 76 65 72 20 73 |nil. If| never s|
|00001b50| 65 74 2c 20 69 74 20 77 | 69 6c 6c 20 62 65 5c 6e |et, it w|ill be\n|
|00001b60| 73 65 74 20 74 6f 20 74 | 68 65 20 76 61 6c 75 65 |set to t|he value|
|00001b70| 20 6f 66 20 60 66 6f 6e | 74 2d 6c 6f 63 6b 2d 61 | of `fon|t-lock-a|
|00001b80| 75 74 6f 2d 66 6f 6e 74 | 69 66 79 27 2e 22 20 3a |uto-font|ify'." :|
|00001b90| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|00001ba0| 72 6f 75 70 20 27 70 65 | 72 6c 29 0a 28 62 79 74 |roup 'pe|rl).(byt|
|00001bb0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 c4 c5 c4 c6 |e-code "|........|
|00001bc0| 26 07 88 c7 c8 c9 ca c4 | c1 25 88 c7 cb cc cd c4 |&.......|.%......|
|00001bd0| c1 25 88 c7 ce cf d0 c4 | c1 25 87 22 20 5b 63 75 |.%......|.%." [cu|
|00001be0| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 67 72 6f |stom-dec|lare-gro|
|00001bf0| 75 70 20 63 70 65 72 6c | 2d 66 61 63 65 73 20 6e |up cperl|-faces n|
|00001c00| 69 6c 20 22 46 6f 6e 74 | 20 6c 6f 63 6b 20 66 61 |il "Font| lock fa|
|00001c10| 63 65 73 20 66 6f 72 20 | 43 50 65 72 6c 20 6d 6f |ces for |CPerl mo|
|00001c20| 64 65 2e 22 20 3a 67 72 | 6f 75 70 20 70 65 72 6c |de." :gr|oup perl|
|00001c30| 20 66 61 63 65 73 20 63 | 75 73 74 6f 6d 2d 64 65 | faces c|ustom-de|
|00001c40| 63 6c 61 72 65 2d 66 61 | 63 65 20 63 70 65 72 6c |clare-fa|ce cperl|
|00001c50| 2d 70 6f 64 2d 66 61 63 | 65 20 28 28 28 28 63 6c |-pod-fac|e ((((cl|
|00001c60| 61 73 73 20 63 6f 6c 6f | 72 29 20 28 62 61 63 6b |ass colo|r) (back|
|00001c70| 67 72 6f 75 6e 64 20 6c | 69 67 68 74 29 29 20 28 |ground l|ight)) (|
|00001c80| 3a 66 6f 72 65 67 72 6f | 75 6e 64 20 22 62 72 6f |:foregro|und "bro|
|00001c90| 77 6e 34 22 29 29 20 28 | 28 28 63 6c 61 73 73 20 |wn4")) (|((class |
|00001ca0| 63 6f 6c 6f 72 29 20 28 | 62 61 63 6b 67 72 6f 75 |color) (|backgrou|
|00001cb0| 6e 64 20 64 61 72 6b 29 | 29 20 28 3a 66 6f 72 65 |nd dark)|) (:fore|
|00001cc0| 67 72 6f 75 6e 64 20 22 | 62 72 6f 77 6e 31 22 29 |ground "|brown1")|
|00001cd0| 29 29 20 22 2a 54 68 65 | 20 66 61 63 65 20 75 73 |)) "*The| face us|
|00001ce0| 65 64 20 66 6f 72 20 50 | 4f 44 20 68 69 67 68 6c |ed for P|OD highl|
|00001cf0| 69 67 68 74 69 6e 67 2e | 22 20 63 70 65 72 6c 2d |ighting.|" cperl-|
|00001d00| 70 6f 64 2d 68 65 61 64 | 2d 66 61 63 65 20 28 28 |pod-head|-face ((|
|00001d10| 28 28 63 6c 61 73 73 20 | 63 6f 6c 6f 72 29 29 20 |((class |color)) |
|00001d20| 28 3a 66 6f 72 65 67 72 | 6f 75 6e 64 20 22 73 74 |(:foregr|ound "st|
|00001d30| 65 65 6c 62 6c 75 65 22 | 29 29 29 20 22 2a 54 68 |eelblue"|))) "*Th|
|00001d40| 65 20 66 61 63 65 20 75 | 73 65 64 20 66 6f 72 20 |e face u|sed for |
|00001d50| 50 4f 44 20 68 65 61 64 | 65 72 73 2e 22 20 63 70 |POD head|ers." cp|
|00001d60| 65 72 6c 2d 68 65 72 65 | 2d 66 61 63 65 20 28 28 |erl-here|-face ((|
|00001d70| 28 28 74 79 70 65 20 78 | 29 20 28 63 6c 61 73 73 |((type x|) (class|
|00001d80| 20 63 6f 6c 6f 72 29 20 | 28 62 61 63 6b 67 72 6f | color) |(backgro|
|00001d90| 75 6e 64 20 6c 69 67 68 | 74 29 29 20 28 3a 66 6f |und ligh|t)) (:fo|
|00001da0| 72 65 67 72 6f 75 6e 64 | 20 22 67 72 65 65 6e 34 |reground| "green4|
|00001db0| 22 20 3a 62 61 63 6b 67 | 72 6f 75 6e 64 20 22 67 |" :backg|round "g|
|00001dc0| 72 65 79 38 35 22 29 29 | 20 28 74 20 28 3a 66 6f |rey85"))| (t (:fo|
|00001dd0| 72 65 67 72 6f 75 6e 64 | 20 22 67 72 65 65 6e 22 |reground| "green"|
|00001de0| 29 29 29 20 22 2a 54 68 | 65 20 72 65 73 75 6c 74 |))) "*Th|e result|
|00001df0| 20 6f 66 20 65 76 61 6c | 75 61 74 69 6f 6e 20 6f | of eval|uation o|
|00001e00| 66 20 74 68 69 73 20 65 | 78 70 72 65 73 73 69 6f |f this e|xpressio|
|00001e10| 6e 20 69 73 20 75 73 65 | 64 20 66 6f 72 20 68 65 |n is use|d for he|
|00001e20| 72 65 2d 64 6f 63 73 20 | 68 69 67 68 6c 69 67 68 |re-docs |highligh|
|00001e30| 74 69 6e 67 2e 22 5d 20 | 38 29 0a 28 63 75 73 74 |ting."] |8).(cust|
|00001e40| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001e50| 62 6c 65 20 27 63 70 65 | 72 6c 2d 70 6f 64 2d 68 |ble 'cpe|rl-pod-h|
|00001e60| 65 72 65 2d 66 6f 6e 74 | 69 66 79 20 27 27 28 66 |ere-font|ify ''(f|
|00001e70| 65 61 74 75 72 65 70 20 | 27 66 6f 6e 74 2d 6c 6f |eaturep |'font-lo|
|00001e80| 63 6b 29 20 22 2a 4e 6f | 74 2d 6e 69 6c 20 61 66 |ck) "*No|t-nil af|
|00001e90| 74 65 72 20 65 76 61 6c | 75 61 74 69 6f 6e 20 6d |ter eval|uation m|
|00001ea0| 65 61 6e 73 20 74 6f 20 | 68 69 67 68 6c 69 67 68 |eans to |highligh|
|00001eb0| 74 20 70 6f 64 20 61 6e | 64 20 68 65 72 65 2d 64 |t pod an|d here-d|
|00001ec0| 6f 63 73 20 73 65 63 74 | 69 6f 6e 73 2e 22 20 3a |ocs sect|ions." :|
|00001ed0| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|00001ee0| 72 6f 75 70 20 27 70 65 | 72 6c 29 0a 28 63 75 73 |roup 'pe|rl).(cus|
|00001ef0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00001f00| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 70 6f 64 2d |able 'cp|erl-pod-|
|00001f10| 68 65 72 65 2d 73 63 61 | 6e 20 27 74 20 22 2a 4e |here-sca|n 't "*N|
|00001f20| 6f 74 2d 6e 69 6c 20 6d | 65 61 6e 73 20 6c 6f 6f |ot-nil m|eans loo|
|00001f30| 6b 20 66 6f 72 20 70 6f | 64 20 61 6e 64 20 68 65 |k for po|d and he|
|00001f40| 72 65 2d 64 6f 63 73 20 | 73 65 63 74 69 6f 6e 73 |re-docs |sections|
|00001f50| 20 64 75 72 69 6e 67 20 | 73 74 61 72 74 75 70 2e | during |startup.|
|00001f60| 5c 6e 59 6f 75 20 63 61 | 6e 20 61 6c 77 61 79 73 |\nYou ca|n always|
|00001f70| 20 6d 61 6b 65 20 6c 6f | 6f 6b 75 70 20 66 72 6f | make lo|okup fro|
|00001f80| 6d 20 6d 65 6e 75 20 6f | 72 20 75 73 69 6e 67 20 |m menu o|r using |
|00001f90| 5c 5c 5b 63 70 65 72 6c | 2d 66 69 6e 64 2d 70 6f |\\[cperl|-find-po|
|00001fa0| 64 73 2d 68 65 72 65 73 | 5d 2e 22 20 3a 74 79 70 |ds-heres|]." :typ|
|00001fb0| 65 20 27 62 6f 6f 6c 65 | 61 6e 20 3a 67 72 6f 75 |e 'boole|an :grou|
|00001fc0| 70 20 27 70 65 72 6c 29 | 0a 28 63 75 73 74 6f 6d |p 'perl)|.(custom|
|00001fd0| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00001fe0| 65 20 27 63 70 65 72 6c | 2d 6d 61 78 2d 68 65 6c |e 'cperl|-max-hel|
|00001ff0| 70 2d 73 69 7a 65 20 27 | 36 36 20 22 2a 4e 6f 6e |p-size '|66 "*Non|
|00002000| 2d 6e 69 6c 20 6d 65 61 | 6e 73 20 73 68 72 69 6e |-nil mea|ns shrin|
|00002010| 6b 2d 77 72 61 70 70 69 | 6e 67 20 6f 66 20 69 6e |k-wrappi|ng of in|
|00002020| 66 6f 2d 62 75 66 66 65 | 72 20 61 6c 6c 6f 77 65 |fo-buffe|r allowe|
|00002030| 64 20 75 70 20 74 6f 20 | 74 68 65 73 65 20 70 65 |d up to |these pe|
|00002040| 72 63 65 6e 74 73 2e 22 | 20 3a 74 79 70 65 20 27 |rcents."| :type '|
|00002050| 69 6e 74 65 67 65 72 20 | 3a 67 72 6f 75 70 20 27 |integer |:group '|
|00002060| 70 65 72 6c 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |perl).(c|ustom-de|
|00002070| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00002080| 63 70 65 72 6c 2d 73 68 | 72 69 6e 6b 2d 77 72 61 |cperl-sh|rink-wra|
|00002090| 70 2d 69 6e 66 6f 2d 66 | 72 61 6d 65 20 27 74 20 |p-info-f|rame 't |
|000020a0| 22 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |"*Non-ni|l means |
|000020b0| 73 68 72 69 6e 6b 2d 77 | 72 61 70 70 69 6e 67 20 |shrink-w|rapping |
|000020c0| 6f 66 20 69 6e 66 6f 2d | 62 75 66 66 65 72 2d 66 |of info-|buffer-f|
|000020d0| 72 61 6d 65 20 61 6c 6c | 6f 77 65 64 2e 22 20 3a |rame all|owed." :|
|000020e0| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|000020f0| 72 6f 75 70 20 27 70 65 | 72 6c 29 0a 28 63 75 73 |roup 'pe|rl).(cus|
|00002100| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00002110| 61 62 6c 65 20 27 63 70 | 65 72 6c 2d 69 6e 66 6f |able 'cp|erl-info|
|00002120| 2d 70 61 67 65 20 27 22 | 70 65 72 6c 22 20 22 2a |-page '"|perl" "*|
|00002130| 4e 61 6d 65 20 6f 66 20 | 74 68 65 20 69 6e 66 6f |Name of |the info|
|00002140| 20 70 61 67 65 20 63 6f | 6e 74 61 69 6e 69 6e 67 | page co|ntaining|
|00002150| 20 70 65 72 6c 20 64 6f | 63 73 2e 5c 6e 4f 6c 64 | perl do|cs.\nOld|
|00002160| 65 72 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 74 68 |er versi|on of th|
|00002170| 69 73 20 70 61 67 65 20 | 77 61 73 20 63 61 6c 6c |is page |was call|
|00002180| 65 64 20 60 70 65 72 6c | 35 27 2c 20 6e 65 77 65 |ed `perl|5', newe|
|00002190| 72 20 60 70 65 72 6c 27 | 2e 22 20 3a 74 79 70 65 |r `perl'|." :type|
|000021a0| 20 27 73 74 72 69 6e 67 | 20 3a 67 72 6f 75 70 20 | 'string| :group |
|000021b0| 27 70 65 72 6c 29 0a 23 | 40 38 33 20 54 65 6d 70 |'perl).#|@83 Temp|
|000021c0| 6f 72 61 72 79 20 6b 6c | 75 64 67 65 20 75 6e 74 |orary kl|udge unt|
|000021d0| 69 6c 20 49 20 66 69 6e | 64 20 65 76 65 72 79 74 |il I fin|d everyt|
|000021e0| 68 69 6e 67 20 63 6f 6e | 6e 65 63 74 65 64 20 74 |hing con|nected t|
|000021f0| 6f 20 74 68 69 73 20 73 | 6f 20 49 20 63 61 6e 0a |o this s|o I can.|
|00002200| 20 20 72 69 70 20 69 74 | 20 6f 75 74 2e 1f 0a 28 | rip it| out...(|
|00002210| 64 65 66 76 61 72 20 63 | 70 65 72 6c 2d 75 73 65 |defvar c|perl-use|
|00002220| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 2d 74 65 |-syntax-|table-te|
|00002230| 78 74 2d 70 72 6f 70 65 | 72 74 79 20 6e 69 6c 20 |xt-prope|rty nil |
|00002240| 28 23 24 20 2e 20 38 36 | 33 36 29 29 0a 23 40 37 |(#$ . 86|36)).#@7|
|00002250| 38 20 2a 4e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |8 *Non-n|il means|
|00002260| 3a 20 73 65 74 20 75 70 | 20 61 6e 64 20 75 73 65 |: set up| and use|
|00002270| 20 60 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 27 20 | `syntax|-table' |
|00002280| 74 65 78 74 20 70 72 6f | 70 65 72 74 79 20 67 65 |text pro|perty ge|
|00002290| 6e 65 72 61 74 69 6e 67 | 20 54 41 47 53 2e 1f 0a |nerating| TAGS...|
|000022a0| 28 64 65 66 76 61 72 20 | 63 70 65 72 6c 2d 75 73 |(defvar |cperl-us|
|000022b0| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 2d 74 |e-syntax|-table-t|
|000022c0| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 2d 66 6f 72 |ext-prop|erty-for|
|000022d0| 2d 74 61 67 73 20 63 70 | 65 72 6c 2d 75 73 65 2d |-tags cp|erl-use-|
|000022e0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 2d 74 65 78 |syntax-t|able-tex|
|000022f0| 74 2d 70 72 6f 70 65 72 | 74 79 20 28 23 24 20 2e |t-proper|ty (#$ .|
|00002300| 20 2d 38 37 38 36 29 29 | 0a 28 63 75 73 74 6f 6d | -8786))|.(custom|
|00002310| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00002320| 65 20 27 63 70 65 72 6c | 2d 73 63 61 6e 2d 66 69 |e 'cperl|-scan-fi|
|00002330| 6c 65 73 2d 72 65 67 65 | 78 70 20 27 22 5c 5c 2e |les-rege|xp '"\\.|
|00002340| 5c 5c 28 5b 70 50 5d 5b | 4c 6c 6d 5d 5c 5c 7c 78 |\\([pP][|Llm]\\|x|
|00002350| 73 5c 5c 29 24 22 20 22 | 2a 52 65 67 65 78 70 20 |s\\)$" "|*Regexp |
|00002360| 74 6f 20 6d 61 74 63 68 | 20 66 69 6c 65 73 20 74 |to match| files t|
|00002370| 6f 20 73 63 61 6e 20 77 | 68 65 6e 20 67 65 6e 65 |o scan w|hen gene|
|00002380| 72 61 74 69 6e 67 20 54 | 41 47 53 2e 22 20 3a 74 |rating T|AGS." :t|
|00002390| 79 70 65 20 27 72 65 67 | 65 78 70 20 3a 67 72 6f |ype 'reg|exp :gro|
|000023a0| 75 70 20 27 70 65 72 6c | 29 0a 28 63 75 73 74 6f |up 'perl|).(custo|
|000023b0| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|000023c0| 6c 65 20 27 63 70 65 72 | 6c 2d 6e 6f 73 63 61 6e |le 'cper|l-noscan|
|000023d0| 2d 66 69 6c 65 73 2d 72 | 65 67 65 78 70 20 27 22 |-files-r|egexp '"|
|000023e0| 2f 5c 5c 28 5c 5c 2e 5c | 5c 2e 3f 5c 5c 7c 53 43 |/\\(\\.\|\.?\\|SC|
|000023f0| 43 53 5c 5c 7c 52 43 53 | 5c 5c 7c 62 6c 69 62 5c |CS\\|RCS|\\|blib\|
|00002400| 5c 29 24 22 20 22 2a 52 | 65 67 65 78 70 20 74 6f |\)$" "*R|egexp to|
|00002410| 20 6d 61 74 63 68 20 66 | 69 6c 65 73 2f 64 69 72 | match f|iles/dir|
|00002420| 73 20 74 6f 20 73 6b 69 | 70 20 77 68 65 6e 20 67 |s to ski|p when g|
|00002430| 65 6e 65 72 61 74 69 6e | 67 20 54 41 47 53 2e 22 |eneratin|g TAGS."|
|00002440| 20 3a 74 79 70 65 20 27 | 72 65 67 65 78 70 20 3a | :type '|regexp :|
|00002450| 67 72 6f 75 70 20 27 70 | 65 72 6c 29 0a 23 40 31 |group 'p|erl).#@1|
|00002460| 34 30 35 20 47 65 74 20 | 6e 65 77 65 73 74 20 76 |405 Get |newest v|
|00002470| 65 72 73 69 6f 6e 20 6f | 66 20 74 68 69 73 20 70 |ersion o|f this p|
|00002480| 61 63 6b 61 67 65 20 66 | 72 6f 6d 0a 20 20 66 74 |ackage f|rom. ft|
|00002490| 70 3a 2f 2f 66 74 70 2e | 6d 61 74 68 2e 6f 68 69 |p://ftp.|math.ohi|
|000024a0| 6f 2d 73 74 61 74 65 2e | 65 64 75 2f 70 75 62 2f |o-state.|edu/pub/|
|000024b0| 75 73 65 72 73 2f 69 6c | 79 61 2f 65 6d 61 63 73 |users/il|ya/emacs|
|000024c0| 0a 61 6e 64 2f 6f 72 0a | 20 20 66 74 70 3a 2f 2f |.and/or.| ftp://|
|000024d0| 66 74 70 2e 6d 61 74 68 | 2e 6f 68 69 6f 2d 73 74 |ftp.math|.ohio-st|
|000024e0| 61 74 65 2e 65 64 75 2f | 70 75 62 2f 75 73 65 72 |ate.edu/|pub/user|
|000024f0| 73 2f 69 6c 79 61 2f 70 | 65 72 6c 0a 0a 20 54 68 |s/ilya/p|erl.. Th|
|00002500| 69 73 20 70 61 72 74 69 | 63 75 6c 61 72 20 76 65 |is parti|cular ve|
|00002510| 72 73 69 6f 6e 20 68 61 | 73 20 62 65 65 6e 20 6d |rsion ha|s been m|
|00002520| 6f 64 69 66 69 65 64 20 | 66 6f 72 20 58 45 6d 61 |odified |for XEma|
|00002530| 63 73 20 32 30 2e 0a 0a | 47 65 74 20 73 75 70 70 |cs 20...|Get supp|
|00002540| 6f 72 74 20 70 61 63 6b | 61 67 65 73 20 63 68 6f |ort pack|ages cho|
|00002550| 6f 73 65 2d 63 6f 6c 6f | 72 2e 65 6c 20 28 6f 72 |ose-colo|r.el (or|
|00002560| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 65 78 74 72 61 | font-lo|ck-extra|
|00002570| 2e 65 6c 20 62 65 66 6f | 72 65 0a 31 39 2e 33 30 |.el befo|re.19.30|
|00002580| 29 2c 20 69 6d 65 6e 75 | 2d 67 6f 2e 65 6c 20 66 |), imenu|-go.el f|
|00002590| 72 6f 6d 20 74 68 65 20 | 73 61 6d 65 20 70 6c 61 |rom the |same pla|
|000025a0| 63 65 2e 20 20 28 4c 6f | 6f 6b 20 66 6f 72 20 6f |ce. (Lo|ok for o|
|000025b0| 74 68 65 72 20 66 69 6c | 65 73 20 74 68 65 72 65 |ther fil|es there|
|000025c0| 0a 74 6f 6f 2e 2e 2e 20 | 3b 2d 29 20 47 65 74 20 |.too... |;-) Get |
|000025d0| 61 20 70 61 74 63 68 20 | 66 6f 72 20 69 6d 65 6e |a patch |for imen|
|000025e0| 75 2e 65 6c 20 69 6e 20 | 31 39 2e 32 39 2e 20 20 |u.el in |19.29. |
|000025f0| 4e 6f 74 65 20 74 68 61 | 74 20 66 6f 72 20 31 39 |Note tha|t for 19|
|00002600| 2e 33 30 20 61 6e 64 0a | 6c 61 74 65 72 20 79 6f |.30 and.|later yo|
|00002610| 75 20 73 68 6f 75 6c 64 | 20 75 73 65 20 63 68 6f |u should| use cho|
|00002620| 6f 73 65 2d 63 6f 6c 6f | 72 2e 65 6c 20 2a 69 6e |ose-colo|r.el *in|
|00002630| 73 74 65 61 64 2a 20 6f | 66 20 66 6f 6e 74 2d 6c |stead* o|f font-l|
|00002640| 6f 63 6b 2d 65 78 74 72 | 61 2e 65 6c 20 0a 28 61 |ock-extr|a.el .(a|
|00002650| 6e 64 20 79 6f 75 20 77 | 69 6c 6c 20 6e 6f 74 20 |nd you w|ill not |
|00002660| 67 65 74 20 73 6d 61 72 | 74 20 68 69 67 68 6c 69 |get smar|t highli|
|00002670| 67 68 74 69 6e 67 20 69 | 6e 20 43 20 3a 2d 28 29 |ghting i|n C :-()|
|00002680| 2e 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 74 6f 20 |...Note |that to |
|00002690| 65 6e 61 62 6c 65 20 43 | 6f 6d 70 69 6c 65 20 63 |enable C|ompile c|
|000026a0| 68 6f 69 63 65 73 20 69 | 6e 20 74 68 65 20 6d 65 |hoices i|n the me|
|000026b0| 6e 75 20 79 6f 75 20 6e | 65 65 64 20 74 6f 20 69 |nu you n|eed to i|
|000026c0| 6e 73 74 61 6c 6c 0a 6d | 6f 64 65 2d 63 6f 6d 70 |nstall.m|ode-comp|
|000026d0| 69 6c 65 2e 65 6c 2e 0a | 0a 47 65 74 20 70 65 72 |ile.el..|.Get per|
|000026e0| 6c 35 2d 69 6e 66 6f 20 | 66 72 6f 6d 20 0a 20 20 |l5-info |from . |
|000026f0| 24 43 50 41 4e 2f 64 6f | 63 2f 6d 61 6e 75 61 6c |$CPAN/do|c/manual|
|00002700| 2f 69 6e 66 6f 2f 70 65 | 72 6c 2d 69 6e 66 6f 2e |/info/pe|rl-info.|
|00002710| 74 61 72 2e 67 7a 0a 6f | 6c 64 65 72 20 76 65 72 |tar.gz.o|lder ver|
|00002720| 73 69 6f 6e 20 77 61 73 | 20 6f 6e 0a 20 20 68 74 |sion was| on. ht|
|00002730| 74 70 3a 2f 2f 77 77 77 | 2e 6d 65 74 72 6f 6e 65 |tp://www|.metrone|
|00002740| 74 2e 63 6f 6d 3a 37 30 | 2f 39 2f 70 65 72 6c 69 |t.com:70|/9/perli|
|00002750| 6e 66 6f 2f 70 65 72 6c | 35 2f 6d 61 6e 75 61 6c |nfo/perl|5/manual|
|00002760| 2f 70 65 72 6c 35 2d 69 | 6e 66 6f 2e 74 61 72 2e |/perl5-i|nfo.tar.|
|00002770| 67 7a 0a 0a 49 66 20 79 | 6f 75 20 75 73 65 20 69 |gz..If y|ou use i|
|00002780| 6d 65 6e 75 2d 67 6f 2c | 20 72 75 6e 20 69 6d 65 |menu-go,| run ime|
|00002790| 6e 75 20 6f 6e 20 70 65 | 72 6c 35 2d 69 6e 66 6f |nu on pe|rl5-info|
|000027a0| 20 62 75 66 66 65 72 20 | 28 79 6f 75 20 63 61 6e | buffer |(you can|
|000027b0| 20 64 6f 20 69 74 0a 66 | 72 6f 6d 20 43 50 65 72 | do it.f|rom CPer|
|000027c0| 6c 20 6d 65 6e 75 29 2e | 20 49 66 20 6d 61 6e 79 |l menu).| If many|
|000027d0| 20 66 69 6c 65 73 20 61 | 72 65 20 72 65 6c 61 74 | files a|re relat|
|000027e0| 65 64 2c 20 67 65 6e 65 | 72 61 74 65 20 54 41 47 |ed, gene|rate TAG|
|000027f0| 53 20 66 69 6c 65 73 20 | 66 72 6f 6d 0a 54 6f 6f |S files |from.Too|
|00002800| 6c 73 2f 54 61 67 73 20 | 73 75 62 6d 65 6e 75 20 |ls/Tags |submenu |
|00002810| 69 6e 20 43 50 65 72 6c | 20 6d 65 6e 75 2e 0a 0a |in CPerl| menu...|
|00002820| 49 66 20 73 6f 6d 65 20 | 63 6c 61 73 73 20 73 74 |If some |class st|
|00002830| 72 75 63 74 75 72 65 20 | 69 73 20 74 6f 6f 20 63 |ructure |is too c|
|00002840| 6f 6d 70 6c 69 63 61 74 | 65 64 2c 20 75 73 65 20 |omplicat|ed, use |
|00002850| 54 6f 6f 6c 73 2f 48 69 | 65 72 61 72 63 68 79 2d |Tools/Hi|erarchy-|
|00002860| 76 69 65 77 0a 66 72 6f | 6d 20 43 50 65 72 6c 20 |view.fro|m CPerl |
|00002870| 6d 65 6e 75 2c 20 6f 72 | 20 68 69 65 72 61 72 63 |menu, or| hierarc|
|00002880| 68 69 63 20 76 69 65 77 | 20 6f 66 20 69 6d 65 6e |hic view| of imen|
|00002890| 75 2e 20 54 68 65 20 73 | 65 63 6f 6e 64 20 6f 6e |u. The s|econd on|
|000028a0| 65 20 75 73 65 73 20 74 | 68 65 0a 63 75 72 72 65 |e uses t|he.curre|
|000028b0| 6e 74 20 62 75 66 66 65 | 72 20 6f 6e 6c 79 2c 20 |nt buffe|r only, |
|000028c0| 74 68 65 20 66 69 72 73 | 74 20 6f 6e 65 20 72 65 |the firs|t one re|
|000028d0| 71 75 69 72 65 73 20 67 | 65 6e 65 72 61 74 69 6f |quires g|eneratio|
|000028e0| 6e 20 6f 66 20 54 41 47 | 53 20 66 72 6f 6d 0a 43 |n of TAG|S from.C|
|000028f0| 50 65 72 6c 2f 54 6f 6f | 6c 73 2f 54 61 67 73 20 |Perl/Too|ls/Tags |
|00002900| 6d 65 6e 75 20 62 65 66 | 6f 72 65 68 61 6e 64 2e |menu bef|orehand.|
|00002910| 0a 0a 52 75 6e 20 43 50 | 65 72 6c 2f 54 6f 6f 6c |..Run CP|erl/Tool|
|00002920| 73 2f 49 6e 73 65 72 74 | 2d 73 70 61 63 65 73 2d |s/Insert|-spaces-|
|00002930| 69 66 2d 6e 65 65 64 65 | 64 20 74 6f 20 66 69 78 |if-neede|d to fix|
|00002940| 20 79 6f 75 72 20 6c 61 | 7a 79 20 74 79 70 69 6e | your la|zy typin|
|00002950| 67 2e 0a 0a 53 77 69 74 | 63 68 20 61 75 74 6f 2d |g...Swit|ch auto-|
|00002960| 68 65 6c 70 20 6f 6e 2f | 6f 66 66 20 77 69 74 68 |help on/|off with|
|00002970| 20 43 50 65 72 6c 2f 54 | 6f 6f 6c 73 2f 41 75 74 | CPerl/T|ools/Aut|
|00002980| 6f 2d 68 65 6c 70 2e 0a | 0a 42 65 66 6f 72 65 20 |o-help..|.Before |
|00002990| 72 65 70 6f 72 74 69 6e | 67 20 28 6e 6f 6e 2d 29 |reportin|g (non-)|
|000029a0| 70 72 6f 62 6c 65 6d 73 | 20 6c 6f 6f 6b 20 69 6e |problems| look in|
|000029b0| 20 74 68 65 20 70 72 6f | 62 6c 65 6d 20 73 65 63 | the pro|blem sec|
|000029c0| 74 69 6f 6e 20 6f 6e 20 | 77 68 61 74 20 49 0a 6b |tion on |what I.k|
|000029d0| 6e 6f 77 20 61 62 6f 75 | 74 20 74 68 65 6d 2e 1f |now abou|t them..|
|000029e0| 0a 28 64 65 66 76 61 72 | 20 63 70 65 72 6c 2d 74 |.(defvar| cperl-t|
|000029f0| 69 70 73 20 27 70 6c 65 | 61 73 65 2d 69 67 6e 6f |ips 'ple|ase-igno|
|00002a00| 72 65 2d 74 68 69 73 2d | 6c 69 6e 65 20 28 23 24 |re-this-|line (#$|
|00002a10| 20 2e 20 39 33 31 36 29 | 29 0a 23 40 31 31 36 31 | . 9316)|).#@1161|
|00002a20| 20 45 6d 61 63 73 20 68 | 61 73 20 61 20 5f 76 65 | Emacs h|as a _ve|
|00002a30| 72 79 5f 20 72 65 73 74 | 72 69 63 74 65 64 20 73 |ry_ rest|ricted s|
|00002a40| 79 6e 74 61 78 20 70 61 | 72 73 69 6e 67 20 65 6e |yntax pa|rsing en|
|00002a50| 67 69 6e 65 2e 20 0a 0a | 49 74 20 6d 61 79 20 62 |gine. ..|It may b|
|00002a60| 65 20 63 6f 72 72 65 63 | 74 65 64 20 6f 6e 20 74 |e correc|ted on t|
|00002a70| 68 65 20 6c 65 76 65 6c | 20 6f 66 20 43 20 63 6f |he level| of C co|
|00002a80| 64 65 2c 20 70 6c 65 61 | 73 65 20 6c 6f 6f 6b 20 |de, plea|se look |
|00002a90| 69 6e 20 74 68 65 0a 60 | 6e 6f 6e 2d 70 72 6f 62 |in the.`|non-prob|
|00002aa0| 6c 65 6d 73 27 20 73 65 | 63 74 69 6f 6e 20 69 66 |lems' se|ction if|
|00002ab0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 76 6f 6c | you wan|t to vol|
|00002ac0| 75 6e 74 65 65 72 2e 0a | 0a 43 50 65 72 6c 20 6d |unteer..|.CPerl m|
|00002ad0| 6f 64 65 20 74 72 69 65 | 73 20 74 6f 20 63 6f 72 |ode trie|s to cor|
|00002ae0| 72 65 63 74 73 20 73 6f | 6d 65 20 45 6d 61 63 73 |rects so|me Emacs|
|00002af0| 20 6d 69 73 75 6e 64 65 | 72 73 74 61 6e 64 69 6e | misunde|rstandin|
|00002b00| 67 73 2c 20 68 6f 77 65 | 76 65 72 2c 0a 66 6f 72 |gs, howe|ver,.for|
|00002b10| 20 65 66 66 69 63 69 65 | 6e 63 79 20 72 65 61 73 | efficie|ncy reas|
|00002b20| 6f 6e 73 20 74 68 65 20 | 64 65 67 72 65 65 20 6f |ons the |degree o|
|00002b30| 66 20 63 6f 72 72 65 63 | 74 69 6f 6e 20 69 73 20 |f correc|tion is |
|00002b40| 64 69 66 66 65 72 65 6e | 74 20 66 6f 72 0a 64 69 |differen|t for.di|
|00002b50| 66 66 65 72 65 6e 74 20 | 6f 70 65 72 61 74 69 6f |fferent |operatio|
|00002b60| 6e 73 2e 20 54 68 65 20 | 70 61 72 74 69 61 6c 6c |ns. The |partiall|
|00002b70| 79 20 63 6f 72 72 65 63 | 74 65 64 20 70 72 6f 62 |y correc|ted prob|
|00002b80| 6c 65 6d 73 20 61 72 65 | 3a 20 50 4f 44 0a 73 65 |lems are|: POD.se|
|00002b90| 63 74 69 6f 6e 73 2c 20 | 68 65 72 65 2d 64 6f 63 |ctions, |here-doc|
|00002ba0| 75 6d 65 6e 74 73 2c 20 | 72 65 67 65 78 70 73 2e |uments, |regexps.|
|00002bb0| 20 54 68 65 20 6f 70 65 | 72 61 74 69 6f 6e 73 20 | The ope|rations |
|00002bc0| 61 72 65 3a 20 68 69 67 | 68 6c 69 67 68 74 69 6e |are: hig|hlightin|
|00002bd0| 67 2c 0a 69 6e 64 65 6e | 74 61 74 69 6f 6e 2c 20 |g,.inden|tation, |
|00002be0| 65 6c 65 63 74 72 69 63 | 20 6b 65 79 77 6f 72 64 |electric| keyword|
|00002bf0| 73 2c 20 65 6c 65 63 74 | 72 69 63 20 62 72 61 63 |s, elect|ric brac|
|00002c00| 65 73 2e 20 0a 0a 54 68 | 69 73 20 6d 61 79 20 62 |es. ..Th|is may b|
|00002c10| 65 20 63 6f 6e 66 75 73 | 69 6e 67 2c 20 73 69 6e |e confus|ing, sin|
|00002c20| 63 65 20 74 68 65 20 72 | 65 67 65 78 70 20 73 23 |ce the r|egexp s#|
|00002c30| 2f 2f 23 2f 23 3b 20 6d | 61 79 20 62 65 20 68 69 |//#/#; m|ay be hi|
|00002c40| 67 68 6c 69 67 68 74 65 | 64 0a 61 73 20 61 20 63 |ghlighte|d.as a c|
|00002c50| 6f 6d 6d 65 6e 74 2c 20 | 62 75 74 20 69 74 20 77 |omment, |but it w|
|00002c60| 69 6c 6c 20 62 65 20 72 | 65 63 6f 67 6e 69 7a 65 |ill be r|ecognize|
|00002c70| 64 20 61 73 20 61 20 72 | 65 67 65 78 70 20 62 79 |d as a r|egexp by|
|00002c80| 20 74 68 65 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e | the ind|entation|
|00002c90| 0a 63 6f 64 65 2e 20 4f | 72 20 74 68 65 20 6f 70 |.code. O|r the op|
|00002ca0| 70 6f 73 69 74 65 20 63 | 61 73 65 2c 20 77 68 65 |posite c|ase, whe|
|00002cb0| 6e 20 61 20 70 6f 64 20 | 73 65 63 74 69 6f 6e 20 |n a pod |section |
|00002cc0| 69 73 20 68 69 67 68 6c | 69 67 68 74 65 64 2c 20 |is highl|ighted, |
|00002cd0| 62 75 74 0a 6d 61 79 20 | 62 72 65 61 6b 20 74 68 |but.may |break th|
|00002ce0| 65 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |e indent|ation of|
|00002cf0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 63 | the fol|lowing c|
|00002d00| 6f 64 65 20 28 74 68 6f | 75 67 68 20 69 6e 64 65 |ode (tho|ugh inde|
|00002d10| 6e 74 61 74 69 6f 6e 0a | 73 68 6f 75 6c 64 20 77 |ntation.|should w|
|00002d20| 6f 72 6b 20 69 66 20 74 | 68 65 20 62 61 6c 61 6e |ork if t|he balan|
|00002d30| 63 65 20 6f 66 20 64 65 | 6c 69 6d 69 74 65 72 73 |ce of de|limiters|
|00002d40| 20 69 73 20 6e 6f 74 20 | 62 72 6f 6b 65 6e 20 62 | is not |broken b|
|00002d50| 79 20 50 4f 44 29 2e 0a | 0a 54 68 65 20 6d 61 69 |y POD)..|.The mai|
|00002d60| 6e 20 74 72 69 63 6b 20 | 28 74 6f 20 6d 61 6b 65 |n trick |(to make|
|00002d70| 20 24 20 61 20 22 62 61 | 63 6b 73 6c 61 73 68 22 | $ a "ba|ckslash"|
|00002d80| 29 20 6d 61 6b 65 73 20 | 63 6f 6e 73 74 72 75 63 |) makes |construc|
|00002d90| 74 69 6f 6e 73 20 6c 69 | 6b 65 0a 24 7b 61 61 61 |tions li|ke.${aaa|
|00002da0| 7d 20 6c 6f 6f 6b 20 6c | 69 6b 65 20 75 6e 62 61 |} look l|ike unba|
|00002db0| 6c 61 6e 63 65 64 20 62 | 72 61 63 65 73 2e 20 54 |lanced b|races. T|
|00002dc0| 68 65 20 6f 6e 6c 79 20 | 74 72 69 63 6b 20 49 20 |he only |trick I |
|00002dd0| 63 61 6e 20 74 68 69 6e | 6b 20 6f 66 20 69 73 0a |can thin|k of is.|
|00002de0| 74 6f 20 69 6e 73 65 72 | 74 20 69 74 20 61 73 20 |to inser|t it as |
|00002df0| 24 20 7b 61 61 61 7d 20 | 28 6c 65 67 61 6c 20 69 |$ {aaa} |(legal i|
|00002e00| 6e 20 70 65 72 6c 35 2c | 20 6e 6f 74 20 69 6e 20 |n perl5,| not in |
|00002e10| 70 65 72 6c 34 29 2e 20 | 0a 0a 53 69 6d 69 6c 61 |perl4). |..Simila|
|00002e20| 72 20 70 72 6f 62 6c 65 | 6d 73 20 61 72 69 73 65 |r proble|ms arise|
|00002e30| 20 69 6e 20 72 65 67 65 | 78 70 73 2c 20 77 68 65 | in rege|xps, whe|
|00002e40| 6e 20 2f 28 5c 73 7c 24 | 29 2f 20 73 68 6f 75 6c |n /(\s|$|)/ shoul|
|00002e50| 64 20 62 65 20 72 65 77 | 72 69 74 74 65 6e 0a 61 |d be rew|ritten.a|
|00002e60| 73 20 2f 28 24 7c 5c 73 | 29 2f 2e 20 4e 6f 74 65 |s /($|\s|)/. Note|
|00002e70| 20 74 68 61 74 20 73 75 | 63 68 20 61 20 74 72 61 | that su|ch a tra|
|00002e80| 6e 73 70 6f 73 69 74 69 | 6f 6e 20 69 73 20 6e 6f |nspositi|on is no|
|00002e90| 74 20 61 6c 77 61 79 73 | 20 70 6f 73 73 69 62 6c |t always| possibl|
|00002ea0| 65 0a 3a 2d 28 2e 20 20 | 1f 0a 28 64 65 66 76 61 |e.:-(. |..(defva|
|00002eb0| 72 20 63 70 65 72 6c 2d | 70 72 6f 62 6c 65 6d 73 |r cperl-|problems|
|00002ec0| 20 27 70 6c 65 61 73 65 | 2d 69 67 6e 6f 72 65 2d | 'please|-ignore-|
|00002ed0| 74 68 69 73 2d 6c 69 6e | 65 20 28 23 24 20 2e 20 |this-lin|e (#$ . |
|00002ee0| 31 30 37 38 35 29 29 0a | 23 40 31 36 39 34 20 41 |10785)).|#@1694 A|
|00002ef0| 73 20 79 6f 75 20 6b 6e | 6f 77 20 66 72 6f 6d 20 |s you kn|ow from |
|00002f00| 60 70 72 6f 62 6c 65 6d | 73 27 20 73 65 63 74 69 |`problem|s' secti|
|00002f10| 6f 6e 2c 20 50 65 72 6c | 20 73 79 6e 74 61 78 20 |on, Perl| syntax |
|00002f20| 69 73 20 74 6f 6f 20 68 | 61 72 64 20 66 6f 72 20 |is too h|ard for |
|00002f30| 43 50 65 72 6c 2e 0a 0a | 4d 6f 73 74 20 74 68 65 |CPerl...|Most the|
|00002f40| 20 74 69 6d 65 2c 20 69 | 66 20 79 6f 75 20 77 72 | time, i|f you wr|
|00002f50| 69 74 65 20 79 6f 75 72 | 20 6f 77 6e 20 63 6f 64 |ite your| own cod|
|00002f60| 65 2c 20 79 6f 75 20 6d | 61 79 20 66 69 6e 64 20 |e, you m|ay find |
|00002f70| 61 6e 20 65 71 75 69 76 | 61 6c 65 6e 74 0a 28 61 |an equiv|alent.(a|
|00002f80| 6e 64 20 61 6c 6d 6f 73 | 74 20 61 73 20 72 65 61 |nd almos|t as rea|
|00002f90| 64 61 62 6c 65 29 20 65 | 78 70 72 65 73 73 69 6f |dable) e|xpressio|
|00002fa0| 6e 2e 0a 0a 54 72 79 20 | 74 6f 20 68 65 6c 70 20 |n...Try |to help |
|00002fb0| 43 50 65 72 6c 3a 20 61 | 64 64 20 63 6f 6d 6d 65 |CPerl: a|dd comme|
|00002fc0| 6e 74 73 20 77 69 74 68 | 20 65 6d 62 65 64 64 65 |nts with| embedde|
|00002fd0| 64 20 71 75 6f 74 65 73 | 20 74 6f 20 66 69 78 20 |d quotes| to fix |
|00002fe0| 43 50 65 72 6c 0a 6d 69 | 73 75 6e 64 65 72 73 74 |CPerl.mi|sunderst|
|00002ff0| 61 6e 64 69 6e 67 73 20 | 61 62 6f 75 74 20 74 68 |andings |about th|
|00003000| 65 20 65 6e 64 20 6f 66 | 20 71 75 6f 74 61 74 69 |e end of| quotati|
|00003010| 6f 6e 3a 0a 0a 24 61 3d | 27 35 30 30 24 27 3b 20 |on:..$a=|'500$'; |
|00003020| 20 20 20 20 20 23 20 27 | 3b 0a 0a 59 6f 75 20 77 | # '|;..You w|
|00003030| 6f 6e 27 74 20 6e 65 65 | 64 20 69 74 20 74 6f 6f |on't nee|d it too|
|00003040| 20 6f 66 74 65 6e 2e 20 | 54 68 65 20 72 65 61 73 | often. |The reas|
|00003050| 6f 6e 3a 20 24 20 22 71 | 75 6f 74 65 73 22 20 74 |on: $ "q|uotes" t|
|00003060| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 0a 63 68 61 |he follo|wing.cha|
|00003070| 72 61 63 74 65 72 20 28 | 74 68 69 73 20 73 61 76 |racter (|this sav|
|00003080| 65 73 20 61 20 6c 69 66 | 65 20 61 20 6c 6f 74 20 |es a lif|e a lot |
|00003090| 6f 66 20 74 69 6d 65 73 | 20 69 6e 20 43 50 65 72 |of times| in CPer|
|000030a0| 6c 29 2c 20 74 68 75 73 | 20 64 75 65 20 74 6f 0a |l), thus| due to.|
|000030b0| 45 6d 61 63 73 20 70 61 | 72 73 69 6e 67 20 72 75 |Emacs pa|rsing ru|
|000030c0| 6c 65 73 20 69 74 20 64 | 6f 65 73 20 6e 6f 74 20 |les it d|oes not |
|000030d0| 63 6f 6e 73 69 64 65 72 | 20 74 69 63 6b 20 28 69 |consider| tick (i|
|000030e0| 2e 65 2e 2c 20 27 20 29 | 20 61 66 74 65 72 20 61 |.e., ' )| after a|
|000030f0| 0a 64 6f 6c 6c 61 72 20 | 61 73 20 61 20 63 6c 6f |.dollar |as a clo|
|00003100| 73 69 6e 67 20 6f 6e 65 | 2c 20 62 75 74 20 61 73 |sing one|, but as|
|00003110| 20 61 20 75 73 75 61 6c | 20 63 68 61 72 61 63 74 | a usual| charact|
|00003120| 65 72 2e 0a 0a 4e 6f 77 | 20 74 68 65 20 69 6e 64 |er...Now| the ind|
|00003130| 65 6e 74 61 74 69 6f 6e | 20 63 6f 64 65 20 69 73 |entation| code is|
|00003140| 20 70 72 65 74 74 79 20 | 77 69 73 65 2e 20 54 68 | pretty |wise. Th|
|00003150| 65 20 6f 6e 6c 79 20 64 | 72 61 77 62 61 63 6b 20 |e only d|rawback |
|00003160| 69 73 20 74 68 61 74 20 | 69 74 0a 72 65 6c 69 65 |is that |it.relie|
|00003170| 73 20 6f 6e 20 45 6d 61 | 63 73 20 70 61 72 73 69 |s on Ema|cs parsi|
|00003180| 6e 67 20 74 6f 20 66 69 | 6e 64 20 6d 61 74 63 68 |ng to fi|nd match|
|00003190| 69 6e 67 20 70 61 72 65 | 6e 74 68 65 73 65 73 2e |ing pare|ntheses.|
|000031a0| 20 41 6e 64 20 45 6d 61 | 63 73 0a 2a 63 61 6e 6e | And Ema|cs.*cann|
|000031b0| 6f 74 2a 20 6d 61 74 63 | 68 20 70 61 72 65 6e 74 |ot* matc|h parent|
|000031c0| 68 65 73 65 73 20 69 6e | 20 50 65 72 6c 20 31 30 |heses in| Perl 10|
|000031d0| 30 25 20 63 6f 72 72 65 | 63 74 6c 79 2e 20 53 6f |0% corre|ctly. So|
|000031e0| 0a 09 31 20 69 66 20 73 | 23 2f 2f 23 2f 23 3b 0a |..1 if s|#//#/#;.|
|000031f0| 77 69 6c 6c 20 6e 6f 74 | 20 62 72 65 61 6b 20 69 |will not| break i|
|00003200| 6e 64 65 6e 74 61 74 69 | 6f 6e 2c 20 62 75 74 0a |ndentati|on, but.|
|00003210| 09 31 20 69 66 20 28 20 | 73 23 2f 2f 23 2f 23 20 |.1 if ( |s#//#/# |
|00003220| 29 3b 0a 77 69 6c 6c 2e | 0a 0a 42 79 20 73 69 6d |);.will.|..By sim|
|00003230| 69 6c 61 72 20 72 65 61 | 73 6f 6e 73 0a 09 73 22 |ilar rea|sons..s"|
|00003240| 61 62 63 22 64 65 66 22 | 3b 0a 77 69 6c 6c 20 63 |abc"def"|;.will c|
|00003250| 6f 6e 66 75 73 65 20 43 | 50 65 72 6c 20 61 20 6c |onfuse C|Perl a l|
|00003260| 6f 74 2e 0a 0a 49 66 20 | 79 6f 75 20 73 74 69 6c |ot...If |you stil|
|00003270| 6c 20 67 65 74 20 77 72 | 6f 6e 67 20 69 6e 64 65 |l get wr|ong inde|
|00003280| 6e 74 61 74 69 6f 6e 20 | 69 6e 20 73 69 74 75 61 |ntation |in situa|
|00003290| 74 69 6f 6e 20 74 68 61 | 74 20 79 6f 75 20 74 68 |tion tha|t you th|
|000032a0| 69 6e 6b 20 74 68 65 0a | 63 6f 64 65 20 73 68 6f |ink the.|code sho|
|000032b0| 75 6c 64 20 62 65 20 61 | 62 6c 65 20 74 6f 20 70 |uld be a|ble to p|
|000032c0| 61 72 73 65 2c 20 74 72 | 79 3a 0a 0a 61 29 20 43 |arse, tr|y:..a) C|
|000032d0| 68 65 63 6b 20 77 68 61 | 74 20 45 6d 61 63 73 20 |heck wha|t Emacs |
|000032e0| 74 68 69 6e 6b 73 20 61 | 62 6f 75 74 20 62 61 6c |thinks a|bout bal|
|000032f0| 61 6e 63 65 20 6f 66 20 | 79 6f 75 72 20 70 61 72 |ance of |your par|
|00003300| 65 6e 74 68 65 73 65 73 | 2e 0a 62 29 20 53 75 70 |entheses|..b) Sup|
|00003310| 70 6c 79 20 74 68 65 20 | 63 6f 64 65 20 74 6f 20 |ply the |code to |
|00003320| 6d 65 20 28 49 5a 29 2e | 0a 0a 50 6f 64 73 20 61 |me (IZ).|..Pods a|
|00003330| 72 65 20 74 72 65 61 74 | 65 64 20 5f 76 65 72 79 |re treat|ed _very|
|00003340| 5f 20 72 75 64 69 6d 65 | 6e 74 61 6c 6c 79 2e 20 |_ rudime|ntally. |
|00003350| 48 65 72 65 2d 64 6f 63 | 75 6d 65 6e 74 73 20 61 |Here-doc|uments a|
|00003360| 72 65 20 6e 6f 74 20 74 | 72 65 61 74 65 64 0a 61 |re not t|reated.a|
|00003370| 74 20 61 6c 6c 20 28 65 | 78 63 65 70 74 20 68 69 |t all (e|xcept hi|
|00003380| 67 68 6c 69 67 68 74 69 | 6e 67 20 61 6e 64 20 69 |ghlighti|ng and i|
|00003390| 6e 68 69 62 69 74 69 6e | 67 20 69 6e 64 65 6e 74 |nhibitin|g indent|
|000033a0| 61 74 69 6f 6e 29 2e 20 | 28 54 68 69 73 20 6d 61 |ation). |(This ma|
|000033b0| 79 0a 63 68 61 6e 67 65 | 20 73 6f 6d 65 20 74 69 |y.change| some ti|
|000033c0| 6d 65 2e 20 52 4d 53 20 | 61 70 70 72 6f 76 65 64 |me. RMS |approved|
|000033d0| 20 6d 61 6b 69 6e 67 20 | 73 79 6e 74 61 78 20 6c | making |syntax l|
|000033e0| 6f 6f 6b 75 70 20 72 65 | 63 6f 67 6e 69 7a 65 20 |ookup re|cognize |
|000033f0| 74 65 78 74 0a 61 74 74 | 72 69 62 75 74 65 73 2c |text.att|ributes,|
|00003400| 20 62 75 74 20 76 6f 6c | 75 6e 74 65 65 72 73 20 | but vol|unteers |
|00003410| 61 72 65 20 6e 65 65 64 | 65 64 20 74 6f 20 63 68 |are need|ed to ch|
|00003420| 61 6e 67 65 20 45 6d 61 | 63 73 20 43 20 63 6f 64 |ange Ema|cs C cod|
|00003430| 65 2e 29 0a 0a 54 6f 20 | 73 70 65 65 64 20 75 70 |e.)..To |speed up|
|00003440| 20 63 6f 6c 6f 72 69 6e | 67 20 74 68 65 20 66 6f | colorin|g the fo|
|00003450| 6c 6c 6f 77 69 6e 67 20 | 63 6f 6d 70 72 6f 6d 69 |llowing |compromi|
|00003460| 73 65 73 20 65 78 69 73 | 74 3a 0a 20 20 20 61 29 |ses exis|t:. a)|
|00003470| 20 73 75 62 20 69 6e 20 | 24 6d 79 70 61 63 6b 61 | sub in |$mypacka|
|00003480| 67 65 3a 3a 73 75 62 20 | 6d 61 79 20 62 65 20 68 |ge::sub |may be h|
|00003490| 69 67 68 6c 69 67 68 74 | 65 64 2e 0a 20 20 20 62 |ighlight|ed.. b|
|000034a0| 29 20 2d 7a 20 69 6e 20 | 5b 61 2d 7a 5d 20 6d 61 |) -z in |[a-z] ma|
|000034b0| 79 20 62 65 20 68 69 67 | 68 6c 69 67 68 74 65 64 |y be hig|hlighted|
|000034c0| 2e 0a 20 20 20 63 29 20 | 69 66 20 79 6f 75 72 20 |.. c) |if your |
|000034d0| 72 65 67 65 78 70 20 63 | 6f 6e 74 61 69 6e 73 20 |regexp c|ontains |
|000034e0| 61 20 6b 65 79 77 6f 72 | 64 20 28 6c 69 6b 65 20 |a keywor|d (like |
|000034f0| 22 73 22 29 2c 20 69 74 | 20 6d 61 79 20 62 65 20 |"s"), it| may be |
|00003500| 68 69 67 68 6c 69 67 68 | 74 65 64 2e 0a 0a 0a 49 |highligh|ted....I|
|00003510| 6d 65 6e 75 20 69 6e 20 | 31 39 2e 33 31 20 69 73 |menu in |19.31 is|
|00003520| 20 62 72 6f 6b 65 6e 2e | 20 53 65 74 20 60 69 6d | broken.| Set `im|
|00003530| 65 6e 75 2d 75 73 65 2d | 6b 65 79 6d 61 70 2d 6d |enu-use-|keymap-m|
|00003540| 65 6e 75 27 20 74 6f 20 | 74 2c 20 61 6e 64 20 72 |enu' to |t, and r|
|00003550| 65 6d 6f 76 65 0a 60 63 | 61 72 27 20 62 65 66 6f |emove.`c|ar' befo|
|00003560| 72 65 20 60 69 6d 65 6e | 75 2d 63 68 6f 6f 73 65 |re `imen|u-choose|
|00003570| 2d 62 75 66 66 65 72 2d | 69 6e 64 65 78 27 20 69 |-buffer-|index' i|
|00003580| 6e 20 60 69 6d 65 6e 75 | 27 2e 0a 1f 0a 28 64 65 |n `imenu|'....(de|
|00003590| 66 76 61 72 20 63 70 65 | 72 6c 2d 6e 6f 6e 2d 70 |fvar cpe|rl-non-p|
|000035a0| 72 6f 62 6c 65 6d 73 20 | 27 70 6c 65 61 73 65 2d |roblems |'please-|
|000035b0| 69 67 6e 6f 72 65 2d 74 | 68 69 73 2d 6c 69 6e 65 |ignore-t|his-line|
|000035c0| 20 28 23 24 20 2e 20 31 | 32 30 31 35 29 29 0a 23 | (#$ . 1|2015)).#|
|000035d0| 40 32 39 38 37 20 52 4d | 53 20 61 73 6b 65 64 20 |@2987 RM|S asked |
|000035e0| 6d 65 20 74 6f 20 6c 69 | 73 74 20 67 6f 6f 64 20 |me to li|st good |
|000035f0| 74 68 69 6e 67 73 20 61 | 62 6f 75 74 20 43 50 65 |things a|bout CPe|
|00003600| 72 6c 2e 20 48 65 72 65 | 20 74 68 65 79 20 67 6f |rl. Here| they go|
|00003610| 3a 0a 0a 30 29 20 49 74 | 20 75 73 65 73 20 74 68 |:..0) It| uses th|
|00003620| 65 20 6e 65 77 65 73 74 | 20 60 73 79 6e 74 61 78 |e newest| `syntax|
|00003630| 2d 74 61 62 6c 65 27 20 | 70 72 6f 70 65 72 74 79 |-table' |property|
|00003640| 20 3b 2d 29 3b 0a 0a 31 | 29 20 49 74 20 64 6f 65 | ;-);..1|) It doe|
|00003650| 73 20 39 39 25 20 6f 66 | 20 50 65 72 6c 20 73 79 |s 99% of| Perl sy|
|00003660| 6e 74 61 78 20 63 6f 72 | 72 65 63 74 20 28 61 73 |ntax cor|rect (as|
|00003670| 20 6f 70 70 6f 73 65 64 | 20 74 6f 20 38 30 2d 39 | opposed| to 80-9|
|00003680| 30 25 20 69 6e 20 50 65 | 72 6c 0a 6d 6f 64 65 20 |0% in Pe|rl.mode |
|00003690| 2d 20 62 75 74 20 74 68 | 65 20 6c 61 74 74 65 72 |- but th|e latter|
|000036a0| 20 6e 75 6d 62 65 72 20 | 6d 61 79 20 68 61 76 65 | number |may have|
|000036b0| 20 69 6d 70 72 6f 76 65 | 64 20 74 6f 6f 20 69 6e | improve|d too in|
|000036c0| 20 6c 61 73 74 20 79 65 | 61 72 73 29 20 65 76 65 | last ye|ars) eve|
|000036d0| 6e 20 0a 77 69 74 68 6f | 75 74 20 60 73 79 6e 74 |n .witho|ut `synt|
|000036e0| 61 78 2d 74 61 62 6c 65 | 27 20 70 72 6f 70 65 72 |ax-table|' proper|
|000036f0| 74 79 3b 20 57 68 65 6e | 20 75 73 69 6e 67 20 74 |ty; When| using t|
|00003700| 68 69 73 20 70 72 6f 70 | 65 72 74 79 2c 20 69 74 |his prop|erty, it|
|00003710| 20 73 68 6f 75 6c 64 20 | 0a 68 61 6e 64 6c 65 20 | should |.handle |
|00003720| 39 39 2e 39 39 35 25 20 | 6f 66 20 6c 69 6e 65 73 |99.995% |of lines|
|00003730| 20 63 6f 72 72 65 63 74 | 20 2d 20 6f 72 20 73 6f | correct| - or so|
|00003740| 6d 65 73 75 63 68 2e 0a | 0a 32 29 20 49 74 20 69 |mesuch..|.2) It i|
|00003750| 73 20 67 65 6e 65 72 61 | 6c 6c 79 20 62 65 6c 69 |s genera|lly beli|
|00003760| 76 65 64 20 74 6f 20 62 | 65 20 22 74 68 65 20 6d |ved to b|e "the m|
|00003770| 6f 73 74 20 75 73 65 72 | 2d 66 72 69 65 6e 64 6c |ost user|-friendl|
|00003780| 79 20 45 6d 61 63 73 0a | 70 61 63 6b 61 67 65 22 |y Emacs.|package"|
|00003790| 20 77 68 61 74 65 76 65 | 72 20 69 74 20 6d 61 79 | whateve|r it may|
|000037a0| 20 6d 65 61 6e 20 28 49 | 20 64 6f 75 62 74 20 74 | mean (I| doubt t|
|000037b0| 68 61 74 20 74 68 65 20 | 70 65 6f 70 6c 65 20 77 |hat the |people w|
|000037c0| 68 6f 20 73 61 79 20 73 | 69 6d 69 6c 61 72 0a 74 |ho say s|imilar.t|
|000037d0| 68 69 6e 67 73 20 74 72 | 69 65 64 20 5f 61 6c 6c |hings tr|ied _all|
|000037e0| 5f 20 74 68 65 20 72 65 | 73 74 20 6f 66 20 45 6d |_ the re|st of Em|
|000037f0| 61 63 73 20 3b 2d 29 2c | 20 62 75 74 20 74 68 69 |acs ;-),| but thi|
|00003800| 73 20 77 61 73 20 6e 6f | 74 20 61 20 6c 6f 6e 65 |s was no|t a lone|
|00003810| 6c 79 0a 76 6f 69 63 65 | 29 3b 0a 0a 33 29 20 45 |ly.voice|);..3) E|
|00003820| 76 65 72 79 74 68 69 6e | 67 20 69 73 20 63 75 73 |verythin|g is cus|
|00003830| 74 6f 6d 69 7a 61 62 6c | 65 2c 20 6f 6e 65 2d 62 |tomizabl|e, one-b|
|00003840| 79 2d 6f 6e 65 20 6f 72 | 20 69 6e 20 61 20 62 69 |y-one or| in a bi|
|00003850| 67 20 73 77 65 65 70 3b | 0a 0a 34 29 20 49 74 20 |g sweep;|..4) It |
|00003860| 68 61 73 20 6d 61 6e 79 | 20 65 61 73 69 6c 79 2d |has many| easily-|
|00003870| 61 63 63 65 73 73 61 62 | 6c 65 20 22 74 6f 6f 6c |accessab|le "tool|
|00003880| 73 22 3a 0a 20 20 20 20 | 20 20 20 20 61 29 20 43 |s":. | a) C|
|00003890| 61 6e 20 72 75 6e 20 70 | 72 6f 67 72 61 6d 2c 20 |an run p|rogram, |
|000038a0| 63 68 65 63 6b 20 73 79 | 6e 74 61 78 2c 20 73 74 |check sy|ntax, st|
|000038b0| 61 72 74 20 64 65 62 75 | 67 67 65 72 3b 0a 20 20 |art debu|gger;. |
|000038c0| 20 20 20 20 20 20 62 29 | 20 43 61 6e 20 6c 69 6e | b)| Can lin|
|000038d0| 65 75 70 20 76 65 72 74 | 69 63 61 6c 6c 79 20 22 |eup vert|ically "|
|000038e0| 6d 69 64 64 6c 65 73 22 | 20 6f 66 20 72 6f 77 73 |middles"| of rows|
|000038f0| 2c 20 6c 69 6b 65 20 60 | 3d 27 20 69 6e 0a 20 20 |, like `|=' in. |
|00003900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 20 | | a |
|00003910| 20 3d 20 62 3b 0a 20 20 | 20 20 20 20 20 20 20 20 | = b;. | |
|00003920| 20 20 20 20 20 20 63 63 | 20 3d 20 64 3b 0a 20 20 | cc| = d;. |
|00003930| 20 20 20 20 20 20 63 29 | 20 43 61 6e 20 69 6e 73 | c)| Can ins|
|00003940| 65 72 74 20 73 70 61 63 | 65 73 20 77 68 65 72 65 |ert spac|es where|
|00003950| 20 74 68 69 73 20 69 6d | 70 6f 76 65 73 20 72 65 | this im|poves re|
|00003960| 61 64 61 62 69 6c 69 74 | 79 20 28 69 6e 20 6f 6e |adabilit|y (in on|
|00003970| 65 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e. | |
|00003980| 20 20 69 6e 74 65 72 61 | 63 74 69 76 65 20 73 77 | intera|ctive sw|
|00003990| 65 65 70 20 6f 76 65 72 | 20 74 68 65 20 62 75 66 |eep over| the buf|
|000039a0| 66 65 72 29 3b 0a 20 20 | 20 20 20 20 20 20 64 29 |fer);. | d)|
|000039b0| 20 48 61 73 20 73 75 70 | 70 6f 72 74 20 66 6f 72 | Has sup|port for|
|000039c0| 20 69 6d 65 6e 75 2c 20 | 69 6e 63 6c 75 64 69 6e | imenu, |includin|
|000039d0| 67 3a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g:. | |
|000039e0| 20 20 20 31 29 20 53 65 | 70 61 72 61 74 65 20 75 | 1) Se|parate u|
|000039f0| 6e 6f 72 64 65 72 65 64 | 20 6c 69 73 74 20 6f 66 |nordered| list of|
|00003a00| 20 22 69 6e 74 65 72 65 | 73 74 69 6e 67 20 70 6c | "intere|sting pl|
|00003a10| 61 63 65 73 22 3b 0a 20 | 20 20 20 20 20 20 20 20 |aces";. | |
|00003a20| 20 20 20 20 20 20 20 32 | 29 20 53 65 70 61 72 61 | 2|) Separa|
|00003a30| 74 65 20 54 4f 43 20 6f | 66 20 50 4f 44 20 73 65 |te TOC o|f POD se|
|00003a40| 63 74 69 6f 6e 73 3b 0a | 20 20 20 20 20 20 20 20 |ctions;.| |
|00003a50| 20 20 20 20 20 20 20 20 | 33 29 20 53 65 70 61 72 | |3) Separ|
|00003a60| 61 74 65 20 6c 69 73 74 | 20 6f 66 20 70 61 63 6b |ate list| of pack|
|00003a70| 61 67 65 73 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |ages;. | |
|00003a80| 20 20 20 20 20 20 34 29 | 20 48 69 65 72 61 72 63 | 4)| Hierarc|
|00003a90| 68 69 63 61 6c 20 76 69 | 65 77 20 6f 66 20 6d 65 |hical vi|ew of me|
|00003aa0| 74 68 6f 64 73 20 69 6e | 20 28 73 75 62 29 70 61 |thods in| (sub)pa|
|00003ab0| 63 6b 61 67 65 73 3b 0a | 20 20 20 20 20 20 20 20 |ckages;.| |
|00003ac0| 20 20 20 20 20 20 20 20 | 35 29 20 61 6e 64 20 66 | |5) and f|
|00003ad0| 75 6e 63 74 69 6f 6e 73 | 20 28 62 79 20 74 68 65 |unctions| (by the|
|00003ae0| 20 66 75 6c 6c 20 6e 61 | 6d 65 20 2d 20 77 69 74 | full na|me - wit|
|00003af0| 68 20 70 61 63 6b 61 67 | 65 29 3b 0a 20 20 20 20 |h packag|e);. |
|00003b00| 20 20 20 20 65 29 20 48 | 61 73 20 61 6e 20 69 6e | e) H|as an in|
|00003b10| 74 65 72 66 61 63 65 20 | 74 6f 20 49 4e 46 4f 20 |terface |to INFO |
|00003b20| 64 6f 63 73 20 66 6f 72 | 20 50 65 72 6c 3b 20 54 |docs for| Perl; T|
|00003b30| 68 65 20 69 6e 74 65 72 | 66 61 63 65 20 69 73 0a |he inter|face is.|
|00003b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b50| 76 65 72 79 20 66 6c 65 | 78 69 62 6c 65 2c 20 69 |very fle|xible, i|
|00003b60| 6e 63 6c 75 64 69 6e 67 | 20 73 68 72 69 6e 6b 2d |ncluding| shrink-|
|00003b70| 77 72 61 70 70 69 6e 67 | 20 6f 66 0a 20 20 20 20 |wrapping| of. |
|00003b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 6f 63 75 | | docu|
|00003b90| 6d 65 6e 74 61 74 69 6f | 6e 20 62 75 66 66 65 72 |mentatio|n buffer|
|00003ba0| 2f 66 72 61 6d 65 3b 0a | 20 20 20 20 20 20 20 20 |/frame;.| |
|00003bb0| 66 29 20 48 61 73 20 61 | 20 62 75 69 6c 74 69 6e |f) Has a| builtin|
|00003bc0| 20 6c 69 73 74 20 6f 66 | 20 6f 6e 65 2d 6c 69 6e | list of| one-lin|
|00003bd0| 65 20 65 78 70 6c 61 6e | 61 74 69 6f 6e 73 20 66 |e explan|ations f|
|00003be0| 6f 72 20 70 65 72 6c 20 | 63 6f 6e 73 74 72 75 63 |or perl |construc|
|00003bf0| 74 73 2e 0a 20 20 20 20 | 20 20 20 20 67 29 20 43 |ts.. | g) C|
|00003c00| 61 6e 20 73 68 6f 77 20 | 74 68 65 73 65 20 65 78 |an show |these ex|
|00003c10| 70 6c 61 6e 61 74 69 6f | 6e 73 20 69 66 20 79 6f |planatio|ns if yo|
|00003c20| 75 20 73 74 61 79 20 6c | 6f 6e 67 20 65 6e 6f 75 |u stay l|ong enou|
|00003c30| 67 68 20 61 74 20 74 68 | 65 0a 20 20 20 20 20 20 |gh at th|e. |
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 63 6f 72 72 65 73 | | corres|
|00003c50| 70 6f 6e 64 69 6e 67 20 | 70 6c 61 63 65 20 28 6f |ponding |place (o|
|00003c60| 72 20 6f 6e 20 64 65 6d | 61 6e 64 29 3b 0a 20 20 |r on dem|and);. |
|00003c70| 20 20 20 20 20 20 68 29 | 20 48 61 73 20 61 6e 20 | h)| Has an |
|00003c80| 65 6e 68 61 6e 63 65 64 | 20 66 6f 6e 74 69 66 69 |enhanced| fontifi|
|00003c90| 63 61 74 69 6f 6e 20 28 | 75 73 69 6e 67 20 33 20 |cation (|using 3 |
|00003ca0| 6f 72 20 34 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |or 4 add|itional |
|00003cb0| 66 61 63 65 73 0a 20 20 | 20 20 20 20 20 20 20 20 |faces. | |
|00003cc0| 20 20 20 20 20 20 63 6f | 6d 70 61 72 69 6e 67 20 | co|mparing |
|00003cd0| 74 6f 20 66 6f 6e 74 2d | 6c 6f 63 6b 20 2d 20 62 |to font-|lock - b|
|00003ce0| 61 73 69 63 61 6c 6c 79 | 2c 20 64 69 66 66 65 72 |asically|, differ|
|00003cf0| 65 6e 74 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ent. | |
|00003d00| 20 20 20 20 6e 61 6d 65 | 73 70 61 63 65 73 20 69 | name|spaces i|
|00003d10| 6e 20 50 65 72 6c 20 68 | 61 76 65 20 64 69 66 66 |n Perl h|ave diff|
|00003d20| 65 72 65 6e 74 20 63 6f | 6c 6f 72 73 29 3b 0a 20 |erent co|lors);. |
|00003d30| 20 20 20 20 20 20 20 69 | 29 20 43 61 6e 20 63 6f | i|) Can co|
|00003d40| 6e 73 74 72 75 63 74 20 | 54 41 47 53 20 62 61 73 |nstruct |TAGS bas|
|00003d50| 69 6e 67 20 6f 6e 20 69 | 74 73 20 6b 6e 6f 77 6c |ing on i|ts knowl|
|00003d60| 65 64 67 65 20 6f 66 20 | 50 65 72 6c 20 73 79 6e |edge of |Perl syn|
|00003d70| 74 61 78 2c 0a 20 20 20 | 20 20 20 20 20 20 20 20 |tax,. | |
|00003d80| 20 20 20 20 20 74 68 65 | 20 73 74 61 6e 64 61 72 | the| standar|
|00003d90| 64 20 6d 65 6e 75 20 68 | 61 73 20 36 20 64 69 66 |d menu h|as 6 dif|
|00003da0| 66 65 72 65 6e 74 20 77 | 61 79 20 74 6f 20 67 65 |ferent w|ay to ge|
|00003db0| 6e 65 72 61 74 65 0a 20 | 20 20 20 20 20 20 20 20 |nerate. | |
|00003dc0| 20 20 20 20 20 20 20 54 | 41 47 53 20 28 69 66 20 | T|AGS (if |
|00003dd0| 62 79 20 64 69 72 65 63 | 74 6f 72 79 2c 20 2e 78 |by direc|tory, .x|
|00003de0| 73 20 66 69 6c 65 73 20 | 2d 20 77 69 74 68 20 43 |s files |- with C|
|00003df0| 2d 6c 61 6e 67 75 61 67 | 65 0a 20 20 20 20 20 20 |-languag|e. |
|00003e00| 20 20 20 20 20 20 20 20 | 20 20 62 69 6e 64 69 6e | | bindin|
|00003e10| 67 73 20 2d 20 61 72 65 | 20 69 6e 63 6c 75 64 65 |gs - are| include|
|00003e20| 64 20 69 6e 20 74 68 65 | 20 73 63 61 6e 29 3b 0a |d in the| scan);.|
|00003e30| 20 20 20 20 20 20 20 20 | 6a 29 20 43 61 6e 20 62 | |j) Can b|
|00003e40| 75 69 6c 64 20 61 20 68 | 69 65 72 61 72 63 68 69 |uild a h|ierarchi|
|00003e50| 63 61 6c 20 76 69 65 77 | 20 6f 66 20 63 6c 61 73 |cal view| of clas|
|00003e60| 73 65 73 20 28 76 69 61 | 20 69 6d 65 6e 75 29 20 |ses (via| imenu) |
|00003e70| 62 61 73 69 6e 67 0a 20 | 20 20 20 20 20 20 20 20 |basing. | |
|00003e80| 20 20 20 20 20 20 20 6f | 6e 20 67 65 6e 65 72 61 | o|n genera|
|00003e90| 74 65 64 20 54 41 47 53 | 20 66 69 6c 65 3b 0a 20 |ted TAGS| file;. |
|00003ea0| 20 20 20 20 20 20 20 6b | 29 20 48 61 73 20 65 6c | k|) Has el|
|00003eb0| 65 63 74 72 69 63 20 70 | 61 72 65 6e 74 68 65 73 |ectric p|arenthes|
|00003ec0| 65 73 2c 20 65 6c 65 63 | 74 72 69 63 20 6e 65 77 |es, elec|tric new|
|00003ed0| 6c 69 6e 65 73 2c 20 75 | 73 65 73 20 41 62 62 72 |lines, u|ses Abbr|
|00003ee0| 65 76 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ev. | |
|00003ef0| 20 20 20 66 6f 72 20 65 | 6c 65 63 74 72 69 63 20 | for e|lectric |
|00003f00| 6c 6f 67 69 63 61 6c 20 | 63 6f 6e 73 74 72 75 63 |logical |construc|
|00003f10| 74 73 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ts. | |
|00003f20| 20 20 20 20 20 20 20 20 | 20 20 20 77 68 69 6c 65 | | while|
|00003f30| 20 28 29 20 7b 7d 0a 20 | 20 20 20 20 20 20 20 20 | () {}. | |
|00003f40| 20 20 20 20 20 20 20 77 | 69 74 68 20 64 69 66 66 | w|ith diff|
|00003f50| 65 72 65 6e 74 20 73 74 | 79 6c 65 73 20 6f 66 20 |erent st|yles of |
|00003f60| 65 78 70 61 6e 73 69 6f | 6e 20 28 63 6f 6e 74 65 |expansio|n (conte|
|00003f70| 78 74 20 73 65 6e 73 69 | 74 69 76 65 0a 20 20 20 |xt sensi|tive. |
|00003f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 74 6f 20 | | to |
|00003f90| 62 65 20 6e 6f 74 20 73 | 6f 20 62 6f 74 68 65 72 |be not s|o bother|
|00003fa0| 69 6e 67 29 2e 20 45 6c | 65 63 74 72 69 63 20 70 |ing). El|ectric p|
|00003fb0| 61 72 65 6e 74 68 65 73 | 65 73 20 62 65 68 61 76 |arenthes|es behav|
|00003fc0| 65 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e. | |
|00003fd0| 20 20 22 61 73 20 74 68 | 65 79 20 73 68 6f 75 6c | "as th|ey shoul|
|00003fe0| 64 22 20 69 6e 20 61 20 | 70 72 65 73 65 6e 63 65 |d" in a |presence|
|00003ff0| 20 6f 66 20 61 20 76 69 | 73 69 62 6c 65 20 72 65 | of a vi|sible re|
|00004000| 67 69 6f 6e 2e 0a 20 20 | 20 20 20 20 20 20 6c 29 |gion.. | l)|
|00004010| 20 43 68 61 6e 67 65 73 | 20 6d 73 62 2e 65 6c 20 | Changes| msb.el |
|00004020| 22 6f 6e 20 74 68 65 20 | 66 6c 79 22 20 74 6f 20 |"on the |fly" to |
|00004030| 69 6e 73 65 72 74 20 61 | 20 67 72 6f 75 70 20 22 |insert a| group "|
|00004040| 50 65 72 6c 20 66 69 6c | 65 73 22 3b 0a 0a 35 29 |Perl fil|es";..5)|
|00004050| 20 54 68 65 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e | The ind|entation|
|00004060| 20 65 6e 67 69 6e 65 20 | 77 61 73 20 76 65 72 79 | engine |was very|
|00004070| 20 73 6d 61 72 74 2c 20 | 62 75 74 20 6d 6f 73 74 | smart, |but most|
|00004080| 20 6f 66 20 74 72 69 63 | 6b 73 20 6d 61 79 20 62 | of tric|ks may b|
|00004090| 65 0a 6e 6f 74 20 6e 65 | 65 64 65 64 20 61 6e 79 |e.not ne|eded any|
|000040a0| 6d 6f 72 65 20 77 69 74 | 68 20 74 68 65 20 73 75 |more wit|h the su|
|000040b0| 70 70 6f 72 74 20 66 6f | 72 20 60 73 79 6e 74 61 |pport fo|r `synta|
|000040c0| 78 2d 74 61 62 6c 65 27 | 20 70 72 6f 70 65 72 74 |x-table'| propert|
|000040d0| 79 2e 20 48 61 73 0a 70 | 72 6f 67 72 65 73 73 20 |y. Has.p|rogress |
|000040e0| 69 6e 64 69 63 61 74 6f | 72 20 66 6f 72 20 69 6e |indicato|r for in|
|000040f0| 64 65 6e 74 61 74 69 6f | 6e 20 28 77 69 74 68 20 |dentatio|n (with |
|00004100| 60 69 6d 65 6e 75 27 20 | 6c 6f 61 64 65 64 29 2e |`imenu' |loaded).|
|00004110| 0a 0a 36 29 20 49 6e 64 | 65 6e 74 2d 72 65 67 69 |..6) Ind|ent-regi|
|00004120| 6f 6e 20 69 6d 70 72 6f | 76 65 73 20 69 6e 6c 69 |on impro|ves inli|
|00004130| 6e 65 2d 63 6f 6d 6d 65 | 6e 74 73 20 61 73 20 77 |ne-comme|nts as w|
|00004140| 65 6c 6c 3b 0a 0a 37 29 | 20 46 69 6c 6c 2d 70 61 |ell;..7)| Fill-pa|
|00004150| 72 61 67 72 61 70 68 20 | 63 6f 72 72 65 63 74 6c |ragraph |correctl|
|00004160| 79 20 68 61 6e 64 6c 65 | 73 20 6d 75 6c 74 69 2d |y handle|s multi-|
|00004170| 6c 69 6e 65 20 63 6f 6d | 6d 65 6e 74 73 3b 0a 1f |line com|ments;..|
|00004180| 0a 28 64 65 66 76 61 72 | 20 63 70 65 72 6c 2d 70 |.(defvar| cperl-p|
|00004190| 72 61 69 73 65 20 27 70 | 6c 65 61 73 65 2d 69 67 |raise 'p|lease-ig|
|000041a0| 6e 6f 72 65 2d 74 68 69 | 73 2d 6c 69 6e 65 20 28 |nore-thi|s-line (|
|000041b0| 23 24 20 2e 20 31 33 37 | 38 32 29 29 0a 28 64 65 |#$ . 137|82)).(de|
|000041c0| 66 61 6c 69 61 73 20 27 | 63 70 65 72 6c 2d 64 65 |falias '|cperl-de|
|000041d0| 66 69 6e 65 2d 6b 65 79 | 20 27 28 6d 61 63 72 6f |fine-key| '(macro|
|000041e0| 20 2e 20 23 5b 28 66 73 | 66 2d 6b 65 79 20 64 65 | . #[(fs|f-key de|
|000041f0| 66 69 6e 69 74 69 6f 6e | 20 26 6f 70 74 69 6f 6e |finition| &option|
|00004200| 61 6c 20 78 65 6d 61 63 | 73 2d 6b 65 79 29 20 22 |al xemac|s-key) "|
|00004210| c0 c1 5c 6e ab 87 c3 c4 | 5c 6e 0d 46 aa 81 0d 0e |..\n....|\n.F....|
|00004220| 06 46 87 22 20 5b 64 65 | 66 69 6e 65 2d 6b 65 79 |.F." [de|fine-key|
|00004230| 20 63 70 65 72 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | cperl-m|ode-map |
|00004240| 78 65 6d 61 63 73 2d 6b | 65 79 20 69 66 20 63 70 |xemacs-k|ey if cp|
|00004250| 65 72 6c 2d 78 65 6d 61 | 63 73 2d 70 20 66 73 66 |erl-xema|cs-p fsf|
|00004260| 2d 6b 65 79 20 64 65 66 | 69 6e 69 74 69 6f 6e 5d |-key def|inition]|
|00004270| 20 36 5d 29 29 0a 23 40 | 35 39 20 43 68 61 72 61 | 6])).#@|59 Chara|
|00004280| 63 74 65 72 20 67 65 6e | 65 72 61 74 65 64 20 62 |cter gen|erated b|
|00004290| 79 20 6b 65 79 20 62 6f | 75 6e 64 20 74 6f 20 64 |y key bo|und to d|
|000042a0| 65 6c 65 74 65 2d 62 61 | 63 6b 77 61 72 64 2d 63 |elete-ba|ckward-c|
|000042b0| 68 61 72 2e 1f 0a 28 64 | 65 66 76 61 72 20 64 65 |har...(d|efvar de|
|000042c0| 6c 2d 62 61 63 6b 2d 63 | 68 20 28 62 79 74 65 2d |l-back-c|h (byte-|
|000042d0| 63 6f 64 65 20 22 c0 c1 | c2 21 c1 c3 21 5c 22 40 |code "..|.!..!\"@|
|000042e0| 87 22 20 5b 61 70 70 65 | 6e 64 20 77 68 65 72 65 |." [appe|nd where|
|000042f0| 2d 69 73 2d 69 6e 74 65 | 72 6e 61 6c 20 64 65 6c |-is-inte|rnal del|
|00004300| 65 74 65 2d 62 61 63 6b | 77 61 72 64 2d 63 68 61 |ete-back|ward-cha|
|00004310| 72 20 62 61 63 6b 77 61 | 72 64 2d 64 65 6c 65 74 |r backwa|rd-delet|
|00004320| 65 2d 63 68 61 72 2d 75 | 6e 74 61 62 69 66 79 5d |e-char-u|ntabify]|
|00004330| 20 34 29 20 28 23 24 20 | 2e 20 31 37 30 31 39 29 | 4) (#$ |. 17019)|
|00004340| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |).(byte-|code "..|
|00004350| 21 ab 8a 09 47 c2 55 ab | 84 09 c3 48 11 0c ab 8a |!...G.U.|...H....|
|00004360| c5 c6 4d 88 c7 c8 4d 88 | aa 88 c5 c9 4d 88 c7 ca |..M...M.|....M...|
|00004370| 4d 88 c0 87 22 20 5b 76 | 65 63 74 6f 72 70 20 64 |M..." [v|ectorp d|
|00004380| 65 6c 2d 62 61 63 6b 2d | 63 68 20 31 20 30 20 63 |el-back-|ch 1 0 c|
|00004390| 70 65 72 6c 2d 78 65 6d | 61 63 73 2d 70 20 63 70 |perl-xem|acs-p cp|
|000043a0| 65 72 6c 2d 75 73 65 2d | 72 65 67 69 6f 6e 2d 70 |erl-use-|region-p|
|000043b0| 20 23 5b 6e 69 6c 20 22 | 08 ab 83 c1 20 87 c2 87 | #[nil "|.... ...|
|000043c0| 22 20 5b 7a 6d 61 63 73 | 2d 72 65 67 69 6f 6e 73 |" [zmacs|-regions|
|000043d0| 20 6d 61 72 6b 20 74 5d | 20 31 5d 20 63 70 65 72 | mark t]| 1] cper|
|000043e0| 6c 2d 6d 61 72 6b 2d 61 | 63 74 69 76 65 20 23 5b |l-mark-a|ctive #[|
|000043f0| 6e 69 6c 20 22 c0 20 87 | 22 20 5b 6d 61 72 6b 5d |nil ". .|" [mark]|
|00004400| 20 31 5d 20 23 5b 6e 69 | 6c 20 22 08 ab 82 09 87 | 1] #[ni|l ".....|
|00004410| c2 87 22 20 5b 74 72 61 | 6e 73 69 65 6e 74 2d 6d |.." [tra|nsient-m|
|00004420| 61 72 6b 2d 6d 6f 64 65 | 20 6d 61 72 6b 2d 61 63 |ark-mode| mark-ac|
|00004430| 74 69 76 65 20 74 5d 20 | 31 5d 20 23 5b 6e 69 6c |tive t] |1] #[nil|
|00004440| 20 22 08 87 22 20 5b 6d | 61 72 6b 2d 61 63 74 69 | ".." [m|ark-acti|
|00004450| 76 65 5d 20 31 5d 5d 20 | 32 29 0a 28 64 65 66 61 |ve] 1]] |2).(defa|
|00004460| 6c 69 61 73 20 27 63 70 | 65 72 6c 2d 65 6e 61 62 |lias 'cp|erl-enab|
|00004470| 6c 65 2d 66 6f 6e 74 2d | 6c 6f 63 6b 20 23 5b 6e |le-font-|lock #[n|
|00004480| 69 6c 20 22 08 ae 81 09 | 87 22 20 5b 63 70 65 72 |il "....|." [cper|
|00004490| 6c 2d 78 65 6d 61 63 73 | 2d 70 20 77 69 6e 64 6f |l-xemacs|-p windo|
|000044a0| 77 2d 73 79 73 74 65 6d | 5d 20 31 5d 29 0a 28 62 |w-system|] 1]).(b|
|000044b0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 73 ac |yte-code| "..N.s.|
|000044c0| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 88 c7 c8 21 |....\"..|...#...!|
|000044d0| ab 90 0e 09 ab 86 ca cb | 4d 88 aa 8a ca cc 4d 88 |........|M.....M.|
|000044e0| aa 84 ca cd 4d 88 ce cf | 21 ac 84 cf d0 4d 88 c0 |....M...|!....M..|
|000044f0| 87 22 20 5b 63 70 65 72 | 6c 2d 65 6e 61 62 6c 65 |." [cper|l-enable|
|00004500| 2d 66 6f 6e 74 2d 6c 6f | 63 6b 20 62 79 74 65 2d |-font-lo|ck byte-|
|00004510| 6f 70 74 69 6d 69 7a 65 | 72 20 28 6e 69 6c 20 62 |optimize|r (nil b|
|00004520| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 69 6e 6c 69 |yte-comp|ile-inli|
|00004530| 6e 65 2d 65 78 70 61 6e | 64 29 20 65 72 72 6f 72 |ne-expan|d) error|
|00004540| 20 22 25 73 20 61 6c 72 | 65 61 64 79 20 68 61 73 | "%s alr|eady has|
|00004550| 20 61 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 | a byte-|optimize|
|00004560| 72 2c 20 63 61 6e 27 74 | 20 6d 61 6b 65 20 69 74 |r, can't| make it|
|00004570| 20 69 6e 6c 69 6e 65 22 | 20 70 75 74 20 62 79 74 | inline"| put byt|
|00004580| 65 2d 63 6f 6d 70 69 6c | 65 2d 69 6e 6c 69 6e 65 |e-compil|e-inline|
|00004590| 2d 65 78 70 61 6e 64 20 | 62 6f 75 6e 64 70 20 75 |-expand |boundp u|
|000045a0| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |nread-co|mmand-ev|
|000045b0| 65 6e 74 73 20 63 70 65 | 72 6c 2d 78 65 6d 61 63 |ents cpe|rl-xemac|
|000045c0| 73 2d 70 20 63 70 65 72 | 6c 2d 70 75 74 62 61 63 |s-p cper|l-putbac|
|000045d0| 6b 2d 63 68 61 72 20 23 | 5b 28 63 29 20 22 c0 09 |k-char #|[(c) "..|
|000045e0| 21 43 89 12 87 22 20 5b | 63 68 61 72 61 63 74 65 |!C..." [|characte|
|000045f0| 72 2d 74 6f 2d 65 76 65 | 6e 74 20 63 20 75 6e 72 |r-to-eve|nt c unr|
|00004600| 65 61 64 2d 63 6f 6d 6d | 61 6e 64 2d 65 76 65 6e |ead-comm|and-even|
|00004610| 74 73 5d 20 32 5d 20 23 | 5b 28 63 29 20 22 08 43 |ts] 2] #|[(c) ".C|
|00004620| 89 11 87 22 20 5b 63 20 | 75 6e 72 65 61 64 2d 63 |..." [c |unread-c|
|00004630| 6f 6d 6d 61 6e 64 2d 65 | 76 65 6e 74 73 5d 20 32 |ommand-e|vents] 2|
|00004640| 5d 20 23 5b 28 63 29 20 | 22 c0 09 21 89 12 87 22 |] #[(c) |"..!..."|
|00004650| 20 5b 63 68 61 72 61 63 | 74 65 72 2d 74 6f 2d 65 | [charac|ter-to-e|
|00004660| 76 65 6e 74 20 63 20 75 | 6e 72 65 61 64 2d 63 6f |vent c u|nread-co|
|00004670| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 5d 20 32 5d 20 |mmand-ev|ent] 2] |
|00004680| 66 62 6f 75 6e 64 70 20 | 75 6e 63 6f 6d 6d 65 6e |fboundp |uncommen|
|00004690| 74 2d 72 65 67 69 6f 6e | 20 23 5b 28 62 65 67 20 |t-region| #[(beg |
|000046a0| 65 6e 64 29 20 22 c0 09 | 5c 6e c3 23 87 22 20 5b |end) "..|\n.#." [|
|000046b0| 63 6f 6d 6d 65 6e 74 2d | 72 65 67 69 6f 6e 20 62 |comment-|region b|
|000046c0| 65 67 20 65 6e 64 20 2d | 31 5d 20 34 20 6e 69 6c |eg end -|1] 4 nil|
|000046d0| 20 22 72 22 5d 5d 20 34 | 29 0a 23 40 34 37 20 54 | "r"]] 4|).#@47 T|
|000046e0| 65 78 74 20 70 72 6f 70 | 65 72 74 79 20 77 68 69 |ext prop|erty whi|
|000046f0| 63 68 20 69 6e 68 69 62 | 69 74 73 20 72 65 66 6f |ch inhib|its refo|
|00004700| 6e 74 69 66 69 63 61 74 | 69 6f 6e 2e 1f 0a 28 64 |ntificat|ion...(d|
|00004710| 65 66 76 61 72 20 63 70 | 65 72 6c 2d 64 6f 2d 6e |efvar cp|erl-do-n|
|00004720| 6f 74 2d 66 6f 6e 74 69 | 66 79 20 28 62 79 74 65 |ot-fonti|fy (byte|
|00004730| 2d 63 6f 64 65 20 22 08 | c1 99 ab 82 c2 87 c3 87 |-code ".|........|
|00004740| 22 20 5b 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |" [emacs|-version|
|00004750| 20 22 31 39 2e 33 30 22 | 20 66 6f 6e 74 69 66 69 | "19.30"| fontifi|
|00004760| 65 64 20 6c 61 7a 79 2d | 6c 6f 63 6b 5d 20 32 29 |ed lazy-|lock] 2)|
|00004770| 20 28 23 24 20 2e 20 31 | 38 31 34 33 29 29 0a 28 | (#$ . 1|8143)).(|
|00004780| 64 65 66 61 6c 69 61 73 | 20 27 63 70 65 72 6c 2d |defalias| 'cperl-|
|00004790| 70 75 74 2d 64 6f 2d 6e | 6f 74 2d 66 6f 6e 74 69 |put-do-n|ot-fonti|
|000047a0| 66 79 20 23 5b 28 66 72 | 6f 6d 20 74 6f 29 20 22 |fy #[(fr|om to) "|
|000047b0| c0 65 09 53 5d 5c 6e 0b | c4 24 87 22 20 5b 70 75 |.e.S]\n.|.$." [pu|
|000047c0| 74 2d 74 65 78 74 2d 70 | 72 6f 70 65 72 74 79 20 |t-text-p|roperty |
|000047d0| 66 72 6f 6d 20 74 6f 20 | 63 70 65 72 6c 2d 64 6f |from to |cperl-do|
|000047e0| 2d 6e 6f 74 2d 66 6f 6e | 74 69 66 79 20 74 5d 20 |-not-fon|tify t] |
|000047f0| 35 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |5]).(byt|e-code "|
|00004800| c0 c1 4e c2 73 ac 85 c3 | c4 c0 5c 22 88 c5 c0 c1 |..N.s...|..\"....|
|00004810| c6 23 87 22 20 5b 63 70 | 65 72 6c 2d 70 75 74 2d |.#." [cp|erl-put-|
|00004820| 64 6f 2d 6e 6f 74 2d 66 | 6f 6e 74 69 66 79 20 62 |do-not-f|ontify b|
|00004830| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00004840| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00004850| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00004860| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00004870| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00004880| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00004890| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|000048a0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|000048b0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 5d 20 34 29 0a |line-exp|and] 4).|
|000048c0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000048d0| 76 61 72 69 61 62 6c 65 | 20 27 63 70 65 72 6c 2d |variable| 'cperl-|
|000048e0| 6d 6f 64 65 2d 68 6f 6f | 6b 20 27 6e 69 6c 20 22 |mode-hoo|k 'nil "|
|000048f0| 48 6f 6f 6b 20 72 75 6e | 20 62 79 20 60 63 70 65 |Hook run| by `cpe|
|00004900| 72 6c 2d 6d 6f 64 65 27 | 2e 22 20 3a 74 79 70 65 |rl-mode'|." :type|
|00004910| 20 27 73 65 78 70 20 3a | 67 72 6f 75 70 20 27 70 | 'sexp :|group 'p|
|00004920| 65 72 6c 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |erl).(by|te-code |
|00004930| 22 c0 c1 5c 6e 5c 22 12 | c3 c4 21 ab 85 c0 0c c5 |"..\n\".|..!.....|
|00004940| 5c 22 14 c0 87 22 20 5b | 61 70 70 65 6e 64 20 28 |\"..." [|append (|
|00004950| 28 22 5c 5c 2e 5c 5c 28 | 5b 70 50 5d 5b 4c 6c 6d |("\\.\\(|[pP][Llm|
|00004960| 5d 5c 5c 7c 61 6c 5c 5c | 29 5c 5c 27 22 20 2e 20 |]\\|al\\|)\\'" . |
|00004970| 70 65 72 6c 2d 6d 6f 64 | 65 29 29 20 61 75 74 6f |perl-mod|e)) auto|
|00004980| 2d 6d 6f 64 65 2d 61 6c | 69 73 74 20 62 6f 75 6e |-mode-al|ist boun|
|00004990| 64 70 20 69 6e 74 65 72 | 70 72 65 74 65 72 2d 6d |dp inter|preter-m|
|000049a0| 6f 64 65 2d 61 6c 69 73 | 74 20 28 28 22 6d 69 6e |ode-alis|t (("min|
|000049b0| 69 70 65 72 6c 22 20 2e | 20 70 65 72 6c 2d 6d 6f |iperl" .| perl-mo|
|000049c0| 64 65 29 29 5d 20 33 29 | 0a 23 40 34 34 20 41 62 |de))] 3)|.#@44 Ab|
|000049d0| 62 72 65 76 20 74 61 62 | 6c 65 20 69 6e 20 75 73 |brev tab|le in us|
|000049e0| 65 20 69 6e 20 43 70 65 | 72 6c 2d 6d 6f 64 65 20 |e in Cpe|rl-mode |
|000049f0| 62 75 66 66 65 72 73 2e | 1f 0a 28 64 65 66 76 61 |buffers.|..(defva|
|00004a00| 72 20 63 70 65 72 6c 2d | 6d 6f 64 65 2d 61 62 62 |r cperl-|mode-abb|
|00004a10| 72 65 76 2d 74 61 62 6c | 65 20 6e 69 6c 20 28 23 |rev-tabl|e nil (#|
|00004a20| 24 20 2e 20 31 38 38 39 | 34 29 29 0a 28 61 64 64 |$ . 1889|4)).(add|
|00004a30| 2d 68 6f 6f 6b 20 27 65 | 64 69 74 2d 76 61 72 2d |-hook 'e|dit-var-|
|00004a40| 6d 6f 64 65 2d 61 6c 69 | 73 74 20 27 28 70 65 72 |mode-ali|st '(per|
|00004a50| 6c 2d 6d 6f 64 65 20 28 | 72 65 67 65 78 70 20 2e |l-mode (|regexp .|
|00004a60| 20 22 5e 63 70 65 72 6c | 2d 22 29 29 29 0a 23 40 | "^cperl|-"))).#@|
|00004a70| 32 38 20 4b 65 79 6d 61 | 70 20 75 73 65 64 20 69 |28 Keyma|p used i|
|00004a80| 6e 20 43 50 65 72 6c 20 | 6d 6f 64 65 2e 1f 0a 28 |n CPerl |mode...(|
|00004a90| 64 65 66 76 61 72 20 63 | 70 65 72 6c 2d 6d 6f 64 |defvar c|perl-mod|
|00004aa0| 65 2d 6d 61 70 20 6e 69 | 6c 20 28 23 24 20 2e 20 |e-map ni|l (#$ . |
|00004ab0| 31 39 30 35 39 29 29 0a | 28 62 79 74 65 2d 63 6f |19059)).|(byte-co|
|00004ac0| 64 65 20 22 08 84 fc 00 | c1 20 10 c2 08 c3 c4 23 |de "....|. .....#|
|00004ad0| 88 c2 08 c5 c6 23 88 c2 | 08 c7 c6 23 88 c2 08 c8 |.....#..|...#....|
|00004ae0| c6 23 88 c2 08 c9 ca 23 | 88 c2 08 cb cc 23 88 c2 |.#.....#|.....#..|
|00004af0| 08 cd cc 23 88 c2 08 ce | cf 23 88 c2 08 d0 d1 23 |...#....|.#.....#|
|00004b00| 88 c2 08 d2 d3 23 88 c2 | 08 d4 d5 23 88 c2 08 d6 |.....#..|...#....|
|00004b10| d7 23 88 c2 08 d8 d9 23 | 88 c2 08 da db 23 88 c2 |.#.....#|.....#..|
|00004b20| 08 dc dd 23 88 c2 08 de | df 23 88 c2 08 e0 e1 23 |...#....|.#.....#|
|00004b30| 88 0e 5c 22 ab 8e c2 08 | e3 e4 23 88 c2 08 e5 e6 |..\"....|..#.....|
|00004b40| 23 88 aa 86 c2 08 e7 e4 | 23 88 c2 08 e8 e9 23 88 |#.......|#.....#.|
|00004b50| c2 08 0e 5c 22 ab 83 ea | aa 81 eb ec 23 88 c2 08 |...\"...|....#...|
|00004b60| 0e 5c 22 ab 83 ed aa 81 | ee ef 23 88 c2 08 0e 5c |.\".....|..#....\|
|00004b70| 22 ab 83 f0 aa 81 f1 f2 | 23 88 0e 5c 22 ab a0 0e |".......|#..\"...|
|00004b80| 33 f4 58 ab 9a 0e 35 f6 | 58 ab 94 c2 08 f7 f8 23 |3.X...5.|X......#|
|00004b90| 88 c2 08 f9 fa 23 88 c2 | 08 fb fc 23 88 aa a6 fd |.....#..|...#....|
|00004ba0| fe df 08 0e 3f 24 88 fd | 81 40 00 f8 08 0e 3f 24 |....?$..|.@....?$|
|00004bb0| 88 fd 81 41 00 fc 08 0e | 3f 24 88 fd 81 42 00 fa |...A....|?$...B..|
|00004bc0| 08 0e 3f 24 88 81 43 00 | 81 44 00 81 45 00 8f 87 |..?$..C.|.D..E...|
|00004bd0| 22 20 5b 63 70 65 72 6c | 2d 6d 6f 64 65 2d 6d 61 |" [cperl|-mode-ma|
|00004be0| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|00004bf0| 79 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |ymap def|ine-key |
|00004c00| 22 7b 22 20 63 70 65 72 | 6c 2d 65 6c 65 63 74 72 |"{" cper|l-electr|
|00004c10| 69 63 2d 6c 62 72 61 63 | 65 20 22 5b 22 20 63 70 |ic-lbrac|e "[" cp|
|00004c20| 65 72 6c 2d 65 6c 65 63 | 74 72 69 63 2d 70 61 72 |erl-elec|tric-par|
|00004c30| 65 6e 20 22 28 22 20 22 | 3c 22 20 22 7d 22 20 63 |en "(" "|<" "}" c|
|00004c40| 70 65 72 6c 2d 65 6c 65 | 63 74 72 69 63 2d 62 72 |perl-ele|ctric-br|
|00004c50| 61 63 65 20 22 5d 22 20 | 63 70 65 72 6c 2d 65 6c |ace "]" |cperl-el|
|00004c60| 65 63 74 72 69 63 2d 72 | 70 61 72 65 6e 20 22 29 |ectric-r|paren ")|
|00004c70| 22 20 22 3b 22 20 63 70 | 65 72 6c 2d 65 6c 65 63 |" ";" cp|erl-elec|
|00004c80| 74 72 69 63 2d 73 65 6d | 69 20 22 3a 22 20 63 70 |tric-sem|i ":" cp|
|00004c90| 65 72 6c 2d 65 6c 65 63 | 74 72 69 63 2d 74 65 72 |erl-elec|tric-ter|
|00004ca0| 6d 69 6e 61 74 6f 72 20 | 22 03 66 22 20 63 70 65 |minator |".f" cpe|
|00004cb0| 72 6c 2d 66 69 6e 64 2d | 70 6f 64 73 2d 68 65 72 |rl-find-|pods-her|
|00004cc0| 65 73 20 22 5c 6e 22 20 | 6e 65 77 6c 69 6e 65 2d |es "\n" |newline-|
|00004cd0| 61 6e 64 2d 69 6e 64 65 | 6e 74 20 22 03 5c 6e 22 |and-inde|nt ".\n"|
|00004ce0| 20 63 70 65 72 6c 2d 6c | 69 6e 65 66 65 65 64 20 | cperl-l|inefeed |
|00004cf0| 22 03 01 22 20 63 70 65 | 72 6c 2d 74 6f 67 67 6c |".." cpe|rl-toggl|
|00004d00| 65 2d 61 75 74 6f 2d 6e | 65 77 6c 69 6e 65 20 22 |e-auto-n|ewline "|
|00004d10| 03 0b 22 20 63 70 65 72 | 6c 2d 74 6f 67 67 6c 65 |.." cper|l-toggle|
|00004d20| 2d 61 62 62 72 65 76 20 | 22 03 05 22 20 63 70 65 |-abbrev |".." cpe|
|00004d30| 72 6c 2d 74 6f 67 67 6c | 65 2d 65 6c 65 63 74 72 |rl-toggl|e-electr|
|00004d40| 69 63 20 22 1b 11 22 20 | 63 70 65 72 6c 2d 69 6e |ic ".." |cperl-in|
|00004d50| 64 65 6e 74 2d 65 78 70 | 20 5b 3f 5c 5e dc 5d 20 |dent-exp| [?\^.] |
|00004d60| 63 70 65 72 6c 2d 6c 69 | 6e 65 75 70 20 63 70 65 |cperl-li|neup cpe|
|00004d70| 72 6c 2d 78 65 6d 61 63 | 73 2d 70 20 62 61 63 6b |rl-xemac|s-p back|
|00004d80| 73 70 61 63 65 20 63 70 | 65 72 6c 2d 65 6c 65 63 |space cp|erl-elec|
|00004d90| 74 72 69 63 2d 62 61 63 | 6b 73 70 61 63 65 20 64 |tric-bac|kspace d|
|00004da0| 65 6c 65 74 65 20 63 70 | 65 72 6c 2d 65 6c 65 63 |elete cp|erl-elec|
|00004db0| 74 72 69 63 2d 64 65 6c | 65 74 65 20 22 7f 22 20 |tric-del|ete "." |
|00004dc0| 22 09 22 20 63 70 65 72 | 6c 2d 69 6e 64 65 6e 74 |"." cper|l-indent|
|00004dd0| 2d 63 6f 6d 6d 61 6e 64 | 20 5b 28 63 6f 6e 74 72 |-command| [(contr|
|00004de0| 6f 6c 20 63 29 20 28 63 | 6f 6e 74 72 6f 6c 20 68 |ol c) (c|ontrol h|
|00004df0| 29 20 66 5d 20 22 03 08 | 66 22 20 63 70 65 72 6c |) f] "..|f" cperl|
|00004e00| 2d 69 6e 66 6f 2d 6f 6e | 2d 63 75 72 72 65 6e 74 |-info-on|-current|
|00004e10| 2d 63 6f 6d 6d 61 6e 64 | 20 5b 28 63 6f 6e 74 72 |-command| [(contr|
|00004e20| 6f 6c 20 68 29 20 66 5d | 20 22 08 66 22 20 63 70 |ol h) f]| ".f" cp|
|00004e30| 65 72 6c 2d 69 6e 66 6f | 2d 6f 6e 2d 63 6f 6d 6d |erl-info|-on-comm|
|00004e40| 61 6e 64 20 5b 28 63 6f | 6e 74 72 6f 6c 20 68 29 |and [(co|ntrol h)|
|00004e50| 20 76 5d 20 22 08 76 22 | 20 63 70 65 72 6c 2d 67 | v] ".v"| cperl-g|
|00004e60| 65 74 2d 68 65 6c 70 20 | 65 6d 61 63 73 2d 6d 69 |et-help |emacs-mi|
|00004e70| 6e 6f 72 2d 76 65 72 73 | 69 6f 6e 20 31 31 20 65 |nor-vers|ion 11 e|
|00004e80| 6d 61 63 73 2d 6d 61 6a | 6f 72 2d 76 65 72 73 69 |macs-maj|or-versi|
|00004e90| 6f 6e 20 31 39 20 22 f1 | 22 20 63 70 65 72 6c 2d |on 19 ".|" cperl-|
|00004ea0| 66 69 6c 6c 2d 70 61 72 | 61 67 72 61 70 68 20 22 |fill-par|agraph "|
|00004eb0| 1b 3b 22 20 63 70 65 72 | 6c 2d 69 6e 64 65 6e 74 |.;" cper|l-indent|
|00004ec0| 2d 66 6f 72 2d 63 6f 6d | 6d 65 6e 74 20 22 1b 1c |-for-com|ment "..|
|00004ed0| 22 20 63 70 65 72 6c 2d | 69 6e 64 65 6e 74 2d 72 |" cperl-|indent-r|
|00004ee0| 65 67 69 6f 6e 20 73 75 | 62 73 74 69 74 75 74 65 |egion su|bstitute|
|00004ef0| 2d 6b 65 79 2d 64 65 66 | 69 6e 69 74 69 6f 6e 20 |-key-def|inition |
|00004f00| 69 6e 64 65 6e 74 2d 73 | 65 78 70 20 67 6c 6f 62 |indent-s|exp glob|
|00004f10| 61 6c 2d 6d 61 70 20 66 | 69 6c 6c 2d 70 61 72 61 |al-map f|ill-para|
|00004f20| 67 72 61 70 68 20 69 6e | 64 65 6e 74 2d 72 65 67 |graph in|dent-reg|
|00004f30| 69 6f 6e 20 69 6e 64 65 | 6e 74 2d 66 6f 72 2d 63 |ion inde|nt-for-c|
|00004f40| 6f 6d 6d 65 6e 74 20 6e | 69 6c 20 28 62 79 74 65 |omment n|il (byte|
|00004f50| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 ac 82 |-code ".|.!...!..|
|00004f60| c4 13 c3 0d 42 15 c6 c3 | c7 c8 23 88 c9 c3 0e 5c |....B...|..#....\|
|00004f70| 6e c8 cb 24 87 22 20 5b | 72 65 71 75 69 72 65 20 |n..$." [|require |
|00004f80| 65 61 73 79 6d 65 6e 75 | 20 62 6f 75 6e 64 70 20 |easymenu| boundp |
|00004f90| 63 70 65 72 6c 2d 6d 65 | 6e 75 20 6e 69 6c 20 63 |cperl-me|nu nil c|
|00004fa0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00004fb0| 20 70 75 74 20 76 61 72 | 69 61 62 6c 65 2d 64 6f | put var|iable-do|
|00004fc0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 22 4d 65 6e |cumentat|ion "Men|
|00004fd0| 75 20 66 6f 72 20 43 50 | 65 72 6c 20 6d 6f 64 65 |u for CP|erl mode|
|00004fe0| 22 20 65 61 73 79 2d 6d | 65 6e 75 2d 64 6f 2d 64 |" easy-m|enu-do-d|
|00004ff0| 65 66 69 6e 65 20 63 70 | 65 72 6c 2d 6d 6f 64 65 |efine cp|erl-mode|
|00005000| 2d 6d 61 70 20 28 22 50 | 65 72 6c 22 20 5b 22 42 |-map ("P|erl" ["B|
|00005010| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 66 75 6e 63 |eginning| of func|
|00005020| 74 69 6f 6e 22 20 62 65 | 67 69 6e 6e 69 6e 67 2d |tion" be|ginning-|
|00005030| 6f 66 2d 64 65 66 75 6e | 20 74 5d 20 5b 22 45 6e |of-defun| t] ["En|
|00005040| 64 20 6f 66 20 66 75 6e | 63 74 69 6f 6e 22 20 65 |d of fun|ction" e|
|00005050| 6e 64 2d 6f 66 2d 64 65 | 66 75 6e 20 74 5d 20 5b |nd-of-de|fun t] [|
|00005060| 22 4d 61 72 6b 20 66 75 | 6e 63 74 69 6f 6e 22 20 |"Mark fu|nction" |
|00005070| 6d 61 72 6b 2d 64 65 66 | 75 6e 20 74 5d 20 5b 22 |mark-def|un t] ["|
|00005080| 49 6e 64 65 6e 74 20 65 | 78 70 72 65 73 73 69 6f |Indent e|xpressio|
|00005090| 6e 22 20 63 70 65 72 6c | 2d 69 6e 64 65 6e 74 2d |n" cperl|-indent-|
|000050a0| 65 78 70 20 74 5d 20 5b | 22 46 69 6c 6c 20 70 61 |exp t] [|"Fill pa|
|000050b0| 72 61 67 72 61 70 68 2f | 63 6f 6d 6d 65 6e 74 22 |ragraph/|comment"|
|000050c0| 20 63 70 65 72 6c 2d 66 | 69 6c 6c 2d 70 61 72 61 | cperl-f|ill-para|
|000050d0| 67 72 61 70 68 20 74 5d | 20 22 2d 2d 2d 2d 22 20 |graph t]| "----" |
|000050e0| 5b 22 4c 69 6e 65 20 75 | 70 20 61 20 63 6f 6e 73 |["Line u|p a cons|
|000050f0| 74 72 75 63 74 69 6f 6e | 22 20 63 70 65 72 6c 2d |truction|" cperl-|
|00005100| 6c 69 6e 65 75 70 20 28 | 63 70 65 72 6c 2d 75 73 |lineup (|cperl-us|
|00005110| 65 2d 72 65 67 69 6f 6e | 2d 70 29 5d 20 5b 22 42 |e-region|-p)] ["B|
|00005120| 65 61 75 74 69 66 79 20 | 61 20 72 65 67 65 78 70 |eautify |a regexp|
|00005130| 22 20 63 70 65 72 6c 2d | 62 65 61 75 74 69 66 79 |" cperl-|beautify|
|00005140| 2d 72 65 67 65 78 70 20 | 63 70 65 72 6c 2d 75 73 |-regexp |cperl-us|
|00005150| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 2d 74 |e-syntax|-table-t|
|00005160| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 5d 20 22 2d |ext-prop|erty] "-|
|00005170| 2d 2d 2d 22 20 5b 22 49 | 6e 64 65 6e 74 20 72 65 |---" ["I|ndent re|
|00005180| 67 69 6f 6e 22 20 63 70 | 65 72 6c 2d 69 6e 64 65 |gion" cp|erl-inde|
|00005190| 6e 74 2d 72 65 67 69 6f | 6e 20 28 63 70 65 72 6c |nt-regio|n (cperl|
|000051a0| 2d 75 73 65 2d 72 65 67 | 69 6f 6e 2d 70 29 5d 20 |-use-reg|ion-p)] |
|000051b0| 5b 22 43 6f 6d 6d 65 6e | 74 20 72 65 67 69 6f 6e |["Commen|t region|
|000051c0| 22 20 63 70 65 72 6c 2d | 63 6f 6d 6d 65 6e 74 2d |" cperl-|comment-|
|000051d0| 72 65 67 69 6f 6e 20 28 | 63 70 65 72 6c 2d 75 73 |region (|cperl-us|
|000051e0| 65 2d 72 65 67 69 6f 6e | 2d 70 29 5d 20 5b 22 55 |e-region|-p)] ["U|
|000051f0| 6e 63 6f 6d 6d 65 6e 74 | 20 72 65 67 69 6f 6e 22 |ncomment| region"|
|00005200| 20 63 70 65 72 6c 2d 75 | 6e 63 6f 6d 6d 65 6e 74 | cperl-u|ncomment|
|00005210| 2d 72 65 67 69 6f 6e 20 | 28 63 70 65 72 6c 2d 75 |-region |(cperl-u|
|00005220| 73 65 2d 72 65 67 69 6f | 6e 2d 70 29 5d 20 22 2d |se-regio|n-p)] "-|
|00005230| 2d 2d 2d 22 20 5b 22 52 | 75 6e 22 20 6d 6f 64 65 |---" ["R|un" mode|
|00005240| 2d 63 6f 6d 70 69 6c 65 | 20 28 66 62 6f 75 6e 64 |-compile| (fbound|
|00005250| 70 20 27 6d 6f 64 65 2d | 63 6f 6d 70 69 6c 65 29 |p 'mode-|compile)|
|00005260| 5d 20 5b 22 4b 69 6c 6c | 22 20 6d 6f 64 65 2d 63 |] ["Kill|" mode-c|
|00005270| 6f 6d 70 69 6c 65 2d 6b | 69 6c 6c 20 28 61 6e 64 |ompile-k|ill (and|
|00005280| 20 28 66 62 6f 75 6e 64 | 70 20 27 6d 6f 64 65 2d | (fbound|p 'mode-|
|00005290| 63 6f 6d 70 69 6c 65 2d | 6b 69 6c 6c 29 20 28 67 |compile-|kill) (g|
|000052a0| 65 74 2d 62 75 66 66 65 | 72 20 22 2a 63 6f 6d 70 |et-buffe|r "*comp|
|000052b0| 69 6c 61 74 69 6f 6e 2a | 22 29 29 5d 20 5b 22 4e |ilation*|"))] ["N|
|000052c0| 65 78 74 20 65 72 72 6f | 72 22 20 6e 65 78 74 2d |ext erro|r" next-|
|000052d0| 65 72 72 6f 72 20 28 67 | 65 74 2d 62 75 66 66 65 |error (g|et-buffe|
|000052e0| 72 20 22 2a 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2a |r "*comp|ilation*|
|000052f0| 22 29 5d 20 5b 22 43 68 | 65 63 6b 20 73 79 6e 74 |")] ["Ch|eck synt|
|00005300| 61 78 22 20 63 70 65 72 | 6c 2d 63 68 65 63 6b 2d |ax" cper|l-check-|
|00005310| 73 79 6e 74 61 78 20 28 | 66 62 6f 75 6e 64 70 20 |syntax (|fboundp |
|00005320| 27 6d 6f 64 65 2d 63 6f | 6d 70 69 6c 65 29 5d 20 |'mode-co|mpile)] |
|00005330| 22 2d 2d 2d 2d 22 20 5b | 22 44 65 62 75 67 67 65 |"----" [|"Debugge|
|00005340| 72 22 20 63 70 65 72 6c | 2d 64 62 20 74 5d 20 22 |r" cperl|-db t] "|
|00005350| 2d 2d 2d 2d 22 20 28 22 | 54 6f 6f 6c 73 22 20 5b |----" ("|Tools" [|
|00005360| 22 49 6e 73 65 72 74 20 | 73 70 61 63 65 73 20 69 |"Insert |spaces i|
|00005370| 66 20 6e 65 65 64 65 64 | 22 20 63 70 65 72 6c 2d |f needed|" cperl-|
|00005380| 66 69 6e 64 2d 62 61 64 | 2d 73 74 79 6c 65 20 74 |find-bad|-style t|
|00005390| 5d 20 5b 22 43 6c 61 73 | 73 20 48 69 65 72 61 72 |] ["Clas|s Hierar|
|000053a0| 63 68 79 20 66 72 6f 6d | 20 54 41 47 53 22 20 63 |chy from| TAGS" c|
|000053b0| 70 65 72 6c 2d 74 61 67 | 73 2d 68 69 65 72 2d 69 |perl-tag|s-hier-i|
|000053c0| 6e 69 74 20 74 5d 20 28 | 22 54 61 67 73 22 20 5b |nit t] (|"Tags" [|
|000053d0| 22 43 72 65 61 74 65 20 | 74 61 67 73 20 66 6f 72 |"Create |tags for|
|000053e0| 20 63 75 72 72 65 6e 74 | 20 66 69 6c 65 22 20 63 | current| file" c|
|000053f0| 70 65 72 6c 2d 65 74 61 | 67 73 20 74 5d 20 5b 22 |perl-eta|gs t] ["|
|00005400| 41 64 64 20 74 61 67 73 | 20 66 6f 72 20 63 75 72 |Add tags| for cur|
|00005410| 72 65 6e 74 20 66 69 6c | 65 22 20 28 63 70 65 72 |rent fil|e" (cper|
|00005420| 6c 2d 65 74 61 67 73 20 | 74 29 20 74 5d 20 5b 22 |l-etags |t) t] ["|
|00005430| 43 72 65 61 74 65 20 74 | 61 67 73 20 66 6f 72 20 |Create t|ags for |
|00005440| 50 65 72 6c 20 66 69 6c | 65 73 20 69 6e 20 64 69 |Perl fil|es in di|
|00005450| 72 65 63 74 6f 72 79 22 | 20 28 63 70 65 72 6c 2d |rectory"| (cperl-|
|00005460| 65 74 61 67 73 20 6e 69 | 6c 20 74 29 20 74 5d 20 |etags ni|l t) t] |
|00005470| 5b 22 41 64 64 20 74 61 | 67 73 20 66 6f 72 20 50 |["Add ta|gs for P|
|00005480| 65 72 6c 20 66 69 6c 65 | 73 20 69 6e 20 64 69 72 |erl file|s in dir|
|00005490| 65 63 74 6f 72 79 22 20 | 28 63 70 65 72 6c 2d 65 |ectory" |(cperl-e|
|000054a0| 74 61 67 73 20 74 20 74 | 29 20 74 5d 20 5b 22 43 |tags t t|) t] ["C|
|000054b0| 72 65 61 74 65 20 74 61 | 67 73 20 66 6f 72 20 50 |reate ta|gs for P|
|000054c0| 65 72 6c 20 66 69 6c 65 | 73 20 69 6e 20 28 73 75 |erl file|s in (su|
|000054d0| 62 29 64 69 72 65 63 74 | 6f 72 69 65 73 22 20 28 |b)direct|ories" (|
|000054e0| 63 70 65 72 6c 2d 65 74 | 61 67 73 20 6e 69 6c 20 |cperl-et|ags nil |
|000054f0| 27 72 65 63 75 72 73 69 | 76 65 29 20 74 5d 20 5b |'recursi|ve) t] [|
|00005500| 22 41 64 64 20 74 61 67 | 73 20 66 6f 72 20 50 65 |"Add tag|s for Pe|
|00005510| 72 6c 20 66 69 6c 65 73 | 20 69 6e 20 28 73 75 62 |rl files| in (sub|
|00005520| 29 64 69 72 65 63 74 6f | 72 69 65 73 22 20 28 63 |)directo|ries" (c|
|00005530| 70 65 72 6c 2d 65 74 61 | 67 73 20 74 20 27 72 65 |perl-eta|gs t 're|
|00005540| 63 75 72 73 69 76 65 29 | 20 74 5d 29 20 5b 22 52 |cursive)| t]) ["R|
|00005550| 65 63 61 6c 63 75 6c 61 | 74 65 20 50 4f 44 73 20 |ecalcula|te PODs |
|00005560| 61 6e 64 20 48 45 52 45 | 73 22 20 63 70 65 72 6c |and HERE|s" cperl|
|00005570| 2d 66 69 6e 64 2d 70 6f | 64 73 2d 68 65 72 65 73 |-find-po|ds-heres|
|00005580| 20 74 5d 20 5b 22 48 65 | 6c 70 20 6f 6e 20 66 75 | t] ["He|lp on fu|
|00005590| 6e 63 74 69 6f 6e 22 20 | 63 70 65 72 6c 2d 69 6e |nction" |cperl-in|
|000055a0| 66 6f 2d 6f 6e 2d 63 6f | 6d 6d 61 6e 64 20 74 5d |fo-on-co|mmand t]|
|000055b0| 20 5b 22 48 65 6c 70 20 | 6f 6e 20 66 75 6e 63 74 | ["Help |on funct|
|000055c0| 69 6f 6e 20 61 74 20 70 | 6f 69 6e 74 22 20 63 70 |ion at p|oint" cp|
|000055d0| 65 72 6c 2d 69 6e 66 6f | 2d 6f 6e 2d 63 75 72 72 |erl-info|-on-curr|
|000055e0| 65 6e 74 2d 63 6f 6d 6d | 61 6e 64 20 74 5d 20 5b |ent-comm|and t] [|
|000055f0| 22 48 65 6c 70 20 6f 6e | 20 73 79 6d 62 6f 6c 20 |"Help on| symbol |
|00005600| 61 74 20 70 6f 69 6e 74 | 22 20 63 70 65 72 6c 2d |at point|" cperl-|
|00005610| 67 65 74 2d 68 65 6c 70 | 20 74 5d 29 20 28 22 54 |get-help| t]) ("T|
|00005620| 6f 67 67 6c 65 2e 2e 2e | 22 20 5b 22 41 75 74 6f |oggle...|" ["Auto|
|00005630| 2d 68 65 6c 70 22 20 63 | 70 65 72 6c 2d 74 6f 67 |-help" c|perl-tog|
|00005640| 67 6c 65 2d 68 65 6c 70 | 20 3a 73 74 79 6c 65 20 |gle-help| :style |
|00005650| 74 6f 67 67 6c 65 20 3a | 73 65 6c 65 63 74 65 64 |toggle :|selected|
|00005660| 20 63 70 65 72 6c 2d 68 | 65 6c 70 5d 20 5b 22 41 | cperl-h|elp] ["A|
|00005670| 75 74 6f 20 6e 65 77 6c | 69 6e 65 22 20 63 70 65 |uto newl|ine" cpe|
|00005680| 72 6c 2d 74 6f 67 67 6c | 65 2d 61 75 74 6f 2d 6e |rl-toggl|e-auto-n|
|00005690| 65 77 6c 69 6e 65 20 74 | 5d 20 5b 22 45 6c 65 63 |ewline t|] ["Elec|
|000056a0| 74 72 69 63 20 70 61 72 | 65 6e 73 22 20 63 70 65 |tric par|ens" cpe|
|000056b0| 72 6c 2d 74 6f 67 67 6c | 65 2d 65 6c 65 63 74 72 |rl-toggl|e-electr|
|000056c0| 69 63 20 74 5d 20 5b 22 | 45 6c 65 63 74 72 69 63 |ic t] ["|Electric|
|000056d0| 20 6b 65 79 77 6f 72 64 | 73 22 20 63 70 65 72 6c | keyword|s" cperl|
|000056e0| 2d 74 6f 67 67 6c 65 2d | 61 62 62 72 65 76 20 74 |-toggle-|abbrev t|
|000056f0| 5d 29 20 28 22 49 6e 64 | 65 6e 74 20 73 74 79 6c |]) ("Ind|ent styl|
|00005700| 65 73 2e 2e 2e 22 20 5b | 22 47 4e 55 22 20 28 63 |es..." [|"GNU" (c|
|00005710| 70 65 72 6c 2d 73 65 74 | 2d 73 74 79 6c 65 20 22 |perl-set|-style "|
|00005720| 47 4e 55 22 29 20 74 5d | 20 5b 22 43 2b 2b 22 20 |GNU") t]| ["C++" |
|00005730| 28 63 70 65 72 6c 2d 73 | 65 74 2d 73 74 79 6c 65 |(cperl-s|et-style|
|00005740| 20 22 43 2b 2b 22 29 20 | 74 5d 20 5b 22 46 53 46 | "C++") |t] ["FSF|
|00005750| 22 20 28 63 70 65 72 6c | 2d 73 65 74 2d 73 74 79 |" (cperl|-set-sty|
|00005760| 6c 65 20 22 46 53 46 22 | 29 20 74 5d 20 5b 22 42 |le "FSF"|) t] ["B|
|00005770| 53 44 22 20 28 63 70 65 | 72 6c 2d 73 65 74 2d 73 |SD" (cpe|rl-set-s|
|00005780| 74 79 6c 65 20 22 42 53 | 44 22 29 20 74 5d 20 5b |tyle "BS|D") t] [|
|00005790| 22 57 68 69 74 65 73 6d | 69 74 68 22 20 28 63 70 |"Whitesm|ith" (cp|
|000057a0| 65 72 6c 2d 73 65 74 2d | 73 74 79 6c 65 20 22 57 |erl-set-|style "W|
|000057b0| 68 69 74 65 73 6d 69 74 | 68 22 29 20 74 5d 29 20 |hitesmit|h") t]) |
|000057c0| 28 22 4d 69 63 72 6f 2d | 64 6f 63 73 22 20 5b 22 |("Micro-|docs" ["|
|000057d0| 54 69 70 73 22 20 28 64 | 65 73 63 72 69 62 65 2d |Tips" (d|escribe-|
|000057e0| 76 61 72 69 61 62 6c 65 | 20 27 63 70 65 72 6c 2d |variable| 'cperl-|
|000057f0| 74 69 70 73 29 20 74 5d | 20 5b 22 50 72 6f 62 6c |tips) t]| ["Probl|
|00005800| 65 6d 73 22 20 28 64 65 | 73 63 72 69 62 65 2d 76 |ems" (de|scribe-v|
|00005810| 61 72 69 61 62 6c 65 20 | 27 63 70 65 72 6c 2d 70 |ariable |'cperl-p|
|00005820| 72 6f 62 6c 65 6d 73 29 | 20 74 5d 20 5b 22 4e 6f |roblems)| t] ["No|
|00005830| 6e 2d 70 72 6f 62 6c 65 | 6d 73 22 20 28 64 65 73 |n-proble|ms" (des|
|00005840| 63 72 69 62 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |cribe-va|riable '|
|00005850| 63 70 65 72 6c 2d 6e 6f | 6e 2d 70 72 6f 62 6c 65 |cperl-no|n-proble|
|00005860| 6d 73 29 20 74 5d 20 5b | 22 50 72 61 69 73 65 22 |ms) t] [|"Praise"|
|00005870| 20 28 64 65 73 63 72 69 | 62 65 2d 76 61 72 69 61 | (descri|be-varia|
|00005880| 62 6c 65 20 27 63 70 65 | 72 6c 2d 70 72 61 69 73 |ble 'cpe|rl-prais|
|00005890| 65 29 20 74 5d 29 29 5d | 20 35 29 20 28 28 65 72 |e) t]))]| 5) ((er|
|000058a0| 72 6f 72 29 29 5d 20 35 | 29 0a 23 40 31 34 31 20 |ror))] 5|).#@141 |
|000058b0| 44 69 73 70 6c 61 79 20 | 74 68 65 20 72 65 73 75 |Display |the resu|
|000058c0| 6c 74 20 6f 66 20 65 78 | 70 61 6e 64 69 6e 67 20 |lt of ex|panding |
|000058d0| 61 6c 6c 20 43 20 6d 61 | 63 72 6f 73 20 6f 63 63 |all C ma|cros occ|
|000058e0| 75 72 72 69 6e 67 20 69 | 6e 20 74 68 65 20 72 65 |urring i|n the re|
|000058f0| 67 69 6f 6e 2e 0a 54 68 | 65 20 65 78 70 61 6e 73 |gion..Th|e expans|
|00005900| 69 6f 6e 20 69 73 20 65 | 6e 74 69 72 65 6c 79 20 |ion is e|ntirely |
|00005910| 63 6f 72 72 65 63 74 20 | 62 65 63 61 75 73 65 20 |correct |because |
|00005920| 69 74 20 75 73 65 73 20 | 74 68 65 20 43 20 70 72 |it uses |the C pr|
|00005930| 65 70 72 6f 63 65 73 73 | 6f 72 2e 1f 0a 28 61 75 |eprocess|or...(au|
|00005940| 74 6f 6c 6f 61 64 20 27 | 63 2d 6d 61 63 72 6f 2d |toload '|c-macro-|
|00005950| 65 78 70 61 6e 64 20 22 | 63 6d 61 63 65 78 70 22 |expand "|cmacexp"|
|00005960| 20 27 28 23 24 20 2e 20 | 32 32 37 30 34 29 20 74 | '(#$ . |22704) t|
|00005970| 29 0a 23 40 34 34 20 53 | 79 6e 74 61 78 20 74 61 |).#@44 S|yntax ta|
|00005980| 62 6c 65 20 69 6e 20 75 | 73 65 20 69 6e 20 43 70 |ble in u|se in Cp|
|00005990| 65 72 6c 2d 6d 6f 64 65 | 20 62 75 66 66 65 72 73 |erl-mode| buffers|
|000059a0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 70 65 72 6c |...(defv|ar cperl|
|000059b0| 2d 6d 6f 64 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 |-mode-sy|ntax-tab|
|000059c0| 6c 65 20 6e 69 6c 20 28 | 23 24 20 2e 20 32 32 39 |le nil (|#$ . 229|
|000059d0| 30 33 29 29 0a 23 40 35 | 35 20 53 79 6e 74 61 78 |03)).#@5|5 Syntax|
|000059e0| 20 74 61 62 6c 65 20 69 | 6e 20 75 73 65 20 69 6e | table i|n use in|
|000059f0| 20 43 70 65 72 6c 2d 6d | 6f 64 65 20 73 74 72 69 | Cperl-m|ode stri|
|00005a00| 6e 67 2d 6c 69 6b 65 20 | 63 68 75 6e 6b 73 2e 1f |ng-like |chunks..|
|00005a10| 0a 28 64 65 66 76 61 72 | 20 63 70 65 72 6c 2d 73 |.(defvar| cperl-s|
|00005a20| 74 72 69 6e 67 2d 73 79 | 6e 74 61 78 2d 74 61 62 |tring-sy|ntax-tab|
|00005a30| 6c 65 20 6e 69 6c 20 28 | 23 24 20 2e 20 32 33 30 |le nil (|#$ . 230|
|00005a40| 30 32 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |02)).(by|te-code |
|00005a50| 22 08 84 86 00 c1 20 10 | c2 c3 c4 08 23 88 c2 c5 |"..... .|....#...|
|00005a60| c6 08 23 88 c2 c7 c6 08 | 23 88 c2 c8 c6 08 23 88 |..#.....|#.....#.|
|00005a70| c2 c9 c6 08 23 88 c2 ca | c6 08 23 88 c2 cb c6 08 |....#...|..#.....|
|00005a80| 23 88 c2 cc c6 08 23 88 | c2 cd c6 08 23 88 c2 ce |#.....#.|....#...|
|00005a90| c6 08 23 88 c2 cf c4 08 | 23 88 c2 d0 d1 08 23 88 |..#.....|#.....#.|
|00005aa0| c2 d2 d3 08 23 88 c2 d4 | d5 08 23 88 c2 d6 d5 08 |....#...|..#.....|
|00005ab0| 23 88 c2 d7 d8 08 23 88 | c2 d9 da 08 23 88 c2 db |#.....#.|....#...|
|00005ac0| c6 08 23 88 dc 08 21 16 | 1d c2 cf c6 0e 1d 23 88 |..#...!.|......#.|
|00005ad0| c2 d2 c6 0e 1d 23 88 c1 | 87 22 20 5b 63 70 65 72 |.....#..|." [cper|
|00005ae0| 6c 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |l-mode-s|yntax-ta|
|00005af0| 62 6c 65 20 6d 61 6b 65 | 2d 73 79 6e 74 61 78 2d |ble make|-syntax-|
|00005b00| 74 61 62 6c 65 20 6d 6f | 64 69 66 79 2d 73 79 6e |table mo|dify-syn|
|00005b10| 74 61 78 2d 65 6e 74 72 | 79 20 3f 5c 5c 20 22 5c |tax-entr|y ?\\ "\|
|00005b20| 5c 22 20 3f 5c 2f 20 22 | 2e 22 20 3f 5c 2a 20 3f |\" ?\/ "|." ?\* ?|
|00005b30| 5c 2b 20 3f 5c 2d 20 3f | 5c 3d 20 3f 5c 25 20 3f |\+ ?\- ?|\= ?\% ?|
|00005b40| 5c 3c 20 3f 5c 3e 20 3f | 5c 26 20 3f 5c 24 20 3f |\< ?\> ?|\& ?\$ ?|
|00005b50| 5c 6e 20 22 3e 22 20 3f | 5c 23 20 22 3c 22 20 3f |\n ">" ?|\# "<" ?|
|00005b60| 5c 27 20 22 5c 22 22 20 | 3f 5c 60 20 3f 5c 5f 20 |\' "\"" |?\` ?\_ |
|00005b70| 22 77 22 20 3f 5c 3a 20 | 22 5f 22 20 3f 5c 7c 20 |"w" ?\: |"_" ?\| |
|00005b80| 63 6f 70 79 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |copy-syn|tax-tabl|
|00005b90| 65 20 63 70 65 72 6c 2d | 73 74 72 69 6e 67 2d 73 |e cperl-|string-s|
|00005ba0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 5d 20 34 29 0a |yntax-ta|ble] 4).|
|00005bb0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 70 65 72 6c |(defalia|s 'cperl|
|00005bc0| 2d 76 61 6c 20 23 5b 28 | 73 79 6d 62 6f 6c 20 26 |-val #[(|symbol &|
|00005bd0| 6f 70 74 69 6f 6e 61 6c | 20 64 65 66 61 75 6c 74 |optional| default|
|00005be0| 20 68 61 69 72 79 29 20 | 22 08 4a c1 61 ab 82 5c | hairy) |".J.a..\|
|00005bf0| 6e 87 0b ab 85 0c ae 84 | c5 87 08 4a 87 22 20 5b |n.......|...J." [|
|00005c00| 73 79 6d 62 6f 6c 20 6e | 75 6c 6c 20 64 65 66 61 |symbol n|ull defa|
|00005c10| 75 6c 74 20 63 70 65 72 | 6c 2d 68 61 69 72 79 20 |ult cper|l-hairy |
|00005c20| 68 61 69 72 79 20 74 5d | 20 32 5d 29 0a 28 62 79 |hairy t]| 2]).(by|
|00005c30| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00005c40| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 88 c7 c8 c9 5c |...\"...|..#....\|
|00005c50| 22 87 22 20 5b 63 70 65 | 72 6c 2d 76 61 6c 20 62 |"." [cpe|rl-val b|
|00005c60| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 20 28 6e |yte-opti|mizer (n|
|00005c70| 69 6c 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |il byte-|compile-|
|00005c80| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 29 20 65 |inline-e|xpand) e|
|00005c90| 72 72 6f 72 20 22 25 73 | 20 61 6c 72 65 61 64 79 |rror "%s| already|
|00005ca0| 20 68 61 73 20 61 20 62 | 79 74 65 2d 6f 70 74 69 | has a b|yte-opti|
|00005cb0| 6d 69 7a 65 72 2c 20 63 | 61 6e 27 74 20 6d 61 6b |mizer, c|an't mak|
|00005cc0| 65 20 69 74 20 69 6e 6c | 69 6e 65 22 20 70 75 74 |e it inl|ine" put|
|00005cd0| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 69 6e | byte-co|mpile-in|
|00005ce0| 6c 69 6e 65 2d 65 78 70 | 61 6e 64 20 64 65 66 61 |line-exp|and defa|
|00005cf0| 6c 69 61 73 20 70 65 72 | 6c 2d 6d 6f 64 65 20 63 |lias per|l-mode c|
|00005d00| 70 65 72 6c 2d 6d 6f 64 | 65 5d 20 34 29 0a 23 40 |perl-mod|e] 4).#@|
|00005d10| 36 36 32 36 20 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |6626 Maj|or mode |
|00005d20| 66 6f 72 20 65 64 69 74 | 69 6e 67 20 50 65 72 6c |for edit|ing Perl|
|00005d30| 20 63 6f 64 65 2e 0a 45 | 78 70 72 65 73 73 69 6f | code..E|xpressio|
|00005d40| 6e 20 61 6e 64 20 6c 69 | 73 74 20 63 6f 6d 6d 61 |n and li|st comma|
|00005d50| 6e 64 73 20 75 6e 64 65 | 72 73 74 61 6e 64 20 61 |nds unde|rstand a|
|00005d60| 6c 6c 20 43 20 62 72 61 | 63 6b 65 74 73 2e 0a 54 |ll C bra|ckets..T|
|00005d70| 61 62 20 69 6e 64 65 6e | 74 73 20 66 6f 72 20 50 |ab inden|ts for P|
|00005d80| 65 72 6c 20 63 6f 64 65 | 2e 0a 50 61 72 61 67 72 |erl code|..Paragr|
|00005d90| 61 70 68 73 20 61 72 65 | 20 73 65 70 61 72 61 74 |aphs are| separat|
|00005da0| 65 64 20 62 79 20 62 6c | 61 6e 6b 20 6c 69 6e 65 |ed by bl|ank line|
|00005db0| 73 20 6f 6e 6c 79 2e 0a | 44 65 6c 65 74 65 20 63 |s only..|Delete c|
|00005dc0| 6f 6e 76 65 72 74 73 20 | 74 61 62 73 20 74 6f 20 |onverts |tabs to |
|00005dd0| 73 70 61 63 65 73 20 61 | 73 20 69 74 20 6d 6f 76 |spaces a|s it mov|
|00005de0| 65 73 20 62 61 63 6b 2e | 0a 0a 56 61 72 69 6f 75 |es back.|..Variou|
|00005df0| 73 20 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |s charac|ters in |
|00005e00| 50 65 72 6c 20 61 6c 6d | 6f 73 74 20 61 6c 77 61 |Perl alm|ost alwa|
|00005e10| 79 73 20 63 6f 6d 65 20 | 69 6e 20 70 61 69 72 73 |ys come |in pairs|
|00005e20| 3a 20 7b 7d 2c 20 28 29 | 2c 20 5b 5d 2c 0a 73 6f |: {}, ()|, [],.so|
|00005e30| 6d 65 74 69 6d 65 73 20 | 3c 3e 2e 20 57 68 65 6e |metimes |<>. When|
|00005e40| 20 74 68 65 20 75 73 65 | 72 20 74 79 70 65 73 20 | the use|r types |
|00005e50| 74 68 65 20 66 69 72 73 | 74 2c 20 73 68 65 20 67 |the firs|t, she g|
|00005e60| 65 74 73 20 74 68 65 20 | 73 65 63 6f 6e 64 20 61 |ets the |second a|
|00005e70| 73 0a 77 65 6c 6c 2c 20 | 77 69 74 68 20 6f 70 74 |s.well, |with opt|
|00005e80| 69 6f 6e 61 6c 20 73 70 | 65 63 69 61 6c 20 66 6f |ional sp|ecial fo|
|00005e90| 72 6d 61 74 74 69 6e 67 | 20 64 6f 6e 65 20 6f 6e |rmatting| done on|
|00005ea0| 20 7b 7d 2e 20 20 28 44 | 69 73 61 62 6c 65 64 20 | {}. (D|isabled |
|00005eb0| 62 79 0a 64 65 66 61 75 | 6c 74 2e 29 20 20 59 6f |by.defau|lt.) Yo|
|00005ec0| 75 20 63 61 6e 20 61 6c | 77 61 79 73 20 71 75 6f |u can al|ways quo|
|00005ed0| 74 65 20 28 77 69 74 68 | 20 5c 5b 71 75 6f 74 65 |te (with| \[quote|
|00005ee0| 64 2d 69 6e 73 65 72 74 | 5d 29 20 74 68 65 20 6c |d-insert|]) the l|
|00005ef0| 65 66 74 0a 22 70 61 72 | 65 6e 22 20 74 6f 20 61 |eft."par|en" to a|
|00005f00| 76 6f 69 64 20 74 68 65 | 20 65 78 70 61 6e 73 69 |void the| expansi|
|00005f10| 6f 6e 2e 20 54 68 65 20 | 70 72 6f 63 65 73 73 69 |on. The |processi|
|00005f20| 6e 67 20 6f 66 20 3c 20 | 69 73 20 73 70 65 63 69 |ng of < |is speci|
|00005f30| 61 6c 2c 0a 73 69 6e 63 | 65 20 6d 6f 73 74 20 74 |al,.sinc|e most t|
|00005f40| 68 65 20 74 69 6d 65 20 | 79 6f 75 20 6d 65 61 6e |he time |you mean|
|00005f50| 20 22 6c 65 73 73 22 2e | 20 43 70 65 72 6c 20 6d | "less".| Cperl m|
|00005f60| 6f 64 65 20 74 72 69 65 | 73 20 74 6f 20 67 75 65 |ode trie|s to gue|
|00005f70| 73 73 0a 77 68 65 74 68 | 65 72 20 79 6f 75 20 77 |ss.wheth|er you w|
|00005f80| 61 6e 74 20 74 6f 20 74 | 79 70 65 20 70 61 69 72 |ant to t|ype pair|
|00005f90| 20 3c 3e 2c 20 61 6e 64 | 20 69 6e 73 65 72 74 73 | <>, and| inserts|
|00005fa0| 20 69 73 20 69 66 20 69 | 74 0a 61 70 70 72 6f 70 | is if i|t.approp|
|00005fb0| 72 69 61 74 65 2e 20 59 | 6f 75 20 63 61 6e 20 73 |riate. Y|ou can s|
|00005fc0| 65 74 20 60 63 70 65 72 | 6c 2d 65 6c 65 63 74 72 |et `cper|l-electr|
|00005fd0| 69 63 2d 70 61 72 65 6e | 73 2d 73 74 72 69 6e 67 |ic-paren|s-string|
|00005fe0| 27 20 74 6f 20 74 68 65 | 20 73 74 72 69 6e 67 20 |' to the| string |
|00005ff0| 74 68 61 74 0a 63 6f 6e | 74 61 69 6e 73 20 74 68 |that.con|tains th|
|00006000| 65 20 70 61 72 65 6e 74 | 68 73 20 66 72 6f 6d 20 |e parent|hs from |
|00006010| 74 68 65 20 61 62 6f 76 | 65 20 6c 69 73 74 20 79 |the abov|e list y|
|00006020| 6f 75 20 77 61 6e 74 20 | 74 6f 20 62 65 20 65 6c |ou want |to be el|
|00006030| 65 63 74 72 69 63 61 6c | 2e 0a 45 6c 65 63 74 72 |ectrical|..Electr|
|00006040| 69 63 69 74 79 20 6f 66 | 20 70 61 72 65 6e 74 68 |icity of| parenth|
|00006050| 73 20 69 73 20 63 6f 6e | 74 72 6f 6c 6c 65 64 20 |s is con|trolled |
|00006060| 62 79 20 60 63 70 65 72 | 6c 2d 65 6c 65 63 74 72 |by `cper|l-electr|
|00006070| 69 63 2d 70 61 72 65 6e | 73 27 2e 0a 59 6f 75 20 |ic-paren|s'..You |
|00006080| 6d 61 79 20 61 6c 73 6f | 20 73 65 74 20 60 63 70 |may also| set `cp|
|00006090| 65 72 6c 2d 65 6c 65 63 | 74 72 69 63 2d 70 61 72 |erl-elec|tric-par|
|000060a0| 65 6e 73 2d 6d 61 72 6b | 27 20 74 6f 20 68 61 76 |ens-mark|' to hav|
|000060b0| 65 20 65 6c 65 63 74 72 | 69 63 20 70 61 72 65 6e |e electr|ic paren|
|000060c0| 73 0a 6c 6f 6f 6b 20 66 | 6f 72 20 61 63 74 69 76 |s.look f|or activ|
|000060d0| 65 20 6d 61 72 6b 20 61 | 6e 64 20 22 65 6d 62 72 |e mark a|nd "embr|
|000060e0| 61 63 65 22 20 61 20 72 | 65 67 69 6f 6e 20 69 66 |ace" a r|egion if|
|000060f0| 20 70 6f 73 73 69 62 6c | 65 2e 27 0a 0a 43 50 65 | possibl|e.'..CPe|
|00006100| 72 6c 20 6d 6f 64 65 20 | 70 72 6f 76 69 64 65 73 |rl mode |provides|
|00006110| 20 65 78 70 61 6e 73 69 | 6f 6e 20 6f 66 20 74 68 | expansi|on of th|
|00006120| 65 20 50 65 72 6c 20 63 | 6f 6e 74 72 6f 6c 20 63 |e Perl c|ontrol c|
|00006130| 6f 6e 73 74 72 75 63 74 | 73 3a 0a 20 20 20 69 66 |onstruct|s:. if|
|00006140| 2c 20 65 6c 73 65 2c 20 | 65 6c 73 69 66 2c 20 75 |, else, |elsif, u|
|00006150| 6e 6c 65 73 73 2c 20 77 | 68 69 6c 65 2c 20 75 6e |nless, w|hile, un|
|00006160| 74 69 6c 2c 20 66 6f 72 | 2c 20 61 6e 64 20 66 6f |til, for|, and fo|
|00006170| 72 65 61 63 68 2e 0a 3d | 3d 3d 3d 3d 3d 3d 3d 3d |reach..=|========|
|00006180| 28 44 69 73 61 62 6c 65 | 64 20 62 79 20 64 65 66 |(Disable|d by def|
|00006190| 61 75 6c 74 2c 20 73 65 | 65 20 60 63 70 65 72 6c |ault, se|e `cperl|
|000061a0| 2d 65 6c 65 63 74 72 69 | 63 2d 6b 65 79 77 6f 72 |-electri|c-keywor|
|000061b0| 64 73 27 2e 29 0a 54 68 | 65 20 75 73 65 72 20 74 |ds'.).Th|e user t|
|000061c0| 79 70 65 73 20 74 68 65 | 20 6b 65 79 77 6f 72 64 |ypes the| keyword|
|000061d0| 20 69 6d 6d 65 64 69 61 | 74 65 6c 79 20 66 6f 6c | immedia|tely fol|
|000061e0| 6c 6f 77 65 64 20 62 79 | 20 61 20 73 70 61 63 65 |lowed by| a space|
|000061f0| 2c 20 77 68 69 63 68 20 | 63 61 75 73 65 73 0a 74 |, which |causes.t|
|00006200| 68 65 20 63 6f 6e 73 74 | 72 75 63 74 20 74 6f 20 |he const|ruct to |
|00006210| 62 65 20 65 78 70 61 6e | 64 65 64 2c 20 61 6e 64 |be expan|ded, and|
|00006220| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 70 6f 73 | the use|r is pos|
|00006230| 69 74 69 6f 6e 65 64 20 | 77 68 65 72 65 20 73 68 |itioned |where sh|
|00006240| 65 20 69 73 20 6d 6f 73 | 74 0a 6c 69 6b 65 6c 79 |e is mos|t.likely|
|00006250| 20 74 6f 20 77 61 6e 74 | 20 74 6f 20 62 65 2e 0a | to want| to be..|
|00006260| 65 67 2e 20 77 68 65 6e | 20 74 68 65 20 75 73 65 |eg. when| the use|
|00006270| 72 20 74 79 70 65 73 20 | 61 20 73 70 61 63 65 20 |r types |a space |
|00006280| 66 6f 6c 6c 6f 77 69 6e | 67 20 22 69 66 22 20 74 |followin|g "if" t|
|00006290| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 61 70 70 |he follo|wing app|
|000062a0| 65 61 72 73 20 69 6e 0a | 74 68 65 20 62 75 66 66 |ears in.|the buff|
|000062b0| 65 72 3a 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |er:. | |
|000062c0| 69 66 20 28 29 20 7b 20 | 20 20 20 20 6f 72 20 20 |if () { | or |
|000062d0| 20 69 66 20 28 29 0a 20 | 20 20 20 20 20 20 20 20 | if (). | |
|000062e0| 20 20 20 7d 20 20 20 20 | 20 20 20 20 20 20 20 20 | } | |
|000062f0| 20 20 20 20 20 7b 0a 20 | 20 20 20 20 20 20 20 20 | {. | |
|00006300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006310| 20 20 20 20 20 7d 0a 61 | 6e 64 20 74 68 65 20 63 | }.a|nd the c|
|00006320| 75 72 73 6f 72 20 69 73 | 20 62 65 74 77 65 65 6e |ursor is| between|
|00006330| 20 74 68 65 20 70 61 72 | 65 6e 74 68 65 73 65 73 | the par|entheses|
|00006340| 2e 20 20 54 68 65 20 75 | 73 65 72 20 63 61 6e 20 |. The u|ser can |
|00006350| 74 68 65 6e 20 74 79 70 | 65 20 73 6f 6d 65 0a 62 |then typ|e some.b|
|00006360| 6f 6f 6c 65 61 6e 20 65 | 78 70 72 65 73 73 69 6f |oolean e|xpressio|
|00006370| 6e 20 77 69 74 68 69 6e | 20 74 68 65 20 70 61 72 |n within| the par|
|00006380| 65 6e 73 2e 20 20 48 61 | 76 69 6e 67 20 64 6f 6e |ens. Ha|ving don|
|00006390| 65 20 74 68 61 74 2c 20 | 74 79 70 69 6e 67 0a 5c |e that, |typing.\|
|000063a0| 5b 63 70 65 72 6c 2d 6c | 69 6e 65 66 65 65 64 5d |[cperl-l|inefeed]|
|000063b0| 20 70 6c 61 63 65 73 20 | 79 6f 75 2c 20 61 70 70 | places |you, app|
|000063c0| 72 6f 70 72 69 61 74 65 | 6c 79 20 69 6e 64 65 6e |ropriate|ly inden|
|000063d0| 74 65 64 20 6f 6e 20 61 | 20 6e 65 77 20 6c 69 6e |ted on a| new lin|
|000063e0| 65 0a 62 65 74 77 65 65 | 6e 20 74 68 65 20 62 72 |e.betwee|n the br|
|000063f0| 61 63 65 73 2e 20 49 66 | 20 43 50 65 72 6c 20 64 |aces. If| CPerl d|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
