home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 12.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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
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 31 3a 31 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:16 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 70 65 72 6c 2d 6d | 6f 64 65 2e 65 6c 0a 3b |s/perl-m|ode.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 70 65 72 6c | (erro|r "`perl|
|000001f0| 2d 6d 6f 64 65 2e 65 6c | 27 20 77 61 73 20 63 6f |-mode.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 23 40 34 33 20 41 62 62 |nil))...|#@43 Abb|
|00000260| 72 65 76 20 74 61 62 6c | 65 20 69 6e 20 75 73 65 |rev tabl|e in use|
|00000270| 20 69 6e 20 70 65 72 6c | 2d 6d 6f 64 65 20 62 75 | in perl|-mode bu|
|00000280| 66 66 65 72 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |ffers...|(defvar |
|00000290| 70 65 72 6c 2d 6d 6f 64 | 65 2d 61 62 62 72 65 76 |perl-mod|e-abbrev|
|000002a0| 2d 74 61 62 6c 65 20 6e | 69 6c 20 28 23 24 20 2e |-table n|il (#$ .|
|000002b0| 20 36 30 35 29 29 0a 28 | 64 65 66 69 6e 65 2d 61 | 605)).(|define-a|
|000002c0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 27 70 65 72 |bbrev-ta|ble 'per|
|000002d0| 6c 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 2d 74 61 |l-mode-a|bbrev-ta|
|000002e0| 62 6c 65 20 6e 69 6c 29 | 0a 23 40 32 37 20 4b 65 |ble nil)|.#@27 Ke|
|000002f0| 79 6d 61 70 20 75 73 65 | 64 20 69 6e 20 50 65 72 |ymap use|d in Per|
|00000300| 6c 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 76 61 72 |l mode..|.(defvar|
|00000310| 20 70 65 72 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 6e | perl-mo|de-map n|
|00000320| 69 6c 20 28 23 24 20 2e | 20 37 35 30 29 29 0a 28 |il (#$ .| 750)).(|
|00000330| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ac be c1 20 |byte-cod|e ".... |
|00000340| 10 c2 08 c0 5c 22 88 c3 | 08 c4 c5 23 88 c3 08 c6 |....\"..|...#....|
|00000350| c5 23 88 c3 08 c7 c5 23 | 88 c3 08 c8 c5 23 88 c3 |.#.....#|.....#..|
|00000360| 08 c9 ca 23 88 c3 08 cb | cc 23 88 c3 08 cd ce 23 |...#....|.#.....#|
|00000370| 88 c3 08 cf d0 23 88 c3 | 08 d1 d2 23 88 c1 87 22 |.....#..|...#..."|
|00000380| 20 5b 70 65 72 6c 2d 6d | 6f 64 65 2d 6d 61 70 20 | [perl-m|ode-map |
|00000390| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|000003a0| 61 70 20 73 65 74 2d 6b | 65 79 6d 61 70 2d 6e 61 |ap set-k|eymap-na|
|000003b0| 6d 65 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 7b |me defin|e-key "{|
|000003c0| 22 20 65 6c 65 63 74 72 | 69 63 2d 70 65 72 6c 2d |" electr|ic-perl-|
|000003d0| 74 65 72 6d 69 6e 61 74 | 6f 72 20 22 7d 22 20 22 |terminat|or "}" "|
|000003e0| 3b 22 20 22 3a 22 20 22 | 1b 01 22 20 70 65 72 6c |;" ":" "|.." perl|
|000003f0| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 75 |-beginni|ng-of-fu|
|00000400| 6e 63 74 69 6f 6e 20 22 | 1b 05 22 20 70 65 72 6c |nction "|.." perl|
|00000410| 2d 65 6e 64 2d 6f 66 2d | 66 75 6e 63 74 69 6f 6e |-end-of-|function|
|00000420| 20 22 1b 08 22 20 6d 61 | 72 6b 2d 70 65 72 6c 2d | ".." ma|rk-perl-|
|00000430| 66 75 6e 63 74 69 6f 6e | 20 22 1b 11 22 20 69 6e |function| ".." in|
|00000440| 64 65 6e 74 2d 70 65 72 | 6c 2d 65 78 70 20 22 09 |dent-per|l-exp ".|
|00000450| 22 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 63 6f |" perl-i|ndent-co|
|00000460| 6d 6d 61 6e 64 5d 20 34 | 29 0a 23 40 31 34 31 20 |mmand] 4|).#@141 |
|00000470| 44 69 73 70 6c 61 79 20 | 74 68 65 20 72 65 73 75 |Display |the resu|
|00000480| 6c 74 20 6f 66 20 65 78 | 70 61 6e 64 69 6e 67 20 |lt of ex|panding |
|00000490| 61 6c 6c 20 43 20 6d 61 | 63 72 6f 73 20 6f 63 63 |all C ma|cros occ|
|000004a0| 75 72 72 69 6e 67 20 69 | 6e 20 74 68 65 20 72 65 |urring i|n the re|
|000004b0| 67 69 6f 6e 2e 0a 54 68 | 65 20 65 78 70 61 6e 73 |gion..Th|e expans|
|000004c0| 69 6f 6e 20 69 73 20 65 | 6e 74 69 72 65 6c 79 20 |ion is e|ntirely |
|000004d0| 63 6f 72 72 65 63 74 20 | 62 65 63 61 75 73 65 20 |correct |because |
|000004e0| 69 74 20 75 73 65 73 20 | 74 68 65 20 43 20 70 72 |it uses |the C pr|
|000004f0| 65 70 72 6f 63 65 73 73 | 6f 72 2e 1f 0a 28 61 75 |eprocess|or...(au|
|00000500| 74 6f 6c 6f 61 64 20 27 | 63 2d 6d 61 63 72 6f 2d |toload '|c-macro-|
|00000510| 65 78 70 61 6e 64 20 22 | 63 6d 61 63 65 78 70 22 |expand "|cmacexp"|
|00000520| 20 27 28 23 24 20 2e 20 | 31 31 33 36 29 20 74 29 | '(#$ . |1136) t)|
|00000530| 0a 23 40 34 33 20 53 79 | 6e 74 61 78 20 74 61 62 |.#@43 Sy|ntax tab|
|00000540| 6c 65 20 69 6e 20 75 73 | 65 20 69 6e 20 70 65 72 |le in us|e in per|
|00000550| 6c 2d 6d 6f 64 65 20 62 | 75 66 66 65 72 73 2e 1f |l-mode b|uffers..|
|00000560| 0a 28 64 65 66 76 61 72 | 20 70 65 72 6c 2d 6d 6f |.(defvar| perl-mo|
|00000570| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|00000580| 6e 69 6c 20 28 23 24 20 | 2e 20 31 33 33 34 29 29 |nil (#$ |. 1334))|
|00000590| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac e5 |.(byte-c|ode "...|
|000005a0| c1 c2 20 21 10 c3 c4 c5 | 08 23 88 c3 c6 c7 08 23 |.. !....|.#.....#|
|000005b0| 88 c3 c8 c9 08 23 88 c3 | ca cb 08 23 88 c3 cc cb |.....#..|...#....|
|000005c0| 08 23 88 c3 cd ce 08 23 | 88 c3 cf cb 08 23 88 c3 |.#.....#|.....#..|
|000005d0| d0 cb 08 23 88 c3 d1 cb | 08 23 88 c3 d2 cb 08 23 |...#....|.#.....#|
|000005e0| 88 c3 d3 cb 08 23 88 c3 | d4 cb 08 23 88 c3 d5 cb |.....#..|...#....|
|000005f0| 08 23 88 c3 d6 c9 08 23 | 88 c3 d7 ce 08 23 88 c3 |.#.....#|.....#..|
|00000600| d8 cb 08 23 88 c1 87 22 | 20 5b 70 65 72 6c 2d 6d |...#..."| [perl-m|
|00000610| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00000620| 20 6d 61 6b 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 | make-sy|ntax-tab|
|00000630| 6c 65 20 73 74 61 6e 64 | 61 72 64 2d 73 79 6e 74 |le stand|ard-synt|
|00000640| 61 78 2d 74 61 62 6c 65 | 20 6d 6f 64 69 66 79 2d |ax-table| modify-|
|00000650| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 3f 5c 6e |syntax-e|ntry ?\n|
|00000660| 20 22 3e 22 20 3f 5c 23 | 20 22 3c 22 20 3f 5c 24 | ">" ?\#| "<" ?\$|
|00000670| 20 22 5c 5c 22 20 3f 5c | 25 20 22 2e 22 20 3f 5c | "\\" ?\|% "." ?\|
|00000680| 26 20 3f 5c 27 20 22 5c | 22 22 20 3f 5c 2a 20 3f |& ?\' "\|"" ?\* ?|
|00000690| 5c 2b 20 3f 5c 2d 20 3f | 5c 2f 20 3f 5c 3c 20 3f |\+ ?\- ?|\/ ?\< ?|
|000006a0| 5c 3d 20 3f 5c 3e 20 3f | 5c 5c 20 3f 5c 60 20 3f |\= ?\> ?|\\ ?\` ?|
|000006b0| 5c 7c 5d 20 34 29 0a 23 | 40 35 31 20 41 64 64 69 |\|] 4).#|@51 Addi|
|000006c0| 74 69 6f 6e 61 6c 20 65 | 78 70 72 65 73 73 69 6f |tional e|xpressio|
|000006d0| 6e 73 20 74 6f 20 68 69 | 67 68 6c 69 67 68 74 20 |ns to hi|ghlight |
|000006e0| 69 6e 20 50 65 72 6c 20 | 6d 6f 64 65 2e 1f 0a 28 |in Perl |mode...(|
|000006f0| 64 65 66 76 61 72 20 70 | 65 72 6c 2d 66 6f 6e 74 |defvar p|erl-font|
|00000700| 2d 6c 6f 63 6b 2d 6b 65 | 79 77 6f 72 64 73 20 28 |-lock-ke|ywords (|
|00000710| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 c4 |byte-cod|e ".....|
|00000720| c5 b0 05 c6 c7 50 c8 42 | c9 ca cb af 05 21 87 22 |.....P.B|.....!."|
|00000730| 20 5b 70 75 72 65 63 6f | 70 79 20 22 5c 5c 3c 5c | [pureco|py "\\<\|
|00000740| 5c 28 22 20 22 63 6f 6e | 74 69 6e 75 65 5c 5c 7c |\(" "con|tinue\\||
|00000750| 64 69 65 5c 5c 7c 65 5c | 5c 28 6c 73 5c 5c 28 65 |die\\|e\|\(ls\\(e|
|00000760| 5c 5c 7c 69 66 5c 5c 29 | 5c 5c 7c 78 5c 5c 28 65 |\\|if\\)|\\|x\\(e|
|00000770| 63 5c 5c 7c 69 74 5c 5c | 29 5c 5c 29 5c 5c 7c 22 |c\\|it\\|)\\)\\|"|
|00000780| 20 22 66 6f 72 5c 5c 28 | 5c 5c 7c 65 61 63 68 5c | "for\\(|\\|each\|
|00000790| 5c 29 5c 5c 7c 67 6f 74 | 6f 5c 5c 7c 69 66 5c 5c |\)\\|got|o\\|if\\|
|000007a0| 7c 6c 5c 5c 28 61 73 74 | 5c 5c 7c 6f 63 61 6c 5c ||l\\(ast|\\|ocal\|
|000007b0| 5c 29 5c 5c 7c 6e 65 78 | 74 5c 5c 7c 22 20 22 72 |\)\\|nex|t\\|" "r|
|000007c0| 65 5c 5c 28 64 6f 5c 5c | 7c 74 75 72 6e 5c 5c 29 |e\\(do\\||turn\\)|
|000007d0| 5c 5c 7c 75 6e 5c 5c 28 | 6c 65 73 73 5c 5c 7c 74 |\\|un\\(|less\\|t|
|000007e0| 69 6c 5c 5c 29 5c 5c 7c | 77 68 69 6c 65 22 20 22 |il\\)\\||while" "|
|000007f0| 5c 5c 29 5c 5c 3e 22 20 | 22 23 5c 5c 28 64 65 66 |\\)\\>" |"#\\(def|
|00000800| 69 6e 65 5c 5c 7c 65 5c | 5c 28 6c 73 65 5c 5c 7c |ine\\|e\|\(lse\\||
|00000810| 6e 64 69 66 5c 5c 29 5c | 5c 7c 22 20 22 69 5c 5c |ndif\\)\|\|" "i\\|
|00000820| 28 66 5c 5c 28 5c 5c 7c | 64 65 66 5c 5c 7c 6e 64 |(f\\(\\||def\\|nd|
|00000830| 65 66 5c 5c 29 5c 5c 7c | 6e 63 6c 75 64 65 5c 5c |ef\\)\\||nclude\\|
|00000840| 29 5c 5c 7c 75 6e 64 65 | 66 5c 5c 29 5c 5c 3e 22 |)\\|unde|f\\)\\>"|
|00000850| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 72 65 66 65 72 | font-lo|ck-refer|
|00000860| 65 6e 63 65 2d 66 61 63 | 65 20 28 22 5e 5b 20 5c |ence-fac|e ("^[ \|
|00000870| 6e 09 5d 2a 73 75 62 5b | 20 09 5d 2b 5c 5c 28 5b |n.]*sub[| .]+\\([|
|00000880| 5e 20 09 7b 5d 2b 5c 5c | 29 5b 20 09 5d 2a 5b 7b |^ .{]+\\|)[ .]*[{|
|00000890| 5d 22 20 31 20 66 6f 6e | 74 2d 6c 6f 63 6b 2d 66 |]" 1 fon|t-lock-f|
|000008a0| 75 6e 63 74 69 6f 6e 2d | 6e 61 6d 65 2d 66 61 63 |unction-|name-fac|
|000008b0| 65 29 20 28 22 5b 20 5c | 6e 09 7b 5d 2a 5c 5c 28 |e) ("[ \|n.{]*\\(|
|000008c0| 65 76 61 6c 5c 5c 29 5b | 20 5c 6e 09 28 3b 5d 22 |eval\\)[| \n.(;]"|
|000008d0| 20 31 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 66 75 6e | 1 font-|lock-fun|
|000008e0| 63 74 69 6f 6e 2d 6e 61 | 6d 65 2d 66 61 63 65 29 |ction-na|me-face)|
|000008f0| 20 28 22 5c 5c 28 2d 2d | 2d 20 2e 2a 20 2d 2d 2d | ("\\(--|- .* ---|
|00000900| 5c 5c 7c 3d 3d 3d 20 2e | 2a 20 3d 3d 3d 5c 5c 29 |\\|=== .|* ===\\)|
|00000910| 22 20 2e 20 66 6f 6e 74 | 2d 6c 6f 63 6b 2d 73 74 |" . font|-lock-st|
|00000920| 72 69 6e 67 2d 66 61 63 | 65 29 5d 20 36 29 20 28 |ring-fac|e)] 6) (|
|00000930| 23 24 20 2e 20 31 37 32 | 34 29 29 0a 28 70 75 74 |#$ . 172|4)).(put|
|00000940| 20 27 70 65 72 6c 2d 6d | 6f 64 65 20 27 66 6f 6e | 'perl-m|ode 'fon|
|00000950| 74 2d 6c 6f 63 6b 2d 64 | 65 66 61 75 6c 74 73 20 |t-lock-d|efaults |
|00000960| 27 28 70 65 72 6c 2d 66 | 6f 6e 74 2d 6c 6f 63 6b |'(perl-f|ont-lock|
|00000970| 2d 6b 65 79 77 6f 72 64 | 73 29 29 0a 23 40 36 37 |-keyword|s)).#@67|
|00000980| 20 2a 49 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6f 66 | *Indent|ation of|
|00000990| 20 50 65 72 6c 20 73 74 | 61 74 65 6d 65 6e 74 73 | Perl st|atements|
|000009a0| 20 77 69 74 68 20 72 65 | 73 70 65 63 74 20 74 6f | with re|spect to|
|000009b0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 62 6c 6f 63 | contain|ing bloc|
|000009c0| 6b 2e 1f 0a 28 64 65 66 | 76 61 72 20 70 65 72 6c |k...(def|var perl|
|000009d0| 2d 69 6e 64 65 6e 74 2d | 6c 65 76 65 6c 20 34 20 |-indent-|level 4 |
|000009e0| 28 23 24 20 2e 20 2d 32 | 34 33 33 29 29 0a 23 40 |(#$ . -2|433)).#@|
|000009f0| 35 34 20 2a 45 78 74 72 | 61 20 69 6e 64 65 6e 74 |54 *Extr|a indent|
|00000a00| 20 66 6f 72 20 6c 69 6e | 65 73 20 6e 6f 74 20 73 | for lin|es not s|
|00000a10| 74 61 72 74 69 6e 67 20 | 6e 65 77 20 73 74 61 74 |tarting |new stat|
|00000a20| 65 6d 65 6e 74 73 2e 1f | 0a 28 64 65 66 76 61 72 |ements..|.(defvar|
|00000a30| 20 70 65 72 6c 2d 63 6f | 6e 74 69 6e 75 65 64 2d | perl-co|ntinued-|
|00000a40| 73 74 61 74 65 6d 65 6e | 74 2d 6f 66 66 73 65 74 |statemen|t-offset|
|00000a50| 20 34 20 28 23 24 20 2e | 20 2d 32 35 34 37 29 29 | 4 (#$ .| -2547))|
|00000a60| 0a 23 40 31 32 30 20 2a | 45 78 74 72 61 20 69 6e |.#@120 *|Extra in|
|00000a70| 64 65 6e 74 20 66 6f 72 | 20 73 75 62 73 74 61 74 |dent for| substat|
|00000a80| 65 6d 65 6e 74 73 20 74 | 68 61 74 20 73 74 61 72 |ements t|hat star|
|00000a90| 74 20 77 69 74 68 20 6f | 70 65 6e 2d 62 72 61 63 |t with o|pen-brac|
|00000aa0| 65 73 2e 0a 54 68 69 73 | 20 69 73 20 69 6e 20 61 |es..This| is in a|
|00000ab0| 64 64 69 74 69 6f 6e 20 | 74 6f 20 60 70 65 72 6c |ddition |to `perl|
|00000ac0| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 73 74 61 74 65 |-continu|ed-state|
|00000ad0| 6d 65 6e 74 2d 6f 66 66 | 73 65 74 27 2e 1f 0a 28 |ment-off|set'...(|
|00000ae0| 64 65 66 76 61 72 20 70 | 65 72 6c 2d 63 6f 6e 74 |defvar p|erl-cont|
|00000af0| 69 6e 75 65 64 2d 62 72 | 61 63 65 2d 6f 66 66 73 |inued-br|ace-offs|
|00000b00| 65 74 20 2d 34 20 28 23 | 24 20 2e 20 2d 32 36 36 |et -4 (#|$ . -266|
|00000b10| 33 29 29 0a 23 40 37 34 | 20 2a 45 78 74 72 61 20 |3)).#@74| *Extra |
|00000b20| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 66 6f 72 20 |indentat|ion for |
|00000b30| 62 72 61 63 65 73 2c 20 | 63 6f 6d 70 61 72 65 64 |braces, |compared|
|00000b40| 20 77 69 74 68 20 6f 74 | 68 65 72 20 74 65 78 74 | with ot|her text|
|00000b50| 20 69 6e 20 73 61 6d 65 | 20 63 6f 6e 74 65 78 74 | in same| context|
|00000b60| 2e 1f 0a 28 64 65 66 76 | 61 72 20 70 65 72 6c 2d |...(defv|ar perl-|
|00000b70| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 30 20 28 |brace-of|fset 0 (|
|00000b80| 23 24 20 2e 20 2d 32 38 | 34 31 29 29 0a 23 40 37 |#$ . -28|41)).#@7|
|00000b90| 35 20 2a 49 6d 61 67 69 | 6e 65 64 20 69 6e 64 65 |5 *Imagi|ned inde|
|00000ba0| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 61 6e 20 6f 70 |ntation |of an op|
|00000bb0| 65 6e 20 62 72 61 63 65 | 20 74 68 61 74 20 61 63 |en brace| that ac|
|00000bc0| 74 75 61 6c 6c 79 20 66 | 6f 6c 6c 6f 77 73 20 61 |tually f|ollows a|
|00000bd0| 20 73 74 61 74 65 6d 65 | 6e 74 2e 1f 0a 28 64 65 | stateme|nt...(de|
|00000be0| 66 76 61 72 20 70 65 72 | 6c 2d 62 72 61 63 65 2d |fvar per|l-brace-|
|00000bf0| 69 6d 61 67 69 6e 61 72 | 79 2d 6f 66 66 73 65 74 |imaginar|y-offset|
|00000c00| 20 30 20 28 23 24 20 2e | 20 2d 32 39 36 32 29 29 | 0 (#$ .| -2962))|
|00000c10| 0a 23 40 36 30 20 2a 4f | 66 66 73 65 74 20 6f 66 |.#@60 *O|ffset of|
|00000c20| 20 50 65 72 6c 20 6c 61 | 62 65 6c 20 6c 69 6e 65 | Perl la|bel line|
|00000c30| 73 20 72 65 6c 61 74 69 | 76 65 20 74 6f 20 75 73 |s relati|ve to us|
|00000c40| 75 61 6c 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 2e |ual inde|ntation.|
|00000c50| 1f 0a 28 64 65 66 76 61 | 72 20 70 65 72 6c 2d 6c |..(defva|r perl-l|
|00000c60| 61 62 65 6c 2d 6f 66 66 | 73 65 74 20 2d 32 20 28 |abel-off|set -2 (|
|00000c70| 23 24 20 2e 20 2d 33 30 | 39 34 29 29 0a 23 40 31 |#$ . -30|94)).#@1|
|00000c80| 36 35 20 2a 4e 6f 6e 2d | 6e 69 6c 20 6d 65 61 6e |65 *Non-|nil mean|
|00000c90| 73 20 54 41 42 20 69 6e | 20 50 65 72 6c 20 6d 6f |s TAB in| Perl mo|
|00000ca0| 64 65 20 61 6c 77 61 79 | 73 20 69 6e 64 65 6e 74 |de alway|s indent|
|00000cb0| 73 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |s the cu|rrent li|
|00000cc0| 6e 65 2e 0a 4f 74 68 65 | 72 77 69 73 65 20 69 74 |ne..Othe|rwise it|
|00000cd0| 20 69 6e 73 65 72 74 73 | 20 61 20 74 61 62 20 63 | inserts| a tab c|
|00000ce0| 68 61 72 61 63 74 65 72 | 20 69 66 20 79 6f 75 20 |haracter| if you |
|00000cf0| 74 79 70 65 20 69 74 20 | 70 61 73 74 20 74 68 65 |type it |past the|
|00000d00| 20 66 69 72 73 74 0a 6e | 6f 6e 77 68 69 74 65 20 | first.n|onwhite |
|00000d10| 63 68 61 72 61 63 74 65 | 72 20 6f 6e 20 74 68 65 |characte|r on the|
|00000d20| 20 6c 69 6e 65 2e 1f 0a | 28 64 65 66 76 61 72 20 | line...|(defvar |
|00000d30| 70 65 72 6c 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |perl-tab|-always-|
|00000d40| 69 6e 64 65 6e 74 20 74 | 20 28 23 24 20 2e 20 2d |indent t| (#$ . -|
|00000d50| 33 32 30 33 29 29 0a 23 | 40 32 31 39 20 2a 4e 6f |3203)).#|@219 *No|
|00000d60| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 54 41 42 20 |n-nil me|ans TAB |
|00000d70| 6d 6f 76 65 73 20 74 6f | 20 65 6f 6c 20 6f 72 20 |moves to| eol or |
|00000d80| 6d 61 6b 65 73 20 61 20 | 63 6f 6d 6d 65 6e 74 20 |makes a |comment |
|00000d90| 69 6e 20 73 6f 6d 65 20 | 63 61 73 65 73 2e 0a 46 |in some |cases..F|
|00000da0| 6f 72 20 6c 69 6e 65 73 | 20 77 68 69 63 68 20 64 |or lines| which d|
|00000db0| 6f 6e 27 74 20 6e 65 65 | 64 20 69 6e 64 65 6e 74 |on't nee|d indent|
|00000dc0| 69 6e 67 2c 20 54 41 42 | 20 65 69 74 68 65 72 20 |ing, TAB| either |
|00000dd0| 69 6e 64 65 6e 74 73 20 | 61 6e 0a 65 78 69 73 74 |indents |an.exist|
|00000de0| 69 6e 67 20 63 6f 6d 6d | 65 6e 74 2c 20 6d 6f 76 |ing comm|ent, mov|
|00000df0| 65 73 20 74 6f 20 65 6e | 64 2d 6f 66 2d 6c 69 6e |es to en|d-of-lin|
|00000e00| 65 2c 20 6f 72 20 69 66 | 20 61 74 20 65 6e 64 2d |e, or if| at end-|
|00000e10| 6f 66 2d 6c 69 6e 65 20 | 61 6c 72 65 61 64 79 2c |of-line |already,|
|00000e20| 0a 63 72 65 61 74 65 20 | 61 20 6e 65 77 20 63 6f |.create |a new co|
|00000e30| 6d 6d 65 6e 74 2e 1f 0a | 28 64 65 66 76 61 72 20 |mment...|(defvar |
|00000e40| 70 65 72 6c 2d 74 61 62 | 2d 74 6f 2d 63 6f 6d 6d |perl-tab|-to-comm|
|00000e50| 65 6e 74 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 33 |ent nil |(#$ . -3|
|00000e60| 34 32 31 29 29 0a 23 40 | 36 39 20 2a 4c 69 6e 65 |421)).#@|69 *Line|
|00000e70| 73 20 73 74 61 72 74 69 | 6e 67 20 77 69 74 68 20 |s starti|ng with |
|00000e80| 74 68 69 73 20 72 65 67 | 75 6c 61 72 20 65 78 70 |this reg|ular exp|
|00000e90| 72 65 73 73 69 6f 6e 20 | 61 72 65 20 6e 6f 74 20 |ression |are not |
|00000ea0| 61 75 74 6f 2d 69 6e 64 | 65 6e 74 65 64 2e 1f 0a |auto-ind|ented...|
|00000eb0| 28 64 65 66 76 61 72 20 | 70 65 72 6c 2d 6e 6f 63 |(defvar |perl-noc|
|00000ec0| 68 61 6e 67 65 20 22 3b | 3f 23 5c 5c 7c 0c 5c 5c |hange ";|?#\\|.\\|
|00000ed0| 7c 5c 5c 73 28 5c 5c 7c | 5c 5c 28 5c 5c 77 5c 5c ||\\s(\\||\\(\\w\\|
|00000ee0| 7c 5c 5c 73 5f 5c 5c 29 | 2b 3a 22 20 28 23 24 20 ||\\s_\\)|+:" (#$ |
|00000ef0| 2e 20 2d 33 36 39 31 29 | 29 0a 23 40 33 32 20 49 |. -3691)|).#@32 I|
|00000f00| 6e 76 6f 6b 65 64 20 6f | 6e 20 65 6e 74 72 79 20 |nvoked o|n entry |
|00000f10| 74 6f 20 70 65 72 6c 2d | 6d 6f 64 65 2e 1f 0a 28 |to perl-|mode...(|
|00000f20| 64 65 66 76 61 72 20 70 | 65 72 6c 2d 6d 6f 64 65 |defvar p|erl-mode|
|00000f30| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 28 23 24 20 2e 20 |-hook ni|l (#$ . |
|00000f40| 33 38 33 39 29 29 0a 23 | 40 32 30 34 33 20 4d 61 |3839)).#|@2043 Ma|
|00000f50| 6a 6f 72 20 6d 6f 64 65 | 20 66 6f 72 20 65 64 69 |jor mode| for edi|
|00000f60| 74 69 6e 67 20 50 65 72 | 6c 20 63 6f 64 65 2e 0a |ting Per|l code..|
|00000f70| 45 78 70 72 65 73 73 69 | 6f 6e 20 61 6e 64 20 6c |Expressi|on and l|
|00000f80| 69 73 74 20 63 6f 6d 6d | 61 6e 64 73 20 75 6e 64 |ist comm|ands und|
|00000f90| 65 72 73 74 61 6e 64 20 | 61 6c 6c 20 50 65 72 6c |erstand |all Perl|
|00000fa0| 20 62 72 61 63 6b 65 74 | 73 2e 0a 54 61 62 20 69 | bracket|s..Tab i|
|00000fb0| 6e 64 65 6e 74 73 20 66 | 6f 72 20 50 65 72 6c 20 |ndents f|or Perl |
|00000fc0| 63 6f 64 65 2e 0a 43 6f | 6d 6d 65 6e 74 73 20 61 |code..Co|mments a|
|00000fd0| 72 65 20 64 65 6c 69 6d | 69 74 65 64 20 77 69 74 |re delim|ited wit|
|00000fe0| 68 20 23 20 2e 2e 2e 20 | 5c 6e 2e 0a 50 61 72 61 |h # ... |\n..Para|
|00000ff0| 67 72 61 70 68 73 20 61 | 72 65 20 73 65 70 61 72 |graphs a|re separ|
|00001000| 61 74 65 64 20 62 79 20 | 62 6c 61 6e 6b 20 6c 69 |ated by |blank li|
|00001010| 6e 65 73 20 6f 6e 6c 79 | 2e 0a 44 65 6c 65 74 65 |nes only|..Delete|
|00001020| 20 63 6f 6e 76 65 72 74 | 73 20 74 61 62 73 20 74 | convert|s tabs t|
|00001030| 6f 20 73 70 61 63 65 73 | 20 61 73 20 69 74 20 6d |o spaces| as it m|
|00001040| 6f 76 65 73 20 62 61 63 | 6b 2e 0a 5c 7b 70 65 72 |oves bac|k..\{per|
|00001050| 6c 2d 6d 6f 64 65 2d 6d | 61 70 7d 0a 56 61 72 69 |l-mode-m|ap}.Vari|
|00001060| 61 62 6c 65 73 20 63 6f | 6e 74 72 6f 6c 6c 69 6e |ables co|ntrollin|
|00001070| 67 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 73 74 |g indent|ation st|
|00001080| 79 6c 65 3a 0a 20 70 65 | 72 6c 2d 74 61 62 2d 61 |yle:. pe|rl-tab-a|
|00001090| 6c 77 61 79 73 2d 69 6e | 64 65 6e 74 0a 20 20 20 |lways-in|dent. |
|000010a0| 20 4e 6f 6e 2d 6e 69 6c | 20 6d 65 61 6e 73 20 54 | Non-nil| means T|
|000010b0| 41 42 20 69 6e 20 50 65 | 72 6c 20 6d 6f 64 65 20 |AB in Pe|rl mode |
|000010c0| 73 68 6f 75 6c 64 20 61 | 6c 77 61 79 73 20 69 6e |should a|lways in|
|000010d0| 64 65 6e 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |dent the| current|
|000010e0| 20 6c 69 6e 65 2c 0a 20 | 20 20 20 72 65 67 61 72 | line,. | regar|
|000010f0| 64 6c 65 73 73 20 6f 66 | 20 77 68 65 72 65 20 69 |dless of| where i|
|00001100| 6e 20 74 68 65 20 6c 69 | 6e 65 20 70 6f 69 6e 74 |n the li|ne point|
|00001110| 20 69 73 20 77 68 65 6e | 20 74 68 65 20 54 41 42 | is when| the TAB|
|00001120| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 20 75 73 65 64 | command| is used|
|00001130| 2e 0a 20 70 65 72 6c 2d | 74 61 62 2d 74 6f 2d 63 |.. perl-|tab-to-c|
|00001140| 6f 6d 6d 65 6e 74 0a 20 | 20 20 20 4e 6f 6e 2d 6e |omment. | Non-n|
|00001150| 69 6c 20 6d 65 61 6e 73 | 20 74 68 61 74 20 66 6f |il means| that fo|
|00001160| 72 20 6c 69 6e 65 73 20 | 77 68 69 63 68 20 64 6f |r lines |which do|
|00001170| 6e 27 74 20 6e 65 65 64 | 20 69 6e 64 65 6e 74 69 |n't need| indenti|
|00001180| 6e 67 2c 20 54 41 42 20 | 77 69 6c 6c 0a 20 20 20 |ng, TAB |will. |
|00001190| 20 65 69 74 68 65 72 20 | 64 65 6c 65 74 65 20 61 | either |delete a|
|000011a0| 6e 20 65 6d 70 74 79 20 | 63 6f 6d 6d 65 6e 74 2c |n empty |comment,|
|000011b0| 20 69 6e 64 65 6e 74 20 | 61 6e 20 65 78 69 73 74 | indent |an exist|
|000011c0| 69 6e 67 20 63 6f 6d 6d | 65 6e 74 2c 20 6d 6f 76 |ing comm|ent, mov|
|000011d0| 65 20 0a 20 20 20 20 74 | 6f 20 65 6e 64 2d 6f 66 |e . t|o end-of|
|000011e0| 2d 6c 69 6e 65 2c 20 6f | 72 20 69 66 20 61 74 20 |-line, o|r if at |
|000011f0| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 61 6c 72 65 |end-of-l|ine alre|
|00001200| 61 64 79 2c 20 63 72 65 | 61 74 65 20 61 20 6e 65 |ady, cre|ate a ne|
|00001210| 77 20 63 6f 6d 6d 65 6e | 74 2e 0a 20 70 65 72 6c |w commen|t.. perl|
|00001220| 2d 6e 6f 63 68 61 6e 67 | 65 0a 20 20 20 20 4c 69 |-nochang|e. Li|
|00001230| 6e 65 73 20 73 74 61 72 | 74 69 6e 67 20 77 69 74 |nes star|ting wit|
|00001240| 68 20 74 68 69 73 20 72 | 65 67 75 6c 61 72 20 65 |h this r|egular e|
|00001250| 78 70 72 65 73 73 69 6f | 6e 20 61 72 65 20 6e 6f |xpressio|n are no|
|00001260| 74 20 61 75 74 6f 2d 69 | 6e 64 65 6e 74 65 64 2e |t auto-i|ndented.|
|00001270| 0a 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 65 |. perl-i|ndent-le|
|00001280| 76 65 6c 0a 20 20 20 20 | 49 6e 64 65 6e 74 61 74 |vel. |Indentat|
|00001290| 69 6f 6e 20 6f 66 20 50 | 65 72 6c 20 73 74 61 74 |ion of P|erl stat|
|000012a0| 65 6d 65 6e 74 73 20 77 | 69 74 68 69 6e 20 73 75 |ements w|ithin su|
|000012b0| 72 72 6f 75 6e 64 69 6e | 67 20 62 6c 6f 63 6b 2e |rroundin|g block.|
|000012c0| 0a 20 20 20 20 54 68 65 | 20 73 75 72 72 6f 75 6e |. The| surroun|
|000012d0| 64 69 6e 67 20 62 6c 6f | 63 6b 27 73 20 69 6e 64 |ding blo|ck's ind|
|000012e0| 65 6e 74 61 74 69 6f 6e | 20 69 73 20 74 68 65 20 |entation| is the |
|000012f0| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 0a 20 20 20 20 |indentat|ion. |
|00001300| 6f 66 20 74 68 65 20 6c | 69 6e 65 20 6f 6e 20 77 |of the l|ine on w|
|00001310| 68 69 63 68 20 74 68 65 | 20 6f 70 65 6e 2d 62 72 |hich the| open-br|
|00001320| 61 63 65 20 61 70 70 65 | 61 72 73 2e 0a 20 70 65 |ace appe|ars.. pe|
|00001330| 72 6c 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 73 74 61 |rl-conti|nued-sta|
|00001340| 74 65 6d 65 6e 74 2d 6f | 66 66 73 65 74 0a 20 20 |tement-o|ffset. |
|00001350| 20 20 45 78 74 72 61 20 | 69 6e 64 65 6e 74 61 74 | Extra |indentat|
|00001360| 69 6f 6e 20 67 69 76 65 | 6e 20 74 6f 20 61 20 73 |ion give|n to a s|
|00001370| 75 62 73 74 61 74 65 6d | 65 6e 74 2c 20 73 75 63 |ubstatem|ent, suc|
|00001380| 68 20 61 73 20 74 68 65 | 0a 20 20 20 20 74 68 65 |h as the|. the|
|00001390| 6e 2d 63 6c 61 75 73 65 | 20 6f 66 20 61 6e 20 69 |n-clause| of an i|
|000013a0| 66 20 6f 72 20 62 6f 64 | 79 20 6f 66 20 61 20 77 |f or bod|y of a w|
|000013b0| 68 69 6c 65 2e 0a 20 70 | 65 72 6c 2d 63 6f 6e 74 |hile.. p|erl-cont|
|000013c0| 69 6e 75 65 64 2d 62 72 | 61 63 65 2d 6f 66 66 73 |inued-br|ace-offs|
|000013d0| 65 74 0a 20 20 20 20 45 | 78 74 72 61 20 69 6e 64 |et. E|xtra ind|
|000013e0| 65 6e 74 61 74 69 6f 6e | 20 67 69 76 65 6e 20 74 |entation| given t|
|000013f0| 6f 20 61 20 62 72 61 63 | 65 20 74 68 61 74 20 73 |o a brac|e that s|
|00001400| 74 61 72 74 73 20 61 20 | 73 75 62 73 74 61 74 65 |tarts a |substate|
|00001410| 6d 65 6e 74 2e 0a 20 20 | 20 20 54 68 69 73 20 69 |ment.. | This i|
|00001420| 73 20 69 6e 20 61 64 64 | 69 74 69 6f 6e 20 74 6f |s in add|ition to|
|00001430| 20 60 70 65 72 6c 2d 63 | 6f 6e 74 69 6e 75 65 64 | `perl-c|ontinued|
|00001440| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|00001450| 74 27 2e 0a 20 70 65 72 | 6c 2d 62 72 61 63 65 2d |t'.. per|l-brace-|
|00001460| 6f 66 66 73 65 74 0a 20 | 20 20 20 45 78 74 72 61 |offset. | Extra|
|00001470| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 | indenta|tion for|
|00001480| 20 6c 69 6e 65 20 69 66 | 20 69 74 20 73 74 61 72 | line if| it star|
|00001490| 74 73 20 77 69 74 68 20 | 61 6e 20 6f 70 65 6e 20 |ts with |an open |
|000014a0| 62 72 61 63 65 2e 0a 20 | 70 65 72 6c 2d 62 72 61 |brace.. |perl-bra|
|000014b0| 63 65 2d 69 6d 61 67 69 | 6e 61 72 79 2d 6f 66 66 |ce-imagi|nary-off|
|000014c0| 73 65 74 0a 20 20 20 20 | 41 6e 20 6f 70 65 6e 20 |set. |An open |
|000014d0| 62 72 61 63 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |brace fo|llowing |
|000014e0| 6f 74 68 65 72 20 74 65 | 78 74 20 69 73 20 74 72 |other te|xt is tr|
|000014f0| 65 61 74 65 64 20 61 73 | 20 69 66 20 69 74 20 77 |eated as| if it w|
|00001500| 65 72 65 0a 20 20 20 20 | 74 68 69 73 20 66 61 72 |ere. |this far|
|00001510| 20 74 6f 20 74 68 65 20 | 72 69 67 68 74 20 6f 66 | to the |right of|
|00001520| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 69 74 | the sta|rt of it|
|00001530| 73 20 6c 69 6e 65 2e 0a | 20 70 65 72 6c 2d 6c 61 |s line..| perl-la|
|00001540| 62 65 6c 2d 6f 66 66 73 | 65 74 0a 20 20 20 20 45 |bel-offs|et. E|
|00001550| 78 74 72 61 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |xtra ind|entation|
|00001560| 20 66 6f 72 20 6c 69 6e | 65 20 74 68 61 74 20 69 | for lin|e that i|
|00001570| 73 20 61 20 6c 61 62 65 | 6c 2e 0a 0a 56 61 72 69 |s a labe|l...Vari|
|00001580| 6f 75 73 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |ous inde|ntation |
|00001590| 73 74 79 6c 65 73 3a 20 | 20 20 20 20 20 20 4b 26 |styles: | K&|
|000015a0| 52 20 20 42 53 44 20 20 | 42 4c 4b 20 20 47 4e 55 |R BSD |BLK GNU|
|000015b0| 20 20 4c 57 0a 20 20 70 | 65 72 6c 2d 69 6e 64 65 | LW. p|erl-inde|
|000015c0| 6e 74 2d 6c 65 76 65 6c | 20 20 20 20 20 20 20 20 |nt-level| |
|000015d0| 20 20 20 20 20 20 20 20 | 35 20 20 20 20 38 20 20 | |5 8 |
|000015e0| 20 20 30 20 20 20 20 32 | 20 20 20 20 34 0a 20 20 | 0 2| 4. |
|000015f0| 70 65 72 6c 2d 63 6f 6e | 74 69 6e 75 65 64 2d 73 |perl-con|tinued-s|
|00001600| 74 61 74 65 6d 65 6e 74 | 2d 6f 66 66 73 65 74 20 |tatement|-offset |
|00001610| 20 35 20 20 20 20 38 20 | 20 20 20 34 20 20 20 20 | 5 8 | 4 |
|00001620| 32 20 20 20 20 34 0a 20 | 20 70 65 72 6c 2d 63 6f |2 4. | perl-co|
|00001630| 6e 74 69 6e 75 65 64 2d | 62 72 61 63 65 2d 6f 66 |ntinued-|brace-of|
|00001640| 66 73 65 74 20 20 20 20 | 20 20 30 20 20 20 20 30 |fset | 0 0|
|00001650| 20 20 20 20 30 20 20 20 | 20 30 20 20 20 2d 34 0a | 0 | 0 -4.|
|00001660| 20 20 70 65 72 6c 2d 62 | 72 61 63 65 2d 6f 66 66 | perl-b|race-off|
|00001670| 73 65 74 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |set | |
|00001680| 20 20 2d 35 20 20 20 2d | 38 20 20 20 20 30 20 20 | -5 -|8 0 |
|00001690| 20 20 30 20 20 20 20 30 | 0a 20 20 70 65 72 6c 2d | 0 0|. perl-|
|000016a0| 62 72 61 63 65 2d 69 6d | 61 67 69 6e 61 72 79 2d |brace-im|aginary-|
|000016b0| 6f 66 66 73 65 74 20 20 | 20 20 20 20 30 20 20 20 |offset | 0 |
|000016c0| 20 30 20 20 20 20 34 20 | 20 20 20 30 20 20 20 20 | 0 4 | 0 |
|000016d0| 30 0a 20 20 70 65 72 6c | 2d 6c 61 62 65 6c 2d 6f |0. perl|-label-o|
|000016e0| 66 66 73 65 74 20 20 20 | 20 20 20 20 20 20 20 20 |ffset | |
|000016f0| 20 20 20 20 2d 35 20 20 | 20 2d 38 20 20 20 2d 32 | -5 | -8 -2|
|00001700| 20 20 20 2d 32 20 20 20 | 2d 32 0a 0a 54 75 72 6e | -2 |-2..Turn|
|00001710| 69 6e 67 20 6f 6e 20 50 | 65 72 6c 20 6d 6f 64 65 |ing on P|erl mode|
|00001720| 20 72 75 6e 73 20 74 68 | 65 20 6e 6f 72 6d 61 6c | runs th|e normal|
|00001730| 20 68 6f 6f 6b 20 60 70 | 65 72 6c 2d 6d 6f 64 65 | hook `p|erl-mode|
|00001740| 2d 68 6f 6f 6b 27 2e 1f | 0a 28 64 65 66 61 6c 69 |-hook'..|.(defali|
|00001750| 61 73 20 27 70 65 72 6c | 2d 6d 6f 64 65 20 23 5b |as 'perl|-mode #[|
|00001760| 6e 69 6c 20 22 c0 20 88 | c1 5c 6e 21 88 c3 14 c5 |nil ". .|.\n!....|
|00001770| 16 06 0e 07 16 08 c9 0e | 5c 6e 21 88 cb cc 21 88 |........|\n!...!.|
|00001780| cd 0e 0e 50 16 0c cb cf | 21 88 0e 0c 16 0f cb d0 |...P....|!.......|
|00001790| 21 88 d1 16 10 cb d2 21 | 88 d3 16 12 cb d4 21 88 |!......!|......!.|
|000017a0| d1 16 14 cb d5 21 88 d6 | 16 15 cb d7 21 88 d8 16 |.....!..|....!...|
|000017b0| 17 cb d9 21 88 da 16 19 | cb db 21 88 dc 16 1b cb |...!....|..!.....|
|000017c0| dd 21 88 de 16 1d cb df | 21 88 d1 16 1f e0 e1 21 |.!......|!......!|
|000017d0| 87 22 20 5b 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |." [kill|-all-loc|
|000017e0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 75 73 65 |al-varia|bles use|
|000017f0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 70 65 72 6c 2d |-local-m|ap perl-|
|00001800| 6d 6f 64 65 2d 6d 61 70 | 20 70 65 72 6c 2d 6d 6f |mode-map| perl-mo|
|00001810| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 22 50 |de major|-mode "P|
|00001820| 65 72 6c 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 70 |erl" mod|e-name p|
|00001830| 65 72 6c 2d 6d 6f 64 65 | 2d 61 62 62 72 65 76 2d |erl-mode|-abbrev-|
|00001840| 74 61 62 6c 65 20 6c 6f | 63 61 6c 2d 61 62 62 72 |table lo|cal-abbr|
|00001850| 65 76 2d 74 61 62 6c 65 | 20 73 65 74 2d 73 79 6e |ev-table| set-syn|
|00001860| 74 61 78 2d 74 61 62 6c | 65 20 70 65 72 6c 2d 6d |tax-tabl|e perl-m|
|00001870| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00001880| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00001890| 61 62 6c 65 20 70 61 72 | 61 67 72 61 70 68 2d 73 |able par|agraph-s|
|000018a0| 74 61 72 74 20 22 24 5c | 5c 7c 22 20 70 61 67 65 |tart "$\|\|" page|
|000018b0| 2d 64 65 6c 69 6d 69 74 | 65 72 20 70 61 72 61 67 |-delimit|er parag|
|000018c0| 72 61 70 68 2d 73 65 70 | 61 72 61 74 65 20 70 61 |raph-sep|arate pa|
|000018d0| 72 61 67 72 61 70 68 2d | 69 67 6e 6f 72 65 2d 66 |ragraph-|ignore-f|
|000018e0| 69 6c 6c 2d 70 72 65 66 | 69 78 20 74 20 69 6e 64 |ill-pref|ix t ind|
|000018f0| 65 6e 74 2d 6c 69 6e 65 | 2d 66 75 6e 63 74 69 6f |ent-line|-functio|
|00001900| 6e 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 69 |n perl-i|ndent-li|
|00001910| 6e 65 20 72 65 71 75 69 | 72 65 2d 66 69 6e 61 6c |ne requi|re-final|
|00001920| 2d 6e 65 77 6c 69 6e 65 | 20 63 6f 6d 6d 65 6e 74 |-newline| comment|
|00001930| 2d 73 74 61 72 74 20 22 | 23 20 22 20 63 6f 6d 6d |-start "|# " comm|
|00001940| 65 6e 74 2d 65 6e 64 20 | 22 22 20 63 6f 6d 6d 65 |ent-end |"" comme|
|00001950| 6e 74 2d 63 6f 6c 75 6d | 6e 20 33 32 20 63 6f 6d |nt-colum|n 32 com|
|00001960| 6d 65 6e 74 2d 73 74 61 | 72 74 2d 73 6b 69 70 20 |ment-sta|rt-skip |
|00001970| 22 5c 5c 28 5e 5c 5c 7c | 5c 5c 73 2d 5c 5c 29 3b |"\\(^\\||\\s-\\);|
|00001980| 3f 23 2b 20 2a 22 20 63 | 6f 6d 6d 65 6e 74 2d 69 |?#+ *" c|omment-i|
|00001990| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 20 70 |ndent-fu|nction p|
|000019a0| 65 72 6c 2d 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 |erl-comm|ent-inde|
|000019b0| 6e 74 20 70 61 72 73 65 | 2d 73 65 78 70 2d 69 67 |nt parse|-sexp-ig|
|000019c0| 6e 6f 72 65 2d 63 6f 6d | 6d 65 6e 74 73 20 72 75 |nore-com|ments ru|
|000019d0| 6e 2d 68 6f 6f 6b 73 20 | 70 65 72 6c 2d 6d 6f 64 |n-hooks |perl-mod|
|000019e0| 65 2d 68 6f 6f 6b 5d 20 | 32 20 28 23 24 20 2e 20 |e-hook] |2 (#$ . |
|000019f0| 33 39 31 38 29 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |3918) ni|l]).(def|
|00001a00| 61 6c 69 61 73 20 27 70 | 65 72 6c 2d 63 6f 6d 6d |alias 'p|erl-comm|
|00001a10| 65 6e 74 2d 69 6e 64 65 | 6e 74 20 23 5b 6e 69 6c |ent-inde|nt #[nil|
|00001a20| 20 22 6e ab 85 6c ac 82 | c0 87 8a c1 c2 78 88 6e | "n..l..|.....x.n|
|00001a30| ab 83 c0 aa 82 69 54 0b | 5d 29 87 22 20 5b 30 20 |.....iT.|])." [0 |
|00001a40| 22 20 09 22 20 6e 69 6c | 20 63 6f 6d 6d 65 6e 74 |" ." nil| comment|
|00001a50| 2d 63 6f 6c 75 6d 6e 5d | 20 32 5d 29 0a 23 40 31 |-column]| 2]).#@1|
|00001a60| 32 31 20 49 6e 73 65 72 | 74 20 63 68 61 72 61 63 |21 Inser|t charac|
|00001a70| 74 65 72 20 61 6e 64 20 | 61 64 6a 75 73 74 20 69 |ter and |adjust i|
|00001a80| 6e 64 65 6e 74 61 74 69 | 6f 6e 2e 0a 49 66 20 61 |ndentati|on..If a|
|00001a90| 74 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 2c 20 61 |t end-of|-line, a|
|00001aa0| 6e 64 20 6e 6f 74 20 69 | 6e 20 61 20 63 6f 6d 6d |nd not i|n a comm|
|00001ab0| 65 6e 74 20 6f 72 20 61 | 20 71 75 6f 74 65 2c 20 |ent or a| quote, |
|00001ac0| 63 6f 72 72 65 63 74 20 | 74 68 65 27 73 20 69 6e |correct |the's in|
|00001ad0| 64 65 6e 74 61 74 69 6f | 6e 2e 1f 0a 28 64 65 66 |dentatio|n...(def|
|00001ae0| 61 6c 69 61 73 20 27 65 | 6c 65 63 74 72 69 63 2d |alias 'e|lectric-|
|00001af0| 70 65 72 6c 2d 74 65 72 | 6d 69 6e 61 74 6f 72 20 |perl-ter|minator |
|00001b00| 23 5b 28 61 72 67 29 20 | 22 60 18 09 ac c3 6c ab |#[(arg) |"`....l.|
|00001b10| c0 8a c2 79 88 c3 0c 08 | c5 23 3f ad a4 0e 06 c7 |...y....|.#?.....|
|00001b20| 55 ab 85 c8 c9 21 ad 99 | ca cb 20 08 5c 22 1e 0c |U....!..|.. .\"..|
|00001b30| cd 0e 0c 38 ae 8a ce 0e | 0c 38 ae 84 cf 0e 0c 38 |...8....|.8.....8|
|00001b40| 29 3f 29 ab 8d d0 0e 06 | d1 5c 22 88 d2 20 88 d3 |)?).....|.\".. ..|
|00001b50| d4 21 88 29 d5 d6 09 21 | 21 87 22 20 5b 69 6e 73 |.!.)...!|!." [ins|
|00001b60| 65 72 74 70 6f 73 20 61 | 72 67 20 30 20 72 65 2d |ertpos a|rg 0 re-|
|00001b70| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 63 |search-f|orward c|
|00001b80| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 2d 73 6b 69 |omment-s|tart-ski|
|00001b90| 70 20 74 20 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |p t last|-command|
|00001ba0| 2d 63 68 61 72 20 3f 5c | 3a 20 6c 6f 6f 6b 69 6e |-char ?\|: lookin|
|00001bb0| 67 2d 61 74 20 22 5c 5c | 73 2d 2a 5c 5c 28 5c 5c |g-at "\\|s-*\\(\\|
|00001bc0| 77 5c 5c 7c 5c 5c 73 5f | 5c 5c 29 2b 24 22 20 70 |w\\|\\s_|\\)+$" p|
|00001bd0| 61 72 73 65 2d 70 61 72 | 74 69 61 6c 2d 73 65 78 |arse-par|tial-sex|
|00001be0| 70 20 70 65 72 6c 2d 62 | 65 67 69 6e 6e 69 6e 67 |p perl-b|eginning|
|00001bf0| 2d 6f 66 2d 66 75 6e 63 | 74 69 6f 6e 20 70 70 73 |-of-func|tion pps|
|00001c00| 20 33 20 34 20 35 20 69 | 6e 73 65 72 74 2d 63 68 | 3 4 5 i|nsert-ch|
|00001c10| 61 72 20 31 20 70 65 72 | 6c 2d 69 6e 64 65 6e 74 |ar 1 per|l-indent|
|00001c20| 2d 6c 69 6e 65 20 64 65 | 6c 65 74 65 2d 63 68 61 |-line de|lete-cha|
|00001c30| 72 20 2d 31 20 73 65 6c | 66 2d 69 6e 73 65 72 74 |r -1 sel|f-insert|
|00001c40| 2d 63 6f 6d 6d 61 6e 64 | 20 70 72 65 66 69 78 2d |-command| prefix-|
|00001c50| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 5d 20 34 |numeric-|value] 4|
|00001c60| 20 28 23 24 20 2e 20 36 | 37 35 35 29 20 22 50 22 | (#$ . 6|755) "P"|
|00001c70| 5d 29 0a 23 40 38 32 34 | 20 49 6e 64 65 6e 74 20 |]).#@824| Indent |
|00001c80| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 61 73 20 |current |line as |
|00001c90| 50 65 72 6c 20 63 6f 64 | 65 2c 20 6f 72 20 6f 70 |Perl cod|e, or op|
|00001ca0| 74 69 6f 6e 61 6c 6c 79 | 2c 20 69 6e 73 65 72 74 |tionally|, insert|
|00001cb0| 20 61 20 74 61 62 20 63 | 68 61 72 61 63 74 65 72 | a tab c|haracter|
|00001cc0| 2e 0a 0a 57 69 74 68 20 | 61 6e 20 61 72 67 75 6d |...With |an argum|
|00001cd0| 65 6e 74 2c 20 69 6e 64 | 65 6e 74 20 74 68 65 20 |ent, ind|ent the |
|00001ce0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2c 20 72 65 |current |line, re|
|00001cf0| 67 61 72 64 6c 65 73 73 | 20 6f 66 20 6f 74 68 65 |gardless| of othe|
|00001d00| 72 20 6f 70 74 69 6f 6e | 73 2e 0a 0a 49 66 20 60 |r option|s...If `|
|00001d10| 70 65 72 6c 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |perl-tab|-always-|
|00001d20| 69 6e 64 65 6e 74 27 20 | 69 73 20 6e 69 6c 20 61 |indent' |is nil a|
|00001d30| 6e 64 20 70 6f 69 6e 74 | 20 69 73 20 6e 6f 74 20 |nd point| is not |
|00001d40| 69 6e 20 74 68 65 20 69 | 6e 64 65 6e 74 61 74 69 |in the i|ndentati|
|00001d50| 6f 6e 0a 61 72 65 61 20 | 61 74 20 74 68 65 20 62 |on.area |at the b|
|00001d60| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00001d70| 6c 69 6e 65 2c 20 73 69 | 6d 70 6c 79 20 69 6e 73 |line, si|mply ins|
|00001d80| 65 72 74 20 61 20 74 61 | 62 2e 0a 0a 4f 74 68 65 |ert a ta|b...Othe|
|00001d90| 72 77 69 73 65 2c 20 69 | 6e 64 65 6e 74 20 74 68 |rwise, i|ndent th|
|00001da0| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2e 20 |e curren|t line. |
|00001db0| 20 49 66 20 70 6f 69 6e | 74 20 77 61 73 20 77 69 | If poin|t was wi|
|00001dc0| 74 68 69 6e 20 74 68 65 | 20 69 6e 64 65 6e 74 61 |thin the| indenta|
|00001dd0| 74 69 6f 6e 0a 61 72 65 | 61 20 69 74 20 69 73 20 |tion.are|a it is |
|00001de0| 6d 6f 76 65 64 20 74 6f | 20 74 68 65 20 65 6e 64 |moved to| the end|
|00001df0| 20 6f 66 20 74 68 65 20 | 69 6e 64 65 6e 74 61 74 | of the |indentat|
|00001e00| 69 6f 6e 20 61 72 65 61 | 2e 20 20 49 66 20 74 68 |ion area|. If th|
|00001e10| 65 20 6c 69 6e 65 20 77 | 61 73 0a 61 6c 72 65 61 |e line w|as.alrea|
|00001e20| 64 79 20 69 6e 64 65 6e | 74 65 64 20 70 72 6f 70 |dy inden|ted prop|
|00001e30| 65 72 6c 79 20 61 6e 64 | 20 70 6f 69 6e 74 20 77 |erly and| point w|
|00001e40| 61 73 20 6e 6f 74 20 77 | 69 74 68 69 6e 20 74 68 |as not w|ithin th|
|00001e50| 65 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 72 |e indent|ation ar|
|00001e60| 65 61 2c 0a 61 6e 64 20 | 69 66 20 60 70 65 72 6c |ea,.and |if `perl|
|00001e70| 2d 74 61 62 2d 74 6f 2d | 63 6f 6d 6d 65 6e 74 27 |-tab-to-|comment'|
|00001e80| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 20 28 74 68 65 | is non-|nil (the|
|00001e90| 20 64 65 66 61 75 6c 74 | 29 2c 20 74 68 65 6e 20 | default|), then |
|00001ea0| 64 6f 20 74 68 65 20 66 | 69 72 73 74 0a 70 6f 73 |do the f|irst.pos|
|00001eb0| 73 69 62 6c 65 20 61 63 | 74 69 6f 6e 20 66 72 6f |sible ac|tion fro|
|00001ec0| 6d 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |m the fo|llowing |
|00001ed0| 6c 69 73 74 3a 0a 0a 20 | 20 31 29 20 64 65 6c 65 |list:.. | 1) dele|
|00001ee0| 74 65 20 61 6e 20 65 6d | 70 74 79 20 63 6f 6d 6d |te an em|pty comm|
|00001ef0| 65 6e 74 0a 20 20 32 29 | 20 6d 6f 76 65 20 66 6f |ent. 2)| move fo|
|00001f00| 72 77 61 72 64 20 74 6f | 20 73 74 61 72 74 20 6f |rward to| start o|
|00001f10| 66 20 63 6f 6d 6d 65 6e | 74 2c 20 69 6e 64 65 6e |f commen|t, inden|
|00001f20| 74 69 6e 67 20 69 66 20 | 6e 65 63 65 73 73 61 72 |ting if |necessar|
|00001f30| 79 0a 20 20 33 29 20 6d | 6f 76 65 20 66 6f 72 77 |y. 3) m|ove forw|
|00001f40| 61 72 64 20 74 6f 20 65 | 6e 64 20 6f 66 20 6c 69 |ard to e|nd of li|
|00001f50| 6e 65 0a 20 20 34 29 20 | 63 72 65 61 74 65 20 61 |ne. 4) |create a|
|00001f60| 6e 20 65 6d 70 74 79 20 | 63 6f 6d 6d 65 6e 74 0a |n empty |comment.|
|00001f70| 20 20 35 29 20 6d 6f 76 | 65 20 62 61 63 6b 77 61 | 5) mov|e backwa|
|00001f80| 72 64 20 74 6f 20 73 74 | 61 72 74 20 6f 66 20 63 |rd to st|art of c|
|00001f90| 6f 6d 6d 65 6e 74 2c 20 | 69 6e 64 65 6e 74 69 6e |omment, |indentin|
|00001fa0| 67 20 69 66 20 6e 65 63 | 65 73 73 61 72 79 2e 1f |g if nec|essary..|
|00001fb0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 65 72 6c |.(defali|as 'perl|
|00001fc0| 2d 69 6e 64 65 6e 74 2d | 63 6f 6d 6d 61 6e 64 20 |-indent-|command |
|00001fd0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00001fe0| 29 20 22 08 ab 84 c1 c2 | 21 87 0b ac 89 69 c4 20 |) ".....|!....i. |
|00001ff0| 56 ab 83 c5 20 87 c6 89 | 89 60 1e 07 1e 08 1e 09 |V... ...|.`......|
|00002000| 1e 5c 6e cb 79 88 60 16 | 09 cc 20 16 5c 6e 0e 07 |.\n.y.`.|.. .\n..|
|00002010| 62 88 c1 cd 0e 5c 6e 5c | 22 16 08 0e 0e 85 ed 00 |b....\n\|".......|
|00002020| 0e 07 60 55 85 ed 00 0e | 08 3c ab 8d cf 0e 08 38 |..`U....|.<.....8|
|00002030| ae 82 0e 5c 6e 89 16 09 | aa 84 0e 08 cb 55 85 ed |...\n...|.....U..|
|00002040| 00 c6 89 1e 10 1e 11 c6 | 7f 88 60 16 11 0e 5c 6e |........|..`...\n|
|00002050| 66 d2 55 ab 8c 0e 07 0e | 11 55 ad f9 d3 d4 21 aa |f.U.....|.U....!.|
|00002060| f4 d5 0e 09 0e 11 5c 22 | 16 10 d6 0e 10 38 ab 90 |......\"|.....8..|
|00002070| 0e 07 0e 11 55 ad df d3 | d7 d6 0e 10 38 5c 22 aa |....U...|....8\".|
|00002080| d6 d8 0e 10 38 ac 8b 0e | 07 0e 11 55 ad c9 d9 20 |....8...|...U... |
|00002090| aa c5 cb 79 88 da 0e 1b | 0e 11 dc 23 ab a7 6c ab |...y....|...#..l.|
|000020a0| 8f cb 94 62 88 dd c6 78 | 88 de 60 0e 11 5c 22 aa |...b...x|..`..\".|
|000020b0| a7 0e 07 60 57 ac 87 0e | 07 0e 11 55 ab 84 d9 20 |...`W...|...U... |
|000020c0| aa 96 c6 7f aa 92 0e 07 | 0e 11 55 ac 84 c6 7f aa |........|..U.....|
|000020d0| 87 d3 df 21 88 e0 e1 21 | 2a 2c 87 22 20 5b 61 72 |...!...!|*,." [ar|
|000020e0| 67 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 69 |g perl-i|ndent-li|
|000020f0| 6e 65 20 22 0c 22 20 70 | 65 72 6c 2d 74 61 62 2d |ne "." p|erl-tab-|
|00002100| 61 6c 77 61 79 73 2d 69 | 6e 64 65 6e 74 20 63 75 |always-i|ndent cu|
|00002110| 72 72 65 6e 74 2d 69 6e | 64 65 6e 74 61 74 69 6f |rrent-in|dentatio|
|00002120| 6e 20 69 6e 73 65 72 74 | 2d 74 61 62 20 6e 69 6c |n insert|-tab nil|
|00002130| 20 6f 6c 64 70 6e 74 20 | 64 65 6c 74 61 20 6c 73 | oldpnt |delta ls|
|00002140| 65 78 70 20 62 6f 66 20 | 30 20 70 65 72 6c 2d 62 |exp bof |0 perl-b|
|00002150| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 66 75 6e 63 |eginning|-of-func|
|00002160| 74 69 6f 6e 20 22 0c 5c | 5c 7c 3b 3f 23 22 20 70 |tion ".\|\|;?#" p|
|00002170| 65 72 6c 2d 74 61 62 2d | 74 6f 2d 63 6f 6d 6d 65 |erl-tab-|to-comme|
|00002180| 6e 74 20 32 20 73 74 61 | 74 65 20 65 6f 6c 20 3f |nt 2 sta|te eol ?|
|00002190| 5c 3d 20 6d 65 73 73 61 | 67 65 20 22 49 6e 20 61 |\= messa|ge "In a|
|000021a0| 20 66 6f 72 6d 61 74 20 | 73 74 61 74 65 6d 65 6e | format |statemen|
|000021b0| 74 22 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c |t" parse|-partial|
|000021c0| 2d 73 65 78 70 20 33 20 | 22 49 6e 20 61 20 73 74 |-sexp 3 |"In a st|
|000021d0| 72 69 6e 67 20 77 68 69 | 63 68 20 73 74 61 72 74 |ring whi|ch start|
|000021e0| 73 20 77 69 74 68 20 61 | 20 25 63 2e 22 20 34 20 |s with a| %c." 4 |
|000021f0| 69 6e 64 65 6e 74 2d 66 | 6f 72 2d 63 6f 6d 6d 65 |indent-f|or-comme|
|00002200| 6e 74 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |nt re-se|arch-for|
|00002210| 77 61 72 64 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |ward com|ment-sta|
|00002220| 72 74 2d 73 6b 69 70 20 | 6d 6f 76 65 20 22 20 09 |rt-skip |move " .|
|00002230| 22 20 6b 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 22 55 |" kill-r|egion "U|
|00002240| 73 65 20 62 61 63 6b 73 | 6c 61 73 68 20 74 6f 20 |se backs|lash to |
|00002250| 71 75 6f 74 65 20 23 20 | 63 68 61 72 61 63 74 65 |quote # |characte|
|00002260| 72 73 2e 22 20 64 69 6e | 67 20 74 5d 20 34 20 28 |rs." din|g t] 4 (|
|00002270| 23 24 20 2e 20 37 32 38 | 39 29 20 22 50 22 5d 29 |#$ . 728|9) "P"])|
|00002280| 0a 23 40 31 33 34 20 49 | 6e 64 65 6e 74 20 63 75 |.#@134 I|ndent cu|
|00002290| 72 72 65 6e 74 20 6c 69 | 6e 65 20 61 73 20 50 65 |rrent li|ne as Pe|
|000022a0| 72 6c 20 63 6f 64 65 2e | 0a 52 65 74 75 72 6e 20 |rl code.|.Return |
|000022b0| 74 68 65 20 61 6d 6f 75 | 6e 74 20 74 68 65 20 69 |the amou|nt the i|
|000022c0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 0a 63 68 61 6e |ndentati|on .chan|
|000022d0| 67 65 64 20 62 79 2c 20 | 6f 72 20 28 70 61 72 73 |ged by, |or (pars|
|000022e0| 65 2d 73 74 61 74 65 29 | 20 69 66 20 6c 69 6e 65 |e-state)| if line|
|000022f0| 20 73 74 61 72 74 73 20 | 69 6e 20 61 20 71 75 6f | starts |in a quo|
|00002300| 74 65 64 20 73 74 72 69 | 6e 67 2e 1f 0a 28 64 65 |ted stri|ng...(de|
|00002310| 66 61 6c 69 61 73 20 27 | 70 65 72 6c 2d 69 6e 64 |falias '|perl-ind|
|00002320| 65 6e 74 2d 6c 69 6e 65 | 20 23 5b 28 26 6f 70 74 |ent-line| #[(&opt|
|00002330| 69 6f 6e 61 6c 20 6e 6f | 63 68 61 6e 67 65 20 70 |ional no|change p|
|00002340| 61 72 73 65 2d 73 74 61 | 72 74 29 20 22 c0 64 60 |arse-sta|rt) ".d`|
|00002350| 5a 09 ae 84 8a c2 20 29 | c0 89 89 1b 1c 1d 1e 06 |Z..... )|........|
|00002360| 1e 07 1e 08 c9 79 88 60 | 15 0e 06 66 ca 55 ab 83 |.....y.`|...f.U..|
|00002370| c9 aa c4 cb 0e 06 21 89 | 14 3c ab 83 0c aa b8 cc |......!.|.<......|
|00002380| 0e 0d ae 82 0e 0e 21 ab | 83 c9 aa ab cf c0 77 88 |......!.|......w.|
|00002390| cc d0 21 ab 89 d1 0c 0e | 12 5c 5c 5d 14 aa 96 67 |..!.....|.\\]...g|
|000023a0| d3 55 ab 87 0c 0e 14 5a | 14 aa 8a 67 d5 55 ab 85 |.U.....Z|...g.U..|
|000023b0| 0c 0e 16 5c 5c 14 0c 69 | 5a 13 cf c0 77 88 0b a7 |...\\..i|Z...w...|
|000023c0| ab 8c 0b c9 55 ac 87 0d | 60 7c 88 0c 6a 88 64 0e |....U...|`|..j.d.|
|000023d0| 07 5a 60 56 ab 86 64 0e | 07 5a 62 88 0b 2e 06 87 |.Z`V..d.|.Zb.....|
|000023e0| 22 20 5b 6e 69 6c 20 70 | 61 72 73 65 2d 73 74 61 |" [nil p|arse-sta|
|000023f0| 72 74 20 70 65 72 6c 2d | 62 65 67 69 6e 6e 69 6e |rt perl-|beginnin|
|00002400| 67 2d 6f 66 2d 66 75 6e | 63 74 69 6f 6e 20 73 68 |g-of-fun|ction sh|
|00002410| 69 66 74 2d 61 6d 74 20 | 69 6e 64 65 6e 74 20 62 |ift-amt |indent b|
|00002420| 65 67 20 62 6f 66 20 70 | 6f 73 20 63 61 73 65 2d |eg bof p|os case-|
|00002430| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 30 20 3f 5c |fold-sea|rch 0 ?\|
|00002440| 3d 20 63 61 6c 63 75 6c | 61 74 65 2d 70 65 72 6c |= calcul|ate-perl|
|00002450| 2d 69 6e 64 65 6e 74 20 | 6c 6f 6f 6b 69 6e 67 2d |-indent |looking-|
|00002460| 61 74 20 6e 6f 63 68 61 | 6e 67 65 20 70 65 72 6c |at nocha|nge perl|
|00002470| 2d 6e 6f 63 68 61 6e 67 | 65 20 22 20 09 0c 22 20 |-nochang|e " .." |
|00002480| 22 5c 5c 28 5c 5c 77 5c | 5c 7c 5c 5c 73 5f 5c 5c |"\\(\\w\|\|\\s_\\|
|00002490| 29 2b 3a 22 20 31 20 70 | 65 72 6c 2d 6c 61 62 65 |)+:" 1 p|erl-labe|
|000024a0| 6c 2d 6f 66 66 73 65 74 | 20 3f 5c 7d 20 70 65 72 |l-offset| ?\} per|
|000024b0| 6c 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 20 3f |l-indent|-level ?|
|000024c0| 5c 7b 20 70 65 72 6c 2d | 62 72 61 63 65 2d 6f 66 |\{ perl-|brace-of|
|000024d0| 66 73 65 74 5d 20 36 20 | 28 23 24 20 2e 20 38 38 |fset] 6 |(#$ . 88|
|000024e0| 33 39 29 5d 29 0a 23 40 | 31 37 36 20 52 65 74 75 |39)]).#@|176 Retu|
|000024f0| 72 6e 20 61 70 70 72 6f | 70 72 69 61 74 65 20 69 |rn appro|priate i|
|00002500| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 63 |ndentati|on for c|
|00002510| 75 72 72 65 6e 74 20 6c | 69 6e 65 20 61 73 20 50 |urrent l|ine as P|
|00002520| 65 72 6c 20 63 6f 64 65 | 2e 0a 49 6e 20 75 73 75 |erl code|..In usu|
|00002530| 61 6c 20 63 61 73 65 20 | 72 65 74 75 72 6e 73 20 |al case |returns |
|00002540| 61 6e 20 69 6e 74 65 67 | 65 72 3a 20 74 68 65 20 |an integ|er: the |
|00002550| 63 6f 6c 75 6d 6e 20 74 | 6f 20 69 6e 64 65 6e 74 |column t|o indent|
|00002560| 20 74 6f 2e 0a 52 65 74 | 75 72 6e 73 20 28 70 61 | to..Ret|urns (pa|
|00002570| 72 73 65 2d 73 74 61 74 | 65 29 20 69 66 20 6c 69 |rse-stat|e) if li|
|00002580| 6e 65 20 73 74 61 72 74 | 73 20 69 6e 73 69 64 65 |ne start|s inside|
|00002590| 20 61 20 73 74 72 69 6e | 67 2e 1f 0a 28 64 65 66 | a strin|g...(def|
|000025a0| 61 6c 69 61 73 20 27 63 | 61 6c 63 75 6c 61 74 65 |alias 'c|alculate|
|000025b0| 2d 70 65 72 6c 2d 69 6e | 64 65 6e 74 20 23 5b 28 |-perl-in|dent #[(|
|000025c0| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 61 72 73 65 2d |&optiona|l parse-|
|000025d0| 73 74 61 72 74 29 20 22 | 8a c0 79 88 60 c1 c0 c1 |start) "|..y.`...|
|000025e0| 89 1a 1b 1c 1d 1e 06 0e | 07 ab 86 0e 07 62 88 aa |........|.....b..|
|000025f0| 83 c8 20 88 60 0e 06 57 | ab 90 60 16 07 c9 60 0e |.. .`..W|..`...`.|
|00002600| 06 c0 23 89 13 41 40 12 | aa 6a ca 0b 38 ab 84 0b |..#..A@.|.j..8...|
|00002610| 82 2f 01 5c 6e ac a1 cb | c1 77 88 67 cc 55 ab 84 |./.\n...|.w.g.U..|
|00002620| c0 82 2f 01 cd 20 88 6f | ac 85 68 ce 73 ab 84 c0 |../.. .o|..h.s...|
|00002630| 82 2f 01 0e 0f 82 2f 01 | 5c 6e 66 cc 55 ac 88 5c |./..../.|\nf.U..\|
|00002640| 6e 54 62 88 69 82 2f 01 | cd 20 88 68 d0 61 ac 8e |nTb.i./.|. .h.a..|
|00002650| 68 d1 61 ab 9c 60 d2 5a | 66 7a d3 73 ab 93 68 d0 |h.a..`.Z|fz.s..h.|
|00002660| 61 ab 86 d4 5c 6e 21 88 | aa 83 c0 79 88 cd 20 88 |a...\n!.|...y.. .|
|00002670| aa 5a 68 d5 73 ac 9b d4 | 5c 6e 21 88 0e 0f 69 5c |.Zh.s...|\n!...i\|
|00002680| 5c 8a 0e 06 62 88 d6 d7 | 21 29 ab 84 0e 18 aa 81 |\...b...|!)......|
|00002690| c0 5c 5c aa f9 5c 6e 62 | 88 6e ab 8f 8a 0e 06 62 |.\\..\nb|.n.....b|
|000026a0| 88 d6 d9 21 29 ab 84 0e | 1a ae e4 8a db 75 88 dc |...!)...|.....u..|
|000026b0| c1 77 88 d6 dd 21 ab 85 | db 79 88 aa 72 d6 de 21 |.w...!..|.y..r..!|
|000026c0| ab 8c 8a c1 7f 88 60 14 | 29 df e0 21 ac 61 60 0e |......`.|)..!.a`.|
|000026d0| 06 57 ad 8d 0c 60 56 ab | 87 e1 20 0e 5c 22 5a aa |.W...`V.|.. .\"Z.|
|000026e0| 81 69 29 ae ab 6e ab 8d | 0e 1a c0 55 ab 87 0e 23 |.i)..n..|...U...#|
|000026f0| 0e 0f 5c 5c aa 82 0e 1a | e4 c1 78 88 6e ab 83 c0 |..\\....|..x.n...|
|00002700| aa 82 0e 25 5c 5c 68 e6 | 61 ab 84 e7 e8 21 88 e1 |...%\\h.|a....!..|
|00002710| 20 5c 5c 2e 06 87 22 20 | 5b 30 20 6e 69 6c 20 63 | \\..." |[0 nil c|
|00002720| 6f 6e 74 61 69 6e 69 6e | 67 2d 73 65 78 70 20 73 |ontainin|g-sexp s|
|00002730| 74 61 74 65 20 63 6f 6c | 6f 6e 2d 6c 69 6e 65 2d |tate col|on-line-|
|00002740| 65 6e 64 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |end case|-fold-se|
|00002750| 61 72 63 68 20 69 6e 64 | 65 6e 74 2d 70 6f 69 6e |arch ind|ent-poin|
|00002760| 74 20 70 61 72 73 65 2d | 73 74 61 72 74 20 70 65 |t parse-|start pe|
|00002770| 72 6c 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |rl-begin|ning-of-|
|00002780| 66 75 6e 63 74 69 6f 6e | 20 70 61 72 73 65 2d 70 |function| parse-p|
|00002790| 61 72 74 69 61 6c 2d 73 | 65 78 70 20 33 20 22 20 |artial-s|exp 3 " |
|000027a0| 09 0c 22 20 3f 5c 7b 20 | 70 65 72 6c 2d 62 61 63 |.." ?\{ |perl-bac|
|000027b0| 6b 77 61 72 64 2d 74 6f | 2d 6e 6f 6e 63 6f 6d 6d |kward-to|-noncomm|
|000027c0| 65 6e 74 20 28 3f 5c 3b | 20 3f 5c 7d 29 20 70 65 |ent (?\;| ?\}) pe|
|000027d0| 72 6c 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 73 74 61 |rl-conti|nued-sta|
|000027e0| 74 65 6d 65 6e 74 2d 6f | 66 66 73 65 74 20 3f 5c |tement-o|ffset ?\|
|000027f0| 2c 20 3f 5c 3a 20 32 20 | 28 3f 77 20 3f 5c 5f 29 |, ?\: 2 |(?w ?\_)|
|00002800| 20 70 65 72 6c 2d 62 61 | 63 6b 77 61 72 64 2d 74 | perl-ba|ckward-t|
|00002810| 6f 2d 73 74 61 72 74 2d | 6f 66 2d 63 6f 6e 74 69 |o-start-|of-conti|
|00002820| 6e 75 65 64 2d 65 78 70 | 20 28 3f 5c 3b 20 3f 5c |nued-exp| (?\; ?\|
|00002830| 7d 20 3f 5c 7b 29 20 6c | 6f 6f 6b 69 6e 67 2d 61 |} ?\{) l|ooking-a|
|00002840| 74 20 22 5b 20 09 5d 2a | 7b 22 20 70 65 72 6c 2d |t "[ .]*|{" perl-|
|00002850| 63 6f 6e 74 69 6e 75 65 | 64 2d 62 72 61 63 65 2d |continue|d-brace-|
|00002860| 6f 66 66 73 65 74 20 22 | 5b 20 09 5d 2a 7d 22 20 |offset "|[ .]*}" |
|00002870| 70 65 72 6c 2d 69 6e 64 | 65 6e 74 2d 6c 65 76 65 |perl-ind|ent-leve|
|00002880| 6c 20 31 20 22 20 09 0c | 5c 6e 22 20 22 3b 3f 23 |l 1 " ..|\n" ";?#|
|00002890| 22 20 22 5c 5c 28 5c 5c | 77 5c 5c 7c 5c 5c 73 5f |" "\\(\\|w\\|\\s_|
|000028a0| 5c 5c 29 2b 3a 22 20 73 | 65 61 72 63 68 2d 66 6f |\\)+:" s|earch-fo|
|000028b0| 72 77 61 72 64 20 22 3a | 22 20 63 75 72 72 65 6e |rward ":|" curren|
|000028c0| 74 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 70 65 |t-indent|ation pe|
|000028d0| 72 6c 2d 6c 61 62 65 6c | 2d 6f 66 66 73 65 74 20 |rl-label|-offset |
|000028e0| 70 65 72 6c 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |perl-bra|ce-offse|
|000028f0| 74 20 22 20 09 22 20 70 | 65 72 6c 2d 62 72 61 63 |t " ." p|erl-brac|
|00002900| 65 2d 69 6d 61 67 69 6e | 61 72 79 2d 6f 66 66 73 |e-imagin|ary-offs|
|00002910| 65 74 20 3f 5c 29 20 66 | 6f 72 77 61 72 64 2d 73 |et ?\) f|orward-s|
|00002920| 65 78 70 20 2d 31 5d 20 | 36 20 28 23 24 20 2e 20 |exp -1] |6 (#$ . |
|00002930| 39 34 35 32 29 5d 29 0a | 23 40 37 36 20 4d 6f 76 |9452)]).|#@76 Mov|
|00002940| 65 20 70 6f 69 6e 74 20 | 62 61 63 6b 77 61 72 64 |e point |backward|
|00002950| 20 74 6f 20 61 66 74 65 | 72 20 74 68 65 20 66 69 | to afte|r the fi|
|00002960| 72 73 74 20 6e 6f 6e 2d | 77 68 69 74 65 2d 73 70 |rst non-|white-sp|
|00002970| 61 63 65 2c 20 73 6b 69 | 70 70 69 6e 67 20 63 6f |ace, ski|pping co|
|00002980| 6d 6d 65 6e 74 73 2e 1f | 0a 28 64 65 66 61 6c 69 |mments..|.(defali|
|00002990| 61 73 20 27 70 65 72 6c | 2d 62 61 63 6b 77 61 72 |as 'perl|-backwar|
|000029a0| 64 2d 74 6f 2d 6e 6f 6e | 63 6f 6d 6d 65 6e 74 20 |d-to-non|comment |
|000029b0| 23 5b 6e 69 6c 20 22 c0 | 89 19 1a 09 3f ad a6 60 |#[nil ".|....?..`|
|000029c0| 12 c3 79 88 c4 0d 5c 6e | c6 c7 24 ab 88 c7 95 62 |..y...\n|..$....b|
|000029d0| 88 c8 c0 77 88 c9 c0 78 | 88 6f ae 86 6e 3f ae 82 |...w...x|.o..n?..|
|000029e0| ca 75 89 11 aa 57 2a 87 | 22 20 5b 6e 69 6c 20 73 |.u...W*.|" [nil s|
|000029f0| 74 6f 70 20 6f 70 6f 69 | 6e 74 20 30 20 72 65 2d |top opoi|nt 0 re-|
|00002a00| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 63 |search-f|orward c|
|00002a10| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 2d 73 6b 69 |omment-s|tart-ski|
|00002a20| 70 20 6d 6f 76 65 20 31 | 20 22 3b 22 20 22 20 09 |p move 1| ";" " .|
|00002a30| 0c 22 20 2d 31 5d 20 36 | 20 28 23 24 20 2e 20 31 |." -1] 6| (#$ . 1|
|00002a40| 30 35 35 37 29 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |0557) ni|l]).(def|
|00002a50| 61 6c 69 61 73 20 27 70 | 65 72 6c 2d 62 61 63 6b |alias 'p|erl-back|
|00002a60| 77 61 72 64 2d 74 6f 2d | 73 74 61 72 74 2d 6f 66 |ward-to-|start-of|
|00002a70| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 65 78 70 20 23 |-continu|ed-exp #|
|00002a80| 5b 28 6c 69 6d 29 20 22 | 68 c0 55 ab 84 c1 c2 21 |[(lim) "|h.U....!|
|00002a90| 88 c3 79 88 60 0c 58 ab | 84 0c 54 62 88 c5 c6 77 |..y.`.X.|..Tb...w|
|00002aa0| 87 22 20 5b 3f 5c 29 20 | 66 6f 72 77 61 72 64 2d |." [?\) |forward-|
|00002ab0| 73 65 78 70 20 2d 31 20 | 30 20 6c 69 6d 20 22 20 |sexp -1 |0 lim " |
|00002ac0| 09 0c 22 20 6e 69 6c 5d | 20 32 5d 29 0a 23 40 35 |.." nil]| 2]).#@5|
|00002ad0| 36 20 49 6e 64 65 6e 74 | 20 65 61 63 68 20 6c 69 |6 Indent| each li|
|00002ae0| 6e 65 20 6f 66 20 74 68 | 65 20 50 65 72 6c 20 67 |ne of th|e Perl g|
|00002af0| 72 6f 75 70 69 6e 67 20 | 66 6f 6c 6c 6f 77 69 6e |rouping |followin|
|00002b00| 67 20 70 6f 69 6e 74 2e | 1f 0a 28 64 65 66 61 6c |g point.|..(defal|
|00002b10| 69 61 73 20 27 69 6e 64 | 65 6e 74 2d 70 65 72 6c |ias 'ind|ent-perl|
|00002b20| 2d 65 78 70 20 23 5b 6e | 69 6c 20 22 c0 19 c2 20 |-exp #[n|il "... |
|00002b30| 1b 8a c4 7f 88 c5 20 88 | c2 20 29 1e 06 c0 1e 07 |...... .|. ).....|
|00002b40| c0 1e 08 c0 1e 09 c0 1e | 5c 6e cb 0e 06 21 66 cc |........|\n...!f.|
|00002b50| 55 ab 86 cd ce 21 82 bd | 00 cd cf 21 88 8a c0 7f |U....!..|...!....|
|00002b60| 88 60 16 07 29 8a 6d ac | 8e 60 0e 07 58 ab 88 d0 |.`..).m.|.`..X...|
|00002b70| 60 64 d1 23 88 aa 6f c2 | 20 16 08 29 0e 06 16 09 |`d.#..o.| ..)....|
|00002b80| d1 79 88 60 cb 0e 08 21 | 57 ab d7 d2 c0 cb 0e 06 |.y.`...!|W.......|
|00002b90| 21 5c 22 89 16 5c 6e a7 | ab 8a 6c ab 83 d3 20 88 |!\"..\n.|..l... .|
|00002ba0| c2 20 16 09 c0 7f 88 60 | 16 07 d4 d0 cb 0e 09 21 |. .....`|.......!|
|00002bb0| 0e 07 5c 22 38 ab a9 d1 | 79 88 d5 d6 21 ab 95 0e |..\"8...|y...!...|
|00002bc0| 5c 6e 3c ac 90 0e 5c 6e | d1 55 ac 96 d7 20 0e 5c |\n<...\n|.U... .\|
|00002bd0| 6e 5a 0e 18 55 ab 8c d9 | 0e 1a 0e 07 db 23 ab 83 |nZ..U...|.....#..|
|00002be0| dc 20 88 dd 79 88 aa 21 | cb 0b 21 62 88 cd de 21 |. ..y..!|..!b...!|
|00002bf0| 2e 07 87 22 20 5b 6e 69 | 6c 20 63 61 73 65 2d 66 |..." [ni|l case-f|
|00002c00| 6f 6c 64 2d 73 65 61 72 | 63 68 20 70 6f 69 6e 74 |old-sear|ch point|
|00002c10| 2d 6d 61 72 6b 65 72 20 | 6f 6c 64 70 6e 74 20 32 |-marker |oldpnt 2|
|00002c20| 20 70 65 72 6c 2d 62 65 | 67 69 6e 6e 69 6e 67 2d | perl-be|ginning-|
|00002c30| 6f 66 2d 66 75 6e 63 74 | 69 6f 6e 20 62 6f 66 2d |of-funct|ion bof-|
|00002c40| 6d 61 72 6b 20 65 6f 6c | 20 6c 61 73 74 2d 6d 61 |mark eol| last-ma|
|00002c50| 72 6b 20 6c 73 65 78 70 | 2d 6d 61 72 6b 20 64 65 |rk lsexp|-mark de|
|00002c60| 6c 74 61 20 6d 61 72 6b | 65 72 2d 70 6f 73 69 74 |lta mark|er-posit|
|00002c70| 69 6f 6e 20 3f 5c 3d 20 | 6d 65 73 73 61 67 65 20 |ion ?\= |message |
|00002c80| 22 43 61 6e 27 74 20 69 | 6e 64 65 6e 74 20 61 20 |"Can't i|ndent a |
|00002c90| 66 6f 72 6d 61 74 20 73 | 74 61 74 65 6d 65 6e 74 |format s|tatement|
|00002ca0| 22 20 22 49 6e 64 65 6e | 74 69 6e 67 20 50 65 72 |" "Inden|ting Per|
|00002cb0| 6c 20 65 78 70 72 65 73 | 73 69 6f 6e 2e 2e 2e 22 |l expres|sion..."|
|00002cc0| 20 70 61 72 73 65 2d 70 | 61 72 74 69 61 6c 2d 73 | parse-p|artial-s|
|00002cd0| 65 78 70 20 30 20 70 65 | 72 6c 2d 69 6e 64 65 6e |exp 0 pe|rl-inden|
|00002ce0| 74 2d 6c 69 6e 65 20 64 | 65 6c 65 74 65 2d 68 6f |t-line d|elete-ho|
|00002cf0| 72 69 7a 6f 6e 74 61 6c | 2d 73 70 61 63 65 20 34 |rizontal|-space 4|
|00002d00| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5c 5c 73 | looking|-at "\\s|
|00002d10| 2d 2a 3b 3f 23 22 20 63 | 75 72 72 65 6e 74 2d 69 |-*;?#" c|urrent-i|
|00002d20| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 63 6f 6d 6d 65 |ndentati|on comme|
|00002d30| 6e 74 2d 63 6f 6c 75 6d | 6e 20 72 65 2d 73 65 61 |nt-colum|n re-sea|
|00002d40| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 63 6f 6d 6d |rch-forw|ard comm|
|00002d50| 65 6e 74 2d 73 74 61 72 | 74 2d 73 6b 69 70 20 74 |ent-star|t-skip t|
|00002d60| 20 69 6e 64 65 6e 74 2d | 66 6f 72 2d 63 6f 6d 6d | indent-|for-comm|
|00002d70| 65 6e 74 20 31 20 22 49 | 6e 64 65 6e 74 69 6e 67 |ent 1 "I|ndenting|
|00002d80| 20 50 65 72 6c 20 65 78 | 70 72 65 73 73 69 6f 6e | Perl ex|pression|
|00002d90| 2e 2e 2e 64 6f 6e 65 22 | 5d 20 35 20 28 23 24 20 |...done"|] 5 (#$ |
|00002da0| 2e 20 31 30 39 36 32 29 | 20 6e 69 6c 5d 29 0a 23 |. 10962)| nil]).#|
|00002db0| 40 31 37 37 20 4d 6f 76 | 65 20 62 61 63 6b 77 61 |@177 Mov|e backwa|
|00002dc0| 72 64 20 74 6f 20 6e 65 | 78 74 20 62 65 67 69 6e |rd to ne|xt begin|
|00002dd0| 6e 69 6e 67 2d 6f 66 2d | 66 75 6e 63 74 69 6f 6e |ning-of-|function|
|00002de0| 2c 20 6f 72 20 61 73 20 | 66 61 72 20 61 73 20 70 |, or as |far as p|
|00002df0| 6f 73 73 69 62 6c 65 2e | 0a 57 69 74 68 20 61 72 |ossible.|.With ar|
|00002e00| 67 75 6d 65 6e 74 2c 20 | 72 65 70 65 61 74 20 74 |gument, |repeat t|
|00002e10| 68 61 74 20 6d 61 6e 79 | 20 74 69 6d 65 73 3b 20 |hat many| times; |
|00002e20| 6e 65 67 61 74 69 76 65 | 20 61 72 67 73 20 6d 6f |negative| args mo|
|00002e30| 76 65 20 66 6f 72 77 61 | 72 64 2e 0a 52 65 74 75 |ve forwa|rd..Retu|
|00002e40| 72 6e 73 20 6e 65 77 20 | 76 61 6c 75 65 20 6f 66 |rns new |value of|
|00002e50| 20 70 6f 69 6e 74 20 69 | 6e 20 61 6c 6c 20 63 61 | point i|n all ca|
|00002e60| 73 65 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ses...(d|efalias |
|00002e70| 27 70 65 72 6c 2d 62 65 | 67 69 6e 6e 69 6e 67 2d |'perl-be|ginning-|
|00002e80| 6f 66 2d 66 75 6e 63 74 | 69 6f 6e 20 23 5b 28 26 |of-funct|ion #[(&|
|00002e90| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|00002ea0| ac 82 c1 10 08 c2 57 ab | 83 c1 75 88 08 c2 55 ac |......W.|..u...U.|
|00002eb0| 8d c3 c4 c5 c6 08 24 ab | 85 c2 95 53 62 88 60 87 |......$.|...Sb.`.|
|00002ec0| 22 20 5b 61 72 67 20 31 | 20 30 20 72 65 2d 73 65 |" [arg 1| 0 re-se|
|00002ed0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5e |arch-bac|kward "^|
|00002ee0| 5c 5c 73 28 5c 5c 7c 5e | 5c 5c 73 2d 2a 73 75 62 |\\s(\\|^|\\s-*sub|
|00002ef0| 5c 5c 62 5b 5e 7b 5d 2b | 7b 5c 5c 7c 5e 5c 5c 73 |\\b[^{]+|{\\|^\\s|
|00002f00| 2d 2a 66 6f 72 6d 61 74 | 5c 5c 62 5b 5e 3d 5d 2a |-*format|\\b[^=]*|
|00002f10| 3d 5c 5c 7c 5e 5c 5c 2e | 22 20 6e 69 6c 20 6d 6f |=\\|^\\.|" nil mo|
|00002f20| 76 65 5d 20 35 20 28 23 | 24 20 2e 20 31 31 37 30 |ve] 5 (#|$ . 1170|
|00002f30| 31 29 20 22 70 22 5d 29 | 0a 23 40 31 38 33 20 4d |1) "p"])|.#@183 M|
|00002f40| 6f 76 65 20 66 6f 72 77 | 61 72 64 20 74 6f 20 6e |ove forw|ard to n|
|00002f50| 65 78 74 20 65 6e 64 2d | 6f 66 2d 66 75 6e 63 74 |ext end-|of-funct|
|00002f60| 69 6f 6e 2e 0a 54 68 65 | 20 65 6e 64 20 6f 66 20 |ion..The| end of |
|00002f70| 61 20 66 75 6e 63 74 69 | 6f 6e 20 69 73 20 66 6f |a functi|on is fo|
|00002f80| 75 6e 64 20 62 79 20 6d | 6f 76 69 6e 67 20 66 6f |und by m|oving fo|
|00002f90| 72 77 61 72 64 20 66 72 | 6f 6d 20 74 68 65 20 62 |rward fr|om the b|
|00002fa0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 6f 6e 65 2e |eginning| of one.|
|00002fb0| 0a 57 69 74 68 20 61 72 | 67 75 6d 65 6e 74 2c 20 |.With ar|gument, |
|00002fc0| 72 65 70 65 61 74 20 74 | 68 61 74 20 6d 61 6e 79 |repeat t|hat many|
|00002fd0| 20 74 69 6d 65 73 3b 20 | 6e 65 67 61 74 69 76 65 | times; |negative|
|00002fe0| 20 61 72 67 73 20 6d 6f | 76 65 20 62 61 63 6b 77 | args mo|ve backw|
|00002ff0| 61 72 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ard...(d|efalias |
|00003000| 27 70 65 72 6c 2d 65 6e | 64 2d 6f 66 2d 66 75 6e |'perl-en|d-of-fun|
|00003010| 63 74 69 6f 6e 20 23 5b | 28 26 6f 70 74 69 6f 6e |ction #[|(&option|
|00003020| 61 6c 20 61 72 67 29 20 | 22 08 ac 82 c1 10 c2 1b |al arg) |".......|
|00003030| 08 c4 56 ab bc 60 64 57 | ab b7 60 1d 0b ab 8a c1 |..V..`dW|..`.....|
|00003040| 75 88 c6 c1 21 88 6f ab | 8a 6f ac 83 c7 75 88 c6 |u...!.o.|.o...u..|
|00003050| c7 21 88 c8 13 c9 c1 21 | 88 ca c8 77 88 cb cc 21 |.!.....!|...w...!|
|00003060| ab 83 c1 79 88 60 0d 58 | ac 52 29 08 53 89 10 aa |...y.`.X|.R).S...|
|00003070| 40 08 c4 57 ad b5 60 1d | c6 c1 21 88 cd c1 21 88 |@..W..`.|..!...!.|
|00003080| c1 79 88 60 0d 59 ab 9c | c6 ce 21 88 6f ac 92 c9 |.y.`.Y..|..!.o...|
|00003090| c1 21 88 ca c8 77 88 cb | cc 21 ab 88 c1 79 88 aa |.!...w..|.!...y..|
|000030a0| 83 65 62 88 29 08 54 89 | 10 aa 47 29 87 22 20 5b |.eb.).T.|..G)." [|
|000030b0| 61 72 67 20 31 20 74 20 | 66 69 72 73 74 20 30 20 |arg 1 t |first 0 |
|000030c0| 70 6f 73 20 70 65 72 6c | 2d 62 65 67 69 6e 6e 69 |pos perl|-beginni|
|000030d0| 6e 67 2d 6f 66 2d 66 75 | 6e 63 74 69 6f 6e 20 2d |ng-of-fu|nction -|
|000030e0| 31 20 6e 69 6c 20 66 6f | 72 77 61 72 64 2d 6c 69 |1 nil fo|rward-li|
|000030f0| 73 74 20 22 20 09 22 20 | 6c 6f 6f 6b 69 6e 67 2d |st " ." |looking-|
|00003100| 61 74 20 22 5b 23 5c 6e | 5d 22 20 66 6f 72 77 61 |at "[#\n|]" forwa|
|00003110| 72 64 2d 73 65 78 70 20 | 32 5d 20 33 20 28 23 24 |rd-sexp |2] 3 (#$|
|00003120| 20 2e 20 31 32 30 39 35 | 29 20 22 70 22 5d 29 0a | . 12095|) "p"]).|
|00003130| 23 40 35 35 20 50 75 74 | 20 6d 61 72 6b 20 61 74 |#@55 Put| mark at|
|00003140| 20 65 6e 64 20 6f 66 20 | 50 65 72 6c 20 66 75 6e | end of |Perl fun|
|00003150| 63 74 69 6f 6e 2c 20 70 | 6f 69 6e 74 20 61 74 20 |ction, p|oint at |
|00003160| 62 65 67 69 6e 6e 69 6e | 67 2e 1f 0a 28 64 65 66 |beginnin|g...(def|
|00003170| 61 6c 69 61 73 20 27 6d | 61 72 6b 2d 70 65 72 6c |alias 'm|ark-perl|
|00003180| 2d 66 75 6e 63 74 69 6f | 6e 20 23 5b 6e 69 6c 20 |-functio|n #[nil |
|00003190| 22 c0 60 21 88 c1 20 88 | c0 60 21 88 c2 20 88 c3 |".`!.. .|.`!.. ..|
|000031a0| 20 87 22 20 5b 70 75 73 | 68 2d 6d 61 72 6b 20 70 | ." [pus|h-mark p|
|000031b0| 65 72 6c 2d 65 6e 64 2d | 6f 66 2d 66 75 6e 63 74 |erl-end-|of-funct|
|000031c0| 69 6f 6e 20 70 65 72 6c | 2d 62 65 67 69 6e 6e 69 |ion perl|-beginni|
|000031d0| 6e 67 2d 6f 66 2d 66 75 | 6e 63 74 69 6f 6e 20 62 |ng-of-fu|nction b|
|000031e0| 61 63 6b 77 61 72 64 2d | 70 61 72 61 67 72 61 70 |ackward-|paragrap|
|000031f0| 68 5d 20 32 20 28 23 24 | 20 2e 20 31 32 35 39 37 |h] 2 (#$| . 12597|
|00003200| 29 20 6e 69 6c 5d 29 0a | 28 70 72 6f 76 69 64 65 |) nil]).|(provide|
|00003210| 20 27 70 65 72 6c 2d 6d | 6f 64 65 29 0a | 'perl-m|ode). |
+--------+-------------------------+-------------------------+--------+--------+
