home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 12.9 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 |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 38 3a 30 | 35 20 31 39 39 35 0a 3b | 14:08:0|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 6c 69 73 70 |/lisp/mo|des/lisp|
|00000090| 2d 6d 6f 64 65 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |-mode.el|.;;; ema|
|000000a0| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 31 33 |cs versi|on 19.13|
|000000b0| 20 58 45 6d 61 63 73 20 | 4c 75 63 69 64 2e 0a 3b | XEmacs |Lucid..;|
|000000c0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000d0| 69 6f 6e 20 32 2e 32 35 | 3b 20 31 2d 53 65 70 2d |ion 2.25|; 1-Sep-|
|000000e0| 39 34 2e 0a 3b 3b 3b 20 | 6f 70 74 69 6d 69 7a 61 |94..;;; |optimiza|
|000000f0| 74 69 6f 6e 20 69 73 20 | 6f 6e 2e 0a 3b 3b 3b 20 |tion is |on..;;; |
|00000100| 74 68 69 73 20 66 69 6c | 65 20 75 73 65 73 20 6f |this fil|e uses o|
|00000110| 70 63 6f 64 65 73 20 77 | 68 69 63 68 20 64 6f 20 |pcodes w|hich do |
|00000120| 6e 6f 74 20 65 78 69 73 | 74 20 69 6e 20 45 6d 61 |not exis|t in Ema|
|00000130| 63 73 20 31 38 2e 0a 0a | 28 69 66 20 28 61 6e 64 |cs 18...|(if (and|
|00000140| 20 28 62 6f 75 6e 64 70 | 20 27 65 6d 61 63 73 2d | (boundp| 'emacs-|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 28 6f 72 20 28 |version)|.. (or (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 70 6f |and (bou|ndp 'epo|
|00000170| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 20 65 70 6f |ch::vers|ion) epo|
|00000180| 63 68 3a 3a 76 65 72 73 | 69 6f 6e 29 0a 09 20 20 |ch::vers|ion).. |
|00000190| 20 20 20 28 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 | (stri|ng-lessp|
|000001a0| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 20 22 | emacs-v|ersion "|
|000001b0| 31 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |19"))). | (erro|
|000001c0| 72 20 22 54 68 69 73 20 | 66 69 6c 65 20 77 61 73 |r "This |file was|
|000001d0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001e0| 61 63 73 20 31 39 2e 22 | 29 29 0a 0a 28 64 65 66 |acs 19."|))..(def|
|000001f0| 76 61 72 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 73 79 |var lisp|-mode-sy|
|00000200| 6e 74 61 78 2d 74 61 62 | 6c 65 20 6e 69 6c 20 22 |ntax-tab|le nil "|
|00000210| 5c 0a 22 29 0a 28 64 65 | 66 76 61 72 20 65 6d 61 |\.").(de|fvar ema|
|00000220| 63 73 2d 6c 69 73 70 2d | 6d 6f 64 65 2d 73 79 6e |cs-lisp-|mode-syn|
|00000230| 74 61 78 2d 74 61 62 6c | 65 20 6e 69 6c 20 22 5c |tax-tabl|e nil "\|
|00000240| 0a 22 29 0a 28 64 65 66 | 76 61 72 20 6c 69 73 70 |.").(def|var lisp|
|00000250| 2d 6d 6f 64 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |-mode-ab|brev-tab|
|00000260| 6c 65 20 6e 69 6c 20 22 | 5c 0a 22 29 0a 28 62 79 |le nil "|\.").(by|
|00000270| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 84 c2 c3 |te-code |"..!....|
|00000280| 21 11 c0 c4 21 ac 87 c2 | c5 09 41 a4 21 14 0e 06 |!...!...|..A.!...|
|00000290| 84 f7 00 c7 1e 08 c9 20 | 16 06 0e 08 ca 57 ab 90 |....... |.....W..|
|000002a0| cb 0e 08 cc 0e 06 23 88 | 0e 08 54 89 16 08 aa 6c |......#.|..T....l|
|000002b0| cd 16 08 cd ce 57 ab 90 | cb 0e 08 cc 0e 06 23 88 |.....W..|......#.|
|000002c0| 0e 08 54 89 16 08 aa 6c | cf 16 08 cf d0 57 ab 90 |..T....l|.....W..|
|000002d0| cb 0e 08 cc 0e 06 23 88 | 0e 08 54 89 16 08 aa 6c |......#.|..T....l|
|000002e0| d1 16 08 d1 d2 57 ab 90 | cb 0e 08 cc 0e 06 23 88 |.....W..|......#.|
|000002f0| 0e 08 54 89 16 08 aa 6c | cb d3 d4 0e 06 23 88 cb |..T....l|.....#..|
|00000300| d5 d4 0e 06 23 88 cb d6 | d7 0e 06 23 88 cb d8 d7 |....#...|...#....|
|00000310| 0e 06 23 88 cb d9 d4 0e | 06 23 88 cb da db 0e 06 |..#.....|.#......|
|00000320| 23 88 cb dc dd 0e 06 23 | 88 cb de dd 0e 06 23 88 |#......#|......#.|
|00000330| cb df dd 0e 06 23 88 cb | e0 cc 0e 06 23 88 cb e1 |.....#..|....#...|
|00000340| dd 0e 06 23 88 cb e2 e3 | 0e 06 23 88 cb e4 e5 0e |...#....|..#.....|
|00000350| 06 23 88 cb e6 e7 0e 06 | 23 88 cb e8 e9 0e 06 23 |.#......|#......#|
|00000360| 88 cb cf ea 0e 06 23 88 | cb eb ec 0e 06 23 88 29 |......#.|.....#.)|
|00000370| 0e 2d ac b4 ee 0e 06 21 | 16 2d cb cf cc 0e 2d 23 |.-.....!|.-....-#|
|00000380| 88 cb eb cc 0e 2d 23 88 | ef 60 60 5c 22 47 f0 55 |.....-#.|.``\"G.U|
|00000390| ab 90 cb e1 f1 0e 2d 23 | 88 cb f2 f3 0e 2d 23 88 |......-#|.....-#.|
|000003a0| aa 87 cb f2 f4 0e 2d 23 | 88 f5 f6 f7 5c 22 88 f8 |......-#|....\"..|
|000003b0| f9 4d 87 22 20 5b 62 6f | 75 6e 64 70 20 6c 69 73 |.M." [bo|undp lis|
|000003c0| 70 2d 69 6e 74 65 72 61 | 63 74 69 6f 6e 2d 70 6f |p-intera|ction-po|
|000003d0| 70 75 70 2d 6d 65 6e 75 | 20 70 75 72 65 63 6f 70 |pup-menu| purecop|
|000003e0| 79 20 28 22 4c 69 73 70 | 2d 69 6e 74 65 72 61 63 |y ("Lisp|-interac|
|000003f0| 74 69 6f 6e 20 6d 65 6e | 75 22 20 5b 22 45 76 61 |tion men|u" ["Eva|
|00000400| 6c 75 61 74 65 20 6c 61 | 73 74 20 65 78 70 72 65 |luate la|st expre|
|00000410| 73 73 69 6f 6e 22 20 65 | 76 61 6c 2d 6c 61 73 74 |ssion" e|val-last|
|00000420| 2d 73 65 78 70 20 74 5d | 20 5b 22 45 76 61 6c 75 |-sexp t]| ["Evalu|
|00000430| 61 74 65 20 65 6e 74 69 | 72 65 20 62 75 66 66 65 |ate enti|re buffe|
|00000440| 72 22 20 65 76 61 6c 2d | 63 75 72 72 65 6e 74 2d |r" eval-|current-|
|00000450| 62 75 66 66 65 72 20 74 | 5d 20 22 2d 2d 2d 22 20 |buffer t|] "---" |
|00000460| 5b 22 45 76 61 6c 75 61 | 74 65 20 74 68 69 73 20 |["Evalua|te this |
|00000470| 64 65 66 75 6e 22 20 65 | 76 61 6c 2d 64 65 66 75 |defun" e|val-defu|
|00000480| 6e 20 74 5d 20 5b 22 44 | 65 62 75 67 20 74 68 69 |n t] ["D|ebug thi|
|00000490| 73 20 64 65 66 75 6e 22 | 20 65 64 65 62 75 67 2d |s defun"| edebug-|
|000004a0| 64 65 66 75 6e 20 74 5d | 20 22 2d 2d 2d 22 20 5b |defun t]| "---" [|
|000004b0| 22 54 72 61 63 65 20 61 | 20 66 75 6e 63 74 69 6f |"Trace a| functio|
|000004c0| 6e 22 20 74 72 61 63 65 | 2d 66 75 6e 63 74 69 6f |n" trace|-functio|
|000004d0| 6e 2d 62 61 63 6b 67 72 | 6f 75 6e 64 20 74 5d 20 |n-backgr|ound t] |
|000004e0| 5b 22 55 6e 74 72 61 63 | 65 20 61 6c 6c 20 66 75 |["Untrac|e all fu|
|000004f0| 6e 63 74 69 6f 6e 73 22 | 20 75 6e 74 72 61 63 65 |nctions"| untrace|
|00000500| 2d 61 6c 6c 20 28 66 62 | 6f 75 6e 64 70 20 27 75 |-all (fb|oundp 'u|
|00000510| 6e 74 72 61 63 65 2d 61 | 6c 6c 29 5d 20 22 2d 2d |ntrace-a|ll)] "--|
|00000520| 2d 22 20 5b 22 44 65 62 | 75 67 20 6f 6e 20 65 72 |-" ["Deb|ug on er|
|00000530| 72 6f 72 22 20 28 73 65 | 74 71 20 64 65 62 75 67 |ror" (se|tq debug|
|00000540| 2d 6f 6e 2d 65 72 72 6f | 72 20 28 6e 6f 74 20 64 |-on-erro|r (not d|
|00000550| 65 62 75 67 2d 6f 6e 2d | 65 72 72 6f 72 29 29 20 |ebug-on-|error)) |
|00000560| 3a 73 74 79 6c 65 20 74 | 6f 67 67 6c 65 20 3a 73 |:style t|oggle :s|
|00000570| 65 6c 65 63 74 65 64 20 | 64 65 62 75 67 2d 6f 6e |elected |debug-on|
|00000580| 2d 65 72 72 6f 72 5d 20 | 5b 22 44 65 62 75 67 20 |-error] |["Debug |
|00000590| 6f 6e 20 71 75 69 74 22 | 20 28 73 65 74 71 20 64 |on quit"| (setq d|
|000005a0| 65 62 75 67 2d 6f 6e 2d | 71 75 69 74 20 28 6e 6f |ebug-on-|quit (no|
|000005b0| 74 20 64 65 62 75 67 2d | 6f 6e 2d 71 75 69 74 29 |t debug-|on-quit)|
|000005c0| 29 20 3a 73 74 79 6c 65 | 20 74 6f 67 67 6c 65 20 |) :style| toggle |
|000005d0| 3a 73 65 6c 65 63 74 65 | 64 20 64 65 62 75 67 2d |:selecte|d debug-|
|000005e0| 6f 6e 2d 71 75 69 74 5d | 29 20 65 6d 61 63 73 2d |on-quit]|) emacs-|
|000005f0| 6c 69 73 70 2d 70 6f 70 | 75 70 2d 6d 65 6e 75 20 |lisp-pop|up-menu |
|00000600| 28 22 45 6d 61 63 73 2d | 4c 69 73 70 20 6d 65 6e |("Emacs-|Lisp men|
|00000610| 75 22 20 5b 22 42 79 74 | 65 2d 63 6f 6d 70 69 6c |u" ["Byt|e-compil|
|00000620| 65 20 66 69 6c 65 22 20 | 28 70 72 6f 67 6e 20 28 |e file" |(progn (|
|00000630| 73 61 76 65 2d 62 75 66 | 66 65 72 29 20 28 62 79 |save-buf|fer) (by|
|00000640| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 69 6c 65 20 |te-compi|le-file |
|00000650| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00000660| 29 29 20 74 5d 20 22 2d | 2d 2d 22 29 20 65 6d 61 |)) t] "-|--") ema|
|00000670| 63 73 2d 6c 69 73 70 2d | 6d 6f 64 65 2d 73 79 6e |cs-lisp-|mode-syn|
|00000680| 74 61 78 2d 74 61 62 6c | 65 20 30 20 69 20 6d 61 |tax-tabl|e 0 i ma|
|00000690| 6b 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |ke-synta|x-table |
|000006a0| 34 38 20 6d 6f 64 69 66 | 79 2d 73 79 6e 74 61 78 |48 modif|y-syntax|
|000006b0| 2d 65 6e 74 72 79 20 22 | 5f 20 20 20 22 20 35 38 |-entry "|_ " 58|
|000006c0| 20 36 35 20 39 31 20 39 | 37 20 31 32 33 20 31 32 | 65 91 9|7 123 12|
|000006d0| 38 20 33 32 20 22 20 20 | 20 20 22 20 39 20 31 30 |8 32 " | " 9 10|
|000006e0| 20 22 3e 20 20 20 22 20 | 31 33 20 31 32 20 35 39 | "> " |13 12 59|
|000006f0| 20 22 3c 20 20 20 22 20 | 39 36 20 22 27 20 20 20 | "< " |96 "' |
|00000700| 22 20 33 39 20 34 34 20 | 34 36 20 33 35 20 33 34 |" 39 44 |46 35 34|
|00000710| 20 22 5c 22 20 20 20 20 | 22 20 39 32 20 22 5c 5c | "\" |" 92 "\\|
|00000720| 20 20 20 22 20 34 30 20 | 22 28 29 20 20 22 20 34 | " 40 |"() " 4|
|00000730| 31 20 22 29 28 20 20 22 | 20 22 28 5d 20 20 22 20 |1 ")( "| "(] " |
|00000740| 39 33 20 22 29 5b 20 20 | 22 20 6c 69 73 70 2d 6d |93 ")[ |" lisp-m|
|00000750| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00000760| 20 63 6f 70 79 2d 73 79 | 6e 74 61 78 2d 74 61 62 | copy-sy|ntax-tab|
|00000770| 6c 65 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c |le parse|-partial|
|00000780| 2d 73 65 78 70 20 38 20 | 22 27 20 35 38 22 20 31 |-sexp 8 |"' 58" 1|
|00000790| 32 34 20 22 2e 20 36 37 | 22 20 22 5c 22 20 20 20 |24 ". 67|" "\" |
|000007a0| 22 20 64 65 66 69 6e 65 | 2d 61 62 62 72 65 76 2d |" define|-abbrev-|
|000007b0| 74 61 62 6c 65 20 6c 69 | 73 70 2d 6d 6f 64 65 2d |table li|sp-mode-|
|000007c0| 61 62 62 72 65 76 2d 74 | 61 62 6c 65 20 6e 69 6c |abbrev-t|able nil|
|000007d0| 20 6c 69 73 70 2d 6d 6f | 64 65 2d 76 61 72 69 61 | lisp-mo|de-varia|
|000007e0| 62 6c 65 73 20 23 5b 28 | 6c 69 73 70 2d 73 79 6e |bles #[(|lisp-syn|
|000007f0| 74 61 78 29 20 22 08 ab | 84 c1 5c 6e 21 88 0b 14 |tax) "..|..\n!...|
|00000800| c5 c6 21 88 c7 0e 08 50 | 16 06 c5 c9 21 88 0e 06 |..!....P|....!...|
|00000810| 16 09 c5 ca 21 88 cb 16 | 5c 6e c5 cc 21 88 cd 16 |....!...|\n..!...|
|00000820| 0c c5 ce 21 88 cf 16 0e | c5 d0 21 88 cb 16 10 c5 |...!....|..!.....|
|00000830| d1 21 88 d2 16 11 c5 d3 | 21 d4 4c 88 c5 d5 21 d6 |.!......|!.L...!.|
|00000840| 4c 88 c5 d7 21 88 d8 16 | 17 c5 d9 21 88 da 16 19 |L...!...|...!....|
|00000850| c5 db 21 88 dc 16 1b c5 | dd 21 de 4c 88 c5 df 21 |..!.....|.!.L...!|
|00000860| de 4c 87 22 20 5b 6c 69 | 73 70 2d 73 79 6e 74 61 |.L." [li|sp-synta|
|00000870| 78 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |x set-sy|ntax-tab|
|00000880| 6c 65 20 6c 69 73 70 2d | 6d 6f 64 65 2d 73 79 6e |le lisp-|mode-syn|
|00000890| 74 61 78 2d 74 61 62 6c | 65 20 6c 69 73 70 2d 6d |tax-tabl|e lisp-m|
|000008a0| 6f 64 65 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |ode-abbr|ev-table|
|000008b0| 20 6c 6f 63 61 6c 2d 61 | 62 62 72 65 76 2d 74 61 | local-a|bbrev-ta|
|000008c0| 62 6c 65 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ble make|-local-v|
|000008d0| 61 72 69 61 62 6c 65 20 | 70 61 72 61 67 72 61 70 |ariable |paragrap|
|000008e0| 68 2d 73 74 61 72 74 20 | 22 5e 24 5c 5c 7c 22 20 |h-start |"^$\\|" |
|000008f0| 70 61 67 65 2d 64 65 6c | 69 6d 69 74 65 72 20 70 |page-del|imiter p|
|00000900| 61 72 61 67 72 61 70 68 | 2d 73 65 70 61 72 61 74 |aragraph|-separat|
|00000910| 65 20 70 61 72 61 67 72 | 61 70 68 2d 69 67 6e 6f |e paragr|aph-igno|
|00000920| 72 65 2d 66 69 6c 6c 2d | 70 72 65 66 69 78 20 74 |re-fill-|prefix t|
|00000930| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00000940| 63 74 69 6f 6e 20 6c 69 | 73 70 2d 69 6e 64 65 6e |ction li|sp-inden|
|00000950| 74 2d 6c 69 6e 65 20 69 | 6e 64 65 6e 74 2d 72 65 |t-line i|ndent-re|
|00000960| 67 69 6f 6e 2d 66 75 6e | 63 74 69 6f 6e 20 6c 69 |gion-fun|ction li|
|00000970| 73 70 2d 69 6e 64 65 6e | 74 2d 72 65 67 69 6f 6e |sp-inden|t-region|
|00000980| 20 70 61 72 73 65 2d 73 | 65 78 70 2d 69 67 6e 6f | parse-s|exp-igno|
|00000990| 72 65 2d 63 6f 6d 6d 65 | 6e 74 73 20 6f 75 74 6c |re-comme|nts outl|
|000009a0| 69 6e 65 2d 72 65 67 65 | 78 70 20 22 3b 3b 3b 20 |ine-rege|xp ";;; |
|000009b0| 5c 5c 7c 28 2e 2e 2e 2e | 22 20 63 6f 6d 6d 65 6e |\\|(....|" commen|
|000009c0| 74 2d 73 74 61 72 74 20 | 22 3b 22 20 62 6c 6f 63 |t-start |";" bloc|
|000009d0| 6b 2d 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 20 |k-commen|t-start |
|000009e0| 22 3b 3b 22 20 63 6f 6d | 6d 65 6e 74 2d 73 74 61 |";;" com|ment-sta|
|000009f0| 72 74 2d 73 6b 69 70 20 | 22 3b 2b 5b 20 09 5d 2a |rt-skip |";+[ .]*|
|00000a00| 22 20 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 75 6d 6e |" commen|t-column|
|00000a10| 20 34 30 20 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 | 40 comm|ent-inde|
|00000a20| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 6c 69 73 70 |nt-funct|ion lisp|
|00000a30| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 20 |-comment|-indent |
|00000a40| 64 61 62 62 72 65 76 2d | 63 61 73 65 2d 66 6f 6c |dabbrev-|case-fol|
|00000a50| 64 2d 73 65 61 72 63 68 | 20 6e 69 6c 20 64 61 62 |d-search| nil dab|
|00000a60| 62 72 65 76 2d 63 61 73 | 65 2d 72 65 70 6c 61 63 |brev-cas|e-replac|
|00000a70| 65 5d 20 32 5d 5d 20 35 | 29 0a 28 64 65 66 76 61 |e] 2]] 5|).(defva|
|00000a80| 72 20 73 68 61 72 65 64 | 2d 6c 69 73 70 2d 6d 6f |r shared|-lisp-mo|
|00000a90| 64 65 2d 6d 61 70 20 6e | 69 6c 20 22 5c 0a 4b 65 |de-map n|il "\.Ke|
|00000aa0| 79 6d 61 70 20 66 6f 72 | 20 63 6f 6d 6d 61 6e 64 |ymap for| command|
|00000ab0| 73 20 73 68 61 72 65 64 | 20 62 79 20 61 6c 6c 20 |s shared| by all |
|00000ac0| 73 6f 72 74 73 20 6f 66 | 20 4c 69 73 70 20 6d 6f |sorts of| Lisp mo|
|00000ad0| 64 65 73 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |des.").(|byte-cod|
|00000ae0| 65 20 22 08 ac a6 c1 20 | 10 c2 08 c0 5c 22 88 c3 |e ".... |....\"..|
|00000af0| 08 c4 c5 23 88 c3 08 c6 | c7 23 88 c3 08 c8 c9 23 |...#....|.#.....#|
|00000b00| 88 c3 08 ca cb 23 88 c3 | 08 cc cd 23 88 c1 87 22 |.....#..|...#..."|
|00000b10| 20 5b 73 68 61 72 65 64 | 2d 6c 69 73 70 2d 6d 6f | [shared|-lisp-mo|
|00000b20| 64 65 2d 6d 61 70 20 6d | 61 6b 65 2d 73 70 61 72 |de-map m|ake-spar|
|00000b30| 73 65 2d 6b 65 79 6d 61 | 70 20 73 65 74 2d 6b 65 |se-keyma|p set-ke|
|00000b40| 79 6d 61 70 2d 6e 61 6d | 65 20 64 65 66 69 6e 65 |ymap-nam|e define|
|00000b50| 2d 6b 65 79 20 22 1b 11 | 22 20 69 6e 64 65 6e 74 |-key "..|" indent|
|00000b60| 2d 73 65 78 70 20 22 f1 | 22 20 6c 69 73 70 2d 66 |-sexp ".|" lisp-f|
|00000b70| 69 6c 6c 2d 70 61 72 61 | 67 72 61 70 68 20 22 7f |ill-para|graph ".|
|00000b80| 22 20 62 61 63 6b 77 61 | 72 64 2d 64 65 6c 65 74 |" backwa|rd-delet|
|00000b90| 65 2d 63 68 61 72 2d 75 | 6e 74 61 62 69 66 79 20 |e-char-u|ntabify |
|00000ba0| 22 bb 22 20 6c 69 73 70 | 2d 69 6e 64 65 6e 74 2d |"." lisp|-indent-|
|00000bb0| 66 6f 72 2d 63 6f 6d 6d | 65 6e 74 20 22 09 22 20 |for-comm|ent "." |
|00000bc0| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |lisp-ind|ent-line|
|00000bd0| 5d 20 34 29 0a 28 64 65 | 66 76 61 72 20 65 6d 61 |] 4).(de|fvar ema|
|00000be0| 63 73 2d 6c 69 73 70 2d | 6d 6f 64 65 2d 6d 61 70 |cs-lisp-|mode-map|
|00000bf0| 20 6e 69 6c 20 22 5c 0a | 4b 65 79 6d 61 70 20 66 | nil "\.|Keymap f|
|00000c00| 6f 72 20 45 6d 61 63 73 | 20 4c 69 73 70 20 6d 6f |or Emacs| Lisp mo|
|00000c10| 64 65 2e 0a 41 6c 6c 20 | 63 6f 6d 6d 61 6e 64 73 |de..All |commands|
|00000c20| 20 69 6e 20 73 68 61 72 | 65 64 2d 6c 69 73 70 2d | in shar|ed-lisp-|
|00000c30| 6d 6f 64 65 2d 6d 61 70 | 20 61 72 65 20 69 6e 68 |mode-map| are inh|
|00000c40| 65 72 69 74 65 64 20 62 | 79 20 74 68 69 73 20 6d |erited b|y this m|
|00000c50| 61 70 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ap.").(b|yte-code|
|00000c60| 20 22 08 ac 9a c1 20 10 | c2 08 c0 5c 22 88 c3 08 | ".... .|...\"...|
|00000c70| 0c 43 5c 22 88 c5 08 c6 | c7 23 88 c5 08 c8 c9 23 |.C\"....|.#.....#|
|00000c80| 88 c1 87 22 20 5b 65 6d | 61 63 73 2d 6c 69 73 70 |..." [em|acs-lisp|
|00000c90| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6d 61 6b 65 2d 73 |-mode-ma|p make-s|
|00000ca0| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 73 65 74 |parse-ke|ymap set|
|00000cb0| 2d 6b 65 79 6d 61 70 2d | 6e 61 6d 65 20 73 65 74 |-keymap-|name set|
|00000cc0| 2d 6b 65 79 6d 61 70 2d | 70 61 72 65 6e 74 73 20 |-keymap-|parents |
|00000cd0| 73 68 61 72 65 64 2d 6c | 69 73 70 2d 6d 6f 64 65 |shared-l|isp-mode|
|00000ce0| 2d 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |-map def|ine-key |
|00000cf0| 22 1b 09 22 20 6c 69 73 | 70 2d 63 6f 6d 70 6c 65 |".." lis|p-comple|
|00000d00| 74 65 2d 73 79 6d 62 6f | 6c 20 22 1b 18 22 20 65 |te-symbo|l ".." e|
|00000d10| 76 61 6c 2d 64 65 66 75 | 6e 5d 20 34 29 0a 28 66 |val-defu|n] 4).(f|
|00000d20| 73 65 74 20 27 65 6d 61 | 63 73 2d 6c 69 73 70 2d |set 'ema|cs-lisp-|
|00000d30| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |mode #[n|il ". ..|
|00000d40| 5c 6e 21 88 c3 0c 21 88 | c5 16 06 0e 07 16 08 c9 |\n!...!.|........|
|00000d50| 16 5c 6e cb cc 21 88 cd | ce 21 87 22 20 5b 6b 69 |.\n..!..|.!." [ki|
|00000d60| 6c 6c 2d 61 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |ll-all-l|ocal-var|
|00000d70| 69 61 62 6c 65 73 20 75 | 73 65 2d 6c 6f 63 61 6c |iables u|se-local|
|00000d80| 2d 6d 61 70 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d |-map ema|cs-lisp-|
|00000d90| 6d 6f 64 65 2d 6d 61 70 | 20 73 65 74 2d 73 79 6e |mode-map| set-syn|
|00000da0| 74 61 78 2d 74 61 62 6c | 65 20 65 6d 61 63 73 2d |tax-tabl|e emacs-|
|00000db0| 6c 69 73 70 2d 6d 6f 64 | 65 2d 73 79 6e 74 61 78 |lisp-mod|e-syntax|
|00000dc0| 2d 74 61 62 6c 65 20 65 | 6d 61 63 73 2d 6c 69 73 |-table e|macs-lis|
|00000dd0| 70 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |p-mode m|ajor-mod|
|00000de0| 65 20 65 6d 61 63 73 2d | 6c 69 73 70 2d 70 6f 70 |e emacs-|lisp-pop|
|00000df0| 75 70 2d 6d 65 6e 75 20 | 6d 6f 64 65 2d 70 6f 70 |up-menu |mode-pop|
|00000e00| 75 70 2d 6d 65 6e 75 20 | 22 45 6d 61 63 73 2d 4c |up-menu |"Emacs-L|
|00000e10| 69 73 70 22 20 6d 6f 64 | 65 2d 6e 61 6d 65 20 6c |isp" mod|e-name l|
|00000e20| 69 73 70 2d 6d 6f 64 65 | 2d 76 61 72 69 61 62 6c |isp-mode|-variabl|
|00000e30| 65 73 20 6e 69 6c 20 72 | 75 6e 2d 68 6f 6f 6b 73 |es nil r|un-hooks|
|00000e40| 20 65 6d 61 63 73 2d 6c | 69 73 70 2d 6d 6f 64 65 | emacs-l|isp-mode|
|00000e50| 2d 68 6f 6f 6b 5d 20 32 | 20 22 5c 0a 4d 61 6a 6f |-hook] 2| "\.Majo|
|00000e60| 72 20 6d 6f 64 65 20 66 | 6f 72 20 65 64 69 74 69 |r mode f|or editi|
|00000e70| 6e 67 20 4c 69 73 70 20 | 63 6f 64 65 20 74 6f 20 |ng Lisp |code to |
|00000e80| 72 75 6e 20 69 6e 20 45 | 6d 61 63 73 2e 0a 43 6f |run in E|macs..Co|
|00000e90| 6d 6d 61 6e 64 73 3a 0a | 44 65 6c 65 74 65 20 63 |mmands:.|Delete c|
|00000ea0| 6f 6e 76 65 72 74 73 20 | 74 61 62 73 20 74 6f 20 |onverts |tabs to |
|00000eb0| 73 70 61 63 65 73 20 61 | 73 20 69 74 20 6d 6f 76 |spaces a|s it mov|
|00000ec0| 65 73 20 62 61 63 6b 2e | 0a 42 6c 61 6e 6b 20 6c |es back.|.Blank l|
|00000ed0| 69 6e 65 73 20 73 65 70 | 61 72 61 74 65 20 70 61 |ines sep|arate pa|
|00000ee0| 72 61 67 72 61 70 68 73 | 2e 20 20 53 65 6d 69 63 |ragraphs|. Semic|
|00000ef0| 6f 6c 6f 6e 73 20 73 74 | 61 72 74 20 63 6f 6d 6d |olons st|art comm|
|00000f00| 65 6e 74 73 2e 0a 5c 5c | 7b 65 6d 61 63 73 2d 6c |ents..\\|{emacs-l|
|00000f10| 69 73 70 2d 6d 6f 64 65 | 2d 6d 61 70 7d 0a 45 6e |isp-mode|-map}.En|
|00000f20| 74 72 79 20 74 6f 20 74 | 68 69 73 20 6d 6f 64 65 |try to t|his mode|
|00000f30| 20 63 61 6c 6c 73 20 74 | 68 65 20 76 61 6c 75 65 | calls t|he value|
|00000f40| 20 6f 66 20 60 65 6d 61 | 63 73 2d 6c 69 73 70 2d | of `ema|cs-lisp-|
|00000f50| 6d 6f 64 65 2d 68 6f 6f | 6b 27 0a 69 66 20 74 68 |mode-hoo|k'.if th|
|00000f60| 61 74 20 76 61 6c 75 65 | 20 69 73 20 6e 6f 6e 2d |at value| is non-|
|00000f70| 6e 69 6c 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |nil." ni|l]).(def|
|00000f80| 76 61 72 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 6d 61 |var lisp|-mode-ma|
|00000f90| 70 20 6e 69 6c 20 22 5c | 0a 4b 65 79 6d 61 70 20 |p nil "\|.Keymap |
|00000fa0| 66 6f 72 20 6f 72 64 69 | 6e 61 72 79 20 4c 69 73 |for ordi|nary Lis|
|00000fb0| 70 20 6d 6f 64 65 2e 0a | 41 6c 6c 20 63 6f 6d 6d |p mode..|All comm|
|00000fc0| 61 6e 64 73 20 69 6e 20 | 60 73 68 61 72 65 64 2d |ands in |`shared-|
|00000fd0| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 27 20 61 |lisp-mod|e-map' a|
|00000fe0| 72 65 20 69 6e 68 65 72 | 69 74 65 64 20 62 79 20 |re inher|ited by |
|00000ff0| 74 68 69 73 20 6d 61 70 | 2e 22 29 0a 28 62 79 74 |this map|.").(byt|
|00001000| 65 2d 63 6f 64 65 20 22 | 08 ac 94 c1 20 10 c2 08 |e-code "|.... ...|
|00001010| c0 5c 22 88 c3 08 0c 43 | 5c 22 88 c5 08 c6 c7 23 |.\"....C|\".....#|
|00001020| 88 c1 87 22 20 5b 6c 69 | 73 70 2d 6d 6f 64 65 2d |..." [li|sp-mode-|
|00001030| 6d 61 70 20 6d 61 6b 65 | 2d 73 70 61 72 73 65 2d |map make|-sparse-|
|00001040| 6b 65 79 6d 61 70 20 73 | 65 74 2d 6b 65 79 6d 61 |keymap s|et-keyma|
|00001050| 70 2d 6e 61 6d 65 20 73 | 65 74 2d 6b 65 79 6d 61 |p-name s|et-keyma|
|00001060| 70 2d 70 61 72 65 6e 74 | 73 20 73 68 61 72 65 64 |p-parent|s shared|
|00001070| 2d 6c 69 73 70 2d 6d 6f | 64 65 2d 6d 61 70 20 64 |-lisp-mo|de-map d|
|00001080| 65 66 69 6e 65 2d 6b 65 | 79 20 22 1b 18 22 20 6c |efine-ke|y ".." l|
|00001090| 69 73 70 2d 73 65 6e 64 | 2d 64 65 66 75 6e 5d 20 |isp-send|-defun] |
|000010a0| 34 29 0a 28 66 73 65 74 | 20 27 6c 69 73 70 2d 6d |4).(fset| 'lisp-m|
|000010b0| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|000010c0| 6e 21 88 c3 14 c5 16 06 | c7 c8 21 88 c9 0e 5c 6e |n!......|..!...\n|
|000010d0| 21 88 cb cc 21 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |!...!." |[kill-al|
|000010e0| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|000010f0| 73 20 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |s use-lo|cal-map |
|00001100| 6c 69 73 70 2d 6d 6f 64 | 65 2d 6d 61 70 20 6c 69 |lisp-mod|e-map li|
|00001110| 73 70 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |sp-mode |major-mo|
|00001120| 64 65 20 22 4c 69 73 70 | 22 20 6d 6f 64 65 2d 6e |de "Lisp|" mode-n|
|00001130| 61 6d 65 20 6c 69 73 70 | 2d 6d 6f 64 65 2d 76 61 |ame lisp|-mode-va|
|00001140| 72 69 61 62 6c 65 73 20 | 74 20 73 65 74 2d 73 79 |riables |t set-sy|
|00001150| 6e 74 61 78 2d 74 61 62 | 6c 65 20 6c 69 73 70 2d |ntax-tab|le lisp-|
|00001160| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00001170| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 6c 69 73 70 |e run-ho|oks lisp|
|00001180| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 5d 20 32 20 22 5c |-mode-ho|ok] 2 "\|
|00001190| 0a 4d 61 6a 6f 72 20 6d | 6f 64 65 20 66 6f 72 20 |.Major m|ode for |
|000011a0| 65 64 69 74 69 6e 67 20 | 4c 69 73 70 20 63 6f 64 |editing |Lisp cod|
|000011b0| 65 20 66 6f 72 20 4c 69 | 73 70 73 20 6f 74 68 65 |e for Li|sps othe|
|000011c0| 72 20 74 68 61 6e 20 47 | 4e 55 20 45 6d 61 63 73 |r than G|NU Emacs|
|000011d0| 20 4c 69 73 70 2e 0a 43 | 6f 6d 6d 61 6e 64 73 3a | Lisp..C|ommands:|
|000011e0| 0a 44 65 6c 65 74 65 20 | 63 6f 6e 76 65 72 74 73 |.Delete |converts|
|000011f0| 20 74 61 62 73 20 74 6f | 20 73 70 61 63 65 73 20 | tabs to| spaces |
|00001200| 61 73 20 69 74 20 6d 6f | 76 65 73 20 62 61 63 6b |as it mo|ves back|
|00001210| 2e 0a 42 6c 61 6e 6b 20 | 6c 69 6e 65 73 20 73 65 |..Blank |lines se|
|00001220| 70 61 72 61 74 65 20 70 | 61 72 61 67 72 61 70 68 |parate p|aragraph|
|00001230| 73 2e 20 20 53 65 6d 69 | 63 6f 6c 6f 6e 73 20 73 |s. Semi|colons s|
|00001240| 74 61 72 74 20 63 6f 6d | 6d 65 6e 74 73 2e 0a 5c |tart com|ments..\|
|00001250| 5c 7b 6c 69 73 70 2d 6d | 6f 64 65 2d 6d 61 70 7d |\{lisp-m|ode-map}|
|00001260| 0a 4e 6f 74 65 20 74 68 | 61 74 20 60 72 75 6e 2d |.Note th|at `run-|
|00001270| 6c 69 73 70 27 20 6d 61 | 79 20 62 65 20 75 73 65 |lisp' ma|y be use|
|00001280| 64 20 65 69 74 68 65 72 | 20 74 6f 20 73 74 61 72 |d either| to star|
|00001290| 74 20 61 6e 20 69 6e 66 | 65 72 69 6f 72 20 4c 69 |t an inf|erior Li|
|000012a0| 73 70 20 6a 6f 62 0a 6f | 72 20 74 6f 20 73 77 69 |sp job.o|r to swi|
|000012b0| 74 63 68 20 62 61 63 6b | 20 74 6f 20 61 6e 20 65 |tch back| to an e|
|000012c0| 78 69 73 74 69 6e 67 20 | 6f 6e 65 2e 0a 0a 45 6e |xisting |one...En|
|000012d0| 74 72 79 20 74 6f 20 74 | 68 69 73 20 6d 6f 64 65 |try to t|his mode|
|000012e0| 20 63 61 6c 6c 73 20 74 | 68 65 20 76 61 6c 75 65 | calls t|he value|
|000012f0| 20 6f 66 20 60 6c 69 73 | 70 2d 6d 6f 64 65 2d 68 | of `lis|p-mode-h|
|00001300| 6f 6f 6b 27 0a 69 66 20 | 74 68 61 74 20 76 61 6c |ook'.if |that val|
|00001310| 75 65 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2e 22 20 |ue is no|n-nil." |
|00001320| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 6c 69 73 |nil]).(f|set 'lis|
|00001330| 70 2d 73 65 6e 64 2d 64 | 65 66 75 6e 20 23 5b 6e |p-send-d|efun #[n|
|00001340| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 65 72 72 6f 72 |il "..!.|" [error|
|00001350| 20 22 50 72 6f 63 65 73 | 73 20 6c 69 73 70 20 64 | "Proces|s lisp d|
|00001360| 6f 65 73 20 6e 6f 74 20 | 65 78 69 73 74 22 5d 20 |oes not |exist"] |
|00001370| 32 20 22 5c 0a 53 65 6e | 64 20 74 68 65 20 63 75 |2 "\.Sen|d the cu|
|00001380| 72 72 65 6e 74 20 64 65 | 66 75 6e 20 74 6f 20 74 |rrent de|fun to t|
|00001390| 68 65 20 4c 69 73 70 20 | 70 72 6f 63 65 73 73 20 |he Lisp |process |
|000013a0| 6d 61 64 65 20 62 79 20 | 5c 5c 5b 72 75 6e 2d 6c |made by |\\[run-l|
|000013b0| 69 73 70 5d 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |isp]." n|il]).(de|
|000013c0| 66 76 61 72 20 6c 69 73 | 70 2d 69 6e 74 65 72 61 |fvar lis|p-intera|
|000013d0| 63 74 69 6f 6e 2d 6d 6f | 64 65 2d 6d 61 70 20 6e |ction-mo|de-map n|
|000013e0| 69 6c 20 22 5c 0a 4b 65 | 79 6d 61 70 20 66 6f 72 |il "\.Ke|ymap for|
|000013f0| 20 4c 69 73 70 20 49 6e | 74 65 72 61 63 74 69 6f | Lisp In|teractio|
|00001400| 6e 20 6d 6f 65 2e 0a 41 | 6c 6c 20 63 6f 6d 6d 61 |n moe..A|ll comma|
|00001410| 6e 64 73 20 69 6e 20 60 | 65 6d 61 63 73 2d 6c 69 |nds in `|emacs-li|
|00001420| 73 70 2d 6d 6f 64 65 2d | 6d 61 70 27 20 61 72 65 |sp-mode-|map' are|
|00001430| 20 69 6e 68 65 72 69 74 | 65 64 20 62 79 20 74 68 | inherit|ed by th|
|00001440| 69 73 20 6d 61 70 2e 22 | 29 0a 28 62 79 74 65 2d |is map."|).(byte-|
|00001450| 63 6f 64 65 20 22 08 ac | a0 c1 20 10 c2 08 c0 5c |code "..|.. ....\|
|00001460| 22 88 c3 08 0c 43 5c 22 | 88 c5 08 c6 c7 23 88 c5 |"....C\"|.....#..|
|00001470| 08 c8 c9 23 88 c5 08 ca | cb 23 88 c1 87 22 20 5b |...#....|.#..." [|
|00001480| 6c 69 73 70 2d 69 6e 74 | 65 72 61 63 74 69 6f 6e |lisp-int|eraction|
|00001490| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6d 61 6b 65 2d 73 |-mode-ma|p make-s|
|000014a0| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 73 65 74 |parse-ke|ymap set|
|000014b0| 2d 6b 65 79 6d 61 70 2d | 6e 61 6d 65 20 73 65 74 |-keymap-|name set|
|000014c0| 2d 6b 65 79 6d 61 70 2d | 70 61 72 65 6e 74 73 20 |-keymap-|parents |
|000014d0| 65 6d 61 63 73 2d 6c 69 | 73 70 2d 6d 6f 64 65 2d |emacs-li|sp-mode-|
|000014e0| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|000014f0| 1b 18 22 20 65 76 61 6c | 2d 64 65 66 75 6e 20 22 |.." eval|-defun "|
|00001500| 1b 09 22 20 6c 69 73 70 | 2d 63 6f 6d 70 6c 65 74 |.." lisp|-complet|
|00001510| 65 2d 73 79 6d 62 6f 6c | 20 22 5c 6e 22 20 65 76 |e-symbol| "\n" ev|
|00001520| 61 6c 2d 70 72 69 6e 74 | 2d 6c 61 73 74 2d 73 65 |al-print|-last-se|
|00001530| 78 70 5d 20 34 29 0a 28 | 66 73 65 74 20 27 6c 69 |xp] 4).(|fset 'li|
|00001540| 73 70 2d 69 6e 74 65 72 | 61 63 74 69 6f 6e 2d 6d |sp-inter|action-m|
|00001550| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|00001560| 6e 21 88 c3 14 0d 16 06 | c7 16 08 c9 0e 5c 6e 21 |n!......|.....\n!|
|00001570| 88 cb cc 21 88 cd ce 21 | 87 22 20 5b 6b 69 6c 6c |...!...!|." [kill|
|00001580| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00001590| 62 6c 65 73 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |bles use|-local-m|
|000015a0| 61 70 20 6c 69 73 70 2d | 69 6e 74 65 72 61 63 74 |ap lisp-|interact|
|000015b0| 69 6f 6e 2d 6d 6f 64 65 | 2d 6d 61 70 20 6c 69 73 |ion-mode|-map lis|
|000015c0| 70 2d 69 6e 74 65 72 61 | 63 74 69 6f 6e 2d 6d 6f |p-intera|ction-mo|
|000015d0| 64 65 20 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 6c 69 |de major|-mode li|
|000015e0| 73 70 2d 69 6e 74 65 72 | 61 63 74 69 6f 6e 2d 70 |sp-inter|action-p|
|000015f0| 6f 70 75 70 2d 6d 65 6e | 75 20 6d 6f 64 65 2d 70 |opup-men|u mode-p|
|00001600| 6f 70 75 70 2d 6d 65 6e | 75 20 22 4c 69 73 70 20 |opup-men|u "Lisp |
|00001610| 49 6e 74 65 72 61 63 74 | 69 6f 6e 22 20 6d 6f 64 |Interact|ion" mod|
|00001620| 65 2d 6e 61 6d 65 20 73 | 65 74 2d 73 79 6e 74 61 |e-name s|et-synta|
|00001630| 78 2d 74 61 62 6c 65 20 | 65 6d 61 63 73 2d 6c 69 |x-table |emacs-li|
|00001640| 73 70 2d 6d 6f 64 65 2d | 73 79 6e 74 61 78 2d 74 |sp-mode-|syntax-t|
|00001650| 61 62 6c 65 20 6c 69 73 | 70 2d 6d 6f 64 65 2d 76 |able lis|p-mode-v|
|00001660| 61 72 69 61 62 6c 65 73 | 20 6e 69 6c 20 72 75 6e |ariables| nil run|
|00001670| 2d 68 6f 6f 6b 73 20 6c | 69 73 70 2d 69 6e 74 65 |-hooks l|isp-inte|
|00001680| 72 61 63 74 69 6f 6e 2d | 6d 6f 64 65 2d 68 6f 6f |raction-|mode-hoo|
|00001690| 6b 5d 20 32 20 22 5c 0a | 4d 61 6a 6f 72 20 6d 6f |k] 2 "\.|Major mo|
|000016a0| 64 65 20 66 6f 72 20 74 | 79 70 69 6e 67 20 61 6e |de for t|yping an|
|000016b0| 64 20 65 76 61 6c 75 61 | 74 69 6e 67 20 4c 69 73 |d evalua|ting Lis|
|000016c0| 70 20 66 6f 72 6d 73 2e | 0a 4c 69 6b 65 20 4c 69 |p forms.|.Like Li|
|000016d0| 73 70 20 6d 6f 64 65 20 | 65 78 63 65 70 74 20 74 |sp mode |except t|
|000016e0| 68 61 74 20 5c 5c 5b 65 | 76 61 6c 2d 70 72 69 6e |hat \\[e|val-prin|
|000016f0| 74 2d 6c 61 73 74 2d 73 | 65 78 70 5d 20 65 76 61 |t-last-s|exp] eva|
|00001700| 6c 73 20 74 68 65 20 4c | 69 73 70 20 65 78 70 72 |ls the L|isp expr|
|00001710| 65 73 73 69 6f 6e 0a 62 | 65 66 6f 72 65 20 70 6f |ession.b|efore po|
|00001720| 69 6e 74 2c 20 61 6e 64 | 20 70 72 69 6e 74 73 20 |int, and| prints |
|00001730| 69 74 73 20 76 61 6c 75 | 65 20 69 6e 74 6f 20 74 |its valu|e into t|
|00001740| 68 65 20 62 75 66 66 65 | 72 2c 20 61 64 76 61 6e |he buffe|r, advan|
|00001750| 63 69 6e 67 20 70 6f 69 | 6e 74 2e 0a 0a 43 6f 6d |cing poi|nt...Com|
|00001760| 6d 61 6e 64 73 3a 0a 44 | 65 6c 65 74 65 20 63 6f |mands:.D|elete co|
|00001770| 6e 76 65 72 74 73 20 74 | 61 62 73 20 74 6f 20 73 |nverts t|abs to s|
|00001780| 70 61 63 65 73 20 61 73 | 20 69 74 20 6d 6f 76 65 |paces as| it move|
|00001790| 73 20 62 61 63 6b 2e 0a | 50 61 72 61 67 72 61 70 |s back..|Paragrap|
|000017a0| 68 73 20 61 72 65 20 73 | 65 70 61 72 61 74 65 64 |hs are s|eparated|
|000017b0| 20 6f 6e 6c 79 20 62 79 | 20 62 6c 61 6e 6b 20 6c | only by| blank l|
|000017c0| 69 6e 65 73 2e 20 20 53 | 65 6d 69 63 6f 6c 6f 6e |ines. S|emicolon|
|000017d0| 73 20 73 74 61 72 74 20 | 63 6f 6d 6d 65 6e 74 73 |s start |comments|
|000017e0| 2e 0a 5c 5c 7b 6c 69 73 | 70 2d 69 6e 74 65 72 61 |..\\{lis|p-intera|
|000017f0| 63 74 69 6f 6e 2d 6d 6f | 64 65 2d 6d 61 70 7d 0a |ction-mo|de-map}.|
|00001800| 45 6e 74 72 79 20 74 6f | 20 74 68 69 73 20 6d 6f |Entry to| this mo|
|00001810| 64 65 20 63 61 6c 6c 73 | 20 74 68 65 20 76 61 6c |de calls| the val|
|00001820| 75 65 20 6f 66 20 60 6c | 69 73 70 2d 69 6e 74 65 |ue of `l|isp-inte|
|00001830| 72 61 63 74 69 6f 6e 2d | 6d 6f 64 65 2d 68 6f 6f |raction-|mode-hoo|
|00001840| 6b 27 0a 69 66 20 74 68 | 61 74 20 76 61 6c 75 65 |k'.if th|at value|
|00001850| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2e 22 20 6e 69 | is non-|nil." ni|
|00001860| 6c 5d 29 0a 28 66 73 65 | 74 20 27 65 76 61 6c 2d |l]).(fse|t 'eval-|
|00001870| 70 72 69 6e 74 2d 6c 61 | 73 74 2d 73 65 78 70 20 |print-la|st-sexp |
|00001880| 23 5b 6e 69 6c 20 22 70 | 18 c1 20 88 c2 c3 21 88 |#[nil "p|.. ...!.|
|00001890| c1 20 29 87 22 20 5b 73 | 74 61 6e 64 61 72 64 2d |. )." [s|tandard-|
|000018a0| 6f 75 74 70 75 74 20 74 | 65 72 70 72 69 20 65 76 |output t|erpri ev|
|000018b0| 61 6c 2d 6c 61 73 74 2d | 73 65 78 70 20 74 5d 20 |al-last-|sexp t] |
|000018c0| 32 20 22 5c 0a 45 76 61 | 6c 75 61 74 65 20 73 65 |2 "\.Eva|luate se|
|000018d0| 78 70 20 62 65 66 6f 72 | 65 20 70 6f 69 6e 74 3b |xp befor|e point;|
|000018e0| 20 70 72 69 6e 74 20 76 | 61 6c 75 65 20 69 6e 74 | print v|alue int|
|000018f0| 6f 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |o curren|t buffer|
|00001900| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00001910| 65 76 61 6c 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |eval-int|eractive|
|00001920| 20 23 5b 28 65 78 70 72 | 29 20 22 08 3a ab 9f 08 | #[(expr|) ".:...|
|00001930| 40 c1 3d ab 99 08 47 c2 | 56 ab 93 c3 c4 08 41 42 |@.=...G.|V.....AB|
|00001940| 21 88 c5 c6 21 88 c7 c8 | 21 88 c5 c9 21 87 c3 08 |!...!...|!...!...|
|00001950| 21 87 22 20 5b 65 78 70 | 72 20 64 65 66 76 61 72 |!." [exp|r defvar|
|00001960| 20 32 20 65 76 61 6c 20 | 64 65 66 63 6f 6e 73 74 | 2 eval |defconst|
|00001970| 20 6d 65 73 73 61 67 65 | 20 22 64 65 66 76 61 72 | message| "defvar|
|00001980| 20 74 72 65 61 74 65 64 | 20 61 73 20 64 65 66 63 | treated| as defc|
|00001990| 6f 6e 73 74 22 20 73 69 | 74 2d 66 6f 72 20 31 20 |onst" si|t-for 1 |
|000019a0| 22 22 5d 20 33 20 22 5c | 0a 4c 69 6b 65 20 60 65 |""] 3 "\|.Like `e|
|000019b0| 76 61 6c 27 20 65 78 63 | 65 70 74 20 74 68 61 74 |val' exc|ept that|
|000019c0| 20 69 74 20 74 72 61 6e | 73 66 6f 72 6d 73 20 64 | it tran|sforms d|
|000019d0| 65 66 76 61 72 73 20 74 | 6f 20 64 65 66 63 6f 6e |efvars t|o defcon|
|000019e0| 73 74 73 2e 22 5d 29 0a | 28 66 73 65 74 20 27 65 |sts."]).|(fset 'e|
|000019f0| 76 61 6c 2d 6c 61 73 74 | 2d 73 65 78 70 20 23 5b |val-last|-sexp #[|
|00001a00| 28 65 76 61 6c 2d 6c 61 | 73 74 2d 73 65 78 70 2d |(eval-la|st-sexp-|
|00001a10| 61 72 67 2d 69 6e 74 65 | 72 6e 61 6c 29 20 22 08 |arg-inte|rnal) ".|
|00001a20| ab 83 70 aa 81 c1 60 1a | 1b c4 c5 20 1e 06 c7 c8 |..p...`.|... ....|
|00001a30| 8e 8a c9 0e 5c 6e 21 88 | cb cc 21 88 8c 65 5c 6e |....\n!.|..!..e\n|
|00001a40| 7d 88 cd 70 21 2b 21 29 | 21 2a 87 22 20 5b 65 76 |}..p!+!)|!*." [ev|
|00001a50| 61 6c 2d 6c 61 73 74 2d | 73 65 78 70 2d 61 72 67 |al-last-|sexp-arg|
|00001a60| 2d 69 6e 74 65 72 6e 61 | 6c 20 74 20 6f 70 6f 69 |-interna|l t opoi|
|00001a70| 6e 74 20 73 74 61 6e 64 | 61 72 64 2d 6f 75 74 70 |nt stand|ard-outp|
|00001a80| 75 74 20 70 72 69 6e 31 | 20 73 79 6e 74 61 78 2d |ut prin1| syntax-|
|00001a90| 74 61 62 6c 65 20 73 74 | 61 62 20 65 76 61 6c 2d |table st|ab eval-|
|00001aa0| 69 6e 74 65 72 61 63 74 | 69 76 65 20 28 28 73 65 |interact|ive ((se|
|00001ab0| 74 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 73 |t-syntax|-table s|
|00001ac0| 74 61 62 29 29 20 73 65 | 74 2d 73 79 6e 74 61 78 |tab)) se|t-syntax|
|00001ad0| 2d 74 61 62 6c 65 20 65 | 6d 61 63 73 2d 6c 69 73 |-table e|macs-lis|
|00001ae0| 70 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |p-mode-s|yntax-ta|
|00001af0| 62 6c 65 20 66 6f 72 77 | 61 72 64 2d 73 65 78 70 |ble forw|ard-sexp|
|00001b00| 20 2d 31 20 72 65 61 64 | 5d 20 34 20 22 5c 0a 45 | -1 read|] 4 "\.E|
|00001b10| 76 61 6c 75 61 74 65 20 | 73 65 78 70 20 62 65 66 |valuate |sexp bef|
|00001b20| 6f 72 65 20 70 6f 69 6e | 74 3b 20 70 72 69 6e 74 |ore poin|t; print|
|00001b30| 20 76 61 6c 75 65 20 69 | 6e 20 6d 69 6e 69 62 75 | value i|n minibu|
|00001b40| 66 66 65 72 2e 0a 57 69 | 74 68 20 61 72 67 75 6d |ffer..Wi|th argum|
|00001b50| 65 6e 74 2c 20 70 72 69 | 6e 74 20 6f 75 74 70 75 |ent, pri|nt outpu|
|00001b60| 74 20 69 6e 74 6f 20 63 | 75 72 72 65 6e 74 20 62 |t into c|urrent b|
|00001b70| 75 66 66 65 72 2e 22 20 | 22 50 22 5d 29 0a 28 66 |uffer." |"P"]).(f|
|00001b80| 73 65 74 20 27 65 76 61 | 6c 2d 64 65 66 75 6e 20 |set 'eva|l-defun |
|00001b90| 23 5b 28 65 76 61 6c 2d | 64 65 66 75 6e 2d 61 72 |#[(eval-|defun-ar|
|00001ba0| 67 2d 69 6e 74 65 72 6e | 61 6c 29 20 22 08 ab 83 |g-intern|al) "...|
|00001bb0| 70 aa 81 c1 1a c3 c4 8a | c5 20 88 c6 20 88 c7 70 |p.......|. .. ..p|
|00001bc0| 21 29 21 21 29 87 22 20 | 5b 65 76 61 6c 2d 64 65 |!)!!)." |[eval-de|
|00001bd0| 66 75 6e 2d 61 72 67 2d | 69 6e 74 65 72 6e 61 6c |fun-arg-|internal|
|00001be0| 20 74 20 73 74 61 6e 64 | 61 72 64 2d 6f 75 74 70 | t stand|ard-outp|
|00001bf0| 75 74 20 70 72 69 6e 31 | 20 65 76 61 6c 2d 69 6e |ut prin1| eval-in|
|00001c00| 74 65 72 61 63 74 69 76 | 65 20 65 6e 64 2d 6f 66 |teractiv|e end-of|
|00001c10| 2d 64 65 66 75 6e 20 62 | 65 67 69 6e 6e 69 6e 67 |-defun b|eginning|
|00001c20| 2d 6f 66 2d 64 65 66 75 | 6e 20 72 65 61 64 5d 20 |-of-defu|n read] |
|00001c30| 34 20 22 5c 0a 45 76 61 | 6c 75 61 74 65 20 64 65 |4 "\.Eva|luate de|
|00001c40| 66 75 6e 20 74 68 61 74 | 20 70 6f 69 6e 74 20 69 |fun that| point i|
|00001c50| 73 20 69 6e 20 6f 72 20 | 62 65 66 6f 72 65 2e 0a |s in or |before..|
|00001c60| 50 72 69 6e 74 20 76 61 | 6c 75 65 20 69 6e 20 6d |Print va|lue in m|
|00001c70| 69 6e 69 62 75 66 66 65 | 72 2e 0a 57 69 74 68 20 |inibuffe|r..With |
|00001c80| 61 72 67 75 6d 65 6e 74 | 2c 20 69 6e 73 65 72 74 |argument|, insert|
|00001c90| 20 76 61 6c 75 65 20 69 | 6e 20 63 75 72 72 65 6e | value i|n curren|
|00001ca0| 74 20 62 75 66 66 65 72 | 20 61 66 74 65 72 20 74 |t buffer| after t|
|00001cb0| 68 65 20 64 65 66 75 6e | 2e 22 20 22 50 22 5d 29 |he defun|." "P"])|
|00001cc0| 0a 28 66 73 65 74 20 27 | 6c 69 73 70 2d 63 6f 6d |.(fset '|lisp-com|
|00001cd0| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 20 23 5b 6e 69 |ment-ind|ent #[ni|
|00001ce0| 6c 20 22 c0 c1 21 ab 82 | 69 87 c0 c2 21 ab 8e c3 |l "..!..|i...!...|
|00001cf0| 20 89 1c 3c ab 84 0c 40 | aa 81 0c 29 87 c5 c6 78 | ..<...@|...)...x|
|00001d00| 88 6e ab 83 c7 aa 82 69 | 54 0e 08 5d 87 22 20 5b |.n.....i|T..]." [|
|00001d10| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 73 3c |looking-|at "\\s<|
|00001d20| 5c 5c 73 3c 5c 5c 73 3c | 22 20 22 5c 5c 73 3c 5c |\\s<\\s<|" "\\s<\|
|00001d30| 5c 73 3c 22 20 63 61 6c | 63 75 6c 61 74 65 2d 6c |\s<" cal|culate-l|
|00001d40| 69 73 70 2d 69 6e 64 65 | 6e 74 20 74 65 6d 20 22 |isp-inde|nt tem "|
|00001d50| 20 09 22 20 6e 69 6c 20 | 30 20 63 6f 6d 6d 65 6e | ." nil |0 commen|
|00001d60| 74 2d 63 6f 6c 75 6d 6e | 5d 20 33 5d 29 0a 28 66 |t-column|] 3]).(f|
|00001d70| 73 65 74 20 27 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |set 'lis|p-indent|
|00001d80| 2d 66 6f 72 2d 63 6f 6d | 6d 65 6e 74 20 23 5b 6e |-for-com|ment #[n|
|00001d90| 69 6c 20 22 08 ab 8d 8a | c1 79 88 c2 c3 21 29 ab |il "....|.y...!).|
|00001da0| 83 08 63 88 c4 20 87 22 | 20 5b 62 6c 6f 63 6b 2d |..c.. ."| [block-|
|00001db0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 20 30 20 |comment-|start 0 |
|00001dc0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 5b 20 09 |looking-|at "^[ .|
|00001dd0| 5d 2a 24 22 20 69 6e 64 | 65 6e 74 2d 66 6f 72 2d |]*$" ind|ent-for-|
|00001de0| 63 6f 6d 6d 65 6e 74 5d | 20 32 20 22 5c 0a 49 6e |comment]| 2 "\.In|
|00001df0| 64 65 6e 74 20 74 68 69 | 73 20 6c 69 6e 65 27 73 |dent thi|s line's|
|00001e00| 20 63 6f 6d 6d 65 6e 74 | 20 61 70 70 72 6f 70 72 | comment| appropr|
|00001e10| 69 61 74 65 6c 79 2c 20 | 6f 72 20 69 6e 73 65 72 |iately, |or inser|
|00001e20| 74 20 61 6e 20 65 6d 70 | 74 79 20 63 6f 6d 6d 65 |t an emp|ty comme|
|00001e30| 6e 74 2e 0a 49 66 20 61 | 64 64 69 6e 67 20 61 20 |nt..If a|dding a |
|00001e40| 6e 65 77 20 63 6f 6d 6d | 65 6e 74 20 6f 6e 20 61 |new comm|ent on a|
|00001e50| 20 62 6c 61 6e 6b 20 6c | 69 6e 65 2c 20 75 73 65 | blank l|ine, use|
|00001e60| 20 60 62 6c 6f 63 6b 2d | 63 6f 6d 6d 65 6e 74 2d | `block-|comment-|
|00001e70| 73 74 61 72 74 27 20 69 | 6e 73 74 65 61 64 0a 6f |start' i|nstead.o|
|00001e80| 66 20 60 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 |f `comme|nt-start|
|00001e90| 27 20 74 6f 20 6f 70 65 | 6e 20 74 68 65 20 63 6f |' to ope|n the co|
|00001ea0| 6d 6d 65 6e 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |mment." |nil]).(d|
|00001eb0| 65 66 63 6f 6e 73 74 20 | 6c 69 73 70 2d 69 6e 64 |efconst |lisp-ind|
|00001ec0| 65 6e 74 2d 6f 66 66 73 | 65 74 20 6e 69 6c 20 22 |ent-offs|et nil "|
|00001ed0| 5c 0a 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 6c |\.").(de|fconst l|
|00001ee0| 69 73 70 2d 69 6e 64 65 | 6e 74 2d 66 75 6e 63 74 |isp-inde|nt-funct|
|00001ef0| 69 6f 6e 20 27 6c 69 73 | 70 2d 69 6e 64 65 6e 74 |ion 'lis|p-indent|
|00001f00| 2d 66 75 6e 63 74 69 6f | 6e 20 22 5c 0a 22 29 0a |-functio|n "\.").|
|00001f10| 28 66 73 65 74 20 27 6c | 69 73 70 2d 69 6e 64 65 |(fset 'l|isp-inde|
|00001f20| 6e 74 2d 6c 69 6e 65 20 | 23 5b 28 26 6f 70 74 69 |nt-line |#[(&opti|
|00001f30| 6f 6e 61 6c 20 77 68 6f | 6c 65 2d 65 78 70 29 20 |onal who|le-exp) |
|00001f40| 22 c0 20 c1 89 89 64 60 | 5a 1a 1b 1c 1d 1e 06 c7 |". ...d`|Z.......|
|00001f50| 79 88 60 14 c8 c1 77 88 | c9 ca 21 ab 86 64 5c 6e |y.`...w.|..!..d\n|
|00001f60| 5a 62 aa e1 c9 cb 21 ab | 8d c9 cc 21 ac 88 cd 20 |Zb....!.|...!... |
|00001f70| 88 ce 75 88 aa 9c 0e 06 | 3c ab 85 0e 06 40 16 06 |..u.....|<....@..|
|00001f80| 0e 06 69 5a 89 15 c7 55 | ac 88 0c 60 7c 88 0e 06 |..iZ...U|...`|...|
|00001f90| 6a 88 64 5c 6e 5a 60 56 | ab 85 64 5c 6e 5a 62 88 |j.d\nZ`V|..d\nZb.|
|00001fa0| 0e 0f ad a3 0d c7 55 3f | ad 9d 8a 0c 62 88 d0 d1 |......U?|....b...|
|00001fb0| 21 88 60 13 0c 62 88 d1 | 79 88 60 14 0b 0c 56 29 |!.`..b..|y.`...V)|
|00001fc0| ad 85 d2 0c 0b 0d 23 2d | 87 22 20 5b 63 61 6c 63 |......#-|." [calc|
|00001fd0| 75 6c 61 74 65 2d 6c 69 | 73 70 2d 69 6e 64 65 6e |ulate-li|sp-inden|
|00001fe0| 74 20 6e 69 6c 20 70 6f | 73 20 65 6e 64 20 62 65 |t nil po|s end be|
|00001ff0| 67 20 73 68 69 66 74 2d | 61 6d 74 20 69 6e 64 65 |g shift-|amt inde|
|00002000| 6e 74 20 30 20 22 20 09 | 22 20 6c 6f 6f 6b 69 6e |nt 0 " .|" lookin|
|00002010| 67 2d 61 74 20 22 5c 5c | 73 3c 5c 5c 73 3c 5c 5c |g-at "\\|s<\\s<\\|
|00002020| 73 3c 22 20 22 5c 5c 73 | 3c 22 20 22 5c 5c 73 3c |s<" "\\s|<" "\\s<|
|00002030| 5c 5c 73 3c 22 20 69 6e | 64 65 6e 74 2d 66 6f 72 |\\s<" in|dent-for|
|00002040| 2d 63 6f 6d 6d 65 6e 74 | 20 2d 31 20 77 68 6f 6c |-comment| -1 whol|
|00002050| 65 2d 65 78 70 20 66 6f | 72 77 61 72 64 2d 73 65 |e-exp fo|rward-se|
|00002060| 78 70 20 31 20 69 6e 64 | 65 6e 74 2d 63 6f 64 65 |xp 1 ind|ent-code|
|00002070| 2d 72 69 67 69 64 6c 79 | 5d 20 37 20 22 5c 0a 49 |-rigidly|] 7 "\.I|
|00002080| 6e 64 65 6e 74 20 63 75 | 72 72 65 6e 74 20 6c 69 |ndent cu|rrent li|
|00002090| 6e 65 20 61 73 20 4c 69 | 73 70 20 63 6f 64 65 2e |ne as Li|sp code.|
|000020a0| 0a 57 69 74 68 20 61 72 | 67 75 6d 65 6e 74 2c 20 |.With ar|gument, |
|000020b0| 69 6e 64 65 6e 74 20 61 | 6e 79 20 61 64 64 69 74 |indent a|ny addit|
|000020c0| 69 6f 6e 61 6c 20 6c 69 | 6e 65 73 20 6f 66 20 74 |ional li|nes of t|
|000020d0| 68 65 20 73 61 6d 65 20 | 65 78 70 72 65 73 73 69 |he same |expressi|
|000020e0| 6f 6e 0a 72 69 67 69 64 | 6c 79 20 61 6c 6f 6e 67 |on.rigid|ly along|
|000020f0| 20 77 69 74 68 20 74 68 | 69 73 20 6f 6e 65 2e 22 | with th|is one."|
|00002100| 20 22 50 22 5d 29 0a 28 | 66 73 65 74 20 27 63 61 | "P"]).(|fset 'ca|
|00002110| 6c 63 75 6c 61 74 65 2d | 6c 69 73 70 2d 69 6e 64 |lculate-|lisp-ind|
|00002120| 65 6e 74 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ent #[(&|optional|
|00002130| 20 70 61 72 73 65 2d 73 | 74 61 72 74 29 20 22 8a | parse-s|tart) ".|
|00002140| c0 79 88 60 c1 89 c2 c1 | 89 1b 1c 1d 1e 06 1e 07 |.y.`....|........|
|00002150| 1e 08 0e 09 ab 86 0e 09 | 62 88 aa 83 ca 20 88 60 |........|b.... .`|
|00002160| 0e 08 57 ab 8a cb 60 0e | 08 c0 23 16 07 aa 70 0d |..W...`.|..#...p.|
|00002170| ab ba 0e 07 ab b6 0e 07 | c0 9c c0 56 ab ae c1 15 |........|...V....|
|00002180| 0e 07 cc 9c 14 0e 07 cd | 9c 89 13 54 62 88 0c ab |........|...Tb...|
|00002190| 5e 0c 60 56 ab 59 cb 0c | 0e 08 c0 23 89 1e 0e 41 |^.`V.Y..|...#...A|
|000021a0| 40 89 15 ab 84 0e 0e 16 | 07 29 aa 43 0d ac c7 0b |@.......|.).C....|
|000021b0| 54 62 88 0c ac 85 69 16 | 06 aa bb cb 60 0c c0 c2 |Tb....i.|....`...|
|000021c0| 24 88 cf d0 21 ac af 8a | cd 79 88 60 29 0c 56 ab |$...!...|.y.`).V.|
|000021d0| 95 60 0c 55 ac 8b d1 cd | 21 88 cb 60 0c c0 c2 24 |.`.U....|!..`...$|
|000021e0| 88 d2 20 88 aa 90 0c 62 | 88 c0 79 88 cb 60 0c c0 |.. ....b|..y..`..|
|000021f0| c2 24 88 d2 20 88 69 1e | 13 0e 07 d4 9c ab 8b 0e |.$.. .i.|........|
|00002200| 08 62 88 d5 c1 77 88 69 | aa b1 0e 06 ae ad d6 d7 |.b...w.i|........|
|00002210| 21 ab 94 0e 17 ab 90 0d | ac 8d 0e 17 0e 08 0e 07 |!.......|........|
|00002220| 5c 22 ae 98 0e 13 aa 94 | 0e 18 a8 ab 8d 0b ab 8a |\"......|........|
|00002230| 0b 62 88 0e 13 0e 18 5c | 5c aa 82 0e 13 2e 08 87 |.b.....\|\.......|
|00002240| 22 20 5b 30 20 6e 69 6c | 20 74 20 63 6f 6e 74 61 |" [0 nil| t conta|
|00002250| 69 6e 69 6e 67 2d 73 65 | 78 70 20 6c 61 73 74 2d |ining-se|xp last-|
|00002260| 73 65 78 70 20 72 65 74 | 72 79 20 64 65 73 69 72 |sexp ret|ry desir|
|00002270| 65 64 2d 69 6e 64 65 6e | 74 20 73 74 61 74 65 20 |ed-inden|t state |
|00002280| 69 6e 64 65 6e 74 2d 70 | 6f 69 6e 74 20 70 61 72 |indent-p|oint par|
|00002290| 73 65 2d 73 74 61 72 74 | 20 62 65 67 69 6e 6e 69 |se-start| beginni|
|000022a0| 6e 67 2d 6f 66 2d 64 65 | 66 75 6e 20 70 61 72 73 |ng-of-de|fun pars|
|000022b0| 65 2d 70 61 72 74 69 61 | 6c 2d 73 65 78 70 20 32 |e-partia|l-sexp 2|
|000022c0| 20 31 20 70 65 65 6b 20 | 6c 6f 6f 6b 69 6e 67 2d | 1 peek |looking-|
|000022d0| 61 74 20 22 5c 5c 73 28 | 22 20 66 6f 72 77 61 72 |at "\\s(|" forwar|
|000022e0| 64 2d 73 65 78 70 20 62 | 61 63 6b 77 61 72 64 2d |d-sexp b|ackward-|
|000022f0| 70 72 65 66 69 78 2d 63 | 68 61 72 73 20 6e 6f 72 |prefix-c|hars nor|
|00002300| 6d 61 6c 2d 69 6e 64 65 | 6e 74 20 33 20 22 20 09 |mal-inde|nt 3 " .|
|00002310| 22 20 62 6f 75 6e 64 70 | 20 6c 69 73 70 2d 69 6e |" boundp| lisp-in|
|00002320| 64 65 6e 74 2d 66 75 6e | 63 74 69 6f 6e 20 6c 69 |dent-fun|ction li|
|00002330| 73 70 2d 69 6e 64 65 6e | 74 2d 6f 66 66 73 65 74 |sp-inden|t-offset|
|00002340| 5d 20 37 20 22 5c 0a 52 | 65 74 75 72 6e 20 61 70 |] 7 "\.R|eturn ap|
|00002350| 70 72 6f 70 72 69 61 74 | 65 20 69 6e 64 65 6e 74 |propriat|e indent|
|00002360| 61 74 69 6f 6e 20 66 6f | 72 20 63 75 72 72 65 6e |ation fo|r curren|
|00002370| 74 20 6c 69 6e 65 20 61 | 73 20 4c 69 73 70 20 63 |t line a|s Lisp c|
|00002380| 6f 64 65 2e 0a 49 6e 20 | 75 73 75 61 6c 20 63 61 |ode..In |usual ca|
|00002390| 73 65 20 72 65 74 75 72 | 6e 73 20 61 6e 20 69 6e |se retur|ns an in|
|000023a0| 74 65 67 65 72 3a 20 74 | 68 65 20 63 6f 6c 75 6d |teger: t|he colum|
|000023b0| 6e 20 74 6f 20 69 6e 64 | 65 6e 74 20 74 6f 2e 0a |n to ind|ent to..|
|000023c0| 43 61 6e 20 69 6e 73 74 | 65 61 64 20 72 65 74 75 |Can inst|ead retu|
|000023d0| 72 6e 20 61 20 6c 69 73 | 74 2c 20 77 68 6f 73 65 |rn a lis|t, whose|
|000023e0| 20 63 61 72 20 69 73 20 | 74 68 65 20 63 6f 6c 75 | car is |the colu|
|000023f0| 6d 6e 20 74 6f 20 69 6e | 64 65 6e 74 20 74 6f 2e |mn to in|dent to.|
|00002400| 0a 54 68 69 73 20 6d 65 | 61 6e 73 20 74 68 61 74 |.This me|ans that|
|00002410| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6c 69 6e 65 73 | followi|ng lines|
|00002420| 20 61 74 20 74 68 65 20 | 73 61 6d 65 20 6c 65 76 | at the |same lev|
|00002430| 65 6c 20 6f 66 20 69 6e | 64 65 6e 74 61 74 69 6f |el of in|dentatio|
|00002440| 6e 0a 73 68 6f 75 6c 64 | 20 6e 6f 74 20 6e 65 63 |n.should| not nec|
|00002450| 65 73 73 61 72 69 6c 79 | 20 62 65 20 69 6e 64 65 |essarily| be inde|
|00002460| 6e 74 65 64 20 74 68 65 | 20 73 61 6d 65 20 77 61 |nted the| same wa|
|00002470| 79 2e 0a 54 68 65 20 73 | 65 63 6f 6e 64 20 65 6c |y..The s|econd el|
|00002480| 65 6d 65 6e 74 20 6f 66 | 20 74 68 65 20 6c 69 73 |ement of| the lis|
|00002490| 74 20 69 73 20 74 68 65 | 20 62 75 66 66 65 72 20 |t is the| buffer |
|000024a0| 70 6f 73 69 74 69 6f 6e | 0a 6f 66 20 74 68 65 20 |position|.of the |
|000024b0| 73 74 61 72 74 20 6f 66 | 20 74 68 65 20 63 6f 6e |start of| the con|
|000024c0| 74 61 69 6e 69 6e 67 20 | 65 78 70 72 65 73 73 69 |taining |expressi|
|000024d0| 6f 6e 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 6c 69 |on."]).(|fset 'li|
|000024e0| 73 70 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |sp-inden|t-functi|
|000024f0| 6f 6e 20 23 5b 28 69 6e | 64 65 6e 74 2d 70 6f 69 |on #[(in|dent-poi|
|00002500| 6e 74 20 73 74 61 74 65 | 29 20 22 69 18 09 c2 9c |nt state|) "i....|
|00002510| 54 62 88 c3 60 0c c5 c6 | 24 88 09 c7 9c ab a2 c8 |Tb..`...|$.......|
|00002520| c9 21 ac 9d 8a c2 79 88 | 60 29 0c 56 ac 8d 0c 62 |.!....y.|`).V...b|
|00002530| 88 c5 79 88 c3 60 0c c5 | c6 24 88 ca 20 88 69 aa |..y..`..|.$.. .i.|
|00002540| d4 60 cb c2 21 88 60 7b | cc 1e 0d 1e 0e cf 0e 0e |.`..!.`{|........|
|00002550| 21 d0 4e ae 86 cf 0e 0e | 21 d1 4e 89 16 0d d2 3d |!.N.....|!.N....=|
|00002560| ac 92 0e 0d ac 95 0e 0e | 47 d3 56 ab 8e d4 d5 0e |........|G.V.....|
|00002570| 0e 5c 22 ab 87 d6 09 0e | 17 5c 22 aa 99 0e 0d a8 |.\".....|.\".....|
|00002580| ab 8a d8 0e 0d 09 0e 17 | 08 24 aa 8a 0e 0d ad 86 |........|.$......|
|00002590| 0e 0d 09 0e 17 5c 22 2a | 29 87 22 20 5b 6e 6f 72 |.....\"*|)." [nor|
|000025a0| 6d 61 6c 2d 69 6e 64 65 | 6e 74 20 73 74 61 74 65 |mal-inde|nt state|
|000025b0| 20 31 20 70 61 72 73 65 | 2d 70 61 72 74 69 61 6c | 1 parse|-partial|
|000025c0| 2d 73 65 78 70 20 6c 61 | 73 74 2d 73 65 78 70 20 |-sexp la|st-sexp |
|000025d0| 30 20 74 20 32 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |0 t 2 lo|oking-at|
|000025e0| 20 22 5c 5c 73 77 5c 5c | 7c 5c 5c 73 5f 22 20 62 | "\\sw\\||\\s_" b|
|000025f0| 61 63 6b 77 61 72 64 2d | 70 72 65 66 69 78 2d 63 |ackward-|prefix-c|
|00002600| 68 61 72 73 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |hars for|ward-sex|
|00002610| 70 20 6e 69 6c 20 6d 65 | 74 68 6f 64 20 66 75 6e |p nil me|thod fun|
|00002620| 63 74 69 6f 6e 20 69 6e | 74 65 72 6e 2d 73 6f 66 |ction in|tern-sof|
|00002630| 74 20 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 66 75 |t lisp-i|ndent-fu|
|00002640| 6e 63 74 69 6f 6e 20 6c | 69 73 70 2d 69 6e 64 65 |nction l|isp-inde|
|00002650| 6e 74 2d 68 6f 6f 6b 20 | 64 65 66 75 6e 20 33 20 |nt-hook |defun 3 |
|00002660| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00002670| 60 64 65 66 22 20 6c 69 | 73 70 2d 69 6e 64 65 6e |`def" li|sp-inden|
|00002680| 74 2d 64 65 66 66 6f 72 | 6d 20 69 6e 64 65 6e 74 |t-deffor|m indent|
|00002690| 2d 70 6f 69 6e 74 20 6c | 69 73 70 2d 69 6e 64 65 |-point l|isp-inde|
|000026a0| 6e 74 2d 73 70 65 63 66 | 6f 72 6d 5d 20 36 5d 29 |nt-specf|orm] 6])|
|000026b0| 0a 28 64 65 66 63 6f 6e | 73 74 20 6c 69 73 70 2d |.(defcon|st lisp-|
|000026c0| 62 6f 64 79 2d 69 6e 64 | 65 6e 74 20 32 20 22 5c |body-ind|ent 2 "\|
|000026d0| 0a 4e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 75 6d |.Number |of colum|
|000026e0| 6e 73 20 74 6f 20 69 6e | 64 65 6e 74 20 74 68 65 |ns to in|dent the|
|000026f0| 20 73 65 63 6f 6e 64 20 | 6c 69 6e 65 20 6f 66 20 | second |line of |
|00002700| 61 20 60 28 64 65 66 2e | 2e 2e 29 27 20 66 6f 72 |a `(def.|..)' for|
|00002710| 6d 2e 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |m.").(by|te-code |
|00002720| 22 c0 c1 4d 88 c2 c3 4d | 88 c4 c5 c6 c7 23 88 c4 |"..M...M|.....#..|
|00002730| c8 c6 c7 23 88 c4 c9 c6 | ca 23 88 c4 cb c6 cc 23 |...#....|.#.....#|
|00002740| 88 c4 cd c6 ce 23 88 c4 | cf c6 ca 23 88 c4 d0 c6 |.....#..|...#....|
|00002750| ca 23 88 c4 d1 c6 ca 23 | 88 c4 d2 c6 ca 23 88 c4 |.#.....#|.....#..|
|00002760| d3 c6 cc 23 88 c4 d4 c6 | cc 23 88 c4 d5 c6 cc 23 |...#....|.#.....#|
|00002770| 88 c4 d6 c6 ce 23 88 c4 | d7 c6 cc 23 88 c4 d8 c6 |.....#..|...#....|
|00002780| ce 23 88 c4 d9 c6 cc 23 | 88 c4 da c6 cc 23 87 22 |.#.....#|.....#."|
|00002790| 20 5b 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 73 70 | [lisp-i|ndent-sp|
|000027a0| 65 63 66 6f 72 6d 20 23 | 5b 28 63 6f 75 6e 74 20 |ecform #|[(count |
|000027b0| 73 74 61 74 65 20 69 6e | 64 65 6e 74 2d 70 6f 69 |state in|dent-poi|
|000027c0| 6e 74 20 6e 6f 72 6d 61 | 6c 2d 69 6e 64 65 6e 74 |nt norma|l-indent|
|000027d0| 29 20 22 08 c1 9c 5c 6e | c3 89 1c 1d 1e 06 89 1e |) "...\n|........|
|000027e0| 07 62 88 69 14 0e 08 0c | 5c 5c 15 c1 75 88 c9 c1 |.b.i....|\\..u...|
|000027f0| 21 88 ca 60 0e 0b c1 cc | 24 88 60 0e 0b 57 ab 86 |!..`....|$.`..W..|
|00002800| c3 cd ce 8f ac 74 5c 6e | cf 56 ab 9a 0e 06 5c 6e |.....t\n|.V....\n|
|00002810| 5a c1 58 ab 8b 0c 0e 08 | 89 5c 5c 5c 5c 0e 07 44 |Z.X.....|.\\\\..D|
|00002820| aa a2 0e 10 0e 07 44 aa | 9b 0e 06 cf 55 ab 85 5c |......D.|....U..\|
|00002830| 6e cf 55 ac 8b 5c 6e cf | 55 ab 89 0d 0e 10 58 ab |n.U..\n.|U.....X.|
|00002840| 83 0d aa 82 0e 10 2c 87 | 22 20 5b 73 74 61 74 65 |......,.|" [state|
|00002850| 20 31 20 63 6f 75 6e 74 | 20 6e 69 6c 20 63 6f 6e | 1 count| nil con|
|00002860| 74 61 69 6e 69 6e 67 2d | 66 6f 72 6d 2d 63 6f 6c |taining-|form-col|
|00002870| 75 6d 6e 20 62 6f 64 79 | 2d 69 6e 64 65 6e 74 20 |umn body|-indent |
|00002880| 69 20 63 6f 6e 74 61 69 | 6e 69 6e 67 2d 66 6f 72 |i contai|ning-for|
|00002890| 6d 2d 73 74 61 72 74 20 | 6c 69 73 70 2d 62 6f 64 |m-start |lisp-bod|
|000028a0| 79 2d 69 6e 64 65 6e 74 | 20 66 6f 72 77 61 72 64 |y-indent| forward|
|000028b0| 2d 73 65 78 70 20 70 61 | 72 73 65 2d 70 61 72 74 |-sexp pa|rse-part|
|000028c0| 69 61 6c 2d 73 65 78 70 | 20 69 6e 64 65 6e 74 2d |ial-sexp| indent-|
|000028d0| 70 6f 69 6e 74 20 74 20 | 28 62 79 74 65 2d 63 6f |point t |(byte-co|
|000028e0| 64 65 20 22 08 53 10 c1 | c2 21 88 c3 60 0c c2 c5 |de ".S..|.!..`...|
|000028f0| 24 87 22 20 5b 63 6f 75 | 6e 74 20 66 6f 72 77 61 |$." [cou|nt forwa|
|00002900| 72 64 2d 73 65 78 70 20 | 31 20 70 61 72 73 65 2d |rd-sexp |1 parse-|
|00002910| 70 61 72 74 69 61 6c 2d | 73 65 78 70 20 69 6e 64 |partial-|sexp ind|
|00002920| 65 6e 74 2d 70 6f 69 6e | 74 20 74 5d 20 35 29 20 |ent-poin|t t] 5) |
|00002930| 28 28 65 72 72 6f 72 29 | 29 20 30 20 6e 6f 72 6d |((error)|) 0 norm|
|00002940| 61 6c 2d 69 6e 64 65 6e | 74 5d 20 36 5d 20 6c 69 |al-inden|t] 6] li|
|00002950| 73 70 2d 69 6e 64 65 6e | 74 2d 64 65 66 66 6f 72 |sp-inden|t-deffor|
|00002960| 6d 20 23 5b 28 73 74 61 | 74 65 20 69 6e 64 65 6e |m #[(sta|te inden|
|00002970| 74 2d 70 6f 69 6e 74 29 | 20 22 08 41 40 62 88 c1 |t-point)| ".A@b..|
|00002980| 79 88 60 08 41 41 40 56 | ad 88 08 41 40 62 88 5c |y.`.AA@V|...A@b.\|
|00002990| 6e 69 5c 5c 87 22 20 5b | 73 74 61 74 65 20 31 20 |ni\\." [|state 1 |
|000029a0| 6c 69 73 70 2d 62 6f 64 | 79 2d 69 6e 64 65 6e 74 |lisp-bod|y-indent|
|000029b0| 5d 20 32 5d 20 70 75 74 | 20 6c 61 6d 62 64 61 20 |] 2] put| lambda |
|000029c0| 6c 69 73 70 2d 69 6e 64 | 65 6e 74 2d 66 75 6e 63 |lisp-ind|ent-func|
|000029d0| 74 69 6f 6e 20 64 65 66 | 75 6e 20 61 75 74 6f 6c |tion def|un autol|
|000029e0| 6f 61 64 20 70 72 6f 67 | 6e 20 30 20 70 72 6f 67 |oad prog|n 0 prog|
|000029f0| 31 20 31 20 70 72 6f 67 | 32 20 32 20 73 61 76 65 |1 1 prog|2 2 save|
|00002a00| 2d 65 78 63 75 72 73 69 | 6f 6e 20 73 61 76 65 2d |-excursi|on save-|
|00002a10| 77 69 6e 64 6f 77 2d 65 | 78 63 75 72 73 69 6f 6e |window-e|xcursion|
|00002a20| 20 73 61 76 65 2d 72 65 | 73 74 72 69 63 74 69 6f | save-re|strictio|
|00002a30| 6e 20 73 61 76 65 2d 6d | 61 74 63 68 2d 64 61 74 |n save-m|atch-dat|
|00002a40| 61 20 6c 65 74 20 6c 65 | 74 2a 20 77 68 69 6c 65 |a let le|t* while|
|00002a50| 20 69 66 20 63 61 74 63 | 68 20 63 6f 6e 64 69 74 | if catc|h condit|
|00002a60| 69 6f 6e 2d 63 61 73 65 | 20 75 6e 77 69 6e 64 2d |ion-case| unwind-|
|00002a70| 70 72 6f 74 65 63 74 20 | 77 69 74 68 2d 6f 75 74 |protect |with-out|
|00002a80| 70 75 74 2d 74 6f 2d 74 | 65 6d 70 2d 62 75 66 66 |put-to-t|emp-buff|
|00002a90| 65 72 5d 20 34 29 0a 28 | 66 73 65 74 20 27 69 6e |er] 4).(|fset 'in|
|00002aa0| 64 65 6e 74 2d 73 65 78 | 70 20 23 5b 28 26 6f 70 |dent-sex|p #[(&op|
|00002ab0| 74 69 6f 6e 61 6c 20 65 | 6e 64 70 6f 73 29 20 22 |tional e|ndpos) "|
|00002ac0| c0 43 c1 60 60 c0 89 89 | 89 89 89 1a 1b 1c 1d 1e |.C.``...|........|
|00002ad0| 06 1e 07 1e 08 1e 09 1e | 5c 6e 1e 0b 8a cc cd 21 |........|\n.....!|
|00002ae0| 88 29 8a c0 15 0e 0e ab | 86 60 0e 0e 57 aa 82 0d |.)......|.`..W...|
|00002af0| 3f 85 41 01 0e 5c 6e 16 | 07 c0 14 0c ac bc 6d 89 |?.A..\n.|......m.|
|00002b00| 15 ac b7 cf 60 c0 7f 88 | 60 c0 89 0b 25 89 13 40 |....`...|`...%..@|
|00002b10| 16 5c 6e d0 0b 9b 40 ab | 8c d1 20 88 c0 7f 88 d0 |.\n...@.|.. .....|
|00002b20| 0b 9b c0 a0 88 d2 0b 9b | 40 ab 8b cd 79 88 d3 0b |........|@...y...|
|00002b30| 9b c0 a0 88 aa 46 d4 89 | 14 ab 44 0e 0e ab 9a 0e |.....F..|..D.....|
|00002b40| 5c 6e c1 58 ab 94 d5 0e | 0b c0 43 5c 22 16 0b 0e |\n.X....|..C\"...|
|00002b50| 5c 6e 54 16 5c 6e 0e 07 | 54 16 07 aa 66 0d ac 85 |\nT.\n..|T...f...|
|00002b60| 0e 5c 6e c1 58 15 0d ab | 86 cd 79 88 82 2e 01 0e |.\n.X...|..y.....|
|00002b70| 07 0e 5c 6e 56 ab 8d 0e | 0b 41 16 0b 0e 07 53 89 |..\nV...|.A....S.|
|00002b80| 16 07 aa 6e 0e 07 0e 5c | 6e 57 ab 8e c0 0e 0b 42 |...n...\|nW.....B|
|00002b90| 16 0b 0e 07 54 89 16 07 | aa 6d cd 79 88 60 16 06 |....T...|.m.y.`..|
|00002ba0| d6 c0 77 88 6d ac d1 d7 | d8 21 ac cc 0e 0b 40 ab |..w.m...|.!....@.|
|00002bb0| 8d 0e 0b 40 c1 59 ab 86 | 0e 0b 40 12 aa ad d9 0e |...@.Y..|..@.....|
|00002bc0| 0b 40 ab 86 0e 0b 40 5b | aa 82 0e 09 21 89 1e 1a |.@....@[|....!...|
|00002bd0| a8 ab 8a 0e 0b 0e 1a 89 | 12 a0 88 aa 8d 0e 0b 0e |........|........|
|00002be0| 1a 41 40 5b a0 88 0e 1a | 40 12 29 69 5c 6e 55 ac |.A@[....|@.)i\nU.|
|00002bf0| 88 0e 06 60 7c 88 5c 6e | 6a 88 0d 84 24 00 60 0e |...`|.\n|j...$.`.|
|00002c00| 08 55 89 15 84 24 00 60 | 16 08 82 24 00 2e 0b 87 |.U...$.`|...$....|
|00002c10| 22 20 5b 6e 69 6c 20 30 | 20 74 68 69 73 2d 69 6e |" [nil 0| this-in|
|00002c20| 64 65 6e 74 20 73 74 61 | 74 65 20 69 6e 6e 65 72 |dent sta|te inner|
|00002c30| 2d 6c 6f 6f 70 2d 64 6f | 6e 65 20 6f 75 74 65 72 |-loop-do|ne outer|
|00002c40| 2d 6c 6f 6f 70 2d 64 6f | 6e 65 20 62 6f 6c 20 6c |-loop-do|ne bol l|
|00002c50| 61 73 74 2d 64 65 70 74 | 68 20 6c 61 73 74 2d 70 |ast-dept|h last-p|
|00002c60| 6f 69 6e 74 20 73 74 61 | 72 74 69 6e 67 2d 70 6f |oint sta|rting-po|
|00002c70| 69 6e 74 20 6e 65 78 74 | 2d 64 65 70 74 68 20 69 |int next|-depth i|
|00002c80| 6e 64 65 6e 74 2d 73 74 | 61 63 6b 20 66 6f 72 77 |ndent-st|ack forw|
|00002c90| 61 72 64 2d 73 65 78 70 | 20 31 20 65 6e 64 70 6f |ard-sexp| 1 endpo|
|00002ca0| 73 20 70 61 72 73 65 2d | 70 61 72 74 69 61 6c 2d |s parse-|partial-|
|00002cb0| 73 65 78 70 20 34 20 69 | 6e 64 65 6e 74 2d 66 6f |sexp 4 i|ndent-fo|
|00002cc0| 72 2d 63 6f 6d 6d 65 6e | 74 20 33 20 35 20 74 20 |r-commen|t 3 5 t |
|00002cd0| 61 70 70 65 6e 64 20 22 | 20 09 22 20 6c 6f 6f 6b |append "| ." look|
|00002ce0| 69 6e 67 2d 61 74 20 22 | 5c 5c 73 3c 5c 5c 7c 5c |ing-at "|\\s<\\|\|
|00002cf0| 6e 22 20 63 61 6c 63 75 | 6c 61 74 65 2d 6c 69 73 |n" calcu|late-lis|
|00002d00| 70 2d 69 6e 64 65 6e 74 | 20 76 61 6c 5d 20 31 31 |p-indent| val] 11|
|00002d10| 20 22 5c 0a 49 6e 64 65 | 6e 74 20 65 61 63 68 20 | "\.Inde|nt each |
|00002d20| 6c 69 6e 65 20 6f 66 20 | 74 68 65 20 6c 69 73 74 |line of |the list|
|00002d30| 20 73 74 61 72 74 69 6e | 67 20 6a 75 73 74 20 61 | startin|g just a|
|00002d40| 66 74 65 72 20 70 6f 69 | 6e 74 2e 0a 49 66 20 6f |fter poi|nt..If o|
|00002d50| 70 74 69 6f 6e 61 6c 20 | 61 72 67 20 45 4e 44 50 |ptional |arg ENDP|
|00002d60| 4f 53 20 69 73 20 67 69 | 76 65 6e 2c 20 69 6e 64 |OS is gi|ven, ind|
|00002d70| 65 6e 74 20 65 61 63 68 | 20 6c 69 6e 65 2c 20 73 |ent each| line, s|
|00002d80| 74 6f 70 70 69 6e 67 20 | 77 68 65 6e 0a 45 4e 44 |topping |when.END|
|00002d90| 50 4f 53 20 69 73 20 65 | 6e 63 6f 75 6e 74 65 72 |POS is e|ncounter|
|00002da0| 65 64 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ed." nil|]).(fset|
|00002db0| 20 27 6c 69 73 70 2d 69 | 6e 64 65 6e 74 2d 72 65 | 'lisp-i|ndent-re|
|00002dc0| 67 69 6f 6e 20 23 5b 28 | 73 74 61 72 74 20 65 6e |gion #[(|start en|
|00002dd0| 64 29 20 22 8a 08 62 88 | 6e ab 86 6c ac 83 c1 20 |d) "..b.|n..l... |
|00002de0| 88 c2 0b 21 1c c5 0c 21 | 88 0c c6 89 93 2a 87 22 |...!...!|.....*."|
|00002df0| 20 5b 73 74 61 72 74 20 | 6c 69 73 70 2d 69 6e 64 | [start |lisp-ind|
|00002e00| 65 6e 74 2d 6c 69 6e 65 | 20 63 6f 70 79 2d 6d 61 |ent-line| copy-ma|
|00002e10| 72 6b 65 72 20 65 6e 64 | 20 65 6e 64 6d 61 72 6b |rker end| endmark|
|00002e20| 20 69 6e 64 65 6e 74 2d | 73 65 78 70 20 6e 69 6c | indent-|sexp nil|
|00002e30| 5d 20 33 5d 29 0a 28 66 | 73 65 74 20 27 6c 69 73 |] 3]).(f|set 'lis|
|00002e40| 70 2d 66 69 6c 6c 2d 70 | 61 72 61 67 72 61 70 68 |p-fill-p|aragraph|
|00002e50| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6a 75 | #[(&opt|ional ju|
|00002e60| 73 74 69 66 79 29 20 22 | c0 89 19 1a 8a c3 79 88 |stify) "|......y.|
|00002e70| c4 c5 21 ab 8a c6 12 c3 | 94 c3 95 7b 11 aa b2 c4 |..!.....|...{....|
|00002e80| c7 21 ac 9b c8 c0 77 88 | 60 66 c9 3d ab 85 ca 75 |.!....w.|`f.=...u|
|00002e90| 88 aa 6c 60 66 cb 3e ab | 66 cc cd 21 88 aa 60 c4 |..l`f.>.|f..!..`.|
|00002ea0| ce 21 ab 8d c6 12 cf 69 | d0 5c 22 c3 94 c3 95 7b |.!.....i|.\"....{|
|00002eb0| 50 11 29 5c 6e ac 86 d1 | 0e 12 21 aa b8 8c 8a d3 |P.)\n...|..!.....|
|00002ec0| 79 c3 55 ab 85 c4 d4 21 | ac 75 c4 d4 21 ac 83 cd |y.U....!|.u..!...|
|00002ed0| 79 88 60 29 8a cd 79 88 | c4 d4 21 ac 78 60 29 7d |y.`)..y.|..!.x`)}|
|00002ee0| 88 0e 15 d6 50 0e 15 d6 | 50 09 1e 17 1e 18 1e 15 |....P...|P.......|
|00002ef0| d1 0e 12 21 2c 2a 87 22 | 20 5b 6e 69 6c 20 63 6f |...!,*."| [nil co|
|00002f00| 6d 6d 65 6e 74 2d 66 69 | 6c 6c 2d 70 72 65 66 69 |mment-fi|ll-prefi|
|00002f10| 78 20 68 61 73 2d 63 6f | 6d 6d 65 6e 74 20 30 20 |x has-co|mment 0 |
|00002f20| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5b 20 09 5d |looking-|at "[ .]|
|00002f30| 2a 3b 5b 3b 20 09 5d 2a | 22 20 74 20 22 3b 5c 5c |*;[; .]*|" t ";\\|
|00002f40| 7c 24 22 20 22 5e 3b 5c | 6e 5c 22 5c 5c 5c 5c 3f ||$" "^;\|n\"\\\\?|
|00002f50| 22 20 39 32 20 32 20 28 | 33 34 20 36 33 29 20 66 |" 92 2 (|34 63) f|
|00002f60| 6f 72 77 61 72 64 2d 73 | 65 78 70 20 31 20 22 3b |orward-s|exp 1 ";|
|00002f70| 2b 5b 09 20 5d 2a 22 20 | 6d 61 6b 65 2d 73 74 72 |+[. ]*" |make-str|
|00002f80| 69 6e 67 20 33 32 20 66 | 69 6c 6c 2d 70 61 72 61 |ing 32 f|ill-para|
|00002f90| 67 72 61 70 68 20 6a 75 | 73 74 69 66 79 20 2d 31 |graph ju|stify -1|
|00002fa0| 20 22 5e 5b 20 09 5d 2a | 3b 22 20 70 61 72 61 67 | "^[ .]*|;" parag|
|00002fb0| 72 61 70 68 2d 73 74 61 | 72 74 20 22 5c 5c 7c 5e |raph-sta|rt "\\|^|
|00002fc0| 5b 20 09 3b 5d 2a 24 22 | 20 66 69 6c 6c 2d 70 72 |[ .;]*$"| fill-pr|
|00002fd0| 65 66 69 78 20 70 61 72 | 61 67 72 61 70 68 2d 73 |efix par|agraph-s|
|00002fe0| 65 70 61 72 61 74 65 5d | 20 33 20 22 5c 0a 4c 69 |eparate]| 3 "\.Li|
|00002ff0| 6b 65 20 5c 5c 5b 66 69 | 6c 6c 2d 70 61 72 61 67 |ke \\[fi|ll-parag|
|00003000| 72 61 70 68 5d 2c 20 62 | 75 74 20 68 61 6e 64 6c |raph], b|ut handl|
|00003010| 65 20 45 6d 61 63 73 20 | 4c 69 73 70 20 63 6f 6d |e Emacs |Lisp com|
|00003020| 6d 65 6e 74 73 2e 0a 49 | 66 20 61 6e 79 20 6f 66 |ments..I|f any of|
|00003030| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|00003040| 65 20 69 73 20 61 20 63 | 6f 6d 6d 65 6e 74 2c 20 |e is a c|omment, |
|00003050| 66 69 6c 6c 20 74 68 65 | 20 63 6f 6d 6d 65 6e 74 |fill the| comment|
|00003060| 20 6f 72 20 74 68 65 0a | 70 61 72 61 67 72 61 70 | or the.|paragrap|
|00003070| 68 20 6f 66 20 69 74 20 | 74 68 61 74 20 70 6f 69 |h of it |that poi|
|00003080| 6e 74 20 69 73 20 69 6e | 2c 20 70 72 65 73 65 72 |nt is in|, preser|
|00003090| 76 69 6e 67 20 74 68 65 | 20 63 6f 6d 6d 65 6e 74 |ving the| comment|
|000030a0| 27 73 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 0a 61 |'s inden|tation.a|
|000030b0| 6e 64 20 69 6e 69 74 69 | 61 6c 20 73 65 6d 69 63 |nd initi|al semic|
|000030c0| 6f 6c 6f 6e 73 2e 22 20 | 22 50 22 5d 29 0a 28 66 |olons." |"P"]).(f|
|000030d0| 73 65 74 20 27 69 6e 64 | 65 6e 74 2d 63 6f 64 65 |set 'ind|ent-code|
|000030e0| 2d 72 69 67 69 64 6c 79 | 20 23 5b 28 73 74 61 72 |-rigidly| #[(star|
|000030f0| 74 20 65 6e 64 20 61 72 | 67 20 26 6f 70 74 69 6f |t end ar|g &optio|
|00003100| 6e 61 6c 20 6e 6f 63 68 | 61 6e 67 65 2d 72 65 67 |nal noch|ange-reg|
|00003110| 65 78 70 29 20 22 c0 19 | 8a 5c 6e 62 88 c3 20 12 |exp) "..|.\nb.. .|
|00003120| 0c 62 88 6e ac 8b c5 60 | c6 79 88 60 c0 89 09 25 |.b.n...`|.y.`...%|
|00003130| 11 60 5c 6e 57 ad b8 c7 | 09 9b 40 ac a5 0e 08 ab |.`\nW...|..@.....|
|00003140| 86 c9 0e 08 21 ac 9b ca | 20 1e 0b 60 cc c0 77 88 |....!...| ..`..w.|
|00003150| 60 7c 88 6c ac 8b cd ce | 0e 0b 0e 0f 5c 5c 5d ce |`|.l....|....\\].|
|00003160| 5c 22 88 29 c5 60 c6 79 | 88 60 c0 89 09 25 11 aa |\".).`.y|.`...%..|
|00003170| 43 2a 87 22 20 5b 6e 69 | 6c 20 73 74 61 74 65 20 |C*." [ni|l state |
|00003180| 65 6e 64 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |end poin|t-marker|
|00003190| 20 73 74 61 72 74 20 70 | 61 72 73 65 2d 70 61 72 | start p|arse-par|
|000031a0| 74 69 61 6c 2d 73 65 78 | 70 20 31 20 33 20 6e 6f |tial-sex|p 1 3 no|
|000031b0| 63 68 61 6e 67 65 2d 72 | 65 67 65 78 70 20 6c 6f |change-r|egexp lo|
|000031c0| 6f 6b 69 6e 67 2d 61 74 | 20 63 75 72 72 65 6e 74 |oking-at| current|
|000031d0| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 69 6e 64 |-indenta|tion ind|
|000031e0| 65 6e 74 20 22 20 09 22 | 20 69 6e 64 65 6e 74 2d |ent " ."| indent-|
|000031f0| 74 6f 20 30 20 61 72 67 | 5d 20 36 20 22 5c 0a 49 |to 0 arg|] 6 "\.I|
|00003200| 6e 64 65 6e 74 20 61 6c | 6c 20 6c 69 6e 65 73 20 |ndent al|l lines |
|00003210| 6f 66 20 63 6f 64 65 2c | 20 73 74 61 72 74 69 6e |of code,| startin|
|00003220| 67 20 69 6e 20 74 68 65 | 20 72 65 67 69 6f 6e 2c |g in the| region,|
|00003230| 20 73 69 64 65 77 61 79 | 73 20 62 79 20 41 52 47 | sideway|s by ARG|
|00003240| 20 63 6f 6c 75 6d 6e 73 | 2e 0a 44 6f 65 73 20 6e | columns|..Does n|
|00003250| 6f 74 20 61 66 66 65 63 | 74 20 6c 69 6e 65 73 20 |ot affec|t lines |
|00003260| 73 74 61 72 74 69 6e 67 | 20 69 6e 73 69 64 65 20 |starting| inside |
|00003270| 63 6f 6d 6d 65 6e 74 73 | 20 6f 72 20 73 74 72 69 |comments| or stri|
|00003280| 6e 67 73 2c 0a 61 73 73 | 75 6d 69 6e 67 20 74 68 |ngs,.ass|uming th|
|00003290| 61 74 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |at the s|tart of |
|000032a0| 74 68 65 20 72 65 67 69 | 6f 6e 20 69 73 20 6e 6f |the regi|on is no|
|000032b0| 74 20 69 6e 73 69 64 65 | 20 74 68 65 6d 2e 0a 43 |t inside| them..C|
|000032c0| 61 6c 6c 65 64 20 66 72 | 6f 6d 20 61 20 70 72 6f |alled fr|om a pro|
|000032d0| 67 72 61 6d 2c 20 74 61 | 6b 65 73 20 61 72 67 73 |gram, ta|kes args|
|000032e0| 20 53 54 41 52 54 2c 20 | 45 4e 44 2c 20 43 4f 4c | START, |END, COL|
|000032f0| 55 4d 4e 53 20 61 6e 64 | 20 4e 4f 43 48 41 4e 47 |UMNS and| NOCHANG|
|00003300| 45 2d 52 45 47 45 58 50 | 2e 0a 54 68 65 20 6c 61 |E-REGEXP|..The la|
|00003310| 73 74 20 69 73 20 61 20 | 72 65 67 65 78 70 20 77 |st is a |regexp w|
|00003320| 68 69 63 68 2c 20 69 66 | 20 6d 61 74 63 68 65 64 |hich, if| matched|
|00003330| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00003340| 67 20 6f 66 20 61 20 6c | 69 6e 65 2c 0a 6d 65 61 |g of a l|ine,.mea|
|00003350| 6e 73 20 64 6f 6e 27 74 | 20 69 6e 64 65 6e 74 20 |ns don't| indent |
|00003360| 74 68 61 74 20 6c 69 6e | 65 2e 22 20 22 72 5c 6e |that lin|e." "r\n|
|00003370| 70 22 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 27 6c |p"]).(pr|ovide 'l|
|00003380| 69 73 70 2d 6d 6f 64 65 | 29 0a |isp-mode|). |
+--------+-------------------------+-------------------------+--------+--------+
