home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 3.8 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
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 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 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 33 3a 32 36 3a 32 | 30 20 31 39 39 33 0a 3b | 23:26:2|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 6c 65 64 | 69 74 2e 65 6c 0a 3b 3b |lisp/led|it.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)). (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 84 08 |byte-cod|e "..!..|
|000001d0| 00 c2 11 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 6c |....." [|boundp l|
|000001e0| 65 64 69 74 2d 6d 6f 64 | 65 2d 6d 61 70 20 6e 69 |edit-mod|e-map ni|
|000001f0| 6c 5d 20 32 29 0a 28 64 | 65 66 63 6f 6e 73 74 20 |l] 2).(d|efconst |
|00000200| 6c 65 64 69 74 2d 7a 61 | 70 2d 66 69 6c 65 20 28 |ledit-za|p-file (|
|00000210| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 20 c2 51 |byte-cod|e ".. .Q|
|00000220| 87 22 20 5b 22 2f 74 6d | 70 2f 22 20 75 73 65 72 |." ["/tm|p/" user|
|00000230| 2d 6c 6f 67 69 6e 2d 6e | 61 6d 65 20 22 2e 6c 31 |-login-n|ame ".l1|
|00000240| 22 5d 20 33 29 20 22 5c | 0a 46 69 6c 65 20 6e 61 |"] 3) "\|.File na|
|00000250| 6d 65 20 66 6f 72 20 64 | 61 74 61 20 73 65 6e 74 |me for d|ata sent|
|00000260| 20 74 6f 20 4c 69 73 70 | 20 62 79 20 4c 65 64 69 | to Lisp| by Ledi|
|00000270| 74 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 6c |t.").(de|fconst l|
|00000280| 65 64 69 74 2d 72 65 61 | 64 2d 66 69 6c 65 20 28 |edit-rea|d-file (|
|00000290| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 20 c2 51 |byte-cod|e ".. .Q|
|000002a0| 87 22 20 5b 22 2f 74 6d | 70 2f 22 20 75 73 65 72 |." ["/tm|p/" user|
|000002b0| 2d 6c 6f 67 69 6e 2d 6e | 61 6d 65 20 22 2e 6c 32 |-login-n|ame ".l2|
|000002c0| 22 5d 20 33 29 20 22 5c | 0a 46 69 6c 65 20 6e 61 |"] 3) "\|.File na|
|000002d0| 6d 65 20 66 6f 72 20 64 | 61 74 61 20 73 65 6e 74 |me for d|ata sent|
|000002e0| 20 74 6f 20 4c 65 64 69 | 74 20 62 79 20 4c 69 73 | to Ledi|t by Lis|
|000002f0| 70 2e 22 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 6c |p.").(de|fconst l|
|00000300| 65 64 69 74 2d 63 6f 6d | 70 69 6c 65 2d 66 69 6c |edit-com|pile-fil|
|00000310| 65 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |e (byte-|code "..|
|00000320| 20 c2 51 87 22 20 5b 22 | 2f 74 6d 70 2f 22 20 75 | .Q." ["|/tmp/" u|
|00000330| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 22 |ser-logi|n-name "|
|00000340| 2e 6c 34 22 5d 20 33 29 | 20 22 5c 0a 46 69 6c 65 |.l4"] 3)| "\.File|
|00000350| 20 6e 61 6d 65 20 66 6f | 72 20 64 61 74 61 20 73 | name fo|r data s|
|00000360| 65 6e 74 20 74 6f 20 4c | 69 73 70 20 63 6f 6d 70 |ent to L|isp comp|
|00000370| 69 6c 65 72 20 62 79 20 | 4c 65 64 69 74 2e 22 29 |iler by |Ledit.")|
|00000380| 0a 28 64 65 66 63 6f 6e | 73 74 20 6c 65 64 69 74 |.(defcon|st ledit|
|00000390| 2d 62 75 66 66 65 72 20 | 22 2a 4c 45 44 49 54 2a |-buffer |"*LEDIT*|
|000003a0| 22 20 22 5c 0a 4e 61 6d | 65 20 6f 66 20 62 75 66 |" "\.Nam|e of buf|
|000003b0| 66 65 72 20 69 6e 20 77 | 68 69 63 68 20 4c 65 64 |fer in w|hich Led|
|000003c0| 69 74 20 61 63 63 75 6d | 75 6c 61 74 65 73 20 64 |it accum|ulates d|
|000003d0| 61 74 61 20 74 6f 20 73 | 65 6e 64 20 74 6f 20 4c |ata to s|end to L|
|000003e0| 69 73 70 2e 22 29 0a 28 | 64 65 66 63 6f 6e 73 74 |isp.").(|defconst|
|000003f0| 20 6c 65 64 69 74 2d 73 | 61 76 65 2d 66 69 6c 65 | ledit-s|ave-file|
|00000400| 73 20 74 20 22 5c 0a 2a | 4e 6f 6e 2d 6e 69 6c 20 |s t "\.*|Non-nil |
|00000410| 6d 65 61 6e 73 20 4c 65 | 64 69 74 20 73 68 6f 75 |means Le|dit shou|
|00000420| 6c 64 20 73 61 76 65 20 | 66 69 6c 65 73 20 62 65 |ld save |files be|
|00000430| 66 6f 72 65 20 74 72 61 | 6e 73 66 65 72 72 69 6e |fore tra|nsferrin|
|00000440| 67 20 74 6f 20 4c 69 73 | 70 2e 22 29 0a 28 64 65 |g to Lis|p.").(de|
|00000450| 66 63 6f 6e 73 74 20 6c | 65 64 69 74 2d 67 6f 2d |fconst l|edit-go-|
|00000460| 74 6f 2d 6c 69 73 70 2d | 73 74 72 69 6e 67 20 22 |to-lisp-|string "|
|00000470| 25 3f 6c 69 73 70 22 20 | 22 5c 0a 2a 53 68 65 6c |%?lisp" |"\.*Shel|
|00000480| 6c 20 63 6f 6d 6d 61 6e | 64 73 20 74 6f 20 65 78 |l comman|ds to ex|
|00000490| 65 63 75 74 65 20 74 6f | 20 72 65 73 75 6d 65 20 |ecute to| resume |
|000004a0| 4c 69 73 70 20 6a 6f 62 | 2e 22 29 0a 28 64 65 66 |Lisp job|.").(def|
|000004b0| 63 6f 6e 73 74 20 6c 65 | 64 69 74 2d 67 6f 2d 74 |const le|dit-go-t|
|000004c0| 6f 2d 6c 69 73 7a 74 2d | 73 74 72 69 6e 67 20 22 |o-liszt-|string "|
|000004d0| 25 3f 6c 69 73 7a 74 22 | 20 22 5c 0a 2a 53 68 65 |%?liszt"| "\.*She|
|000004e0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 20 74 6f 20 65 |ll comma|nds to e|
|000004f0| 78 65 63 75 74 65 20 74 | 6f 20 72 65 73 75 6d 65 |xecute t|o resume|
|00000500| 20 4c 69 73 70 20 63 6f | 6d 70 69 6c 65 72 20 6a | Lisp co|mpiler j|
|00000510| 6f 62 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |ob.").(d|efalias |
|00000520| 27 6c 65 64 69 74 2d 73 | 61 76 65 2d 64 65 66 75 |'ledit-s|ave-defu|
|00000530| 6e 20 23 5b 6e 69 6c 20 | 22 8a c0 20 88 60 19 c2 |n #[nil |".. .`..|
|00000540| 20 88 c3 0c 60 09 23 88 | 29 c5 c6 21 29 87 22 20 | ...`.#.|)..!)." |
|00000550| 5b 65 6e 64 2d 6f 66 2d | 64 65 66 75 6e 20 65 6e |[end-of-|defun en|
|00000560| 64 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 64 |d beginn|ing-of-d|
|00000570| 65 66 75 6e 20 61 70 70 | 65 6e 64 2d 74 6f 2d 62 |efun app|end-to-b|
|00000580| 75 66 66 65 72 20 6c 65 | 64 69 74 2d 62 75 66 66 |uffer le|dit-buff|
|00000590| 65 72 20 6d 65 73 73 61 | 67 65 20 22 43 75 72 72 |er messa|ge "Curr|
|000005a0| 65 6e 74 20 64 65 66 75 | 6e 20 73 61 76 65 64 20 |ent defu|n saved |
|000005b0| 66 6f 72 20 4c 69 73 70 | 22 5d 20 34 20 22 5c 0a |for Lisp|"] 4 "\.|
|000005c0| 53 61 76 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Save the| current|
|000005d0| 20 64 65 66 75 6e 20 69 | 6e 20 74 68 65 20 6c 65 | defun i|n the le|
|000005e0| 64 69 74 20 62 75 66 66 | 65 72 22 20 6e 69 6c 5d |dit buff|er" nil]|
|000005f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 65 64 |).(defal|ias 'led|
|00000600| 69 74 2d 73 61 76 65 2d | 72 65 67 69 6f 6e 20 23 |it-save-|region #|
|00000610| 5b 28 62 65 67 20 65 6e | 64 29 20 22 c0 09 5c 6e |[(beg en|d) "..\n|
|00000620| 0b 23 88 c4 c5 21 87 22 | 20 5b 61 70 70 65 6e 64 |.#...!."| [append|
|00000630| 2d 74 6f 2d 62 75 66 66 | 65 72 20 6c 65 64 69 74 |-to-buff|er ledit|
|00000640| 2d 62 75 66 66 65 72 20 | 62 65 67 20 65 6e 64 20 |-buffer |beg end |
|00000650| 6d 65 73 73 61 67 65 20 | 22 52 65 67 69 6f 6e 20 |message |"Region |
|00000660| 73 61 76 65 64 20 66 6f | 72 20 4c 69 73 70 22 5d |saved fo|r Lisp"]|
|00000670| 20 34 20 22 5c 0a 53 61 | 76 65 20 74 68 65 20 63 | 4 "\.Sa|ve the c|
|00000680| 75 72 72 65 6e 74 20 72 | 65 67 69 6f 6e 20 69 6e |urrent r|egion in|
|00000690| 20 74 68 65 20 6c 65 64 | 69 74 20 62 75 66 66 65 | the led|it buffe|
|000006a0| 72 22 20 22 72 22 5d 29 | 0a 28 64 65 66 61 6c 69 |r" "r"])|.(defali|
|000006b0| 61 73 20 27 6c 65 64 69 | 74 2d 7a 61 70 2d 64 65 |as 'ledi|t-zap-de|
|000006c0| 66 75 6e 2d 74 6f 2d 6c | 69 73 70 20 23 5b 6e 69 |fun-to-l|isp #[ni|
|000006d0| 6c 20 22 c0 20 88 c1 20 | 87 22 20 5b 6c 65 64 69 |l ". .. |." [ledi|
|000006e0| 74 2d 73 61 76 65 2d 64 | 65 66 75 6e 20 6c 65 64 |t-save-d|efun led|
|000006f0| 69 74 2d 67 6f 2d 74 6f | 2d 6c 69 73 70 5d 20 31 |it-go-to|-lisp] 1|
|00000700| 20 22 5c 0a 43 61 72 72 | 79 20 74 68 65 20 63 75 | "\.Carr|y the cu|
|00000710| 72 72 65 6e 74 20 64 65 | 66 75 6e 20 74 6f 20 4c |rrent de|fun to L|
|00000720| 69 73 70 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |isp." ni|l]).(def|
|00000730| 61 6c 69 61 73 20 27 6c | 65 64 69 74 2d 7a 61 70 |alias 'l|edit-zap|
|00000740| 2d 64 65 66 75 6e 2d 74 | 6f 2d 6c 69 73 7a 74 20 |-defun-t|o-liszt |
|00000750| 23 5b 6e 69 6c 20 22 c0 | 20 88 c1 20 87 22 20 5b |#[nil ".| .. ." [|
|00000760| 6c 65 64 69 74 2d 73 61 | 76 65 2d 64 65 66 75 6e |ledit-sa|ve-defun|
|00000770| 20 6c 65 64 69 74 2d 67 | 6f 2d 74 6f 2d 6c 69 73 | ledit-g|o-to-lis|
|00000780| 7a 74 5d 20 31 20 22 5c | 0a 43 61 72 72 79 20 74 |zt] 1 "\|.Carry t|
|00000790| 68 65 20 63 75 72 72 65 | 6e 74 20 64 65 66 75 6e |he curre|nt defun|
|000007a0| 20 74 6f 20 6c 69 73 7a | 74 2e 22 20 6e 69 6c 5d | to lisz|t." nil]|
|000007b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6c 65 64 |).(defal|ias 'led|
|000007c0| 69 74 2d 7a 61 70 2d 72 | 65 67 69 6f 6e 2d 74 6f |it-zap-r|egion-to|
|000007d0| 2d 6c 69 73 70 20 23 5b | 28 62 65 67 20 65 6e 64 |-lisp #[|(beg end|
|000007e0| 29 20 22 c0 09 5c 6e 5c | 22 88 c3 20 87 22 20 5b |) "..\n\|".. ." [|
|000007f0| 6c 65 64 69 74 2d 73 61 | 76 65 2d 72 65 67 69 6f |ledit-sa|ve-regio|
|00000800| 6e 20 62 65 67 20 65 6e | 64 20 6c 65 64 69 74 2d |n beg en|d ledit-|
|00000810| 67 6f 2d 74 6f 2d 6c 69 | 73 70 5d 20 33 20 22 5c |go-to-li|sp] 3 "\|
|00000820| 0a 43 61 72 72 79 20 74 | 68 65 20 63 75 72 72 65 |.Carry t|he curre|
|00000830| 6e 74 20 72 65 67 69 6f | 6e 20 74 6f 20 4c 69 73 |nt regio|n to Lis|
|00000840| 70 2e 22 20 22 72 22 5d | 29 0a 28 64 65 66 61 6c |p." "r"]|).(defal|
|00000850| 69 61 73 20 27 6c 65 64 | 69 74 2d 67 6f 2d 74 6f |ias 'led|it-go-to|
|00000860| 2d 6c 69 73 70 20 23 5b | 6e 69 6c 20 22 08 83 07 |-lisp #[|nil "...|
|00000870| 00 c1 20 88 c2 0b 21 83 | 1e 00 8a 0b 71 88 65 62 |.. ...!.|....q.eb|
|00000880| 88 c4 65 64 0d 23 88 c6 | 20 88 29 c7 0e 08 21 88 |..ed.#..| .)...!.|
|00000890| c9 0e 5c 6e cb 89 23 87 | 22 20 5b 6c 65 64 69 74 |..\n..#.|" [ledit|
|000008a0| 2d 73 61 76 65 2d 66 69 | 6c 65 73 20 73 61 76 65 |-save-fi|les save|
|000008b0| 2d 73 6f 6d 65 2d 62 75 | 66 66 65 72 73 20 67 65 |-some-bu|ffers ge|
|000008c0| 74 2d 62 75 66 66 65 72 | 20 6c 65 64 69 74 2d 62 |t-buffer| ledit-b|
|000008d0| 75 66 66 65 72 20 77 72 | 69 74 65 2d 72 65 67 69 |uffer wr|ite-regi|
|000008e0| 6f 6e 20 6c 65 64 69 74 | 2d 7a 61 70 2d 66 69 6c |on ledit|-zap-fil|
|000008f0| 65 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 73 |e erase-|buffer s|
|00000900| 75 73 70 65 6e 64 2d 65 | 6d 61 63 73 20 6c 65 64 |uspend-e|macs led|
|00000910| 69 74 2d 67 6f 2d 74 6f | 2d 6c 69 73 70 2d 73 74 |it-go-to|-lisp-st|
|00000920| 72 69 6e 67 20 6c 6f 61 | 64 20 6c 65 64 69 74 2d |ring loa|d ledit-|
|00000930| 72 65 61 64 2d 66 69 6c | 65 20 74 5d 20 34 20 22 |read-fil|e t] 4 "|
|00000940| 5c 0a 53 75 73 70 65 6e | 64 20 45 6d 61 63 73 20 |\.Suspen|d Emacs |
|00000950| 61 6e 64 20 72 65 73 74 | 61 72 74 20 61 20 77 61 |and rest|art a wa|
|00000960| 69 74 69 6e 67 20 4c 69 | 73 70 20 6a 6f 62 2e 22 |iting Li|sp job."|
|00000970| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00000980| 20 27 6c 65 64 69 74 2d | 67 6f 2d 74 6f 2d 6c 69 | 'ledit-|go-to-li|
|00000990| 73 7a 74 20 23 5b 6e 69 | 6c 20 22 08 83 07 00 c1 |szt #[ni|l ".....|
|000009a0| 20 88 c2 0b 21 83 5c 22 | 00 8a 0b 71 88 65 62 88 | ...!.\"|...q.eb.|
|000009b0| c4 63 88 c5 65 64 0e 06 | 23 88 c7 20 88 29 c8 0e |.c..ed..|#.. .)..|
|000009c0| 09 21 88 ca 0e 0b cc 89 | 23 87 22 20 5b 6c 65 64 |.!......|#." [led|
|000009d0| 69 74 2d 73 61 76 65 2d | 66 69 6c 65 73 20 73 61 |it-save-|files sa|
|000009e0| 76 65 2d 73 6f 6d 65 2d | 62 75 66 66 65 72 73 20 |ve-some-|buffers |
|000009f0| 67 65 74 2d 62 75 66 66 | 65 72 20 6c 65 64 69 74 |get-buff|er ledit|
|00000a00| 2d 62 75 66 66 65 72 20 | 22 28 64 65 63 6c 61 72 |-buffer |"(declar|
|00000a10| 65 20 28 6d 61 63 72 6f | 73 20 74 29 29 5c 6e 22 |e (macro|s t))\n"|
|00000a20| 20 77 72 69 74 65 2d 72 | 65 67 69 6f 6e 20 6c 65 | write-r|egion le|
|00000a30| 64 69 74 2d 63 6f 6d 70 | 69 6c 65 2d 66 69 6c 65 |dit-comp|ile-file|
|00000a40| 20 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 73 75 | erase-b|uffer su|
|00000a50| 73 70 65 6e 64 2d 65 6d | 61 63 73 20 6c 65 64 69 |spend-em|acs ledi|
|00000a60| 74 2d 67 6f 2d 74 6f 2d | 6c 69 73 7a 74 2d 73 74 |t-go-to-|liszt-st|
|00000a70| 72 69 6e 67 20 6c 6f 61 | 64 20 6c 65 64 69 74 2d |ring loa|d ledit-|
|00000a80| 72 65 61 64 2d 66 69 6c | 65 20 74 5d 20 34 20 22 |read-fil|e t] 4 "|
|00000a90| 5c 0a 53 75 73 70 65 6e | 64 20 45 6d 61 63 73 20 |\.Suspen|d Emacs |
|00000aa0| 61 6e 64 20 72 65 73 74 | 61 72 74 20 61 20 77 61 |and rest|art a wa|
|00000ab0| 69 74 69 6e 67 20 4c 69 | 73 7a 74 20 6a 6f 62 2e |iting Li|szt job.|
|00000ac0| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000ad0| 73 20 27 6c 65 64 69 74 | 2d 73 65 74 75 70 20 23 |s 'ledit|-setup #|
|00000ae0| 5b 6e 69 6c 20 22 08 84 | 09 00 c1 20 5c 6e a4 10 |[nil "..|... \n..|
|00000af0| c3 08 c4 c5 23 88 c3 08 | c6 c7 23 88 c3 08 c8 c9 |....#...|..#.....|
|00000b00| 23 88 c3 08 ca cb 23 87 | 22 20 5b 6c 65 64 69 74 |#.....#.|" [ledit|
|00000b10| 2d 6d 6f 64 65 2d 6d 61 | 70 20 6d 61 6b 65 2d 73 |-mode-ma|p make-s|
|00000b20| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 73 68 61 |parse-ke|ymap sha|
|00000b30| 72 65 64 2d 6c 69 73 70 | 2d 6d 6f 64 65 2d 6d 61 |red-lisp|-mode-ma|
|00000b40| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 1b 04 |p define|-key "..|
|00000b50| 22 20 6c 65 64 69 74 2d | 73 61 76 65 2d 64 65 66 |" ledit-|save-def|
|00000b60| 75 6e 20 22 1b 12 22 20 | 6c 65 64 69 74 2d 73 61 |un ".." |ledit-sa|
|00000b70| 76 65 2d 72 65 67 69 6f | 6e 20 22 18 7a 22 20 6c |ve-regio|n ".z" l|
|00000b80| 65 64 69 74 2d 67 6f 2d | 74 6f 2d 6c 69 73 70 20 |edit-go-|to-lisp |
|00000b90| 22 1b 03 22 20 6c 65 64 | 69 74 2d 67 6f 2d 74 6f |".." led|it-go-to|
|00000ba0| 2d 6c 69 73 7a 74 5d 20 | 34 20 22 5c 0a 53 65 74 |-liszt] |4 "\.Set|
|00000bb0| 20 75 70 20 6b 65 79 20 | 62 69 6e 64 69 6e 67 73 | up key |bindings|
|00000bc0| 20 66 6f 72 20 74 68 65 | 20 4c 69 73 70 2f 45 6d | for the| Lisp/Em|
|00000bd0| 61 63 73 20 69 6e 74 65 | 72 66 61 63 65 2e 22 5d |acs inte|rface."]|
|00000be0| 29 0a 28 6c 65 64 69 74 | 2d 73 65 74 75 70 29 0a |).(ledit|-setup).|
|00000bf0| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 65 64 69 74 |(defalia|s 'ledit|
|00000c00| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|00000c10| c1 20 87 22 20 5b 6c 69 | 73 70 2d 6d 6f 64 65 20 |. ." [li|sp-mode |
|00000c20| 6c 65 64 69 74 2d 66 72 | 6f 6d 2d 6c 69 73 70 2d |ledit-fr|om-lisp-|
|00000c30| 6d 6f 64 65 5d 20 31 20 | 22 5c 0a 5c 5c 3c 6c 65 |mode] 1 |"\.\\<le|
|00000c40| 64 69 74 2d 6d 6f 64 65 | 2d 6d 61 70 3e 4d 61 6a |dit-mode|-map>Maj|
|00000c50| 6f 72 20 6d 6f 64 65 20 | 66 6f 72 20 65 64 69 74 |or mode |for edit|
|00000c60| 69 6e 67 20 74 65 78 74 | 20 61 6e 64 20 73 74 75 |ing text| and stu|
|00000c70| 66 66 69 6e 67 20 69 74 | 20 74 6f 20 61 20 4c 69 |ffing it| to a Li|
|00000c80| 73 70 20 6a 6f 62 2e 0a | 4c 69 6b 65 20 4c 69 73 |sp job..|Like Lis|
|00000c90| 70 20 6d 6f 64 65 2c 20 | 70 6c 75 73 20 74 68 65 |p mode, |plus the|
|00000ca0| 73 65 20 73 70 65 63 69 | 61 6c 20 63 6f 6d 6d 61 |se speci|al comma|
|00000cb0| 6e 64 73 3a 0a 20 20 5c | 5c 5b 6c 65 64 69 74 2d |nds:. \|\[ledit-|
|00000cc0| 73 61 76 65 2d 64 65 66 | 75 6e 5d 09 2d 2d 20 72 |save-def|un].-- r|
|00000cd0| 65 63 6f 72 64 20 64 65 | 66 75 6e 20 61 74 20 6f |ecord de|fun at o|
|00000ce0| 72 20 61 66 74 65 72 20 | 70 6f 69 6e 74 0a 09 20 |r after |point.. |
|00000cf0| 20 20 66 6f 72 20 6c 61 | 74 65 72 20 74 72 61 6e | for la|ter tran|
|00000d00| 73 6d 69 73 73 69 6f 6e | 20 74 6f 20 4c 69 73 70 |smission| to Lisp|
|00000d10| 20 6a 6f 62 2e 0a 20 20 | 5c 5c 5b 6c 65 64 69 74 | job.. |\\[ledit|
|00000d20| 2d 73 61 76 65 2d 72 65 | 67 69 6f 6e 5d 20 2d 2d |-save-re|gion] --|
|00000d30| 20 72 65 63 6f 72 64 20 | 72 65 67 69 6f 6e 20 66 | record |region f|
|00000d40| 6f 72 20 6c 61 74 65 72 | 20 74 72 61 6e 73 6d 69 |or later| transmi|
|00000d50| 73 73 69 6f 6e 20 74 6f | 20 4c 69 73 70 20 6a 6f |ssion to| Lisp jo|
|00000d60| 62 2e 0a 20 20 5c 5c 5b | 6c 65 64 69 74 2d 67 6f |b.. \\[|ledit-go|
|00000d70| 2d 74 6f 2d 6c 69 73 70 | 5d 20 2d 2d 20 74 72 61 |-to-lisp|] -- tra|
|00000d80| 6e 73 66 65 72 20 74 6f | 20 4c 69 73 70 20 6a 6f |nsfer to| Lisp jo|
|00000d90| 62 20 61 6e 64 20 74 72 | 61 6e 73 6d 69 74 20 73 |b and tr|ansmit s|
|00000da0| 61 76 65 64 20 74 65 78 | 74 2e 0a 20 20 5c 5c 5b |aved tex|t.. \\[|
|00000db0| 6c 65 64 69 74 2d 67 6f | 2d 74 6f 2d 6c 69 73 7a |ledit-go|-to-lisz|
|00000dc0| 74 5d 20 2d 2d 20 74 72 | 61 6e 73 66 65 72 20 74 |t] -- tr|ansfer t|
|00000dd0| 6f 20 4c 69 73 7a 74 20 | 28 4c 69 73 70 20 63 6f |o Liszt |(Lisp co|
|00000de0| 6d 70 69 6c 65 72 29 20 | 6a 6f 62 0a 09 20 20 20 |mpiler) |job.. |
|00000df0| 61 6e 64 20 74 72 61 6e | 73 6d 69 74 20 73 61 76 |and tran|smit sav|
|00000e00| 65 64 20 74 65 78 74 2e | 0a 5c 5c 7b 6c 65 64 69 |ed text.|.\\{ledi|
|00000e10| 74 2d 6d 6f 64 65 2d 6d | 61 70 7d 0a 54 6f 20 6d |t-mode-m|ap}.To m|
|00000e20| 61 6b 65 20 4c 69 73 70 | 20 6d 6f 64 65 20 61 75 |ake Lisp| mode au|
|00000e30| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 63 68 61 6e |tomatica|lly chan|
|00000e40| 67 65 20 74 6f 20 4c 65 | 64 69 74 20 6d 6f 64 65 |ge to Le|dit mode|
|00000e50| 2c 0a 64 6f 20 28 73 65 | 74 71 20 6c 69 73 70 2d |,.do (se|tq lisp-|
|00000e60| 6d 6f 64 65 2d 68 6f 6f | 6b 20 27 6c 65 64 69 74 |mode-hoo|k 'ledit|
|00000e70| 2d 66 72 6f 6d 2d 6c 69 | 73 70 2d 6d 6f 64 65 29 |-from-li|sp-mode)|
|00000e80| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00000e90| 73 20 28 71 75 6f 74 65 | 20 6c 65 64 69 74 2d 66 |s (quote| ledit-f|
|00000ea0| 72 6f 6d 2d 6c 69 73 70 | 2d 6d 6f 64 65 29 20 23 |rom-lisp|-mode) #|
|00000eb0| 5b 6e 69 6c 20 22 c0 09 | 21 88 c2 13 c4 15 c6 c7 |[nil "..|!.......|
|00000ec0| 21 87 22 20 5b 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |!." [use|-local-m|
|00000ed0| 61 70 20 6c 65 64 69 74 | 2d 6d 6f 64 65 2d 6d 61 |ap ledit|-mode-ma|
|00000ee0| 70 20 22 4c 65 64 69 74 | 22 20 6d 6f 64 65 2d 6e |p "Ledit|" mode-n|
|00000ef0| 61 6d 65 20 6c 65 64 69 | 74 2d 6d 6f 64 65 20 6d |ame ledi|t-mode m|
|00000f00| 61 6a 6f 72 2d 6d 6f 64 | 65 20 72 75 6e 2d 68 6f |ajor-mod|e run-ho|
|00000f10| 6f 6b 73 20 6c 65 64 69 | 74 2d 6d 6f 64 65 2d 68 |oks ledi|t-mode-h|
|00000f20| 6f 6f 6b 5d 20 32 5d 29 | 0a |ook] 2])|. |
+--------+-------------------------+-------------------------+--------+--------+
