/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / lisp-mode.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 75 65 20 | 4d 61 79 20 20 33 20 32 | on Tue |May  3 2|
|00000040| 31 3a 35 31 3a 33 33 20 | 31 39 39 34 0a 3b 3b 3b |1:51:33 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 6c 69 73 70 2d | 6d 6f 64 65 2e 65 6c 0a |sp/lisp-|mode.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 32 32 2e | 39 32 2e 32 2e 0a 3b 3b |n 19.22.|92.2..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 2f 67 64 2f |   (erro|r "`/gd/|
|000001a0| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|000001b0| 69 73 70 2f 6c 69 73 70 | 2d 6d 6f 64 65 2e 65 6c |isp/lisp|-mode.el|
|000001c0| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|000001d0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001e0| 28 64 65 66 76 61 72 20 | 6c 69 73 70 2d 6d 6f 64 |(defvar |lisp-mod|
|000001f0| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6e |e-syntax|-table n|
|00000200| 69 6c 20 22 5c 0a 22 29 | 0a 28 64 65 66 76 61 72 |il "\.")|.(defvar|
|00000210| 20 65 6d 61 63 73 2d 6c | 69 73 70 2d 6d 6f 64 65 | emacs-l|isp-mode|
|00000220| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6e 69 |-syntax-|table ni|
|00000230| 6c 20 22 5c 0a 22 29 0a | 28 64 65 66 76 61 72 20 |l "\.").|(defvar |
|00000240| 6c 69 73 70 2d 6d 6f 64 | 65 2d 61 62 62 72 65 76 |lisp-mod|e-abbrev|
|00000250| 2d 74 61 62 6c 65 20 6e | 69 6c 20 22 5c 0a 22 29 |-table n|il "\.")|
|00000260| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 84 bc |.(byte-c|ode "...|
|00000270| 00 c1 1a c3 20 10 5c 6e | c4 57 83 1c 00 c5 5c 6e |.... .\n|.W....\n|
|00000280| c6 08 23 88 5c 6e 54 89 | 12 82 5c 6e 00 c7 12 c7 |..#.\nT.|..\n....|
|00000290| c8 57 83 31 00 c5 5c 6e | c6 08 23 88 5c 6e 54 89 |.W.1..\n|..#.\nT.|
|000002a0| 12 82 1f 00 c9 12 c9 ca | 57 83 46 00 c5 5c 6e c6 |........|W.F..\n.|
|000002b0| 08 23 88 5c 6e 54 89 12 | 82 34 00 cb 12 cb cc 57 |.#.\nT..|.4.....W|
|000002c0| 83 5b 00 c5 5c 6e c6 08 | 23 88 5c 6e 54 89 12 82 |.[..\n..|#.\nT...|
|000002d0| 49 00 c5 cd ce 08 23 88 | c5 cf ce 08 23 88 c5 d0 |I.....#.|....#...|
|000002e0| d1 08 23 88 c5 d2 d1 08 | 23 88 c5 d3 d4 08 23 88 |..#.....|#.....#.|
|000002f0| c5 d5 d6 08 23 88 c5 d7 | d6 08 23 88 c5 d8 d6 08 |....#...|..#.....|
|00000300| 23 88 c5 d9 c6 08 23 88 | c5 da d6 08 23 88 c5 db |#.....#.|....#...|
|00000310| dc 08 23 88 c5 dd de 08 | 23 88 c5 df e0 08 23 88 |..#.....|#.....#.|
|00000320| c5 e1 e2 08 23 88 c5 c9 | e3 08 23 88 c5 e4 e5 08 |....#...|..#.....|
|00000330| 23 88 29 0e 26 84 db 00 | e7 08 21 16 26 c5 e8 e9 |#.).&...|..!.&...|
|00000340| 0e 26 23 88 c5 c9 c6 0e | 26 23 88 c5 e4 c6 0e 26 |.&#.....|&#.....&|
|00000350| 23 88 ea eb ec 5c 22 88 | ed ee ef 5c 22 87 22 20 |#....\".|...\"." |
|00000360| 5b 65 6d 61 63 73 2d 6c | 69 73 70 2d 6d 6f 64 65 |[emacs-l|isp-mode|
|00000370| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 30 20 |-syntax-|table 0 |
|00000380| 69 20 6d 61 6b 65 2d 73 | 79 6e 74 61 78 2d 74 61 |i make-s|yntax-ta|
|00000390| 62 6c 65 20 34 38 20 6d | 6f 64 69 66 79 2d 73 79 |ble 48 m|odify-sy|
|000003a0| 6e 74 61 78 2d 65 6e 74 | 72 79 20 22 5f 20 20 20 |ntax-ent|ry "_   |
|000003b0| 22 20 35 38 20 36 35 20 | 39 31 20 39 37 20 31 32 |" 58 65 |91 97 12|
|000003c0| 33 20 31 32 38 20 33 32 | 20 22 20 20 20 20 22 20 |3 128 32| "    " |
|000003d0| 39 20 31 30 20 22 3e 20 | 20 20 22 20 31 32 20 35 |9 10 "> |  " 12 5|
|000003e0| 39 20 22 3c 20 20 20 22 | 20 39 36 20 22 27 20 20 |9 "<   "| 96 "'  |
|000003f0| 20 22 20 33 39 20 34 34 | 20 34 36 20 33 35 20 33 | " 39 44| 46 35 3|
|00000400| 34 20 22 5c 22 20 20 20 | 20 22 20 39 32 20 22 5c |4 "\"   | " 92 "\|
|00000410| 5c 20 20 20 22 20 34 30 | 20 22 28 29 20 20 22 20 |\   " 40| "()  " |
|00000420| 34 31 20 22 29 28 20 20 | 22 20 22 28 5d 20 20 22 |41 ")(  |" "(]  "|
|00000430| 20 39 33 20 22 29 5b 20 | 20 22 20 6c 69 73 70 2d | 93 ")[ | " lisp-|
|00000440| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00000450| 65 20 63 6f 70 79 2d 73 | 79 6e 74 61 78 2d 74 61 |e copy-s|yntax-ta|
|00000460| 62 6c 65 20 31 32 34 20 | 22 5c 22 20 20 20 22 20 |ble 124 |"\"   " |
|00000470| 64 65 66 69 6e 65 2d 61 | 62 62 72 65 76 2d 74 61 |define-a|bbrev-ta|
|00000480| 62 6c 65 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 61 62 |ble lisp|-mode-ab|
|00000490| 62 72 65 76 2d 74 61 62 | 6c 65 20 6e 69 6c 20 64 |brev-tab|le nil d|
|000004a0| 65 66 61 6c 69 61 73 20 | 6c 69 73 70 2d 6d 6f 64 |efalias |lisp-mod|
|000004b0| 65 2d 76 61 72 69 61 62 | 6c 65 73 20 23 5b 28 6c |e-variab|les #[(l|
|000004c0| 69 73 70 2d 73 79 6e 74 | 61 78 29 20 22 08 83 08 |isp-synt|ax) "...|
|000004d0| 00 c1 5c 6e 21 88 0b 14 | c5 c6 21 88 c7 0e 08 50 |..\n!...|..!....P|
|000004e0| 16 06 c5 c9 21 88 0e 06 | 16 09 c5 ca 21 88 cb 16 |....!...|....!...|
|000004f0| 5c 6e c5 cc 21 88 cd 16 | 5c 66 c5 ce 21 88 cf 16 |\n..!...|\f..!...|
|00000500| 0e c5 d0 21 88 cb 16 10 | c5 d1 21 88 d2 16 11 c5 |...!....|..!.....|
|00000510| d3 21 88 d4 16 13 c5 d5 | 21 88 d6 16 15 c5 d7 21 |.!......|!......!|
|00000520| 88 d8 16 17 c5 d9 21 88 | da 89 16 19 87 22 20 5b |......!.|....." [|
|00000530| 6c 69 73 70 2d 73 79 6e | 74 61 78 20 73 65 74 2d |lisp-syn|tax set-|
|00000540| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6c 69 73 |syntax-t|able lis|
|00000550| 70 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |p-mode-s|yntax-ta|
|00000560| 62 6c 65 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 61 62 |ble lisp|-mode-ab|
|00000570| 62 72 65 76 2d 74 61 62 | 6c 65 20 6c 6f 63 61 6c |brev-tab|le local|
|00000580| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6d 61 |-abbrev-|table ma|
|00000590| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|000005a0| 65 20 70 61 72 61 67 72 | 61 70 68 2d 73 74 61 72 |e paragr|aph-star|
|000005b0| 74 20 22 5e 24 5c 5c 7c | 22 20 70 61 67 65 2d 64 |t "^$\\||" page-d|
|000005c0| 65 6c 69 6d 69 74 65 72 | 20 70 61 72 61 67 72 61 |elimiter| paragra|
|000005d0| 70 68 2d 73 65 70 61 72 | 61 74 65 20 70 61 72 61 |ph-separ|ate para|
|000005e0| 67 72 61 70 68 2d 69 67 | 6e 6f 72 65 2d 66 69 6c |graph-ig|nore-fil|
|000005f0| 6c 2d 70 72 65 66 69 78 | 20 74 20 69 6e 64 65 6e |l-prefix| t inden|
|00000600| 74 2d 6c 69 6e 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |t-line-f|unction |
|00000610| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |lisp-ind|ent-line|
|00000620| 20 69 6e 64 65 6e 74 2d | 72 65 67 69 6f 6e 2d 66 | indent-|region-f|
|00000630| 75 6e 63 74 69 6f 6e 20 | 6c 69 73 70 2d 69 6e 64 |unction |lisp-ind|
|00000640| 65 6e 74 2d 72 65 67 69 | 6f 6e 20 70 61 72 73 65 |ent-regi|on parse|
|00000650| 2d 73 65 78 70 2d 69 67 | 6e 6f 72 65 2d 63 6f 6d |-sexp-ig|nore-com|
|00000660| 6d 65 6e 74 73 20 6f 75 | 74 6c 69 6e 65 2d 72 65 |ments ou|tline-re|
|00000670| 67 65 78 70 20 22 3b 3b | 3b 20 5c 5c 7c 28 2e 2e |gexp ";;|; \\|(..|
|00000680| 2e 2e 22 20 63 6f 6d 6d | 65 6e 74 2d 73 74 61 72 |.." comm|ent-star|
|00000690| 74 20 22 3b 22 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |t ";" co|mment-st|
|000006a0| 61 72 74 2d 73 6b 69 70 | 20 22 3b 2b 20 2a 22 20 |art-skip| ";+ *" |
|000006b0| 63 6f 6d 6d 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 34 |comment-|column 4|
|000006c0| 30 20 63 6f 6d 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |0 commen|t-indent|
|000006d0| 2d 66 75 6e 63 74 69 6f | 6e 20 6c 69 73 70 2d 63 |-functio|n lisp-c|
|000006e0| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 5d 20 32 |omment-i|ndent] 2|
|000006f0| 5d 5d 20 35 29 0a 28 64 | 65 66 76 61 72 20 73 68 |]] 5).(d|efvar sh|
|00000700| 61 72 65 64 2d 6c 69 73 | 70 2d 6d 6f 64 65 2d 6d |ared-lis|p-mode-m|
|00000710| 61 70 20 6e 69 6c 20 22 | 5c 0a 4b 65 79 6d 61 70 |ap nil "|\.Keymap|
|00000720| 20 66 6f 72 20 63 6f 6d | 6d 61 6e 64 73 20 73 68 | for com|mands sh|
|00000730| 61 72 65 64 20 62 79 20 | 61 6c 6c 20 73 6f 72 74 |ared by |all sort|
|00000740| 73 20 6f 66 20 4c 69 73 | 70 20 6d 6f 64 65 73 2e |s of Lis|p modes.|
|00000750| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |").(byte|-code ".|
|00000760| 84 1f 00 c1 20 10 c2 08 | c3 c4 23 88 c2 08 c5 c6 |.... ...|..#.....|
|00000770| 23 88 c2 08 c7 c8 23 88 | c2 08 c9 ca 23 88 c1 87 |#.....#.|....#...|
|00000780| 22 20 5b 73 68 61 72 65 | 64 2d 6c 69 73 70 2d 6d |" [share|d-lisp-m|
|00000790| 6f 64 65 2d 6d 61 70 20 | 6d 61 6b 65 2d 73 70 61 |ode-map |make-spa|
|000007a0| 72 73 65 2d 6b 65 79 6d | 61 70 20 64 65 66 69 6e |rse-keym|ap defin|
|000007b0| 65 2d 6b 65 79 20 22 1b | 11 22 20 69 6e 64 65 6e |e-key ".|." inden|
|000007c0| 74 2d 73 65 78 70 20 22 | f1 22 20 6c 69 73 70 2d |t-sexp "|." lisp-|
|000007d0| 66 69 6c 6c 2d 70 61 72 | 61 67 72 61 70 68 20 22 |fill-par|agraph "|
|000007e0| 7f 22 20 62 61 63 6b 77 | 61 72 64 2d 64 65 6c 65 |." backw|ard-dele|
|000007f0| 74 65 2d 63 68 61 72 2d | 75 6e 74 61 62 69 66 79 |te-char-|untabify|
|00000800| 20 22 09 22 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 | "." lis|p-indent|
|00000810| 2d 6c 69 6e 65 5d 20 34 | 29 0a 28 64 65 66 76 61 |-line] 4|).(defva|
|00000820| 72 20 65 6d 61 63 73 2d | 6c 69 73 70 2d 6d 6f 64 |r emacs-|lisp-mod|
|00000830| 65 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 4b 65 79 |e-map ni|l "\.Key|
|00000840| 6d 61 70 20 66 6f 72 20 | 45 6d 61 63 73 20 4c 69 |map for |Emacs Li|
|00000850| 73 70 20 6d 6f 64 65 2e | 0a 41 6c 6c 20 63 6f 6d |sp mode.|.All com|
|00000860| 6d 61 6e 64 73 20 69 6e | 20 73 68 61 72 65 64 2d |mands in| shared-|
|00000870| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 61 72 |lisp-mod|e-map ar|
|00000880| 65 20 69 6e 68 65 72 69 | 74 65 64 20 62 79 20 74 |e inheri|ted by t|
|00000890| 68 69 73 20 6d 61 70 2e | 22 29 0a 28 62 79 74 65 |his map.|").(byte|
|000008a0| 2d 63 6f 64 65 20 22 08 | 84 15 00 c1 20 5c 6e a4 |-code ".|.... \n.|
|000008b0| 10 c3 08 c4 c5 23 88 c3 | 08 c6 c7 23 88 c1 87 22 |.....#..|...#..."|
|000008c0| 20 5b 65 6d 61 63 73 2d | 6c 69 73 70 2d 6d 6f 64 | [emacs-|lisp-mod|
|000008d0| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 73 70 61 72 73 |e-map ma|ke-spars|
|000008e0| 65 2d 6b 65 79 6d 61 70 | 20 73 68 61 72 65 64 2d |e-keymap| shared-|
|000008f0| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 64 65 |lisp-mod|e-map de|
|00000900| 66 69 6e 65 2d 6b 65 79 | 20 22 1b 09 22 20 6c 69 |fine-key| ".." li|
|00000910| 73 70 2d 63 6f 6d 70 6c | 65 74 65 2d 73 79 6d 62 |sp-compl|ete-symb|
|00000920| 6f 6c 20 22 1b 18 22 20 | 65 76 61 6c 2d 64 65 66 |ol ".." |eval-def|
|00000930| 75 6e 5d 20 34 29 0a 28 | 64 65 66 61 6c 69 61 73 |un] 4).(|defalias|
|00000940| 20 27 65 6d 61 63 73 2d | 6c 69 73 70 2d 6d 6f 64 | 'emacs-|lisp-mod|
|00000950| 65 20 23 5b 6e 69 6c 20 | 22 c0 20 88 c1 5c 6e 21 |e #[nil |". ..\n!|
|00000960| 88 c3 5c 66 21 88 c5 16 | 06 c7 16 08 c9 ca 21 88 |..\f!...|......!.|
|00000970| cb cc 21 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |..!." [k|ill-all-|
|00000980| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00000990| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 65 6d |use-loca|l-map em|
|000009a0| 61 63 73 2d 6c 69 73 70 | 2d 6d 6f 64 65 2d 6d 61 |acs-lisp|-mode-ma|
|000009b0| 70 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |p set-sy|ntax-tab|
|000009c0| 6c 65 20 65 6d 61 63 73 | 2d 6c 69 73 70 2d 6d 6f |le emacs|-lisp-mo|
|000009d0| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|000009e0| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 20 |emacs-li|sp-mode |
|000009f0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 22 45 6d 61 63 |major-mo|de "Emac|
|00000a00| 73 2d 4c 69 73 70 22 20 | 6d 6f 64 65 2d 6e 61 6d |s-Lisp" |mode-nam|
|00000a10| 65 20 6c 69 73 70 2d 6d | 6f 64 65 2d 76 61 72 69 |e lisp-m|ode-vari|
|00000a20| 61 62 6c 65 73 20 6e 69 | 6c 20 72 75 6e 2d 68 6f |ables ni|l run-ho|
|00000a30| 6f 6b 73 20 65 6d 61 63 | 73 2d 6c 69 73 70 2d 6d |oks emac|s-lisp-m|
|00000a40| 6f 64 65 2d 68 6f 6f 6b | 5d 20 32 20 22 5c 0a 4d |ode-hook|] 2 "\.M|
|00000a50| 61 6a 6f 72 20 6d 6f 64 | 65 20 66 6f 72 20 65 64 |ajor mod|e for ed|
|00000a60| 69 74 69 6e 67 20 4c 69 | 73 70 20 63 6f 64 65 20 |iting Li|sp code |
|00000a70| 74 6f 20 72 75 6e 20 69 | 6e 20 45 6d 61 63 73 2e |to run i|n Emacs.|
|00000a80| 0a 43 6f 6d 6d 61 6e 64 | 73 3a 0a 44 65 6c 65 74 |.Command|s:.Delet|
|00000a90| 65 20 63 6f 6e 76 65 72 | 74 73 20 74 61 62 73 20 |e conver|ts tabs |
|00000aa0| 74 6f 20 73 70 61 63 65 | 73 20 61 73 20 69 74 20 |to space|s as it |
|00000ab0| 6d 6f 76 65 73 20 62 61 | 63 6b 2e 0a 42 6c 61 6e |moves ba|ck..Blan|
|00000ac0| 6b 20 6c 69 6e 65 73 20 | 73 65 70 61 72 61 74 65 |k lines |separate|
|00000ad0| 20 70 61 72 61 67 72 61 | 70 68 73 2e 20 20 53 65 | paragra|phs.  Se|
|00000ae0| 6d 69 63 6f 6c 6f 6e 73 | 20 73 74 61 72 74 20 63 |micolons| start c|
|00000af0| 6f 6d 6d 65 6e 74 73 2e | 0a 5c 5c 7b 65 6d 61 63 |omments.|.\\{emac|
|00000b00| 73 2d 6c 69 73 70 2d 6d | 6f 64 65 2d 6d 61 70 7d |s-lisp-m|ode-map}|
|00000b10| 0a 45 6e 74 72 79 20 74 | 6f 20 74 68 69 73 20 6d |.Entry t|o this m|
|00000b20| 6f 64 65 20 63 61 6c 6c | 73 20 74 68 65 20 76 61 |ode call|s the va|
|00000b30| 6c 75 65 20 6f 66 20 60 | 65 6d 61 63 73 2d 6c 69 |lue of `|emacs-li|
|00000b40| 73 70 2d 6d 6f 64 65 2d | 68 6f 6f 6b 27 0a 69 66 |sp-mode-|hook'.if|
|00000b50| 20 74 68 61 74 20 76 61 | 6c 75 65 20 69 73 20 6e | that va|lue is n|
|00000b60| 6f 6e 2d 6e 69 6c 2e 22 | 20 6e 69 6c 5d 29 0a 28 |on-nil."| nil]).(|
|00000b70| 64 65 66 76 61 72 20 6c | 69 73 70 2d 6d 6f 64 65 |defvar l|isp-mode|
|00000b80| 2d 6d 61 70 20 6e 69 6c | 20 22 5c 0a 4b 65 79 6d |-map nil| "\.Keym|
|00000b90| 61 70 20 66 6f 72 20 6f | 72 64 69 6e 61 72 79 20 |ap for o|rdinary |
|00000ba0| 4c 69 73 70 20 6d 6f 64 | 65 2e 0a 41 6c 6c 20 63 |Lisp mod|e..All c|
|00000bb0| 6f 6d 6d 61 6e 64 73 20 | 69 6e 20 60 73 68 61 72 |ommands |in `shar|
|00000bc0| 65 64 2d 6c 69 73 70 2d | 6d 6f 64 65 2d 6d 61 70 |ed-lisp-|mode-map|
|00000bd0| 27 20 61 72 65 20 69 6e | 68 65 72 69 74 65 64 20 |' are in|herited |
|00000be0| 62 79 20 74 68 69 73 20 | 6d 61 70 2e 22 29 0a 28 |by this |map.").(|
|00000bf0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 84 15 00 c1 |byte-cod|e ".....|
|00000c00| 20 5c 6e a4 10 c3 08 c4 | c5 23 88 c3 08 c6 c7 23 | \n.....|.#.....#|
|00000c10| 88 c1 87 22 20 5b 6c 69 | 73 70 2d 6d 6f 64 65 2d |..." [li|sp-mode-|
|00000c20| 6d 61 70 20 6d 61 6b 65 | 2d 73 70 61 72 73 65 2d |map make|-sparse-|
|00000c30| 6b 65 79 6d 61 70 20 73 | 68 61 72 65 64 2d 6c 69 |keymap s|hared-li|
|00000c40| 73 70 2d 6d 6f 64 65 2d | 6d 61 70 20 64 65 66 69 |sp-mode-|map defi|
|00000c50| 6e 65 2d 6b 65 79 20 22 | 1b 18 22 20 6c 69 73 70 |ne-key "|.." lisp|
|00000c60| 2d 65 76 61 6c 2d 64 65 | 66 75 6e 20 22 03 1a 22 |-eval-de|fun ".."|
|00000c70| 20 72 75 6e 2d 6c 69 73 | 70 5d 20 34 29 0a 28 64 | run-lis|p] 4).(d|
|00000c80| 65 66 61 6c 69 61 73 20 | 27 6c 69 73 70 2d 6d 6f |efalias |'lisp-mo|
|00000c90| 64 65 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 5c 6e |de #[nil| ". ..\n|
|00000ca0| 21 88 c3 14 c5 16 06 c7 | c8 21 88 c9 0e 5c 6e 21 |!.......|.!...\n!|
|00000cb0| 88 cb cc 21 87 22 20 5b | 6b 69 6c 6c 2d 61 6c 6c |...!." [|kill-all|
|00000cc0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 73 |-local-v|ariables|
|00000cd0| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 6c | use-loc|al-map l|
|00000ce0| 69 73 70 2d 6d 6f 64 65 | 2d 6d 61 70 20 6c 69 73 |isp-mode|-map lis|
|00000cf0| 70 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |p-mode m|ajor-mod|
|00000d00| 65 20 22 4c 69 73 70 22 | 20 6d 6f 64 65 2d 6e 61 |e "Lisp"| mode-na|
|00000d10| 6d 65 20 6c 69 73 70 2d | 6d 6f 64 65 2d 76 61 72 |me lisp-|mode-var|
|00000d20| 69 61 62 6c 65 73 20 74 | 20 73 65 74 2d 73 79 6e |iables t| set-syn|
|00000d30| 74 61 78 2d 74 61 62 6c | 65 20 6c 69 73 70 2d 6d |tax-tabl|e lisp-m|
|00000d40| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00000d50| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 6c 69 73 70 2d | run-hoo|ks lisp-|
|00000d60| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 32 20 22 5c 0a |mode-hoo|k] 2 "\.|
|00000d70| 4d 61 6a 6f 72 20 6d 6f | 64 65 20 66 6f 72 20 65 |Major mo|de for e|
|00000d80| 64 69 74 69 6e 67 20 4c | 69 73 70 20 63 6f 64 65 |diting L|isp code|
|00000d90| 20 66 6f 72 20 4c 69 73 | 70 73 20 6f 74 68 65 72 | for Lis|ps other|
|00000da0| 20 74 68 61 6e 20 47 4e | 55 20 45 6d 61 63 73 20 | than GN|U Emacs |
|00000db0| 4c 69 73 70 2e 0a 43 6f | 6d 6d 61 6e 64 73 3a 0a |Lisp..Co|mmands:.|
|00000dc0| 44 65 6c 65 74 65 20 63 | 6f 6e 76 65 72 74 73 20 |Delete c|onverts |
|00000dd0| 74 61 62 73 20 74 6f 20 | 73 70 61 63 65 73 20 61 |tabs to |spaces a|
|00000de0| 73 20 69 74 20 6d 6f 76 | 65 73 20 62 61 63 6b 2e |s it mov|es back.|
|00000df0| 0a 42 6c 61 6e 6b 20 6c | 69 6e 65 73 20 73 65 70 |.Blank l|ines sep|
|00000e00| 61 72 61 74 65 20 70 61 | 72 61 67 72 61 70 68 73 |arate pa|ragraphs|
|00000e10| 2e 20 20 53 65 6d 69 63 | 6f 6c 6f 6e 73 20 73 74 |.  Semic|olons st|
|00000e20| 61 72 74 20 63 6f 6d 6d | 65 6e 74 73 2e 0a 5c 5c |art comm|ents..\\|
|00000e30| 7b 6c 69 73 70 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |{lisp-mo|de-map}.|
|00000e40| 4e 6f 74 65 20 74 68 61 | 74 20 60 72 75 6e 2d 6c |Note tha|t `run-l|
|00000e50| 69 73 70 27 20 6d 61 79 | 20 62 65 20 75 73 65 64 |isp' may| be used|
|00000e60| 20 65 69 74 68 65 72 20 | 74 6f 20 73 74 61 72 74 | either |to start|
|00000e70| 20 61 6e 20 69 6e 66 65 | 72 69 6f 72 20 4c 69 73 | an infe|rior Lis|
|00000e80| 70 20 6a 6f 62 0a 6f 72 | 20 74 6f 20 73 77 69 74 |p job.or| to swit|
|00000e90| 63 68 20 62 61 63 6b 20 | 74 6f 20 61 6e 20 65 78 |ch back |to an ex|
|00000ea0| 69 73 74 69 6e 67 20 6f | 6e 65 2e 0a 0a 45 6e 74 |isting o|ne...Ent|
|00000eb0| 72 79 20 74 6f 20 74 68 | 69 73 20 6d 6f 64 65 20 |ry to th|is mode |
|00000ec0| 63 61 6c 6c 73 20 74 68 | 65 20 76 61 6c 75 65 20 |calls th|e value |
|00000ed0| 6f 66 20 60 6c 69 73 70 | 2d 6d 6f 64 65 2d 68 6f |of `lisp|-mode-ho|
|00000ee0| 6f 6b 27 0a 69 66 20 74 | 68 61 74 20 76 61 6c 75 |ok'.if t|hat valu|
|00000ef0| 65 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 22 20 6e |e is non|-nil." n|
|00000f00| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000f10| 6c 69 73 70 2d 65 76 61 | 6c 2d 64 65 66 75 6e 20 |lisp-eva|l-defun |
|00000f20| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 65 72 |#[nil ".|.!." [er|
|00000f30| 72 6f 72 20 22 50 72 6f | 63 65 73 73 20 6c 69 73 |ror "Pro|cess lis|
|00000f40| 70 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |p does n|ot exist|
|00000f50| 22 5d 20 32 20 22 5c 0a | 53 65 6e 64 20 74 68 65 |"] 2 "\.|Send the|
|00000f60| 20 63 75 72 72 65 6e 74 | 20 64 65 66 75 6e 20 74 | current| defun t|
|00000f70| 6f 20 74 68 65 20 4c 69 | 73 70 20 70 72 6f 63 65 |o the Li|sp proce|
|00000f80| 73 73 20 6d 61 64 65 20 | 62 79 20 5c 5c 5b 72 75 |ss made |by \\[ru|
|00000f90| 6e 2d 6c 69 73 70 5d 2e | 22 20 6e 69 6c 5d 29 0a |n-lisp].|" nil]).|
|00000fa0| 28 64 65 66 76 61 72 20 | 6c 69 73 70 2d 69 6e 74 |(defvar |lisp-int|
|00000fb0| 65 72 61 63 74 69 6f 6e | 2d 6d 6f 64 65 2d 6d 61 |eraction|-mode-ma|
|00000fc0| 70 20 6e 69 6c 20 22 5c | 0a 4b 65 79 6d 61 70 20 |p nil "\|.Keymap |
|00000fd0| 66 6f 72 20 4c 69 73 70 | 20 49 6e 74 65 72 61 63 |for Lisp| Interac|
|00000fe0| 74 69 6f 6e 20 6d 6f 65 | 2e 0a 41 6c 6c 20 63 6f |tion moe|..All co|
|00000ff0| 6d 6d 61 6e 64 73 20 69 | 6e 20 60 73 68 61 72 65 |mmands i|n `share|
|00001000| 64 2d 6c 69 73 70 2d 6d | 6f 64 65 2d 6d 61 70 27 |d-lisp-m|ode-map'|
|00001010| 20 61 72 65 20 69 6e 68 | 65 72 69 74 65 64 20 62 | are inh|erited b|
|00001020| 79 20 74 68 69 73 20 6d | 61 70 2e 22 29 0a 28 62 |y this m|ap.").(b|
|00001030| 79 74 65 2d 63 6f 64 65 | 20 22 08 84 1b 00 c1 20 |yte-code| "..... |
|00001040| 5c 6e a4 10 c3 08 c4 c5 | 23 88 c3 08 c6 c7 23 88 |\n......|#.....#.|
|00001050| c3 08 c8 c9 23 88 c1 87 | 22 20 5b 6c 69 73 70 2d |....#...|" [lisp-|
|00001060| 69 6e 74 65 72 61 63 74 | 69 6f 6e 2d 6d 6f 64 65 |interact|ion-mode|
|00001070| 2d 6d 61 70 20 6d 61 6b | 65 2d 73 70 61 72 73 65 |-map mak|e-sparse|
|00001080| 2d 6b 65 79 6d 61 70 20 | 73 68 61 72 65 64 2d 6c |-keymap |shared-l|
|00001090| 69 73 70 2d 6d 6f 64 65 | 2d 6d 61 70 20 64 65 66 |isp-mode|-map def|
|000010a0| 69 6e 65 2d 6b 65 79 20 | 22 1b 18 22 20 65 76 61 |ine-key |".." eva|
|000010b0| 6c 2d 64 65 66 75 6e 20 | 22 1b 09 22 20 6c 69 73 |l-defun |".." lis|
|000010c0| 70 2d 63 6f 6d 70 6c 65 | 74 65 2d 73 79 6d 62 6f |p-comple|te-symbo|
|000010d0| 6c 20 22 5c 6e 22 20 65 | 76 61 6c 2d 70 72 69 6e |l "\n" e|val-prin|
|000010e0| 74 2d 6c 61 73 74 2d 73 | 65 78 70 5d 20 34 29 0a |t-last-s|exp] 4).|
|000010f0| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 69 73 70 2d |(defalia|s 'lisp-|
|00001100| 69 6e 74 65 72 61 63 74 | 69 6f 6e 2d 6d 6f 64 65 |interact|ion-mode|
|00001110| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 5c 6e 21 88 | #[nil "|. ..\n!.|
|00001120| c3 14 c5 16 06 c7 0e 08 | 21 88 c9 ca 21 88 cb cc |........|!...!...|
|00001130| 21 87 22 20 5b 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f |!." [kil|l-all-lo|
|00001140| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 20 75 73 |cal-vari|ables us|
|00001150| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 6c 69 73 70 |e-local-|map lisp|
|00001160| 2d 69 6e 74 65 72 61 63 | 74 69 6f 6e 2d 6d 6f 64 |-interac|tion-mod|
|00001170| 65 2d 6d 61 70 20 6c 69 | 73 70 2d 69 6e 74 65 72 |e-map li|sp-inter|
|00001180| 61 63 74 69 6f 6e 2d 6d | 6f 64 65 20 6d 61 6a 6f |action-m|ode majo|
|00001190| 72 2d 6d 6f 64 65 20 22 | 4c 69 73 70 20 49 6e 74 |r-mode "|Lisp Int|
|000011a0| 65 72 61 63 74 69 6f 6e | 22 20 6d 6f 64 65 2d 6e |eraction|" mode-n|
|000011b0| 61 6d 65 20 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |ame set-|syntax-t|
|000011c0| 61 62 6c 65 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d |able ema|cs-lisp-|
|000011d0| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|000011e0| 65 20 6c 69 73 70 2d 6d | 6f 64 65 2d 76 61 72 69 |e lisp-m|ode-vari|
|000011f0| 61 62 6c 65 73 20 6e 69 | 6c 20 72 75 6e 2d 68 6f |ables ni|l run-ho|
|00001200| 6f 6b 73 20 6c 69 73 70 | 2d 69 6e 74 65 72 61 63 |oks lisp|-interac|
|00001210| 74 69 6f 6e 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 5d 20 |tion-mod|e-hook] |
|00001220| 32 20 22 5c 0a 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |2 "\.Maj|or mode |
|00001230| 66 6f 72 20 74 79 70 69 | 6e 67 20 61 6e 64 20 65 |for typi|ng and e|
|00001240| 76 61 6c 75 61 74 69 6e | 67 20 4c 69 73 70 20 66 |valuatin|g Lisp f|
|00001250| 6f 72 6d 73 2e 0a 4c 69 | 6b 65 20 4c 69 73 70 20 |orms..Li|ke Lisp |
|00001260| 6d 6f 64 65 20 65 78 63 | 65 70 74 20 74 68 61 74 |mode exc|ept that|
|00001270| 20 5c 5c 5b 65 76 61 6c | 2d 70 72 69 6e 74 2d 6c | \\[eval|-print-l|
|00001280| 61 73 74 2d 73 65 78 70 | 5d 20 65 76 61 6c 73 20 |ast-sexp|] evals |
|00001290| 74 68 65 20 4c 69 73 70 | 20 65 78 70 72 65 73 73 |the Lisp| express|
|000012a0| 69 6f 6e 0a 62 65 66 6f | 72 65 20 70 6f 69 6e 74 |ion.befo|re point|
|000012b0| 2c 20 61 6e 64 20 70 72 | 69 6e 74 73 20 69 74 73 |, and pr|ints its|
|000012c0| 20 76 61 6c 75 65 20 69 | 6e 74 6f 20 74 68 65 20 | value i|nto the |
|000012d0| 62 75 66 66 65 72 2c 20 | 61 64 76 61 6e 63 69 6e |buffer, |advancin|
|000012e0| 67 20 70 6f 69 6e 74 2e | 0a 0a 43 6f 6d 6d 61 6e |g point.|..Comman|
|000012f0| 64 73 3a 0a 44 65 6c 65 | 74 65 20 63 6f 6e 76 65 |ds:.Dele|te conve|
|00001300| 72 74 73 20 74 61 62 73 | 20 74 6f 20 73 70 61 63 |rts tabs| to spac|
|00001310| 65 73 20 61 73 20 69 74 | 20 6d 6f 76 65 73 20 62 |es as it| moves b|
|00001320| 61 63 6b 2e 0a 50 61 72 | 61 67 72 61 70 68 73 20 |ack..Par|agraphs |
|00001330| 61 72 65 20 73 65 70 61 | 72 61 74 65 64 20 6f 6e |are sepa|rated on|
|00001340| 6c 79 20 62 79 20 62 6c | 61 6e 6b 20 6c 69 6e 65 |ly by bl|ank line|
|00001350| 73 2e 0a 53 65 6d 69 63 | 6f 6c 6f 6e 73 20 73 74 |s..Semic|olons st|
|00001360| 61 72 74 20 63 6f 6d 6d | 65 6e 74 73 2e 0a 5c 5c |art comm|ents..\\|
|00001370| 7b 6c 69 73 70 2d 69 6e | 74 65 72 61 63 74 69 6f |{lisp-in|teractio|
|00001380| 6e 2d 6d 6f 64 65 2d 6d | 61 70 7d 0a 45 6e 74 72 |n-mode-m|ap}.Entr|
|00001390| 79 20 74 6f 20 74 68 69 | 73 20 6d 6f 64 65 20 63 |y to thi|s mode c|
|000013a0| 61 6c 6c 73 20 74 68 65 | 20 76 61 6c 75 65 20 6f |alls the| value o|
|000013b0| 66 20 60 6c 69 73 70 2d | 69 6e 74 65 72 61 63 74 |f `lisp-|interact|
|000013c0| 69 6f 6e 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 27 0a 69 |ion-mode|-hook'.i|
|000013d0| 66 20 74 68 61 74 20 76 | 61 6c 75 65 20 69 73 20 |f that v|alue is |
|000013e0| 6e 6f 6e 2d 6e 69 6c 2e | 22 20 6e 69 6c 5d 29 0a |non-nil.|" nil]).|
|000013f0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 76 61 6c 2d |(defalia|s 'eval-|
|00001400| 70 72 69 6e 74 2d 6c 61 | 73 74 2d 73 65 78 70 20 |print-la|st-sexp |
|00001410| 23 5b 6e 69 6c 20 22 70 | 18 c1 20 88 c2 c3 21 88 |#[nil "p|.. ...!.|
|00001420| c1 20 29 87 22 20 5b 73 | 74 61 6e 64 61 72 64 2d |. )." [s|tandard-|
|00001430| 6f 75 74 70 75 74 20 74 | 65 72 70 72 69 20 65 76 |output t|erpri ev|
|00001440| 61 6c 2d 6c 61 73 74 2d | 73 65 78 70 20 74 5d 20 |al-last-|sexp t] |
|00001450| 32 20 22 5c 0a 45 76 61 | 6c 75 61 74 65 20 73 65 |2 "\.Eva|luate se|
|00001460| 78 70 20 62 65 66 6f 72 | 65 20 70 6f 69 6e 74 3b |xp befor|e point;|
|00001470| 20 70 72 69 6e 74 20 76 | 61 6c 75 65 20 69 6e 74 | print v|alue int|
|00001480| 6f 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |o curren|t buffer|
|00001490| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000014a0| 61 73 20 27 65 76 61 6c | 2d 6c 61 73 74 2d 73 65 |as 'eval|-last-se|
|000014b0| 78 70 20 23 5b 28 65 76 | 61 6c 2d 6c 61 73 74 2d |xp #[(ev|al-last-|
|000014c0| 73 65 78 70 2d 61 72 67 | 2d 69 6e 74 65 72 6e 61 |sexp-arg|-interna|
|000014d0| 6c 29 20 22 08 83 08 00 | 70 82 09 00 c1 60 1a 1b |l) "....|p....`..|
|000014e0| c4 c5 20 1e 06 c7 c8 8e | 8a c9 0e 5c 6e 21 88 cb |.. .....|...\n!..|
|000014f0| cc 21 88 8c 65 5c 6e 7d | 88 cd 70 21 2b 21 29 21 |.!..e\n}|..p!+!)!|
|00001500| 2a 87 22 20 5b 65 76 61 | 6c 2d 6c 61 73 74 2d 73 |*." [eva|l-last-s|
|00001510| 65 78 70 2d 61 72 67 2d | 69 6e 74 65 72 6e 61 6c |exp-arg-|internal|
|00001520| 20 74 20 6f 70 6f 69 6e | 74 20 73 74 61 6e 64 61 | t opoin|t standa|
|00001530| 72 64 2d 6f 75 74 70 75 | 74 20 70 72 69 6e 31 20 |rd-outpu|t prin1 |
|00001540| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 73 74 61 |syntax-t|able sta|
|00001550| 62 20 65 76 61 6c 20 28 | 28 73 65 74 2d 73 79 6e |b eval (|(set-syn|
|00001560| 74 61 78 2d 74 61 62 6c | 65 20 73 74 61 62 29 29 |tax-tabl|e stab))|
|00001570| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00001580| 65 20 65 6d 61 63 73 2d | 6c 69 73 70 2d 6d 6f 64 |e emacs-|lisp-mod|
|00001590| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 66 |e-syntax|-table f|
|000015a0| 6f 72 77 61 72 64 2d 73 | 65 78 70 20 2d 31 20 72 |orward-s|exp -1 r|
|000015b0| 65 61 64 5d 20 34 20 22 | 5c 0a 45 76 61 6c 75 61 |ead] 4 "|\.Evalua|
|000015c0| 74 65 20 73 65 78 70 20 | 62 65 66 6f 72 65 20 70 |te sexp |before p|
|000015d0| 6f 69 6e 74 3b 20 70 72 | 69 6e 74 20 76 61 6c 75 |oint; pr|int valu|
|000015e0| 65 20 69 6e 20 6d 69 6e | 69 62 75 66 66 65 72 2e |e in min|ibuffer.|
|000015f0| 0a 57 69 74 68 20 61 72 | 67 75 6d 65 6e 74 2c 20 |.With ar|gument, |
|00001600| 70 72 69 6e 74 20 6f 75 | 74 70 75 74 20 69 6e 74 |print ou|tput int|
|00001610| 6f 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |o curren|t buffer|
|00001620| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00001630| 61 73 20 27 65 76 61 6c | 2d 64 65 66 75 6e 20 23 |as 'eval|-defun #|
|00001640| 5b 28 65 76 61 6c 2d 64 | 65 66 75 6e 2d 61 72 67 |[(eval-d|efun-arg|
|00001650| 2d 69 6e 74 65 72 6e 61 | 6c 29 20 22 08 83 08 00 |-interna|l) "....|
|00001660| 70 82 09 00 c1 1a c3 c4 | 8a c5 20 88 c6 20 88 c7 |p.......|.. .. ..|
|00001670| 70 21 29 21 21 29 87 22 | 20 5b 65 76 61 6c 2d 64 |p!)!!)."| [eval-d|
|00001680| 65 66 75 6e 2d 61 72 67 | 2d 69 6e 74 65 72 6e 61 |efun-arg|-interna|
|00001690| 6c 20 74 20 73 74 61 6e | 64 61 72 64 2d 6f 75 74 |l t stan|dard-out|
|000016a0| 70 75 74 20 70 72 69 6e | 31 20 65 76 61 6c 20 65 |put prin|1 eval e|
|000016b0| 6e 64 2d 6f 66 2d 64 65 | 66 75 6e 20 62 65 67 69 |nd-of-de|fun begi|
|000016c0| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 72 |nning-of|-defun r|
|000016d0| 65 61 64 5d 20 34 20 22 | 5c 0a 45 76 61 6c 75 61 |ead] 4 "|\.Evalua|
|000016e0| 74 65 20 64 65 66 75 6e | 20 74 68 61 74 20 70 6f |te defun| that po|
|000016f0| 69 6e 74 20 69 73 20 69 | 6e 20 6f 72 20 62 65 66 |int is i|n or bef|
|00001700| 6f 72 65 2e 0a 50 72 69 | 6e 74 20 76 61 6c 75 65 |ore..Pri|nt value|
|00001710| 20 69 6e 20 6d 69 6e 69 | 62 75 66 66 65 72 2e 0a | in mini|buffer..|
|00001720| 57 69 74 68 20 61 72 67 | 75 6d 65 6e 74 2c 20 69 |With arg|ument, i|
|00001730| 6e 73 65 72 74 20 76 61 | 6c 75 65 20 69 6e 20 63 |nsert va|lue in c|
|00001740| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 61 66 |urrent b|uffer af|
|00001750| 74 65 72 20 74 68 65 20 | 64 65 66 75 6e 2e 22 20 |ter the |defun." |
|00001760| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00001770| 28 71 75 6f 74 65 20 6c | 69 73 70 2d 63 6f 6d 6d |(quote l|isp-comm|
|00001780| 65 6e 74 2d 69 6e 64 65 | 6e 74 29 20 23 5b 6e 69 |ent-inde|nt) #[ni|
|00001790| 6c 20 22 c0 c1 21 83 08 | 00 69 87 c0 c2 21 83 1e |l "..!..|.i...!..|
|000017a0| 00 c3 20 89 1c 3c 83 1b | 00 5c 66 40 82 1c 00 5c |.. ..<..|.\f@...\|
|000017b0| 66 29 87 c5 c6 78 88 6e | 83 2a 00 c7 82 2c 00 69 |f)...x.n|.*...,.i|
|000017c0| 54 0e 08 5d 87 22 20 5b | 6c 6f 6f 6b 69 6e 67 2d |T..]." [|looking-|
|000017d0| 61 74 20 22 5c 5c 73 3c | 5c 5c 73 3c 5c 5c 73 3c |at "\\s<|\\s<\\s<|
|000017e0| 22 20 22 5c 5c 73 3c 5c | 5c 73 3c 22 20 63 61 6c |" "\\s<\|\s<" cal|
|000017f0| 63 75 6c 61 74 65 2d 6c | 69 73 70 2d 69 6e 64 65 |culate-l|isp-inde|
|00001800| 6e 74 20 74 65 6d 20 22 | 20 09 22 20 6e 69 6c 20 |nt tem "| ." nil |
|00001810| 30 20 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 75 6d 6e |0 commen|t-column|
|00001820| 5d 20 33 5d 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |] 3]).(d|efconst |
|00001830| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 6f 66 66 73 |lisp-ind|ent-offs|
|00001840| 65 74 20 6e 69 6c 20 22 | 5c 0a 22 29 0a 28 64 65 |et nil "|\.").(de|
|00001850| 66 63 6f 6e 73 74 20 6c | 69 73 70 2d 69 6e 64 65 |fconst l|isp-inde|
|00001860| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 28 71 75 6f |nt-funct|ion (quo|
|00001870| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 2d 66 |te lisp-|indent-f|
|00001880| 75 6e 63 74 69 6f 6e 29 | 20 22 5c 0a 22 29 0a 28 |unction)| "\.").(|
|00001890| 64 65 66 61 6c 69 61 73 | 20 27 6c 69 73 70 2d 69 |defalias| 'lisp-i|
|000018a0| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 23 5b 28 26 6f |ndent-li|ne #[(&o|
|000018b0| 70 74 69 6f 6e 61 6c 20 | 77 68 6f 6c 65 2d 65 78 |ptional |whole-ex|
|000018c0| 70 29 20 22 c0 20 c1 89 | 89 64 60 5a 1a 1b 1c 1d |p) ". ..|.d`Z....|
|000018d0| 1e 06 c7 79 88 60 14 c8 | c1 77 88 c9 ca 21 83 24 |...y.`..|.w...!.$|
|000018e0| 00 64 5c 6e 5a 62 82 8e | 00 c9 cb 21 83 39 00 c9 |.d\nZb..|...!.9..|
|000018f0| cc 21 84 39 00 cd 20 88 | ce 75 88 82 57 00 0e 06 |.!.9.. .|.u..W...|
|00001900| 3c 83 44 00 0e 06 40 16 | 06 0e 06 69 5a 89 15 c7 |<.D...@.|...iZ...|
|00001910| 55 84 57 00 5c 66 60 7c | 88 0e 06 6a 88 64 5c 6e |U.W.\f`||...j.d\n|
|00001920| 5a 60 56 83 64 00 64 5c | 6e 5a 62 88 0e 0f 85 8e |Z`V.d.d\|nZb.....|
|00001930| 00 0d c7 55 3f 85 8e 00 | 8a 5c 66 62 88 d0 d1 21 |...U?...|.\fb...!|
|00001940| 88 60 13 5c 66 62 88 d1 | 79 88 60 14 0b 5c 66 56 |.`.\fb..|y.`..\fV|
|00001950| 29 85 8e 00 d2 5c 66 0b | 0d 23 2d 87 22 20 5b 63 |)....\f.|.#-." [c|
|00001960| 61 6c 63 75 6c 61 74 65 | 2d 6c 69 73 70 2d 69 6e |alculate|-lisp-in|
|00001970| 64 65 6e 74 20 6e 69 6c | 20 70 6f 73 20 65 6e 64 |dent nil| pos end|
|00001980| 20 62 65 67 20 73 68 69 | 66 74 2d 61 6d 74 20 69 | beg shi|ft-amt i|
|00001990| 6e 64 65 6e 74 20 30 20 | 22 20 09 22 20 6c 6f 6f |ndent 0 |" ." loo|
|000019a0| 6b 69 6e 67 2d 61 74 20 | 22 5c 5c 73 3c 5c 5c 73 |king-at |"\\s<\\s|
|000019b0| 3c 5c 5c 73 3c 22 20 22 | 5c 5c 73 3c 22 20 22 5c |<\\s<" "|\\s<" "\|
|000019c0| 5c 73 3c 5c 5c 73 3c 22 | 20 69 6e 64 65 6e 74 2d |\s<\\s<"| indent-|
|000019d0| 66 6f 72 2d 63 6f 6d 6d | 65 6e 74 20 2d 31 20 77 |for-comm|ent -1 w|
|000019e0| 68 6f 6c 65 2d 65 78 70 | 20 66 6f 72 77 61 72 64 |hole-exp| forward|
|000019f0| 2d 73 65 78 70 20 31 20 | 69 6e 64 65 6e 74 2d 63 |-sexp 1 |indent-c|
|00001a00| 6f 64 65 2d 72 69 67 69 | 64 6c 79 5d 20 37 20 22 |ode-rigi|dly] 7 "|
|00001a10| 5c 0a 49 6e 64 65 6e 74 | 20 63 75 72 72 65 6e 74 |\.Indent| current|
|00001a20| 20 6c 69 6e 65 20 61 73 | 20 4c 69 73 70 20 63 6f | line as| Lisp co|
|00001a30| 64 65 2e 0a 57 69 74 68 | 20 61 72 67 75 6d 65 6e |de..With| argumen|
|00001a40| 74 2c 20 69 6e 64 65 6e | 74 20 61 6e 79 20 61 64 |t, inden|t any ad|
|00001a50| 64 69 74 69 6f 6e 61 6c | 20 6c 69 6e 65 73 20 6f |ditional| lines o|
|00001a60| 66 20 74 68 65 20 73 61 | 6d 65 20 65 78 70 72 65 |f the sa|me expre|
|00001a70| 73 73 69 6f 6e 0a 72 69 | 67 69 64 6c 79 20 61 6c |ssion.ri|gidly al|
|00001a80| 6f 6e 67 20 77 69 74 68 | 20 74 68 69 73 20 6f 6e |ong with| this on|
|00001a90| 65 2e 22 20 22 50 22 5d | 29 0a 28 64 65 66 61 6c |e." "P"]|).(defal|
|00001aa0| 69 61 73 20 27 63 61 6c | 63 75 6c 61 74 65 2d 6c |ias 'cal|culate-l|
|00001ab0| 69 73 70 2d 69 6e 64 65 | 6e 74 20 23 5b 28 26 6f |isp-inde|nt #[(&o|
|00001ac0| 70 74 69 6f 6e 61 6c 20 | 70 61 72 73 65 2d 73 74 |ptional |parse-st|
|00001ad0| 61 72 74 29 20 22 8a c0 | 79 88 60 c1 89 89 c2 c1 |art) "..|y.`.....|
|00001ae0| 89 1b 1c 1d 1e 06 1e 07 | 1e 08 1e 09 0e 5c 6e 83 |........|.....\n.|
|00001af0| 5c 22 00 0e 5c 6e 62 88 | 82 25 00 cb 20 88 60 0e |\"..\nb.|.%.. .`.|
|00001b00| 09 57 83 37 00 cc 60 0e | 09 c0 23 16 08 82 25 00 |.W.7..`.|..#...%.|
|00001b10| 0d 83 7e 00 0e 08 83 7e | 00 0e 08 c0 9c 89 16 07 |..~....~|........|
|00001b20| c0 56 83 7e 00 c1 15 0e | 08 cd 9c 14 0e 08 ce 9c |.V.~....|........|
|00001b30| 89 13 54 62 88 5c 66 83 | 37 00 5c 66 60 56 83 37 |..Tb.\f.|7.\f`V.7|
|00001b40| 00 cc 5c 66 0e 09 c0 23 | 89 1e 0f 41 40 89 15 83 |..\f...#|...A@...|
|00001b50| 7a 00 0e 0f 16 08 29 82 | 37 00 0d 84 cf 00 0b 54 |z.....).|7......T|
|00001b60| 62 88 5c 66 84 90 00 69 | 16 06 82 cf 00 cc 60 5c |b.\f...i|......`\|
|00001b70| 66 c0 c2 24 88 d0 d1 21 | 84 cf 00 8a ce 79 88 60 |f..$...!|.....y.`|
|00001b80| 29 5c 66 56 83 bf 00 60 | 5c 66 55 84 b9 00 d2 ce |)\fV...`|\fU.....|
|00001b90| 21 88 cc 60 5c 66 c0 c2 | 24 88 d3 20 88 82 cf 00 |!..`\f..|$.. ....|
|00001ba0| 5c 66 62 88 c0 79 88 cc | 60 5c 66 c0 c2 24 88 d3 |\fb..y..|`\f..$..|
|00001bb0| 20 88 69 1e 14 0e 08 d5 | 9c 83 e5 00 0e 09 62 88 | .i.....|......b.|
|00001bc0| d6 c1 77 88 69 82 1e 01 | 0e 17 a8 83 f9 00 0b 83 |..w.i...|........|
|00001bd0| f9 00 0b 62 88 69 0e 17 | 5c 5c 82 1e 01 0e 06 86 |...b.i..|\\......|
|00001be0| 1e 01 d8 d9 21 83 1c 01 | 0e 19 83 1c 01 0d 84 1c |....!...|........|
|00001bf0| 01 0e 19 0e 09 0e 08 5c | 22 86 1e 01 0e 14 82 1e |.......\|".......|
|00001c00| 01 0e 14 2e 09 87 22 20 | 5b 30 20 6e 69 6c 20 74 |......" |[0 nil t|
|00001c10| 20 63 6f 6e 74 61 69 6e | 69 6e 67 2d 73 65 78 70 | contain|ing-sexp|
|00001c20| 20 6c 61 73 74 2d 73 65 | 78 70 20 72 65 74 72 79 | last-se|xp retry|
|00001c30| 20 64 65 73 69 72 65 64 | 2d 69 6e 64 65 6e 74 20 | desired|-indent |
|00001c40| 70 61 72 65 6e 2d 64 65 | 70 74 68 20 73 74 61 74 |paren-de|pth stat|
|00001c50| 65 20 69 6e 64 65 6e 74 | 2d 70 6f 69 6e 74 20 70 |e indent|-point p|
|00001c60| 61 72 73 65 2d 73 74 61 | 72 74 20 62 65 67 69 6e |arse-sta|rt begin|
|00001c70| 6e 69 6e 67 2d 6f 66 2d | 64 65 66 75 6e 20 70 61 |ning-of-|defun pa|
|00001c80| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|00001c90| 20 32 20 31 20 70 65 65 | 6b 20 6c 6f 6f 6b 69 6e | 2 1 pee|k lookin|
|00001ca0| 67 2d 61 74 20 22 5c 5c | 73 28 22 20 66 6f 72 77 |g-at "\\|s(" forw|
|00001cb0| 61 72 64 2d 73 65 78 70 | 20 62 61 63 6b 77 61 72 |ard-sexp| backwar|
|00001cc0| 64 2d 70 72 65 66 69 78 | 2d 63 68 61 72 73 20 6e |d-prefix|-chars n|
|00001cd0| 6f 72 6d 61 6c 2d 69 6e | 64 65 6e 74 20 33 20 22 |ormal-in|dent 3 "|
|00001ce0| 20 09 22 20 6c 69 73 70 | 2d 69 6e 64 65 6e 74 2d | ." lisp|-indent-|
|00001cf0| 6f 66 66 73 65 74 20 62 | 6f 75 6e 64 70 20 6c 69 |offset b|oundp li|
|00001d00| 73 70 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |sp-inden|t-functi|
|00001d10| 6f 6e 5d 20 38 20 22 5c | 0a 52 65 74 75 72 6e 20 |on] 8 "\|.Return |
|00001d20| 61 70 70 72 6f 70 72 69 | 61 74 65 20 69 6e 64 65 |appropri|ate inde|
|00001d30| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 63 75 72 72 |ntation |for curr|
|00001d40| 65 6e 74 20 6c 69 6e 65 | 20 61 73 20 4c 69 73 70 |ent line| as Lisp|
|00001d50| 20 63 6f 64 65 2e 0a 49 | 6e 20 75 73 75 61 6c 20 | code..I|n usual |
|00001d60| 63 61 73 65 20 72 65 74 | 75 72 6e 73 20 61 6e 20 |case ret|urns an |
|00001d70| 69 6e 74 65 67 65 72 3a | 20 74 68 65 20 63 6f 6c |integer:| the col|
|00001d80| 75 6d 6e 20 74 6f 20 69 | 6e 64 65 6e 74 20 74 6f |umn to i|ndent to|
|00001d90| 2e 0a 43 61 6e 20 69 6e | 73 74 65 61 64 20 72 65 |..Can in|stead re|
|00001da0| 74 75 72 6e 20 61 20 6c | 69 73 74 2c 20 77 68 6f |turn a l|ist, who|
|00001db0| 73 65 20 63 61 72 20 69 | 73 20 74 68 65 20 63 6f |se car i|s the co|
|00001dc0| 6c 75 6d 6e 20 74 6f 20 | 69 6e 64 65 6e 74 20 74 |lumn to |indent t|
|00001dd0| 6f 2e 0a 54 68 69 73 20 | 6d 65 61 6e 73 20 74 68 |o..This |means th|
|00001de0| 61 74 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6c 69 6e |at follo|wing lin|
|00001df0| 65 73 20 61 74 20 74 68 | 65 20 73 61 6d 65 20 6c |es at th|e same l|
|00001e00| 65 76 65 6c 20 6f 66 20 | 69 6e 64 65 6e 74 61 74 |evel of |indentat|
|00001e10| 69 6f 6e 0a 73 68 6f 75 | 6c 64 20 6e 6f 74 20 6e |ion.shou|ld not n|
|00001e20| 65 63 65 73 73 61 72 69 | 6c 79 20 62 65 20 69 6e |ecessari|ly be in|
|00001e30| 64 65 6e 74 65 64 20 74 | 68 65 20 73 61 6d 65 20 |dented t|he same |
|00001e40| 77 61 79 2e 0a 54 68 65 | 20 73 65 63 6f 6e 64 20 |way..The| second |
|00001e50| 65 6c 65 6d 65 6e 74 20 | 6f 66 20 74 68 65 20 6c |element |of the l|
|00001e60| 69 73 74 20 69 73 20 74 | 68 65 20 62 75 66 66 65 |ist is t|he buffe|
|00001e70| 72 20 70 6f 73 69 74 69 | 6f 6e 0a 6f 66 20 74 68 |r positi|on.of th|
|00001e80| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 63 |e start |of the c|
|00001e90| 6f 6e 74 61 69 6e 69 6e | 67 20 65 78 70 72 65 73 |ontainin|g expres|
|00001ea0| 73 69 6f 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |sion."])|.(defali|
|00001eb0| 61 73 20 28 71 75 6f 74 | 65 20 6c 69 73 70 2d 69 |as (quot|e lisp-i|
|00001ec0| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 29 20 |ndent-fu|nction) |
|00001ed0| 23 5b 28 69 6e 64 65 6e | 74 2d 70 6f 69 6e 74 20 |#[(inden|t-point |
|00001ee0| 73 74 61 74 65 29 20 22 | 69 18 09 c2 9c 54 62 88 |state) "|i....Tb.|
|00001ef0| c3 60 5c 66 c5 c6 24 88 | 09 c7 9c 83 3a 00 c8 c9 |.`\f..$.|....:...|
|00001f00| 21 84 3a 00 8a c2 79 88 | 60 29 5c 66 56 84 33 00 |!.:...y.|`)\fV.3.|
|00001f10| 5c 66 62 88 c5 79 88 c3 | 60 5c 66 c5 c6 24 88 ca |\fb..y..|`\f..$..|
|00001f20| 20 88 69 82 97 00 60 cb | c2 21 88 60 7b cc 1e 0d | .i...`.|.!.`{...|
|00001f30| 1e 0e cf 0e 0e 21 d0 4e | 86 55 00 cf 0e 0e 21 d1 |.....!.N|.U....!.|
|00001f40| 4e 89 16 0d d2 3d 84 72 | 00 0e 0d 84 7a 00 0e 0e |N....=.r|....z...|
|00001f50| 47 d3 56 83 7a 00 d4 d5 | 0e 0e 5c 22 83 7a 00 d6 |G.V.z...|..\".z..|
|00001f60| 09 0e 17 5c 22 82 96 00 | 0e 0d a8 83 8b 00 d8 0e |...\"...|........|
|00001f70| 0d 09 0e 17 08 24 82 96 | 00 0e 0d 85 96 00 0e 0d |.....$..|........|
|00001f80| 09 0e 17 5c 22 2a 29 87 | 22 20 5b 6e 6f 72 6d 61 |...\"*).|" [norma|
|00001f90| 6c 2d 69 6e 64 65 6e 74 | 20 73 74 61 74 65 20 31 |l-indent| state 1|
|00001fa0| 20 70 61 72 73 65 2d 70 | 61 72 74 69 61 6c 2d 73 | parse-p|artial-s|
|00001fb0| 65 78 70 20 6c 61 73 74 | 2d 73 65 78 70 20 30 20 |exp last|-sexp 0 |
|00001fc0| 74 20 32 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |t 2 look|ing-at "|
|00001fd0| 5c 5c 73 77 5c 5c 7c 5c | 5c 73 5f 22 20 62 61 63 |\\sw\\|\|\s_" bac|
|00001fe0| 6b 77 61 72 64 2d 70 72 | 65 66 69 78 2d 63 68 61 |kward-pr|efix-cha|
|00001ff0| 72 73 20 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 |rs forwa|rd-sexp |
|00002000| 6e 69 6c 20 6d 65 74 68 | 6f 64 20 66 75 6e 63 74 |nil meth|od funct|
|00002010| 69 6f 6e 20 69 6e 74 65 | 72 6e 2d 73 6f 66 74 20 |ion inte|rn-soft |
|00002020| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 66 75 6e 63 |lisp-ind|ent-func|
|00002030| 74 69 6f 6e 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |tion lis|p-indent|
|00002040| 2d 68 6f 6f 6b 20 64 65 | 66 75 6e 20 33 20 73 74 |-hook de|fun 3 st|
|00002050| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 60 64 |ring-mat|ch "\\`d|
|00002060| 65 66 22 20 6c 69 73 70 | 2d 69 6e 64 65 6e 74 2d |ef" lisp|-indent-|
|00002070| 64 65 66 66 6f 72 6d 20 | 69 6e 64 65 6e 74 2d 70 |defform |indent-p|
|00002080| 6f 69 6e 74 20 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |oint lis|p-indent|
|00002090| 2d 73 70 65 63 66 6f 72 | 6d 5d 20 36 5d 29 0a 28 |-specfor|m] 6]).(|
|000020a0| 64 65 66 63 6f 6e 73 74 | 20 6c 69 73 70 2d 62 6f |defconst| lisp-bo|
|000020b0| 64 79 2d 69 6e 64 65 6e | 74 20 32 20 22 5c 0a 4e |dy-inden|t 2 "\.N|
|000020c0| 75 6d 62 65 72 20 6f 66 | 20 63 6f 6c 75 6d 6e 73 |umber of| columns|
|000020d0| 20 74 6f 20 69 6e 64 65 | 6e 74 20 74 68 65 20 73 | to inde|nt the s|
|000020e0| 65 63 6f 6e 64 20 6c 69 | 6e 65 20 6f 66 20 61 20 |econd li|ne of a |
|000020f0| 60 28 64 65 66 2e 2e 2e | 29 27 20 66 6f 72 6d 2e |`(def...|)' form.|
|00002100| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|00002110| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 88 c5 c6 c7 c8 23 |..\"....|\".....#|
|00002120| 88 c5 c9 c7 c8 23 88 c5 | ca c7 cb 23 88 c5 cc c7 |.....#..|...#....|
|00002130| cd 23 88 c5 ce c7 cf 23 | 88 c5 d0 c7 cb 23 88 c5 |.#.....#|.....#..|
|00002140| d1 c7 cb 23 88 c5 d2 c7 | cb 23 88 c5 d3 c7 cb 23 |...#....|.#.....#|
|00002150| 88 c5 d4 c7 cd 23 88 c5 | d5 c7 cd 23 88 c5 d6 c7 |.....#..|...#....|
|00002160| cd 23 88 c5 d7 c7 cf 23 | 88 c5 d8 c7 cd 23 88 c5 |.#.....#|.....#..|
|00002170| d9 c7 cf 23 88 c5 da c7 | cd 23 88 c5 db c7 cd 23 |...#....|.#.....#|
|00002180| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 6c 69 73 |." [defa|lias lis|
|00002190| 70 2d 69 6e 64 65 6e 74 | 2d 73 70 65 63 66 6f 72 |p-indent|-specfor|
|000021a0| 6d 20 23 5b 28 63 6f 75 | 6e 74 20 73 74 61 74 65 |m #[(cou|nt state|
|000021b0| 20 69 6e 64 65 6e 74 2d | 70 6f 69 6e 74 20 6e 6f | indent-|point no|
|000021c0| 72 6d 61 6c 2d 69 6e 64 | 65 6e 74 29 20 22 08 c1 |rmal-ind|ent) "..|
|000021d0| 9c 5c 6e c3 89 1c 1d 1e | 06 89 1e 07 62 88 69 14 |.\n.....|....b.i.|
|000021e0| 0e 08 5c 66 5c 5c 15 c1 | 75 88 c9 c1 21 88 ca 60 |..\f\\..|u...!..`|
|000021f0| 0e 0b c1 cc 24 88 60 0e | 0b 57 83 33 00 c3 cd ce |....$.`.|.W.3....|
|00002200| 8f 84 25 00 5c 6e cf 56 | 83 56 00 0e 06 5c 6e 5a |..%.\n.V|.V...\nZ|
|00002210| c1 58 83 4e 00 5c 66 0e | 08 89 5c 5c 5c 5c 0e 07 |.X.N.\f.|..\\\\..|
|00002220| 44 82 76 00 0e 10 0e 07 | 44 82 76 00 0e 06 cf 55 |D.v.....|D.v....U|
|00002230| 83 63 00 5c 6e cf 55 84 | 70 00 5c 6e cf 55 83 74 |.c.\n.U.|p.\n.U.t|
|00002240| 00 0d 0e 10 58 83 74 00 | 0d 82 76 00 0e 10 2c 87 |....X.t.|..v...,.|
|00002250| 22 20 5b 73 74 61 74 65 | 20 31 20 63 6f 75 6e 74 |" [state| 1 count|
|00002260| 20 6e 69 6c 20 63 6f 6e | 74 61 69 6e 69 6e 67 2d | nil con|taining-|
|00002270| 66 6f 72 6d 2d 63 6f 6c | 75 6d 6e 20 62 6f 64 79 |form-col|umn body|
|00002280| 2d 69 6e 64 65 6e 74 20 | 69 20 63 6f 6e 74 61 69 |-indent |i contai|
|00002290| 6e 69 6e 67 2d 66 6f 72 | 6d 2d 73 74 61 72 74 20 |ning-for|m-start |
|000022a0| 6c 69 73 70 2d 62 6f 64 | 79 2d 69 6e 64 65 6e 74 |lisp-bod|y-indent|
|000022b0| 20 66 6f 72 77 61 72 64 | 2d 73 65 78 70 20 70 61 | forward|-sexp pa|
|000022c0| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|000022d0| 20 69 6e 64 65 6e 74 2d | 70 6f 69 6e 74 20 74 20 | indent-|point t |
|000022e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 53 10 c1 |(byte-co|de ".S..|
|000022f0| c2 21 88 c3 60 5c 66 c2 | c5 24 87 22 20 5b 63 6f |.!..`\f.|.$." [co|
|00002300| 75 6e 74 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |unt forw|ard-sexp|
|00002310| 20 31 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c | 1 parse|-partial|
|00002320| 2d 73 65 78 70 20 69 6e | 64 65 6e 74 2d 70 6f 69 |-sexp in|dent-poi|
|00002330| 6e 74 20 74 5d 20 35 29 | 20 28 28 65 72 72 6f 72 |nt t] 5)| ((error|
|00002340| 29 29 20 30 20 6e 6f 72 | 6d 61 6c 2d 69 6e 64 65 |)) 0 nor|mal-inde|
|00002350| 6e 74 5d 20 36 5d 20 6c | 69 73 70 2d 69 6e 64 65 |nt] 6] l|isp-inde|
|00002360| 6e 74 2d 64 65 66 66 6f | 72 6d 20 23 5b 28 73 74 |nt-deffo|rm #[(st|
|00002370| 61 74 65 20 69 6e 64 65 | 6e 74 2d 70 6f 69 6e 74 |ate inde|nt-point|
|00002380| 29 20 22 08 41 40 62 88 | c1 79 88 60 08 41 41 40 |) ".A@b.|.y.`.AA@|
|00002390| 56 85 19 00 08 41 40 62 | 88 5c 6e 69 5c 5c 87 22 |V....A@b|.\ni\\."|
|000023a0| 20 5b 73 74 61 74 65 20 | 31 20 6c 69 73 70 2d 62 | [state |1 lisp-b|
|000023b0| 6f 64 79 2d 69 6e 64 65 | 6e 74 5d 20 32 5d 20 70 |ody-inde|nt] 2] p|
|000023c0| 75 74 20 6c 61 6d 62 64 | 61 20 6c 69 73 70 2d 69 |ut lambd|a lisp-i|
|000023d0| 6e 64 65 6e 74 2d 66 75 | 6e 63 74 69 6f 6e 20 64 |ndent-fu|nction d|
|000023e0| 65 66 75 6e 20 61 75 74 | 6f 6c 6f 61 64 20 70 72 |efun aut|oload pr|
|000023f0| 6f 67 6e 20 30 20 70 72 | 6f 67 31 20 31 20 70 72 |ogn 0 pr|og1 1 pr|
|00002400| 6f 67 32 20 32 20 73 61 | 76 65 2d 65 78 63 75 72 |og2 2 sa|ve-excur|
|00002410| 73 69 6f 6e 20 73 61 76 | 65 2d 77 69 6e 64 6f 77 |sion sav|e-window|
|00002420| 2d 65 78 63 75 72 73 69 | 6f 6e 20 73 61 76 65 2d |-excursi|on save-|
|00002430| 72 65 73 74 72 69 63 74 | 69 6f 6e 20 73 61 76 65 |restrict|ion save|
|00002440| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 6c 65 74 20 |-match-d|ata let |
|00002450| 6c 65 74 2a 20 77 68 69 | 6c 65 20 69 66 20 63 61 |let* whi|le if ca|
|00002460| 74 63 68 20 63 6f 6e 64 | 69 74 69 6f 6e 2d 63 61 |tch cond|ition-ca|
|00002470| 73 65 20 75 6e 77 69 6e | 64 2d 70 72 6f 74 65 63 |se unwin|d-protec|
|00002480| 74 20 77 69 74 68 2d 6f | 75 74 70 75 74 2d 74 6f |t with-o|utput-to|
|00002490| 2d 74 65 6d 70 2d 62 75 | 66 66 65 72 5d 20 34 29 |-temp-bu|ffer] 4)|
|000024a0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6e 64 65 |.(defali|as 'inde|
|000024b0| 6e 74 2d 73 65 78 70 20 | 23 5b 28 26 6f 70 74 69 |nt-sexp |#[(&opti|
|000024c0| 6f 6e 61 6c 20 65 6e 64 | 70 6f 73 29 20 22 c0 43 |onal end|pos) ".C|
|000024d0| c1 60 60 c0 89 89 89 89 | 89 1a 1b 1c 1d 1e 06 1e |.``.....|........|
|000024e0| 07 1e 08 1e 09 1e 5c 6e | 1e 0b 8a cc cd 21 88 29 |......\n|.....!.)|
|000024f0| 8a c0 15 0e 0e 83 30 00 | 60 0e 0e 57 82 32 00 0d |......0.|`..W.2..|
|00002500| 3f 85 5d 01 0e 5c 6e 16 | 07 c0 14 5c 66 84 80 00 |?.]..\n.|...\f...|
|00002510| 6d 89 15 84 80 00 cf 60 | c0 7f 88 60 c0 89 0b 25 |m......`|...`...%|
|00002520| 89 13 40 16 5c 6e d0 0b | 9b 40 83 67 00 d1 20 88 |..@.\n..|.@.g.. .|
|00002530| c0 7f 88 d0 0b 9b c0 a0 | 88 d2 0b 9b 40 83 7a 00 |........|....@.z.|
|00002540| cd 79 88 d3 0b 9b c0 a0 | 88 82 3b 00 d4 89 14 83 |.y......|..;.....|
|00002550| 3f 00 0e 0e 83 a2 00 0e | 5c 6e c1 58 83 a2 00 d5 |?.......|\n.X....|
|00002560| 0e 0b d6 0e 5c 6e 5b c0 | 5c 22 5c 22 16 0b 0e 07 |....\n[.|\"\"....|
|00002570| 0e 5c 6e 5a 16 07 c1 16 | 5c 6e 0d 84 ab 00 0e 5c |.\nZ....|\n.....\|
|00002580| 6e c1 58 15 0d 83 b5 00 | cd 79 88 82 4a 01 0e 07 |n.X.....|.y..J...|
|00002590| 0e 5c 6e 56 83 cb 00 0e | 0b 41 16 0b 0e 07 53 89 |.\nV....|.A....S.|
|000025a0| 16 07 82 b7 00 0e 07 0e | 5c 6e 57 83 e2 00 c0 0e |........|\nW.....|
|000025b0| 0b 42 16 0b 0e 07 54 89 | 16 07 82 cd 00 cd 79 88 |.B....T.|......y.|
|000025c0| 60 16 06 d7 c0 77 88 6d | 84 4a 01 d8 d9 21 84 4a |`....w.m|.J...!.J|
|000025d0| 01 0e 0b 40 83 0b 01 0e | 0b 40 c1 59 83 0b 01 0e |...@....|.@.Y....|
|000025e0| 0b 40 12 82 3c 01 da 0e | 0b 40 83 19 01 0e 0b 40 |.@..<...|.@.....@|
|000025f0| 5b 82 1b 01 0e 09 21 89 | 1e 1b a8 83 2e 01 0e 0b |[.....!.|........|
|00002600| 0e 1b 89 12 a0 88 82 3b | 01 0e 0b 0e 1b 41 40 5b |.......;|.....A@[|
|00002610| a0 88 0e 1b 40 12 29 69 | 5c 6e 55 84 4a 01 0e 06 |....@.)i|\nU.J...|
|00002620| 60 7c 88 5c 6e 6a 88 0d | 84 24 00 60 0e 08 55 89 |`|.\nj..|.$.`..U.|
|00002630| 15 84 24 00 60 16 08 82 | 24 00 2e 0b 87 22 20 5b |..$.`...|$...." [|
|00002640| 6e 69 6c 20 30 20 74 68 | 69 73 2d 69 6e 64 65 6e |nil 0 th|is-inden|
|00002650| 74 20 73 74 61 74 65 20 | 69 6e 6e 65 72 2d 6c 6f |t state |inner-lo|
|00002660| 6f 70 2d 64 6f 6e 65 20 | 6f 75 74 65 72 2d 6c 6f |op-done |outer-lo|
|00002670| 6f 70 2d 64 6f 6e 65 20 | 62 6f 6c 20 6c 61 73 74 |op-done |bol last|
|00002680| 2d 64 65 70 74 68 20 6c | 61 73 74 2d 70 6f 69 6e |-depth l|ast-poin|
|00002690| 74 20 73 74 61 72 74 69 | 6e 67 2d 70 6f 69 6e 74 |t starti|ng-point|
|000026a0| 20 6e 65 78 74 2d 64 65 | 70 74 68 20 69 6e 64 65 | next-de|pth inde|
|000026b0| 6e 74 2d 73 74 61 63 6b | 20 66 6f 72 77 61 72 64 |nt-stack| forward|
|000026c0| 2d 73 65 78 70 20 31 20 | 65 6e 64 70 6f 73 20 70 |-sexp 1 |endpos p|
|000026d0| 61 72 73 65 2d 70 61 72 | 74 69 61 6c 2d 73 65 78 |arse-par|tial-sex|
|000026e0| 70 20 34 20 69 6e 64 65 | 6e 74 2d 66 6f 72 2d 63 |p 4 inde|nt-for-c|
|000026f0| 6f 6d 6d 65 6e 74 20 33 | 20 35 20 74 20 61 70 70 |omment 3| 5 t app|
|00002700| 65 6e 64 20 6d 61 6b 65 | 2d 6c 69 73 74 20 22 20 |end make|-list " |
|00002710| 09 22 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5c |." looki|ng-at "\|
|00002720| 5c 73 3c 5c 5c 7c 5c 6e | 22 20 63 61 6c 63 75 6c |\s<\\|\n|" calcul|
|00002730| 61 74 65 2d 6c 69 73 70 | 2d 69 6e 64 65 6e 74 20 |ate-lisp|-indent |
|00002740| 76 61 6c 5d 20 31 31 20 | 22 5c 0a 49 6e 64 65 6e |val] 11 |"\.Inden|
|00002750| 74 20 65 61 63 68 20 6c | 69 6e 65 20 6f 66 20 74 |t each l|ine of t|
|00002760| 68 65 20 6c 69 73 74 20 | 73 74 61 72 74 69 6e 67 |he list |starting|
|00002770| 20 6a 75 73 74 20 61 66 | 74 65 72 20 70 6f 69 6e | just af|ter poin|
|00002780| 74 2e 0a 49 66 20 6f 70 | 74 69 6f 6e 61 6c 20 61 |t..If op|tional a|
|00002790| 72 67 20 45 4e 44 50 4f | 53 20 69 73 20 67 69 76 |rg ENDPO|S is giv|
|000027a0| 65 6e 2c 20 69 6e 64 65 | 6e 74 20 65 61 63 68 20 |en, inde|nt each |
|000027b0| 6c 69 6e 65 2c 20 73 74 | 6f 70 70 69 6e 67 20 77 |line, st|opping w|
|000027c0| 68 65 6e 0a 45 4e 44 50 | 4f 53 20 69 73 20 65 6e |hen.ENDP|OS is en|
|000027d0| 63 6f 75 6e 74 65 72 65 | 64 2e 22 20 6e 69 6c 5d |countere|d." nil]|
|000027e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 28 71 75 6f |).(defal|ias (quo|
|000027f0| 74 65 20 6c 69 73 70 2d | 69 6e 64 65 6e 74 2d 72 |te lisp-|indent-r|
|00002800| 65 67 69 6f 6e 29 20 23 | 5b 28 73 74 61 72 74 20 |egion) #|[(start |
|00002810| 65 6e 64 29 20 22 8a 08 | 62 88 6e 83 0f 00 6c 84 |end) "..|b.n...l.|
|00002820| 0f 00 c1 20 88 c2 0b 21 | 1c c5 5c 66 21 88 5c 66 |... ...!|..\f!.\f|
|00002830| c6 89 93 2a 87 22 20 5b | 73 74 61 72 74 20 6c 69 |...*." [|start li|
|00002840| 73 70 2d 69 6e 64 65 6e | 74 2d 6c 69 6e 65 20 63 |sp-inden|t-line c|
|00002850| 6f 70 79 2d 6d 61 72 6b | 65 72 20 65 6e 64 20 65 |opy-mark|er end e|
|00002860| 6e 64 6d 61 72 6b 20 69 | 6e 64 65 6e 74 2d 73 65 |ndmark i|ndent-se|
|00002870| 78 70 20 6e 69 6c 5d 20 | 33 5d 29 0a 28 64 65 66 |xp nil] |3]).(def|
|00002880| 61 6c 69 61 73 20 27 6c | 69 73 70 2d 66 69 6c 6c |alias 'l|isp-fill|
|00002890| 2d 70 61 72 61 67 72 61 | 70 68 20 23 5b 28 26 6f |-paragra|ph #[(&o|
|000028a0| 70 74 69 6f 6e 61 6c 20 | 6a 75 73 74 69 66 79 29 |ptional |justify)|
|000028b0| 20 22 c0 89 19 1a 8a c3 | 79 88 c4 c5 21 83 19 00 | "......|y...!...|
|000028c0| c6 12 c3 94 c3 95 7b 11 | 82 51 00 c4 c7 21 84 3e |......{.|.Q...!.>|
|000028d0| 00 c8 c0 77 88 60 66 c9 | 3d 83 30 00 ca 75 88 82 |...w.`f.|=.0..u..|
|000028e0| 19 00 60 66 cb 3e 83 19 | 00 cc cd 21 88 82 19 00 |..`f.>..|...!....|
|000028f0| c4 ce 21 83 51 00 c6 12 | cf 69 d0 5c 22 c3 94 c3 |..!.Q...|.i.\"...|
|00002900| 95 7b 50 11 29 5c 6e 84 | 5d 00 d1 0e 12 21 82 99 |.{P.)\n.|]....!..|
|00002910| 00 8c 8a d3 79 c3 55 83 | 6c 00 c4 d4 21 84 5f 00 |....y.U.|l...!._.|
|00002920| c4 d4 21 84 75 00 cd 79 | 88 60 29 8a cd 79 88 c4 |..!.u..y|.`)..y..|
|00002930| d4 21 84 78 00 60 29 7d | 88 0e 15 d6 50 0e 15 d6 |.!.x.`)}|....P...|
|00002940| 50 09 1e 17 1e 18 1e 15 | d1 0e 12 21 2c 2a 87 22 |P.......|...!,*."|
|00002950| 20 5b 6e 69 6c 20 63 6f | 6d 6d 65 6e 74 2d 66 69 | [nil co|mment-fi|
|00002960| 6c 6c 2d 70 72 65 66 69 | 78 20 68 61 73 2d 63 6f |ll-prefi|x has-co|
|00002970| 6d 6d 65 6e 74 20 30 20 | 6c 6f 6f 6b 69 6e 67 2d |mment 0 |looking-|
|00002980| 61 74 20 22 5b 20 09 5d | 2a 3b 5b 3b 20 09 5d 2a |at "[ .]|*;[; .]*|
|00002990| 22 20 74 20 22 3b 5c 5c | 7c 24 22 20 22 5e 3b 5c |" t ";\\||$" "^;\|
|000029a0| 6e 5c 22 5c 5c 5c 5c 3f | 22 20 39 32 20 32 20 28 |n\"\\\\?|" 92 2 (|
|000029b0| 33 34 20 36 33 29 20 66 | 6f 72 77 61 72 64 2d 73 |34 63) f|orward-s|
|000029c0| 65 78 70 20 31 20 22 3b | 2b 5b 09 20 5d 2a 22 20 |exp 1 ";|+[. ]*" |
|000029d0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 33 32 20 66 |make-str|ing 32 f|
|000029e0| 69 6c 6c 2d 70 61 72 61 | 67 72 61 70 68 20 6a 75 |ill-para|graph ju|
|000029f0| 73 74 69 66 79 20 2d 31 | 20 22 5e 5b 20 09 5d 2a |stify -1| "^[ .]*|
|00002a00| 3b 22 20 70 61 72 61 67 | 72 61 70 68 2d 73 74 61 |;" parag|raph-sta|
|00002a10| 72 74 20 22 5c 5c 7c 5e | 5b 20 09 3b 5d 2a 24 22 |rt "\\|^|[ .;]*$"|
|00002a20| 20 66 69 6c 6c 2d 70 72 | 65 66 69 78 20 70 61 72 | fill-pr|efix par|
|00002a30| 61 67 72 61 70 68 2d 73 | 65 70 61 72 61 74 65 5d |agraph-s|eparate]|
|00002a40| 20 33 20 22 5c 0a 4c 69 | 6b 65 20 5c 5c 5b 66 69 | 3 "\.Li|ke \\[fi|
|00002a50| 6c 6c 2d 70 61 72 61 67 | 72 61 70 68 5d 2c 20 62 |ll-parag|raph], b|
|00002a60| 75 74 20 68 61 6e 64 6c | 65 20 45 6d 61 63 73 20 |ut handl|e Emacs |
|00002a70| 4c 69 73 70 20 63 6f 6d | 6d 65 6e 74 73 2e 0a 49 |Lisp com|ments..I|
|00002a80| 66 20 61 6e 79 20 6f 66 | 20 74 68 65 20 63 75 72 |f any of| the cur|
|00002a90| 72 65 6e 74 20 6c 69 6e | 65 20 69 73 20 61 20 63 |rent lin|e is a c|
|00002aa0| 6f 6d 6d 65 6e 74 2c 20 | 66 69 6c 6c 20 74 68 65 |omment, |fill the|
|00002ab0| 20 63 6f 6d 6d 65 6e 74 | 20 6f 72 20 74 68 65 0a | comment| or the.|
|00002ac0| 70 61 72 61 67 72 61 70 | 68 20 6f 66 20 69 74 20 |paragrap|h of it |
|00002ad0| 74 68 61 74 20 70 6f 69 | 6e 74 20 69 73 20 69 6e |that poi|nt is in|
|00002ae0| 2c 20 70 72 65 73 65 72 | 76 69 6e 67 20 74 68 65 |, preser|ving the|
|00002af0| 20 63 6f 6d 6d 65 6e 74 | 27 73 20 69 6e 64 65 6e | comment|'s inden|
|00002b00| 74 61 74 69 6f 6e 0a 61 | 6e 64 20 69 6e 69 74 69 |tation.a|nd initi|
|00002b10| 61 6c 20 73 65 6d 69 63 | 6f 6c 6f 6e 73 2e 22 20 |al semic|olons." |
|00002b20| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00002b30| 27 69 6e 64 65 6e 74 2d | 63 6f 64 65 2d 72 69 67 |'indent-|code-rig|
|00002b40| 69 64 6c 79 20 23 5b 28 | 73 74 61 72 74 20 65 6e |idly #[(|start en|
|00002b50| 64 20 61 72 67 20 26 6f | 70 74 69 6f 6e 61 6c 20 |d arg &o|ptional |
|00002b60| 6e 6f 63 68 61 6e 67 65 | 2d 72 65 67 65 78 70 29 |nochange|-regexp)|
|00002b70| 20 22 c0 19 8a 5c 6e 62 | 88 c3 20 12 5c 66 62 88 | "...\nb|.. .\fb.|
|00002b80| 6e 84 1b 00 c5 60 c6 79 | 88 60 c0 89 09 25 11 60 |n....`.y|.`...%.`|
|00002b90| 5c 6e 57 85 5e 00 c7 09 | 9b 40 84 50 00 0e 08 83 |\nW.^...|.@.P....|
|00002ba0| 34 00 c9 0e 08 21 84 50 | 00 ca 20 1e 0b 60 cc c0 |4....!.P|.. ..`..|
|00002bb0| 77 88 60 7c 88 6c 84 4f | 00 cd ce 0e 0b 0e 0f 5c |w.`|.l.O|.......\|
|00002bc0| 5c 5d ce 5c 22 88 29 c5 | 60 c6 79 88 60 c0 89 09 |\].\".).|`.y.`...|
|00002bd0| 25 11 82 1b 00 2a 87 22 | 20 5b 6e 69 6c 20 73 74 |%....*."| [nil st|
|00002be0| 61 74 65 20 65 6e 64 20 | 70 6f 69 6e 74 2d 6d 61 |ate end |point-ma|
|00002bf0| 72 6b 65 72 20 73 74 61 | 72 74 20 70 61 72 73 65 |rker sta|rt parse|
|00002c00| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 20 31 20 |-partial|-sexp 1 |
|00002c10| 33 20 6e 6f 63 68 61 6e | 67 65 2d 72 65 67 65 78 |3 nochan|ge-regex|
|00002c20| 70 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 63 75 72 |p lookin|g-at cur|
|00002c30| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|00002c40| 20 69 6e 64 65 6e 74 20 | 22 20 09 22 20 69 6e 64 | indent |" ." ind|
|00002c50| 65 6e 74 2d 74 6f 20 30 | 20 61 72 67 5d 20 36 20 |ent-to 0| arg] 6 |
|00002c60| 22 5c 0a 49 6e 64 65 6e | 74 20 61 6c 6c 20 6c 69 |"\.Inden|t all li|
|00002c70| 6e 65 73 20 6f 66 20 63 | 6f 64 65 2c 20 73 74 61 |nes of c|ode, sta|
|00002c80| 72 74 69 6e 67 20 69 6e | 20 74 68 65 20 72 65 67 |rting in| the reg|
|00002c90| 69 6f 6e 2c 20 73 69 64 | 65 77 61 79 73 20 62 79 |ion, sid|eways by|
|00002ca0| 20 41 52 47 20 63 6f 6c | 75 6d 6e 73 2e 0a 44 6f | ARG col|umns..Do|
|00002cb0| 65 73 20 6e 6f 74 20 61 | 66 66 65 63 74 20 6c 69 |es not a|ffect li|
|00002cc0| 6e 65 73 20 73 74 61 72 | 74 69 6e 67 20 69 6e 73 |nes star|ting ins|
|00002cd0| 69 64 65 20 63 6f 6d 6d | 65 6e 74 73 20 6f 72 20 |ide comm|ents or |
|00002ce0| 73 74 72 69 6e 67 73 2c | 20 61 73 73 75 6d 69 6e |strings,| assumin|
|00002cf0| 67 20 74 68 61 74 0a 74 | 68 65 20 73 74 61 72 74 |g that.t|he start|
|00002d00| 20 6f 66 20 74 68 65 20 | 72 65 67 69 6f 6e 20 69 | of the |region i|
|00002d10| 73 20 6e 6f 74 20 69 6e | 73 69 64 65 20 74 68 65 |s not in|side the|
|00002d20| 6d 2e 0a 0a 43 61 6c 6c | 65 64 20 66 72 6f 6d 20 |m...Call|ed from |
|00002d30| 61 20 70 72 6f 67 72 61 | 6d 2c 20 74 61 6b 65 73 |a progra|m, takes|
|00002d40| 20 61 72 67 73 20 53 54 | 41 52 54 2c 20 45 4e 44 | args ST|ART, END|
|00002d50| 2c 20 43 4f 4c 55 4d 4e | 53 20 61 6e 64 20 4e 4f |, COLUMN|S and NO|
|00002d60| 43 48 41 4e 47 45 2d 52 | 45 47 45 58 50 2e 0a 54 |CHANGE-R|EGEXP..T|
|00002d70| 68 65 20 6c 61 73 74 20 | 69 73 20 61 20 72 65 67 |he last |is a reg|
|00002d80| 65 78 70 20 77 68 69 63 | 68 2c 20 69 66 20 6d 61 |exp whic|h, if ma|
|00002d90| 74 63 68 65 64 20 61 74 | 20 74 68 65 20 62 65 67 |tched at| the beg|
|00002da0| 69 6e 6e 69 6e 67 20 6f | 66 20 61 20 6c 69 6e 65 |inning o|f a line|
|00002db0| 2c 0a 6d 65 61 6e 73 20 | 64 6f 6e 27 74 20 69 6e |,.means |don't in|
|00002dc0| 64 65 6e 74 20 74 68 61 | 74 20 6c 69 6e 65 2e 22 |dent tha|t line."|
|00002dd0| 20 22 72 5c 6e 70 22 5d | 29 0a 28 70 72 6f 76 69 | "r\np"]|).(provi|
|00002de0| 64 65 20 28 71 75 6f 74 | 65 20 6c 69 73 70 2d 6d |de (quot|e lisp-m|
|00002df0| 6f 64 65 29 29 0a       |                         |ode)).  |        |
+--------+-------------------------+-------------------------+--------+--------+