home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 21.2 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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 31 37 3a 30 34 20 |Feb 1 1|9:17:04 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 74 65 |lisp/pac|kages/te|
|00000080| 72 6d 69 6e 61 6c 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |rminal.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 34 |acs vers|ion 19.4|
|000000a0| 2e 31 33 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |.13 Luci|d..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 32 2e 31 30 3b 20 20 31 | 2d 66 65 62 2d 39 33 2e |2.10; 1|-feb-93.|
|000000d0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000e0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000f0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000100| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000110| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 31 | exist i|n Emacs1|
|00000120| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000130| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000140| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000150| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|.. (|
|00000180| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000190| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001a0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)). (|error "T|
|000001b0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001c0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 31 |piled fo|r Emacs1|
|000001d0| 39 2e 22 29 29 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |9."))..(|byte-cod|
|000001e0| 65 20 22 c0 c1 21 88 c2 | c3 21 87 22 20 5b 70 72 |e "..!..|.!." [pr|
|000001f0| 6f 76 69 64 65 20 74 65 | 72 6d 69 6e 61 6c 20 72 |ovide te|rminal r|
|00000200| 65 71 75 69 72 65 20 65 | 68 65 6c 70 5d 20 32 29 |equire e|help] 2)|
|00000210| 0a 28 64 65 66 76 61 72 | 20 74 65 72 6d 69 6e 61 |.(defvar| termina|
|00000220| 6c 2d 65 73 63 61 70 65 | 2d 63 68 61 72 20 33 30 |l-escape|-char 30|
|00000230| 20 22 5c 0a 2a 41 6c 6c | 20 63 68 61 72 61 63 74 | "\.*All| charact|
|00000240| 65 72 73 20 65 78 63 65 | 70 74 20 66 6f 72 20 74 |ers exce|pt for t|
|00000250| 68 69 73 20 61 72 65 20 | 70 61 73 73 65 64 20 76 |his are |passed v|
|00000260| 65 72 62 61 74 69 6d 20 | 74 68 72 6f 75 67 68 20 |erbatim |through |
|00000270| 74 68 65 0a 74 65 72 6d | 69 6e 61 6c 2d 65 6d 75 |the.term|inal-emu|
|00000280| 6c 61 74 6f 72 2e 20 20 | 54 68 69 73 20 63 68 61 |lator. |This cha|
|00000290| 72 61 63 74 65 72 20 61 | 63 74 73 20 61 73 20 61 |racter a|cts as a|
|000002a0| 20 70 72 65 66 69 78 20 | 66 6f 72 20 63 6f 6d 6d | prefix |for comm|
|000002b0| 61 6e 64 73 0a 74 6f 20 | 74 68 65 20 65 6d 75 6c |ands.to |the emul|
|000002c0| 61 74 6f 72 20 70 72 6f | 67 72 61 6d 20 69 74 73 |ator pro|gram its|
|000002d0| 65 6c 66 2e 20 20 54 79 | 70 65 20 74 68 69 73 20 |elf. Ty|pe this |
|000002e0| 63 68 61 72 61 63 74 65 | 72 20 74 77 69 63 65 20 |characte|r twice |
|000002f0| 74 6f 20 73 65 6e 64 0a | 69 74 20 74 68 72 6f 75 |to send.|it throu|
|00000300| 67 68 20 74 68 65 20 65 | 6d 75 6c 61 74 6f 72 2e |gh the e|mulator.|
|00000310| 20 20 54 79 70 65 20 3f | 20 61 66 74 65 72 20 74 | Type ?| after t|
|00000320| 79 70 69 6e 67 20 69 74 | 20 66 6f 72 20 61 20 6c |yping it| for a l|
|00000330| 69 73 74 20 6f 66 0a 70 | 6f 73 73 69 62 6c 65 20 |ist of.p|ossible |
|00000340| 63 6f 6d 6d 61 6e 64 73 | 2e 0a 54 68 69 73 20 76 |commands|..This v|
|00000350| 61 72 69 61 62 6c 65 20 | 69 73 20 6c 6f 63 61 6c |ariable |is local|
|00000360| 20 74 6f 20 65 61 63 68 | 20 74 65 72 6d 69 6e 61 | to each| termina|
|00000370| 6c 2d 65 6d 75 6c 61 74 | 6f 72 20 62 75 66 66 65 |l-emulat|or buffe|
|00000380| 72 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 72 |r.").(de|fvar ter|
|00000390| 6d 69 6e 61 6c 2d 73 63 | 72 6f 6c 6c 69 6e 67 20 |minal-sc|rolling |
|000003a0| 74 20 22 5c 0a 2a 49 66 | 20 6e 6f 6e 2d 6e 69 6c |t "\.*If| non-nil|
|000003b0| 2c 20 74 68 65 20 74 65 | 72 6d 69 6e 61 6c 2d 65 |, the te|rminal-e|
|000003c0| 6d 75 6c 61 74 6f 72 20 | 77 69 6c 6c 20 60 73 63 |mulator |will `sc|
|000003d0| 72 6f 6c 6c 27 20 77 68 | 65 6e 20 6f 75 74 70 75 |roll' wh|en outpu|
|000003e0| 74 20 6f 63 63 75 72 73 | 0a 70 61 73 74 20 74 68 |t occurs|.past th|
|000003f0| 65 20 62 6f 74 74 6f 6d | 20 6f 66 20 74 68 65 20 |e bottom| of the |
|00000400| 73 63 72 65 65 6e 2e 20 | 20 49 66 20 6e 69 6c 2c |screen. | If nil,|
|00000410| 20 6f 75 74 70 75 74 20 | 77 69 6c 6c 20 60 77 72 | output |will `wr|
|00000420| 61 70 27 20 74 6f 20 74 | 68 65 20 74 6f 70 0a 6f |ap' to t|he top.o|
|00000430| 66 20 74 68 65 20 73 63 | 72 65 65 6e 2e 0a 54 68 |f the sc|reen..Th|
|00000440| 69 73 20 76 61 72 69 61 | 62 6c 65 20 69 73 20 6c |is varia|ble is l|
|00000450| 6f 63 61 6c 20 74 6f 20 | 65 61 63 68 20 74 65 72 |ocal to |each ter|
|00000460| 6d 69 6e 61 6c 2d 65 6d | 75 6c 61 74 6f 72 20 62 |minal-em|ulator b|
|00000470| 75 66 66 65 72 2e 22 29 | 0a 28 64 65 66 76 61 72 |uffer.")|.(defvar|
|00000480| 20 74 65 72 6d 69 6e 61 | 6c 2d 6d 6f 72 65 2d 70 | termina|l-more-p|
|00000490| 72 6f 63 65 73 73 69 6e | 67 20 74 20 22 5c 0a 2a |rocessin|g t "\.*|
|000004a0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 64 6f 20 6d |If non-n|il, do m|
|000004b0| 6f 72 65 2d 70 72 6f 63 | 65 73 73 69 6e 67 2e 0a |ore-proc|essing..|
|000004c0| 54 68 69 73 20 76 61 72 | 69 61 62 6c 65 20 69 73 |This var|iable is|
|000004d0| 20 6c 6f 63 61 6c 20 74 | 6f 20 65 61 63 68 20 74 | local t|o each t|
|000004e0| 65 72 6d 69 6e 61 6c 2d | 65 6d 75 6c 61 74 6f 72 |erminal-|emulator|
|000004f0| 20 62 75 66 66 65 72 2e | 22 29 0a 28 64 65 66 76 | buffer.|").(defv|
|00000500| 61 72 20 74 65 72 6d 69 | 6e 61 6c 2d 72 65 64 69 |ar termi|nal-redi|
|00000510| 73 70 6c 61 79 2d 69 6e | 74 65 72 76 61 6c 20 35 |splay-in|terval 5|
|00000520| 30 30 30 20 22 5c 0a 2a | 4d 61 78 69 6d 75 6d 20 |000 "\.*|Maximum |
|00000530| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 61 63 |number o|f charac|
|00000540| 74 65 72 73 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |ters whi|ch will |
|00000550| 62 65 20 70 72 6f 63 65 | 73 73 65 64 20 62 79 20 |be proce|ssed by |
|00000560| 74 68 65 0a 74 65 72 6d | 69 6e 61 6c 2d 65 6d 75 |the.term|inal-emu|
|00000570| 6c 61 74 6f 72 20 62 65 | 66 6f 72 65 20 61 20 73 |lator be|fore a s|
|00000580| 63 72 65 65 6e 20 72 65 | 64 69 73 70 6c 61 79 20 |creen re|display |
|00000590| 69 73 20 66 6f 72 63 65 | 64 2e 0a 53 65 74 20 74 |is force|d..Set t|
|000005a0| 68 69 73 20 74 6f 20 61 | 20 6c 61 72 67 65 20 76 |his to a| large v|
|000005b0| 61 6c 75 65 20 66 6f 72 | 20 67 72 65 61 74 65 72 |alue for| greater|
|000005c0| 20 74 68 72 6f 75 67 68 | 70 75 74 2c 0a 73 65 74 | through|put,.set|
|000005d0| 20 69 74 20 73 6d 61 6c | 6c 65 72 20 66 6f 72 20 | it smal|ler for |
|000005e0| 6d 6f 72 65 20 66 72 65 | 71 75 65 6e 74 20 75 70 |more fre|quent up|
|000005f0| 64 61 74 65 73 20 62 75 | 74 20 6f 76 65 72 61 6c |dates bu|t overal|
|00000600| 6c 20 73 6c 6f 77 65 72 | 0a 70 65 72 66 6f 72 6d |l slower|.perform|
|00000610| 61 6e 63 65 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ance.").|(byte-co|
|00000620| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c0 c3 21 ac 82 |de "..!.|.....!..|
|00000630| c4 13 c0 c5 21 ac 82 c4 | 15 c0 c6 21 ac 83 c4 16 |....!...|...!....|
|00000640| 06 0d ac a4 c7 20 c8 1e | 09 1e 5c 6e 0e 09 cb 57 |..... ..|..\n...W|
|00000650| ab 93 cc 0e 5c 6e cd ce | 0e 09 5c 22 cf 23 88 0e |....\n..|..\".#..|
|00000660| 09 54 89 16 09 aa 69 0e | 5c 6e 15 2a 0b 84 ce 00 |.T....i.|\n.*....|
|00000670| c7 20 c8 1e 09 1e 5c 6e | 0e 09 cb 57 ab 93 cc 0e |. ....\n|...W....|
|00000680| 5c 6e cd ce 0e 09 5c 22 | d0 23 88 0e 09 54 89 16 |\n....\"|.#...T..|
|00000690| 09 aa 69 d1 1e 12 0e 12 | c8 48 d3 58 ab 94 cc 0e |..i.....|.H.X....|
|000006a0| 5c 6e 0e 12 d4 23 88 0e | 12 c8 0e 12 c8 48 54 49 |\n...#..|.....HTI|
|000006b0| 88 aa 64 29 cc 0e 5c 6e | d5 d6 23 88 cc 0e 5c 6e |..d)..\n|..#...\n|
|000006c0| d7 d8 23 88 cc 0e 5c 6e | d9 da 23 88 cc 0e 5c 6e |..#...\n|..#...\n|
|000006d0| db dc 23 88 cc 0e 5c 6e | dd de 23 88 cc 0e 5c 6e |..#...\n|..#...\n|
|000006e0| df e0 23 88 cc 0e 5c 6e | e1 e2 23 88 cc 0e 5c 6e |..#...\n|..#...\n|
|000006f0| e3 e4 23 88 cc 0e 5c 6e | e5 0e 26 21 e4 23 88 0e |..#...\n|..&!.#..|
|00000700| 5c 6e 13 2a c0 e7 21 ac | 83 c4 16 27 0e 27 ac 83 |\n.*..!.|...'.'..|
|00000710| e8 16 27 0e 06 ac cb c7 | 20 c8 1e 09 1e 5c 6e 0e |..'.....| ....\n.|
|00000720| 09 cb 57 ab 93 cc 0e 5c | 6e cd ce 0e 09 5c 22 e9 |..W....\|n....\".|
|00000730| 23 88 0e 09 54 89 16 09 | aa 69 cc 0e 5c 6e e5 0e |#...T...|.i..\n..|
|00000740| 26 21 ea 23 88 cc 0e 5c | 6e eb ec 23 88 cc 0e 5c |&!.#...\|n..#...\|
|00000750| 6e db dc 23 88 cc 0e 5c | 6e dd ed 23 88 cc 0e 5c |n..#...\|n..#...\|
|00000760| 6e ee ef 23 88 0e 5c 6e | 16 06 2a f0 f1 4d 87 22 |n..#..\n|..*..M."|
|00000770| 20 5b 62 6f 75 6e 64 70 | 20 74 65 72 6d 69 6e 61 | [boundp| termina|
|00000780| 6c 2d 6d 6f 72 65 2d 62 | 72 65 61 6b 2d 69 6e 73 |l-more-b|reak-ins|
|00000790| 65 72 74 69 6f 6e 20 22 | 2a 2a 2a 20 4d 6f 72 65 |ertion "|*** More|
|000007a0| 20 62 72 65 61 6b 20 2d | 2d 20 50 72 65 73 73 20 | break -|- Press |
|000007b0| 73 70 61 63 65 20 74 6f | 20 63 6f 6e 74 69 6e 75 |space to| continu|
|000007c0| 65 20 2a 2a 2a 22 20 74 | 65 72 6d 69 6e 61 6c 2d |e ***" t|erminal-|
|000007d0| 65 73 63 61 70 65 2d 6d | 61 70 20 6e 69 6c 20 74 |escape-m|ap nil t|
|000007e0| 65 72 6d 69 6e 61 6c 2d | 6d 61 70 20 74 65 72 6d |erminal-|map term|
|000007f0| 69 6e 61 6c 2d 6d 6f 72 | 65 2d 62 72 65 61 6b 2d |inal-mor|e-break-|
|00000800| 6d 61 70 20 6d 61 6b 65 | 2d 6b 65 79 6d 61 70 20 |map make|-keymap |
|00000810| 30 20 69 20 6d 61 70 20 | 31 32 38 20 64 65 66 69 |0 i map |128 defi|
|00000820| 6e 65 2d 6b 65 79 20 6d | 61 6b 65 2d 73 74 72 69 |ne-key m|ake-stri|
|00000830| 6e 67 20 31 20 74 65 2d | 70 61 73 73 2d 74 68 72 |ng 1 te-|pass-thr|
|00000840| 6f 75 67 68 20 75 6e 64 | 65 66 69 6e 65 64 20 22 |ough und|efined "|
|00000850| 30 22 20 73 20 35 37 20 | 64 69 67 69 74 2d 61 72 |0" s 57 |digit-ar|
|00000860| 67 75 6d 65 6e 74 20 22 | 62 22 20 73 77 69 74 63 |gument "|b" switc|
|00000870| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 22 6f 22 20 |h-to-buf|fer "o" |
|00000880| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 20 22 65 22 |other-wi|ndow "e"|
|00000890| 20 74 65 2d 73 65 74 2d | 65 73 63 61 70 65 2d 63 | te-set-|escape-c|
|000008a0| 68 61 72 20 22 0c 22 20 | 72 65 64 72 61 77 2d 64 |har "." |redraw-d|
|000008b0| 69 73 70 6c 61 79 20 22 | 0f 22 20 74 65 2d 66 6c |isplay "|." te-fl|
|000008c0| 75 73 68 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 |ush-pend|ing-outp|
|000008d0| 75 74 20 22 6d 22 20 74 | 65 2d 74 6f 67 67 6c 65 |ut "m" t|e-toggle|
|000008e0| 2d 6d 6f 72 65 2d 70 72 | 6f 63 65 73 73 69 6e 67 |-more-pr|ocessing|
|000008f0| 20 22 78 22 20 74 65 2d | 65 73 63 61 70 65 2d 65 | "x" te-|escape-e|
|00000900| 78 74 65 6e 64 65 64 2d | 63 6f 6d 6d 61 6e 64 20 |xtended-|command |
|00000910| 22 3f 22 20 74 65 2d 65 | 73 63 61 70 65 2d 68 65 |"?" te-e|scape-he|
|00000920| 6c 70 20 63 68 61 72 2d | 74 6f 2d 73 74 72 69 6e |lp char-|to-strin|
|00000930| 67 20 68 65 6c 70 2d 63 | 68 61 72 20 74 65 2d 65 |g help-c|har te-e|
|00000940| 73 63 61 70 65 2d 63 6f | 6d 6d 61 6e 64 2d 61 6c |scape-co|mmand-al|
|00000950| 69 73 74 20 28 28 22 53 | 65 74 20 45 73 63 61 70 |ist (("S|et Escap|
|00000960| 65 20 43 68 61 72 61 63 | 74 65 72 22 20 2e 20 74 |e Charac|ter" . t|
|00000970| 65 2d 73 65 74 2d 65 73 | 63 61 70 65 2d 63 68 61 |e-set-es|cape-cha|
|00000980| 72 29 20 28 22 52 65 66 | 72 65 73 68 22 20 2e 20 |r) ("Ref|resh" . |
|00000990| 72 65 64 72 61 77 2d 64 | 69 73 70 6c 61 79 29 20 |redraw-d|isplay) |
|000009a0| 28 22 52 65 63 6f 72 64 | 20 4f 75 74 70 75 74 22 |("Record| Output"|
|000009b0| 20 2e 20 74 65 2d 73 65 | 74 2d 6f 75 74 70 75 74 | . te-se|t-output|
|000009c0| 2d 6c 6f 67 29 20 28 22 | 50 68 6f 74 6f 22 20 2e |-log) ("|Photo" .|
|000009d0| 20 74 65 2d 73 65 74 2d | 6f 75 74 70 75 74 2d 6c | te-set-|output-l|
|000009e0| 6f 67 29 20 28 22 54 6f | 66 75 22 20 2e 20 74 65 |og) ("To|fu" . te|
|000009f0| 2d 74 6f 66 75 29 20 28 | 22 53 74 75 66 66 20 49 |-tofu) (|"Stuff I|
|00000a00| 6e 70 75 74 22 20 2e 20 | 74 65 2d 73 74 75 66 66 |nput" . |te-stuff|
|00000a10| 2d 73 74 72 69 6e 67 29 | 20 28 22 46 6c 75 73 68 |-string)| ("Flush|
|00000a20| 20 50 65 6e 64 69 6e 67 | 20 4f 75 74 70 75 74 22 | Pending| Output"|
|00000a30| 20 2e 20 74 65 2d 66 6c | 75 73 68 2d 70 65 6e 64 | . te-fl|ush-pend|
|00000a40| 69 6e 67 2d 6f 75 74 70 | 75 74 29 20 28 22 45 6e |ing-outp|ut) ("En|
|00000a50| 61 62 6c 65 20 4d 6f 72 | 65 20 50 72 6f 63 65 73 |able Mor|e Proces|
|00000a60| 73 69 6e 67 22 20 2e 20 | 74 65 2d 65 6e 61 62 6c |sing" . |te-enabl|
|00000a70| 65 2d 6d 6f 72 65 2d 70 | 72 6f 63 65 73 73 69 6e |e-more-p|rocessin|
|00000a80| 67 29 20 28 22 44 69 73 | 61 62 6c 65 20 4d 6f 72 |g) ("Dis|able Mor|
|00000a90| 65 20 50 72 6f 63 65 73 | 73 69 6e 67 22 20 2e 20 |e Proces|sing" . |
|00000aa0| 74 65 2d 64 69 73 61 62 | 6c 65 2d 6d 6f 72 65 2d |te-disab|le-more-|
|00000ab0| 70 72 6f 63 65 73 73 69 | 6e 67 29 20 28 22 53 63 |processi|ng) ("Sc|
|00000ac0| 72 6f 6c 6c 20 61 74 20 | 65 6e 64 20 6f 66 20 70 |roll at |end of p|
|00000ad0| 61 67 65 22 20 2e 20 74 | 65 2d 64 6f 2d 73 63 72 |age" . t|e-do-scr|
|00000ae0| 6f 6c 6c 69 6e 67 29 20 | 28 22 57 72 61 70 20 61 |olling) |("Wrap a|
|00000af0| 74 20 65 6e 64 20 6f 66 | 20 70 61 67 65 22 20 2e |t end of| page" .|
|00000b00| 20 74 65 2d 64 6f 2d 77 | 72 61 70 70 69 6e 67 29 | te-do-w|rapping)|
|00000b10| 20 28 22 53 77 69 74 63 | 68 20 54 6f 20 42 75 66 | ("Switc|h To Buf|
|00000b20| 66 65 72 22 20 2e 20 73 | 77 69 74 63 68 2d 74 6f |fer" . s|witch-to|
|00000b30| 2d 62 75 66 66 65 72 29 | 20 28 22 4f 74 68 65 72 |-buffer)| ("Other|
|00000b40| 20 57 69 6e 64 6f 77 22 | 20 2e 20 6f 74 68 65 72 | Window"| . other|
|00000b50| 2d 77 69 6e 64 6f 77 29 | 20 28 22 4b 69 6c 6c 20 |-window)| ("Kill |
|00000b60| 42 75 66 66 65 72 22 20 | 2e 20 6b 69 6c 6c 2d 62 |Buffer" |. kill-b|
|00000b70| 75 66 66 65 72 29 20 28 | 22 48 65 6c 70 22 20 2e |uffer) (|"Help" .|
|00000b80| 20 74 65 2d 65 73 63 61 | 70 65 2d 68 65 6c 70 29 | te-esca|pe-help)|
|00000b90| 20 28 22 53 65 74 20 52 | 65 64 69 73 70 6c 61 79 | ("Set R|edisplay|
|00000ba0| 20 49 6e 74 65 72 76 61 | 6c 22 20 2e 20 74 65 2d | Interva|l" . te-|
|00000bb0| 73 65 74 2d 72 65 64 69 | 73 70 6c 61 79 2d 69 6e |set-redi|splay-in|
|00000bc0| 74 65 72 76 61 6c 29 29 | 20 74 65 2d 6d 6f 72 65 |terval))| te-more|
|00000bd0| 2d 62 72 65 61 6b 2d 75 | 6e 72 65 61 64 20 74 65 |-break-u|nread te|
|00000be0| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 68 65 6c 70 |-more-br|eak-help|
|00000bf0| 20 22 20 22 20 74 65 2d | 6d 6f 72 65 2d 62 72 65 | " " te-|more-bre|
|00000c00| 61 6b 2d 72 65 73 75 6d | 65 20 74 65 2d 6d 6f 72 |ak-resum|e te-mor|
|00000c10| 65 2d 62 72 65 61 6b 2d | 66 6c 75 73 68 2d 70 65 |e-break-|flush-pe|
|00000c20| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 20 22 0d 22 |nding-ou|tput "."|
|00000c30| 20 74 65 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 61 | te-more|-break-a|
|00000c40| 64 76 61 6e 63 65 2d 6f | 6e 65 2d 6c 69 6e 65 20 |dvance-o|ne-line |
|00000c50| 74 65 2d 65 73 63 61 70 | 65 20 23 5b 6e 69 6c 20 |te-escap|e #[nil |
|00000c60| 22 c0 c1 20 c2 20 1b 1c | 1d c6 8e c7 0e 08 21 88 |".. . ..|......!.|
|00000c70| c9 0e 08 21 88 ca 0e 0b | ab 89 cc cd ce 0e 0b 21 |...!....|.......!|
|00000c80| 5c 22 aa 81 cf 21 15 29 | d0 d1 21 88 0d d2 d3 0e |\"...!.)|..!.....|
|00000c90| 14 5c 22 98 ab 8c 0e 14 | 16 15 d6 1e 14 d7 20 29 |.\".....|...... )|
|00000ca0| aa 8c d8 0e 08 0d 5c 22 | 89 15 ad 83 d9 0d 21 2b |......\"|......!+|
|00000cb0| 87 22 20 5b 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |." [nil |current-|
|00000cc0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 63 75 72 72 65 6e |local-ma|p curren|
|00000cd0| 74 2d 67 6c 6f 62 61 6c | 2d 6d 61 70 20 67 6c 6f |t-global|-map glo|
|00000ce0| 62 61 6c 20 6c 6f 63 61 | 6c 20 73 20 28 28 62 79 |bal loca|l s ((by|
|00000cf0| 74 65 2d 63 6f 64 65 20 | 22 c0 09 21 88 c2 0b 21 |te-code |"..!...!|
|00000d00| 87 22 20 5b 75 73 65 2d | 67 6c 6f 62 61 6c 2d 6d |." [use-|global-m|
|00000d10| 61 70 20 67 6c 6f 62 61 | 6c 20 75 73 65 2d 6c 6f |ap globa|l use-lo|
|00000d20| 63 61 6c 2d 6d 61 70 20 | 6c 6f 63 61 6c 5d 20 32 |cal-map |local] 2|
|00000d30| 29 29 20 75 73 65 2d 67 | 6c 6f 62 61 6c 2d 6d 61 |)) use-g|lobal-ma|
|00000d40| 70 20 74 65 72 6d 69 6e | 61 6c 2d 65 73 63 61 70 |p termin|al-escap|
|00000d50| 65 2d 6d 61 70 20 75 73 | 65 2d 6c 6f 63 61 6c 2d |e-map us|e-local-|
|00000d60| 6d 61 70 20 72 65 61 64 | 2d 6b 65 79 2d 73 65 71 |map read|-key-seq|
|00000d70| 75 65 6e 63 65 20 70 72 | 65 66 69 78 2d 61 72 67 |uence pr|efix-arg|
|00000d80| 20 66 6f 72 6d 61 74 20 | 22 45 6d 61 63 73 20 54 | format |"Emacs T|
|00000d90| 65 72 6d 69 6e 61 6c 20 | 65 73 63 61 70 65 3e 20 |erminal |escape> |
|00000da0| 25 64 20 22 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |%d " pre|fix-nume|
|00000db0| 72 69 63 2d 76 61 6c 75 | 65 20 22 45 6d 61 63 73 |ric-valu|e "Emacs|
|00000dc0| 20 54 65 72 6d 69 6e 61 | 6c 20 65 73 63 61 70 65 | Termina|l escape|
|00000dd0| 3e 20 22 20 6d 65 73 73 | 61 67 65 20 22 22 20 6d |> " mess|age "" m|
|00000de0| 61 6b 65 2d 73 74 72 69 | 6e 67 20 31 20 74 65 72 |ake-stri|ng 1 ter|
|00000df0| 6d 69 6e 61 6c 2d 65 73 | 63 61 70 65 2d 63 68 61 |minal-es|cape-cha|
|00000e00| 72 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |r last-c|ommand-c|
|00000e10| 68 61 72 20 2d 32 35 39 | 20 74 65 2d 70 61 73 73 |har -259| te-pass|
|00000e20| 2d 74 68 72 6f 75 67 68 | 20 6c 6f 6f 6b 75 70 2d |-through| lookup-|
|00000e30| 6b 65 79 20 63 61 6c 6c | 2d 69 6e 74 65 72 61 63 |key call|-interac|
|00000e40| 74 69 76 65 6c 79 5d 20 | 35 20 6e 69 6c 20 6e 69 |tively] |5 nil ni|
|00000e50| 6c 5d 5d 20 36 29 0a 28 | 66 73 65 74 20 27 74 65 |l]] 6).(|fset 'te|
|00000e60| 2d 65 73 63 61 70 65 2d | 68 65 6c 70 20 23 5b 6e |-escape-|help #[n|
|00000e70| 69 6c 20 22 c0 c1 21 88 | c2 0b 21 1c c5 c6 21 29 |il "..!.|..!...!)|
|00000e80| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 22 54 65 72 |." [mess|age "Ter|
|00000e90| 6d 69 6e 61 6c 20 65 6d | 75 6c 61 74 6f 72 20 65 |minal em|ulator e|
|00000ea0| 73 63 61 70 65 20 68 65 | 6c 70 2e 2e 2e 22 20 73 |scape he|lp..." s|
|00000eb0| 69 6e 67 6c 65 2d 6b 65 | 79 2d 64 65 73 63 72 69 |ingle-ke|y-descri|
|00000ec0| 70 74 69 6f 6e 20 74 65 | 72 6d 69 6e 61 6c 2d 65 |ption te|rminal-e|
|00000ed0| 73 63 61 70 65 2d 63 68 | 61 72 20 63 68 61 72 20 |scape-ch|ar char |
|00000ee0| 77 69 74 68 2d 65 6c 65 | 63 74 72 69 63 2d 68 65 |with-ele|ctric-he|
|00000ef0| 6c 70 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 0b 89 89 |lp #[nil| "......|
|00000f00| 89 25 21 88 c0 c4 c5 21 | 21 88 c0 c1 c6 c7 c8 0e |.%!....!|!.......|
|00000f10| 09 ca 23 c8 23 21 88 cb | cc 21 ab 89 cc cd 0e 0e |..#.#!..|.!......|
|00000f20| 21 cf 5c 22 aa 87 d0 cd | 0e 0e 21 d1 5c 22 89 1e |!.\"....|..!.\"..|
|00000f30| 12 ab bb d3 0e 12 40 41 | 21 ae 81 d4 1e 15 d6 d7 |......@A|!.......|
|00000f40| 0e 15 5c 22 ab 88 0e 15 | d8 89 94 4f 16 15 c0 d9 |..\"....|...O....|
|00000f50| 21 88 c0 0e 12 40 40 21 | 88 c0 da 21 88 c0 0e 15 |!....@@!|...!....|
|00000f60| 21 88 db dc 21 88 29 0e | 12 41 89 16 12 ac 45 29 |!...!.).|.A....E)|
|00000f70| dd 87 22 20 5b 70 72 69 | 6e 63 20 66 6f 72 6d 61 |.." [pri|nc forma|
|00000f80| 74 20 22 54 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |t "Termi|nal-emul|
|00000f90| 61 74 6f 72 20 65 73 63 | 61 70 65 2c 20 69 6e 76 |ator esc|ape, inv|
|00000fa0| 6f 6b 65 64 20 62 79 20 | 5c 22 25 73 5c 22 5c 6e |oked by |\"%s\"\n|
|00000fb0| 54 79 70 65 20 5c 22 25 | 73 5c 22 20 74 77 69 63 |Type \"%|s\" twic|
|00000fc0| 65 20 74 6f 20 73 65 6e | 64 20 61 20 73 69 6e 67 |e to sen|d a sing|
|00000fd0| 6c 65 20 5c 22 25 73 5c | 22 20 74 68 72 6f 75 67 |le \"%s\|" throug|
|00000fe0| 68 2e 5c 6e 5c 6e 4f 74 | 68 65 72 20 63 68 61 72 |h.\n\nOt|her char|
|00000ff0| 73 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 5c 22 25 73 |s follow|ing \"%s|
|00001000| 5c 22 20 61 72 65 20 69 | 6e 74 65 72 70 72 65 74 |\" are i|nterpret|
|00001010| 65 64 20 61 73 20 66 6f | 6c 6c 6f 77 73 3a 5c 6e |ed as fo|llows:\n|
|00001020| 22 20 63 68 61 72 20 73 | 75 62 73 74 69 74 75 74 |" char s|ubstitut|
|00001030| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00001040| 5c 5c 7b 74 65 72 6d 69 | 6e 61 6c 2d 65 73 63 61 |\\{termi|nal-esca|
|00001050| 70 65 2d 6d 61 70 7d 5c | 6e 22 20 22 5c 6e 53 75 |pe-map}\|n" "\nSu|
|00001060| 62 63 6f 6d 6d 61 6e 64 | 73 20 6f 66 20 5c 22 25 |bcommand|s of \"%|
|00001070| 73 5c 22 20 28 25 73 29 | 5c 6e 22 20 77 68 65 72 |s\" (%s)|\n" wher|
|00001080| 65 2d 69 73 2d 69 6e 74 | 65 72 6e 61 6c 20 74 65 |e-is-int|ernal te|
|00001090| 2d 65 73 63 61 70 65 2d | 65 78 74 65 6e 64 65 64 |-escape-|extended|
|000010a0| 2d 63 6f 6d 6d 61 6e 64 | 20 74 65 72 6d 69 6e 61 |-command| termina|
|000010b0| 6c 2d 65 73 63 61 70 65 | 2d 6d 61 70 20 74 20 66 |l-escape|-map t f|
|000010c0| 62 6f 75 6e 64 70 20 73 | 6f 72 74 63 61 72 20 63 |boundp s|ortcar c|
|000010d0| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 74 65 2d |opy-sequ|ence te-|
|000010e0| 65 73 63 61 70 65 2d 63 | 6f 6d 6d 61 6e 64 2d 61 |escape-c|ommand-a|
|000010f0| 6c 69 73 74 20 73 74 72 | 69 6e 67 3c 20 73 6f 72 |list str|ing< sor|
|00001100| 74 20 23 5b 28 61 20 62 | 29 20 22 08 40 09 40 99 |t #[(a b|) ".@.@.|
|00001110| 87 22 20 5b 61 20 62 5d | 20 32 5d 20 6c 20 64 6f |." [a b]| 2] l do|
|00001120| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 22 4e 6f 74 |cumentat|ion "Not|
|00001130| 20 64 6f 63 75 6d 65 6e | 74 65 64 22 20 64 6f 63 | documen|ted" doc|
|00001140| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c | string-|match "\|
|00001150| 6e 22 20 30 20 22 20 20 | 5c 22 22 20 22 5c 22 3a |n" 0 " |\"" "\":|
|00001160| 5c 6e 20 20 20 20 20 22 | 20 77 72 69 74 65 2d 63 |\n "| write-c|
|00001170| 68 61 72 20 31 30 20 6e | 69 6c 5d 20 38 5d 5d 20 |har 10 n|il] 8]] |
|00001180| 32 20 22 5c 0a 50 72 6f | 76 69 64 65 20 68 65 6c |2 "\.Pro|vide hel|
|00001190| 70 20 6f 6e 20 63 6f 6d | 6d 61 6e 64 73 20 61 76 |p on com|mands av|
|000011a0| 61 69 6c 61 62 6c 65 20 | 61 66 74 65 72 20 74 65 |ailable |after te|
|000011b0| 72 6d 69 6e 61 6c 2d 65 | 73 63 61 70 65 2d 63 68 |rminal-e|scape-ch|
|000011c0| 61 72 20 69 73 20 74 79 | 70 65 64 2e 22 20 6e 69 |ar is ty|ped." ni|
|000011d0| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|000011e0| c0 c1 4d 88 c2 c3 4d 87 | 22 20 5b 74 65 2d 65 73 |..M...M.|" [te-es|
|000011f0| 63 61 70 65 2d 65 78 74 | 65 6e 64 65 64 2d 63 6f |cape-ext|ended-co|
|00001200| 6d 6d 61 6e 64 20 23 5b | 6e 69 6c 20 22 c0 19 c2 |mmand #[|nil "...|
|00001210| c3 0c c5 c0 24 29 89 1e | 06 ad 83 c7 c8 8d 29 87 |....$)..|......).|
|00001220| 22 20 5b 74 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |" [t com|pletion-|
|00001230| 69 67 6e 6f 72 65 2d 63 | 61 73 65 20 63 6f 6d 70 |ignore-c|ase comp|
|00001240| 6c 65 74 69 6e 67 2d 72 | 65 61 64 20 22 74 65 72 |leting-r|ead "ter|
|00001250| 6d 69 6e 61 6c 20 63 6f | 6d 6d 61 6e 64 3a 20 22 |minal co|mmand: "|
|00001260| 20 74 65 2d 65 73 63 61 | 70 65 2d 63 6f 6d 6d 61 | te-esca|pe-comma|
|00001270| 6e 64 2d 61 6c 69 73 74 | 20 6e 69 6c 20 63 20 66 |nd-alist| nil c f|
|00001280| 6f 6f 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |oo (byte|-code ".|
|00001290| 97 10 09 1a 5c 6e ad 9a | 08 5c 6e 40 40 97 98 ab |....\n..|.\n@@...|
|000012a0| 8b c3 c4 c5 5c 6e 40 41 | 21 5c 22 88 aa 6a 5c 6e |....\n@A|!\"..j\n|
|000012b0| 41 89 12 ac 67 c6 29 87 | 22 20 5b 63 20 74 65 2d |A...g.).|" [c te-|
|000012c0| 65 73 63 61 70 65 2d 63 | 6f 6d 6d 61 6e 64 2d 61 |escape-c|ommand-a|
|000012d0| 6c 69 73 74 20 6c 20 74 | 68 72 6f 77 20 66 6f 6f |list l t|hrow foo|
|000012e0| 20 63 61 6c 6c 2d 69 6e | 74 65 72 61 63 74 69 76 | call-in|teractiv|
|000012f0| 65 6c 79 20 6e 69 6c 5d | 20 35 29 5d 20 36 20 6e |ely nil]| 5)] 6 n|
|00001300| 69 6c 20 6e 69 6c 5d 20 | 74 65 2d 65 73 63 61 70 |il nil] |te-escap|
|00001310| 65 2d 65 78 74 65 6e 64 | 65 64 2d 63 6f 6d 6d 61 |e-extend|ed-comma|
|00001320| 6e 64 2d 75 6e 72 65 61 | 64 20 23 5b 6e 69 6c 20 |nd-unrea|d #[nil |
|00001330| 22 08 11 c2 20 87 22 20 | 5b 6c 61 73 74 2d 63 6f |"... ." |[last-co|
|00001340| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 20 75 6e 72 65 |mmand-ev|ent unre|
|00001350| 61 64 2d 63 6f 6d 6d 61 | 6e 64 2d 65 76 65 6e 74 |ad-comma|nd-event|
|00001360| 20 74 65 2d 65 73 63 61 | 70 65 2d 65 78 74 65 6e | te-esca|pe-exten|
|00001370| 64 65 64 2d 63 6f 6d 6d | 61 6e 64 5d 20 31 20 6e |ded-comm|and] 1 n|
|00001380| 69 6c 20 6e 69 6c 5d 5d | 20 32 29 0a 28 66 73 65 |il nil]]| 2).(fse|
|00001390| 74 20 27 74 65 2d 73 65 | 74 2d 65 73 63 61 70 65 |t 'te-se|t-escape|
|000013a0| 2d 63 68 61 72 20 23 5b | 28 63 29 20 22 08 19 c2 |-char #[|(c) "...|
|000013b0| 09 0b 55 ab 83 c4 aa 81 | c5 c6 0b 21 c6 09 21 23 |..U.....|...!..!#|
|000013c0| 88 0b 89 10 29 87 22 20 | 5b 74 65 72 6d 69 6e 61 |....)." |[termina|
|000013d0| 6c 2d 65 73 63 61 70 65 | 2d 63 68 61 72 20 6f 20 |l-escape|-char o |
|000013e0| 6d 65 73 73 61 67 65 20 | 63 20 22 5c 22 25 73 5c |message |c "\"%s\|
|000013f0| 22 20 69 73 20 65 73 63 | 61 70 65 20 63 68 61 72 |" is esc|ape char|
|00001400| 22 20 22 5c 22 25 73 5c | 22 20 69 73 20 6e 6f 77 |" "\"%s\|" is now|
|00001410| 20 65 73 63 61 70 65 3b | 20 5c 22 25 73 5c 22 20 | escape;| \"%s\" |
|00001420| 70 61 73 73 65 73 20 74 | 68 6f 75 67 68 22 20 73 |passes t|hough" s|
|00001430| 69 6e 67 6c 65 2d 6b 65 | 79 2d 64 65 73 63 72 69 |ingle-ke|y-descri|
|00001440| 70 74 69 6f 6e 5d 20 35 | 20 22 5c 0a 43 68 61 6e |ption] 5| "\.Chan|
|00001450| 67 65 20 74 68 65 20 74 | 65 72 6d 69 6e 61 6c 2d |ge the t|erminal-|
|00001460| 65 6d 75 6c 61 74 6f 72 | 20 65 73 63 61 70 65 20 |emulator| escape |
|00001470| 63 68 61 72 61 63 74 65 | 72 2e 22 20 22 63 53 65 |characte|r." "cSe|
|00001480| 74 20 65 73 63 61 70 65 | 20 63 68 61 72 61 63 74 |t escape| charact|
|00001490| 65 72 20 74 6f 3a 20 22 | 5d 29 0a 28 66 73 65 74 |er to: "|]).(fset|
|000014a0| 20 27 74 65 2d 73 74 75 | 66 66 2d 73 74 72 69 6e | 'te-stu|ff-strin|
|000014b0| 67 20 23 5b 28 73 74 72 | 69 6e 67 29 20 22 c0 09 |g #[(str|ing) "..|
|000014c0| 5c 6e 5c 22 87 22 20 5b | 70 72 6f 63 65 73 73 2d |\n\"." [|process-|
|000014d0| 73 65 6e 64 2d 73 74 72 | 69 6e 67 20 74 65 2d 70 |send-str|ing te-p|
|000014e0| 72 6f 63 65 73 73 20 73 | 74 72 69 6e 67 5d 20 33 |rocess s|tring] 3|
|000014f0| 20 22 5c 0a 52 65 61 64 | 20 61 20 73 74 72 69 6e | "\.Read| a strin|
|00001500| 67 20 74 6f 20 73 65 6e | 64 20 74 6f 20 74 68 72 |g to sen|d to thr|
|00001510| 6f 75 67 68 20 74 68 65 | 20 74 65 72 6d 69 6e 61 |ough the| termina|
|00001520| 6c 20 65 6d 75 6c 61 74 | 6f 72 0a 61 73 20 74 68 |l emulat|or.as th|
|00001530| 6f 75 67 68 20 74 68 61 | 74 20 73 74 72 69 6e 67 |ough tha|t string|
|00001540| 20 68 61 64 20 62 65 65 | 6e 20 74 79 70 65 64 20 | had bee|n typed |
|00001550| 6f 6e 20 74 68 65 20 6b | 65 79 62 6f 61 72 64 2e |on the k|eyboard.|
|00001560| 0a 0a 56 65 72 79 20 70 | 6f 6f 72 20 6d 61 6e 27 |..Very p|oor man'|
|00001570| 73 20 66 69 6c 65 20 74 | 72 61 6e 73 66 65 72 20 |s file t|ransfer |
|00001580| 70 72 6f 74 6f 63 6f 6c | 2e 22 20 22 73 53 74 75 |protocol|." "sStu|
|00001590| 66 66 20 73 74 72 69 6e | 67 3a 20 22 5d 29 0a 28 |ff strin|g: "]).(|
|000015a0| 66 73 65 74 20 27 74 65 | 2d 73 65 74 2d 6f 75 74 |fset 'te|-set-out|
|000015b0| 70 75 74 2d 6c 6f 67 20 | 23 5b 28 6e 61 6d 65 29 |put-log |#[(name)|
|000015c0| 20 22 08 ab 85 08 c1 9a | ab 86 c2 13 c4 c5 21 87 | "......|......!.|
|000015d0| c6 08 21 ac 91 8a c7 08 | 21 71 88 c8 20 88 c9 70 |..!.....|!q.. ..p|
|000015e0| 21 88 ca 20 88 29 c6 08 | 21 13 c4 cb cc 0b 21 5c |!.. .)..|!.....!\|
|000015f0| 22 87 22 20 5b 6e 61 6d | 65 20 22 22 20 6e 69 6c |"." [nam|e "" nil|
|00001600| 20 74 65 2d 6c 6f 67 2d | 62 75 66 66 65 72 20 6d | te-log-|buffer m|
|00001610| 65 73 73 61 67 65 20 22 | 4f 75 74 70 75 74 20 6c |essage "|Output l|
|00001620| 6f 67 67 69 6e 67 20 6f | 66 66 2e 22 20 67 65 74 |ogging o|ff." get|
|00001630| 2d 62 75 66 66 65 72 20 | 67 65 74 2d 62 75 66 66 |-buffer |get-buff|
|00001640| 65 72 2d 63 72 65 61 74 | 65 20 66 75 6e 64 61 6d |er-creat|e fundam|
|00001650| 65 6e 74 61 6c 2d 6d 6f | 64 65 20 62 75 66 66 65 |ental-mo|de buffe|
|00001660| 72 2d 64 69 73 61 62 6c | 65 2d 75 6e 64 6f 20 65 |r-disabl|e-undo e|
|00001670| 72 61 73 65 2d 62 75 66 | 66 65 72 20 22 52 65 63 |rase-buf|fer "Rec|
|00001680| 6f 72 64 69 6e 67 20 74 | 65 72 6d 69 6e 61 6c 20 |ording t|erminal |
|00001690| 65 6d 75 6c 61 74 6f 72 | 20 6f 75 74 70 75 74 20 |emulator| output |
|000016a0| 69 6e 74 6f 20 62 75 66 | 66 65 72 20 5c 22 25 73 |into buf|fer \"%s|
|000016b0| 5c 22 22 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 5d |\"" buff|er-name]|
|000016c0| 20 34 20 22 5c 0a 52 65 | 63 6f 72 64 20 6f 75 74 | 4 "\.Re|cord out|
|000016d0| 70 75 74 20 66 72 6f 6d | 20 74 68 65 20 74 65 72 |put from| the ter|
|000016e0| 6d 69 6e 61 6c 20 65 6d | 75 6c 61 74 6f 72 20 69 |minal em|ulator i|
|000016f0| 6e 20 61 20 62 75 66 66 | 65 72 2e 22 20 28 62 79 |n a buff|er." (by|
|00001700| 74 65 2d 63 6f 64 65 20 | 22 08 3f ad 8a c1 c2 c3 |te-code |".?.....|
|00001710| c4 c5 70 21 5c 22 c6 23 | 43 87 22 20 5b 74 65 2d |..p!\".#|C." [te-|
|00001720| 6c 6f 67 2d 62 75 66 66 | 65 72 20 72 65 61 64 2d |log-buff|er read-|
|00001730| 62 75 66 66 65 72 20 22 | 52 65 63 6f 72 64 20 6f |buffer "|Record o|
|00001740| 75 74 70 75 74 20 69 6e | 20 62 75 66 66 65 72 3a |utput in| buffer:|
|00001750| 20 22 20 66 6f 72 6d 61 | 74 20 22 25 73 20 6f 75 | " forma|t "%s ou|
|00001760| 74 70 75 74 2d 6c 6f 67 | 22 20 62 75 66 66 65 72 |tput-log|" buffer|
|00001770| 2d 6e 61 6d 65 20 6e 69 | 6c 5d 20 36 29 5d 29 0a |-name ni|l] 6)]).|
|00001780| 28 66 73 65 74 20 27 74 | 65 2d 74 6f 66 75 20 23 |(fset 't|e-tofu #|
|00001790| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 74 65 2d |[nil "..|!." [te-|
|000017a0| 73 65 74 2d 6f 75 74 70 | 75 74 2d 6c 6f 67 20 6e |set-outp|ut-log n|
|000017b0| 69 6c 5d 20 32 20 22 5c | 0a 44 69 73 63 6f 6e 74 |il] 2 "\|.Discont|
|000017c0| 69 6e 75 65 20 6f 75 74 | 70 75 74 20 6c 6f 67 2e |inue out|put log.|
|000017d0| 22 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |" nil]).|(byte-co|
|000017e0| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 88 c4 c5 4d 87 |de "..M.|..M...M.|
|000017f0| 22 20 5b 74 65 2d 74 6f | 67 67 6c 65 20 23 5b 28 |" [te-to|ggle #[(|
|00001800| 73 79 6d 20 61 72 67 29 | 20 22 08 09 a7 ac 83 09 |sym arg)| "......|
|00001810| aa 93 09 c2 55 ab 85 08 | 4a 3f aa 89 09 c3 57 ab |....U...|J?....W.|
|00001820| 83 c4 aa 81 c5 4c 87 22 | 20 5b 73 79 6d 20 61 72 |.....L."| [sym ar|
|00001830| 67 20 31 20 30 20 6e 69 | 6c 20 74 5d 20 33 5d 20 |g 1 0 ni|l t] 3] |
|00001840| 74 65 2d 74 6f 67 67 6c | 65 2d 6d 6f 72 65 2d 70 |te-toggl|e-more-p|
|00001850| 72 6f 63 65 73 73 69 6e | 67 20 23 5b 28 61 72 67 |rocessin|g #[(arg|
|00001860| 29 20 22 c0 c1 c2 0b 5c | 22 ab 83 c4 aa 81 c5 21 |) "....\|"......!|
|00001870| 88 5c 6e ad 84 c6 89 16 | 07 87 22 20 5b 6d 65 73 |.\n.....|.." [mes|
|00001880| 73 61 67 65 20 74 65 2d | 74 6f 67 67 6c 65 20 74 |sage te-|toggle t|
|00001890| 65 72 6d 69 6e 61 6c 2d | 6d 6f 72 65 2d 70 72 6f |erminal-|more-pro|
|000018a0| 63 65 73 73 69 6e 67 20 | 61 72 67 20 22 4d 6f 72 |cessing |arg "Mor|
|000018b0| 65 20 70 72 6f 63 65 73 | 73 69 6e 67 20 6f 6e 22 |e proces|sing on"|
|000018c0| 20 22 4d 6f 72 65 20 70 | 72 6f 63 65 73 73 69 6e | "More p|rocessin|
|000018d0| 67 20 6f 66 66 22 20 2d | 31 20 74 65 2d 6d 6f 72 |g off" -|1 te-mor|
|000018e0| 65 2d 63 6f 75 6e 74 5d | 20 34 20 6e 69 6c 20 22 |e-count]| 4 nil "|
|000018f0| 70 22 5d 20 74 65 2d 74 | 6f 67 67 6c 65 2d 73 63 |p"] te-t|oggle-sc|
|00001900| 72 6f 6c 6c 69 6e 67 20 | 23 5b 28 61 72 67 29 20 |rolling |#[(arg) |
|00001910| 22 c0 c1 c2 0b 5c 22 ab | 83 c4 aa 81 c5 21 87 22 |"....\".|.....!."|
|00001920| 20 5b 6d 65 73 73 61 67 | 65 20 74 65 2d 74 6f 67 | [messag|e te-tog|
|00001930| 67 6c 65 20 74 65 72 6d | 69 6e 61 6c 2d 73 63 72 |gle term|inal-scr|
|00001940| 6f 6c 6c 69 6e 67 20 61 | 72 67 20 22 53 63 72 6f |olling a|rg "Scro|
|00001950| 6c 6c 20 61 74 20 65 6e | 64 20 6f 66 20 70 61 67 |ll at en|d of pag|
|00001960| 65 22 20 22 57 72 61 70 | 20 61 74 20 65 6e 64 20 |e" "Wrap| at end |
|00001970| 6f 66 20 70 61 67 65 22 | 5d 20 34 20 6e 69 6c 20 |of page"|] 4 nil |
|00001980| 22 70 22 5d 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |"p"]] 2)|.(fset '|
|00001990| 74 65 2d 65 6e 61 62 6c | 65 2d 6d 6f 72 65 2d 70 |te-enabl|e-more-p|
|000019a0| 72 6f 63 65 73 73 69 6e | 67 20 23 5b 6e 69 6c 20 |rocessin|g #[nil |
|000019b0| 22 c0 c1 21 87 22 20 5b | 74 65 2d 74 6f 67 67 6c |"..!." [|te-toggl|
|000019c0| 65 2d 6d 6f 72 65 2d 70 | 72 6f 63 65 73 73 69 6e |e-more-p|rocessin|
|000019d0| 67 20 74 5d 20 32 20 22 | 5c 0a 45 6e 61 62 6c 65 |g t] 2 "|\.Enable|
|000019e0| 20 2a 2a 20 4d 4f 52 45 | 20 2a 2a 20 70 72 6f 63 | ** MORE| ** proc|
|000019f0| 65 73 73 69 6e 67 22 20 | 6e 69 6c 5d 29 0a 28 66 |essing" |nil]).(f|
|00001a00| 73 65 74 20 27 74 65 2d | 64 69 73 61 62 6c 65 2d |set 'te-|disable-|
|00001a10| 6d 6f 72 65 2d 70 72 6f | 63 65 73 73 69 6e 67 20 |more-pro|cessing |
|00001a20| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 74 65 |#[nil ".|.!." [te|
|00001a30| 2d 74 6f 67 67 6c 65 2d | 6d 6f 72 65 2d 70 72 6f |-toggle-|more-pro|
|00001a40| 63 65 73 73 69 6e 67 20 | 6e 69 6c 5d 20 32 20 22 |cessing |nil] 2 "|
|00001a50| 5c 0a 44 69 73 61 62 6c | 65 20 2a 2a 20 4d 4f 52 |\.Disabl|e ** MOR|
|00001a60| 45 20 2a 2a 20 70 72 6f | 63 65 73 73 69 6e 67 22 |E ** pro|cessing"|
|00001a70| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 74 65 | nil]).(|fset 'te|
|00001a80| 2d 64 6f 2d 73 63 72 6f | 6c 6c 69 6e 67 20 23 5b |-do-scro|lling #[|
|00001a90| 6e 69 6c 20 22 c0 c1 21 | 87 22 20 5b 74 65 2d 74 |nil "..!|." [te-t|
|00001aa0| 6f 67 67 6c 65 2d 73 63 | 72 6f 6c 6c 69 6e 67 20 |oggle-sc|rolling |
|00001ab0| 74 5d 20 32 20 22 5c 0a | 53 63 72 6f 6c 6c 20 61 |t] 2 "\.|Scroll a|
|00001ac0| 74 20 65 6e 64 20 6f 66 | 20 70 61 67 65 20 28 79 |t end of| page (y|
|00001ad0| 75 63 6b 29 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |uck)" ni|l]).(fse|
|00001ae0| 74 20 27 74 65 2d 64 6f | 2d 77 72 61 70 70 69 6e |t 'te-do|-wrappin|
|00001af0| 67 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 87 22 20 5b |g #[nil |"..!." [|
|00001b00| 74 65 2d 74 6f 67 67 6c | 65 2d 73 63 72 6f 6c 6c |te-toggl|e-scroll|
|00001b10| 69 6e 67 20 6e 69 6c 5d | 20 32 20 22 5c 0a 57 72 |ing nil]| 2 "\.Wr|
|00001b20| 61 70 20 74 6f 20 74 6f | 70 20 6f 66 20 77 69 6e |ap to to|p of win|
|00001b30| 64 6f 77 20 61 74 20 65 | 6e 64 20 6f 66 20 70 61 |dow at e|nd of pa|
|00001b40| 67 65 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |ge" nil]|).(fset |
|00001b50| 27 74 65 2d 73 65 74 2d | 72 65 64 69 73 70 6c 61 |'te-set-|redispla|
|00001b60| 79 2d 69 6e 74 65 72 76 | 61 6c 20 23 5b 28 61 72 |y-interv|al #[(ar|
|00001b70| 67 29 20 22 08 c1 5d 89 | 10 12 c3 89 14 87 22 20 |g) "..].|......" |
|00001b80| 5b 61 72 67 20 31 20 74 | 65 72 6d 69 6e 61 6c 2d |[arg 1 t|erminal-|
|00001b90| 72 65 64 69 73 70 6c 61 | 79 2d 69 6e 74 65 72 76 |redispla|y-interv|
|00001ba0| 61 6c 20 30 20 74 65 2d | 72 65 64 69 73 70 6c 61 |al 0 te-|redispla|
|00001bb0| 79 2d 63 6f 75 6e 74 5d | 20 33 20 22 5c 0a 53 65 |y-count]| 3 "\.Se|
|00001bc0| 74 20 74 68 65 20 6d 61 | 78 69 6d 75 6d 20 69 6e |t the ma|ximum in|
|00001bd0| 74 65 72 76 61 6c 20 28 | 69 6e 20 6f 75 74 70 75 |terval (|in outpu|
|00001be0| 74 20 63 68 61 72 61 63 | 74 65 72 73 29 20 62 65 |t charac|ters) be|
|00001bf0| 74 77 65 65 6e 20 73 63 | 72 65 65 6e 20 75 70 64 |tween sc|reen upd|
|00001c00| 61 74 65 73 2e 0a 53 65 | 74 20 74 68 69 73 20 6e |ates..Se|t this n|
|00001c10| 75 6d 62 65 72 20 74 6f | 20 6c 61 72 67 65 20 76 |umber to| large v|
|00001c20| 61 6c 75 65 20 66 6f 72 | 20 67 72 65 61 74 65 72 |alue for| greater|
|00001c30| 20 74 68 72 6f 75 67 68 | 70 75 74 2c 0a 73 65 74 | through|put,.set|
|00001c40| 20 69 74 20 73 6d 61 6c | 6c 65 72 20 66 6f 72 20 | it smal|ler for |
|00001c50| 6d 6f 72 65 20 66 72 65 | 71 75 65 6e 74 20 75 70 |more fre|quent up|
|00001c60| 64 61 74 65 73 20 28 62 | 75 74 20 6f 76 65 72 61 |dates (b|ut overa|
|00001c70| 6c 6c 20 73 6c 6f 77 65 | 72 20 70 65 72 66 6f 72 |ll slowe|r perfor|
|00001c80| 6d 61 6e 63 65 2e 22 20 | 22 4e 4d 61 78 20 6e 75 |mance." |"NMax nu|
|00001c90| 6d 62 65 72 20 6f 66 20 | 6f 75 74 70 75 74 20 63 |mber of |output c|
|00001ca0| 68 61 72 73 20 62 65 74 | 77 65 65 6e 20 72 65 64 |hars bet|ween red|
|00001cb0| 69 73 70 6c 61 79 20 75 | 70 64 61 74 65 73 3a 20 |isplay u|pdates: |
|00001cc0| 22 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |"]).(byt|e-code "|
|00001cd0| c0 c1 c2 c3 23 88 c1 c4 | 4d 87 22 20 5b 70 75 74 |....#...|M." [put|
|00001ce0| 20 74 65 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 75 | te-more|-break-u|
|00001cf0| 6e 72 65 61 64 20 73 75 | 70 70 72 65 73 73 2d 6b |nread su|ppress-k|
|00001d00| 65 79 6d 61 70 20 74 20 | 23 5b 6e 69 6c 20 22 08 |eymap t |#[nil ".|
|00001d10| 09 55 ab 84 c2 c3 21 87 | c4 c5 c6 08 21 c7 20 23 |.U....!.|....!. #|
|00001d20| 88 c8 16 09 ca 20 88 cb | 1e 0c cd 20 29 87 22 20 |..... ..|... )." |
|00001d30| 5b 6c 61 73 74 2d 69 6e | 70 75 74 2d 63 68 61 72 |[last-in|put-char|
|00001d40| 20 74 65 72 6d 69 6e 61 | 6c 2d 65 73 63 61 70 65 | termina|l-escape|
|00001d50| 2d 63 68 61 72 20 63 61 | 6c 6c 2d 69 6e 74 65 72 |-char ca|ll-inter|
|00001d60| 61 63 74 69 76 65 6c 79 | 20 74 65 2d 65 73 63 61 |actively| te-esca|
|00001d70| 70 65 20 6d 65 73 73 61 | 67 65 20 22 43 6f 6e 74 |pe messa|ge "Cont|
|00001d80| 69 6e 75 69 6e 67 20 66 | 72 6f 6d 20 6d 6f 72 65 |inuing f|rom more|
|00001d90| 20 62 72 65 61 6b 20 28 | 5c 22 25 73 5c 22 20 74 | break (|\"%s\" t|
|00001da0| 79 70 65 64 2c 20 25 64 | 20 63 68 61 72 73 20 6f |yped, %d| chars o|
|00001db0| 75 74 70 75 74 20 70 65 | 6e 64 69 6e 67 2e 2e 2e |utput pe|nding...|
|00001dc0| 29 22 20 73 69 6e 67 6c | 65 2d 6b 65 79 2d 64 65 |)" singl|e-key-de|
|00001dd0| 73 63 72 69 70 74 69 6f | 6e 20 74 65 2d 70 65 6e |scriptio|n te-pen|
|00001de0| 64 69 6e 67 2d 6f 75 74 | 70 75 74 2d 6c 65 6e 67 |ding-out|put-leng|
|00001df0| 74 68 20 32 35 39 32 35 | 39 20 74 65 2d 6d 6f 72 |th 25925|9 te-mor|
|00001e00| 65 2d 63 6f 75 6e 74 20 | 74 65 2d 6d 6f 72 65 2d |e-count |te-more-|
|00001e10| 62 72 65 61 6b 2d 75 6e | 77 69 6e 64 20 6e 69 6c |break-un|wind nil|
|00001e20| 20 74 65 72 6d 69 6e 61 | 6c 2d 6d 6f 72 65 2d 70 | termina|l-more-p|
|00001e30| 72 6f 63 65 73 73 69 6e | 67 20 74 65 2d 70 61 73 |rocessin|g te-pas|
|00001e40| 73 2d 74 68 72 6f 75 67 | 68 5d 20 34 20 6e 69 6c |s-throug|h] 4 nil|
|00001e50| 20 6e 69 6c 5d 5d 20 34 | 29 0a 28 66 73 65 74 20 | nil]] 4|).(fset |
|00001e60| 27 74 65 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 72 |'te-more|-break-r|
|00001e70| 65 73 75 6d 65 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |esume #[|nil "..!|
|00001e80| 88 c2 20 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |.. ." [m|essage "|
|00001e90| 43 6f 6e 74 69 6e 75 69 | 6e 67 20 66 72 6f 6d 20 |Continui|ng from |
|00001ea0| 6d 6f 72 65 20 62 72 65 | 61 6b 22 20 74 65 2d 6d |more bre|ak" te-m|
|00001eb0| 6f 72 65 2d 62 72 65 61 | 6b 2d 75 6e 77 69 6e 64 |ore-brea|k-unwind|
|00001ec0| 5d 20 32 20 22 5c 0a 50 | 72 6f 63 65 65 64 20 70 |] 2 "\.P|roceed p|
|00001ed0| 61 73 74 20 74 68 65 20 | 2a 2a 4d 4f 52 45 2a 2a |ast the |**MORE**|
|00001ee0| 20 62 72 65 61 6b 2c 0a | 61 6c 6c 6f 77 69 6e 67 | break,.|allowing|
|00001ef0| 20 74 68 65 20 6e 65 78 | 74 20 70 61 67 65 20 6f | the nex|t page o|
|00001f00| 66 20 6f 75 74 70 75 74 | 20 74 6f 20 61 70 70 65 |f output| to appe|
|00001f10| 61 72 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |ar" nil]|).(fset |
|00001f20| 27 74 65 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 68 |'te-more|-break-h|
|00001f30| 65 6c 70 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c2 |elp #[ni|l "..!..|
|00001f40| c3 21 88 c4 c5 21 87 22 | 20 5b 6d 65 73 73 61 67 |.!...!."| [messag|
|00001f50| 65 20 22 54 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |e "Termi|nal-emul|
|00001f60| 61 74 6f 72 20 6d 6f 72 | 65 20 62 72 65 61 6b 20 |ator mor|e break |
|00001f70| 68 65 6c 70 2e 2e 2e 22 | 20 73 69 74 2d 66 6f 72 |help..."| sit-for|
|00001f80| 20 30 20 77 69 74 68 2d | 65 6c 65 63 74 72 69 63 | 0 with-|electric|
|00001f90| 2d 68 65 6c 70 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-help #[|nil "..!|
|00001fa0| 88 c0 c2 c3 c4 c5 0e 06 | c7 23 c8 c5 21 23 21 88 |........|.#..!#!.|
|00001fb0| c0 c9 ca 21 21 88 c0 cb | 21 88 cc 87 22 20 5b 70 |...!!...|!..." [p|
|00001fc0| 72 69 6e 63 20 22 54 65 | 72 6d 69 6e 61 6c 2d 65 |rinc "Te|rminal-e|
|00001fd0| 6d 75 6c 61 74 6f 72 20 | 6d 6f 72 65 20 62 72 65 |mulator |more bre|
|00001fe0| 61 6b 2e 5c 6e 5c 6e 22 | 20 66 6f 72 6d 61 74 20 |ak.\n\n"| format |
|00001ff0| 22 54 79 70 65 20 5c 22 | 25 73 5c 22 20 28 74 65 |"Type \"|%s\" (te|
|00002000| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 72 65 73 75 |-more-br|eak-resu|
|00002010| 6d 65 29 5c 6e 25 73 5c | 6e 22 20 77 68 65 72 65 |me)\n%s\|n" where|
|00002020| 2d 69 73 2d 69 6e 74 65 | 72 6e 61 6c 20 74 65 2d |-is-inte|rnal te-|
|00002030| 6d 6f 72 65 2d 62 72 65 | 61 6b 2d 72 65 73 75 6d |more-bre|ak-resum|
|00002040| 65 20 74 65 72 6d 69 6e | 61 6c 2d 6d 6f 72 65 2d |e termin|al-more-|
|00002050| 62 72 65 61 6b 2d 6d 61 | 70 20 74 20 64 6f 63 75 |break-ma|p t docu|
|00002060| 6d 65 6e 74 61 74 69 6f | 6e 20 73 75 62 73 74 69 |mentatio|n substi|
|00002070| 74 75 74 65 2d 63 6f 6d | 6d 61 6e 64 2d 6b 65 79 |tute-com|mand-key|
|00002080| 73 20 22 5c 5c 7b 74 65 | 72 6d 69 6e 61 6c 2d 6d |s "\\{te|rminal-m|
|00002090| 6f 72 65 2d 62 72 65 61 | 6b 2d 6d 61 70 7d 5c 6e |ore-brea|k-map}\n|
|000020a0| 22 20 22 41 6e 79 20 6f | 74 68 65 72 20 6b 65 79 |" "Any o|ther key|
|000020b0| 20 69 73 20 70 61 73 73 | 65 64 20 74 68 72 6f 75 | is pass|ed throu|
|000020c0| 67 68 20 74 6f 20 74 68 | 65 20 70 72 6f 67 72 61 |gh to th|e progra|
|000020d0| 6d 5c 6e 72 75 6e 6e 69 | 6e 67 20 75 6e 64 65 72 |m\nrunni|ng under|
|000020e0| 20 74 68 65 20 74 65 72 | 6d 69 6e 61 6c 20 65 6d | the ter|minal em|
|000020f0| 75 6c 61 74 6f 72 20 61 | 6e 64 20 64 69 73 61 62 |ulator a|nd disab|
|00002100| 6c 65 73 20 6d 6f 72 65 | 20 70 72 6f 63 65 73 73 |les more| process|
|00002110| 69 6e 67 20 75 6e 74 69 | 6c 5c 6e 61 6c 6c 20 70 |ing unti|l\nall p|
|00002120| 65 6e 64 69 6e 67 20 6f | 75 74 70 75 74 20 68 61 |ending o|utput ha|
|00002130| 73 20 62 65 65 6e 20 64 | 65 61 6c 74 20 77 69 74 |s been d|ealt wit|
|00002140| 68 2e 22 20 6e 69 6c 5d | 20 37 5d 5d 20 32 20 22 |h." nil]| 7]] 2 "|
|00002150| 5c 0a 50 72 6f 76 69 64 | 65 20 68 65 6c 70 20 6f |\.Provid|e help o|
|00002160| 6e 20 63 6f 6d 6d 61 6e | 64 73 20 61 76 61 69 6c |n comman|ds avail|
|00002170| 61 62 6c 65 20 69 6e 20 | 61 20 74 65 72 6d 69 6e |able in |a termin|
|00002180| 61 6c 2d 65 6d 75 6c 61 | 74 6f 72 20 2a 2a 4d 4f |al-emula|tor **MO|
|00002190| 52 45 2a 2a 20 62 72 65 | 61 6b 22 20 6e 69 6c 5d |RE** bre|ak" nil]|
|000021a0| 29 0a 28 66 73 65 74 20 | 27 74 65 2d 6d 6f 72 65 |).(fset |'te-more|
|000021b0| 2d 62 72 65 61 6b 2d 61 | 64 76 61 6e 63 65 2d 6f |-break-a|dvance-o|
|000021c0| 6e 65 2d 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 c0 |ne-line |#[nil ".|
|000021d0| 11 c2 20 87 22 20 5b 31 | 20 74 65 2d 6d 6f 72 65 |.. ." [1| te-more|
|000021e0| 2d 63 6f 75 6e 74 20 74 | 65 2d 6d 6f 72 65 2d 62 |-count t|e-more-b|
|000021f0| 72 65 61 6b 2d 75 6e 77 | 69 6e 64 5d 20 31 20 22 |reak-unw|ind] 1 "|
|00002200| 5c 0a 41 6c 6c 6f 77 20 | 6f 6e 65 20 6d 6f 72 65 |\.Allow |one more|
|00002210| 20 6c 69 6e 65 20 6f 66 | 20 74 65 78 74 20 74 6f | line of| text to|
|00002220| 20 62 65 20 6f 75 74 70 | 75 74 20 62 65 66 6f 72 | be outp|ut befor|
|00002230| 65 20 64 6f 69 6e 67 20 | 61 6e 6f 74 68 65 72 20 |e doing |another |
|00002240| 6d 6f 72 65 20 62 72 65 | 61 6b 2e 22 20 6e 69 6c |more bre|ak." nil|
|00002250| 5d 29 0a 28 66 73 65 74 | 20 27 74 65 2d 6d 6f 72 |]).(fset| 'te-mor|
|00002260| 65 2d 62 72 65 61 6b 2d | 66 6c 75 73 68 2d 70 65 |e-break-|flush-pe|
|00002270| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 20 23 5b 6e |nding-ou|tput #[n|
|00002280| 69 6c 20 22 c0 20 88 c1 | 20 87 22 20 5b 74 65 2d |il ". ..| ." [te-|
|00002290| 6d 6f 72 65 2d 62 72 65 | 61 6b 2d 75 6e 77 69 6e |more-bre|ak-unwin|
|000022a0| 64 20 74 65 2d 66 6c 75 | 73 68 2d 70 65 6e 64 69 |d te-flu|sh-pendi|
|000022b0| 6e 67 2d 6f 75 74 70 75 | 74 5d 20 31 20 22 5c 0a |ng-outpu|t] 1 "\.|
|000022c0| 44 69 73 63 61 72 64 20 | 61 6e 79 20 6f 75 74 70 |Discard |any outp|
|000022d0| 75 74 20 77 68 69 63 68 | 20 68 61 73 20 62 65 65 |ut which| has bee|
|000022e0| 6e 20 72 65 63 65 69 76 | 65 64 20 62 79 20 74 68 |n receiv|ed by th|
|000022f0| 65 20 74 65 72 6d 69 6e | 61 6c 20 65 6d 75 6c 61 |e termin|al emula|
|00002300| 74 6f 72 20 62 75 74 0a | 6e 6f 74 20 79 65 74 20 |tor but.|not yet |
|00002310| 70 72 6f 63 65 65 73 65 | 64 20 61 6e 64 20 74 68 |proceese|d and th|
|00002320| 65 6e 20 70 72 6f 63 65 | 65 64 20 66 72 6f 6d 20 |en proce|ed from |
|00002330| 74 68 65 20 6d 6f 72 65 | 20 62 72 65 61 6b 2e 22 |the more| break."|
|00002340| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 74 65 | nil]).(|fset 'te|
|00002350| 2d 66 6c 75 73 68 2d 70 | 65 6e 64 69 6e 67 2d 6f |-flush-p|ending-o|
|00002360| 75 74 70 75 74 20 23 5b | 6e 69 6c 20 22 08 41 ac |utput #[|nil ".A.|
|00002370| 84 c1 c2 21 87 c3 20 1c | c1 c5 0c 5c 22 88 c6 c7 |...!.. .|...\"...|
|00002380| c8 0c 5c 22 44 10 c9 20 | 88 ca cb 21 88 cc c6 21 |..\"D.. |...!...!|
|00002390| 29 87 22 20 5b 74 65 2d | 70 65 6e 64 69 6e 67 2d |)." [te-|pending-|
|000023a0| 6f 75 74 70 75 74 20 6d | 65 73 73 61 67 65 20 22 |output m|essage "|
|000023b0| 28 54 68 65 72 65 20 69 | 73 20 6e 6f 20 6f 75 74 |(There i|s no out|
|000023c0| 70 75 74 20 70 65 6e 64 | 69 6e 67 29 22 20 74 65 |put pend|ing)" te|
|000023d0| 2d 70 65 6e 64 69 6e 67 | 2d 6f 75 74 70 75 74 2d |-pending|-output-|
|000023e0| 6c 65 6e 67 74 68 20 6c | 65 6e 67 74 68 20 22 46 |length l|ength "F|
|000023f0| 6c 75 73 68 69 6e 67 20 | 25 64 20 63 68 61 72 73 |lushing |%d chars|
|00002400| 20 6f 66 20 70 65 6e 64 | 69 6e 67 20 6f 75 74 70 | of pend|ing outp|
|00002410| 75 74 22 20 30 20 66 6f | 72 6d 61 74 20 22 5c 6e |ut" 0 fo|rmat "\n|
|00002420| 2a 2a 2a 20 25 64 20 63 | 68 61 72 73 20 6f 66 20 |*** %d c|hars of |
|00002430| 70 65 6e 64 69 6e 67 20 | 6f 75 74 70 75 74 20 66 |pending |output f|
|00002440| 6c 75 73 68 65 64 20 2a | 2a 2a 5c 6e 22 20 74 65 |lushed *|**\n" te|
|00002450| 2d 75 70 64 61 74 65 2d | 70 65 6e 64 69 6e 67 2d |-update-|pending-|
|00002460| 6f 75 74 70 75 74 2d 64 | 69 73 70 6c 61 79 20 74 |output-d|isplay t|
|00002470| 65 2d 70 72 6f 63 65 73 | 73 2d 6f 75 74 70 75 74 |e-proces|s-output|
|00002480| 20 6e 69 6c 20 73 69 74 | 2d 66 6f 72 5d 20 34 20 | nil sit|-for] 4 |
|00002490| 22 5c 0a 44 69 73 63 61 | 72 64 20 61 6e 79 20 61 |"\.Disca|rd any a|
|000024a0| 73 2d 79 65 74 2d 75 6e | 70 72 6f 63 65 73 73 65 |s-yet-un|processe|
|000024b0| 64 20 6f 75 74 70 75 74 | 20 77 68 69 63 68 20 68 |d output| which h|
|000024c0| 61 73 20 62 65 65 6e 20 | 72 65 63 65 69 76 65 64 |as been |received|
|000024d0| 20 62 79 0a 74 68 65 20 | 74 65 72 6d 69 6e 61 6c | by.the |terminal|
|000024e0| 20 65 6d 75 6c 61 74 6f | 72 2e 22 20 6e 69 6c 5d | emulato|r." nil]|
|000024f0| 29 0a 28 66 73 65 74 20 | 27 74 65 2d 70 61 73 73 |).(fset |'te-pass|
|00002500| 2d 74 68 72 6f 75 67 68 | 20 23 5b 6e 69 6c 20 22 |-through| #[nil "|
|00002510| 08 09 3d ab 84 c2 c3 21 | 87 0c ab 88 0d 41 ac 84 |..=....!|.....A..|
|00002520| c6 c7 21 88 c8 0e 09 ca | cb 08 5c 22 5c 22 88 cc |..!.....|..\"\"..|
|00002530| cd 21 87 22 20 5b 6c 61 | 73 74 2d 69 6e 70 75 74 |.!." [la|st-input|
|00002540| 2d 63 68 61 72 20 74 65 | 72 6d 69 6e 61 6c 2d 65 |-char te|rminal-e|
|00002550| 73 63 61 70 65 2d 63 68 | 61 72 20 63 61 6c 6c 2d |scape-ch|ar call-|
|00002560| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 20 74 65 |interact|ively te|
|00002570| 2d 65 73 63 61 70 65 20 | 74 65 72 6d 69 6e 61 6c |-escape |terminal|
|00002580| 2d 6d 6f 72 65 2d 70 72 | 6f 63 65 73 73 69 6e 67 |-more-pr|ocessing|
|00002590| 20 74 65 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 | te-pend|ing-outp|
|000025a0| 75 74 20 74 65 2d 73 65 | 74 2d 6d 6f 72 65 2d 63 |ut te-se|t-more-c|
|000025b0| 6f 75 6e 74 20 6e 69 6c | 20 73 65 6e 64 2d 73 74 |ount nil| send-st|
|000025c0| 72 69 6e 67 20 74 65 2d | 70 72 6f 63 65 73 73 20 |ring te-|process |
|000025d0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 31 20 74 65 |make-str|ing 1 te|
|000025e0| 2d 70 72 6f 63 65 73 73 | 2d 6f 75 74 70 75 74 20 |-process|-output |
|000025f0| 74 5d 20 35 20 22 5c 0a | 53 65 6e 64 20 74 68 65 |t] 5 "\.|Send the|
|00002600| 20 6c 61 73 74 20 63 68 | 61 72 61 63 74 65 72 20 | last ch|aracter |
|00002610| 74 79 70 65 64 20 74 68 | 72 6f 75 67 68 20 74 68 |typed th|rough th|
|00002620| 65 20 74 65 72 6d 69 6e | 61 6c 2d 65 6d 75 6c 61 |e termin|al-emula|
|00002630| 74 6f 72 0a 77 69 74 68 | 6f 75 74 20 61 6e 79 20 |tor.with|out any |
|00002640| 69 6e 74 65 72 70 72 65 | 74 61 74 69 6f 6e 22 20 |interpre|tation" |
|00002650| 6e 69 6c 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |nil]).(b|yte-code|
|00002660| 20 22 c0 c1 4d 88 c2 c3 | 4d 88 c4 c5 4d 88 c6 c7 | "..M...|M...M...|
|00002670| 4d 88 c8 c9 4d 87 22 20 | 5b 74 65 2d 73 65 74 2d |M...M." |[te-set-|
|00002680| 77 69 6e 64 6f 77 2d 73 | 74 61 72 74 20 23 5b 6e |window-s|tart #[n|
|00002690| 69 6c 20 22 c0 70 21 89 | 19 ad 83 c2 09 21 1b 09 |il ".p!.|.....!..|
|000026a0| 3f ae a8 0b 60 65 5a 0c | 54 a5 59 ab 86 c5 09 65 |?...`eZ.|T.Y....e|
|000026b0| 5c 22 aa 98 0b 64 60 5a | 0c 54 a5 59 ab 8d c5 09 |\"...d`Z|.T.Y....|
|000026c0| 64 0b 0c 54 5f 5a c6 5a | 5c 22 aa 81 c7 2a 87 22 |d..T_Z.Z|\"...*."|
|000026d0| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e | [get-bu|ffer-win|
|000026e0| 64 6f 77 20 77 20 77 69 | 6e 64 6f 77 2d 68 65 69 |dow w wi|ndow-hei|
|000026f0| 67 68 74 20 68 20 74 65 | 2d 77 69 64 74 68 20 73 |ght h te|-width s|
|00002700| 65 74 2d 77 69 6e 64 6f | 77 2d 73 74 61 72 74 20 |et-windo|w-start |
|00002710| 2d 31 20 6e 69 6c 5d 20 | 36 5d 20 74 65 2d 70 65 |-1 nil] |6] te-pe|
|00002720| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 2d 6c 65 6e |nding-ou|tput-len|
|00002730| 67 74 68 20 23 5b 6e 69 | 6c 20 22 08 40 08 41 19 |gth #[ni|l ".@.A.|
|00002740| 1a 09 ab 8c 5c 6e 09 40 | 47 5c 5c 12 09 41 89 11 |....\n.@|G\\..A..|
|00002750| ac 74 5c 6e 2a 87 22 20 | 5b 74 65 2d 70 65 6e 64 |.t\n*." |[te-pend|
|00002760| 69 6e 67 2d 6f 75 74 70 | 75 74 20 74 65 6d 20 6c |ing-outp|ut tem l|
|00002770| 65 6e 67 74 68 5d 20 33 | 5d 20 74 65 2d 6d 6f 72 |ength] 3|] te-mor|
|00002780| 65 2d 62 72 65 61 6b 20 | 23 5b 6e 69 6c 20 22 c0 |e-break |#[nil ".|
|00002790| c1 21 88 c2 c3 21 88 60 | 13 c2 c4 21 88 c5 20 14 |.!...!.`|...!.. .|
|000027a0| c6 0e 07 21 88 c2 c8 21 | 88 c9 0e 5c 6e 21 16 08 |...!...!|...\n!..|
|000027b0| c2 cb 21 88 0e 0c 16 0b | cd 0e 0e cf 45 16 0c d0 |..!.....|....E...|
|000027c0| 0e 5c 6e d1 5c 22 88 d2 | 20 88 d3 d4 20 21 70 3d |.\n.\"..| ... !p=|
|000027d0| ab 84 d5 d6 21 88 6d ac | 94 0e 17 ab 90 8a d8 75 |....!.m.|.......u|
|000027e0| 88 60 60 0e 19 5c 5c 7c | 88 0e 17 63 88 29 da db |.``..\\||...c.)..|
|000027f0| 21 88 dc dd 21 88 de df | c1 5c 22 87 22 20 5b 74 |!...!...|.\"." [t|
|00002800| 65 2d 73 65 74 2d 6d 6f | 72 65 2d 63 6f 75 6e 74 |e-set-mo|re-count|
|00002810| 20 74 20 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 | t make-|local-va|
|00002820| 72 69 61 62 6c 65 20 74 | 65 2d 6d 6f 72 65 2d 6f |riable t|e-more-o|
|00002830| 6c 64 2d 70 6f 69 6e 74 | 20 74 65 2d 6d 6f 72 65 |ld-point| te-more|
|00002840| 2d 6f 6c 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 63 |-old-loc|al-map c|
|00002850| 75 72 72 65 6e 74 2d 6c | 6f 63 61 6c 2d 6d 61 70 |urrent-l|ocal-map|
|00002860| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 74 | use-loc|al-map t|
|00002870| 65 72 6d 69 6e 61 6c 2d | 6d 6f 72 65 2d 62 72 65 |erminal-|more-bre|
|00002880| 61 6b 2d 6d 61 70 20 74 | 65 2d 6d 6f 72 65 2d 6f |ak-map t|e-more-o|
|00002890| 6c 64 2d 66 69 6c 74 65 | 72 20 70 72 6f 63 65 73 |ld-filte|r proces|
|000028a0| 73 2d 66 69 6c 74 65 72 | 20 74 65 2d 70 72 6f 63 |s-filter| te-proc|
|000028b0| 65 73 73 20 74 65 2d 6d | 6f 72 65 2d 6f 6c 64 2d |ess te-m|ore-old-|
|000028c0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 66 6f 72 6d 61 74 |mode-lin|e-format|
|000028d0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 | mode-li|ne-forma|
|000028e0| 74 20 22 2d 2d 20 20 20 | 2a 2a 4d 4f 52 45 2a 2a |t "-- |**MORE**|
|000028f0| 20 20 22 20 6d 6f 64 65 | 2d 6c 69 6e 65 2d 62 75 | " mode|-line-bu|
|00002900| 66 66 65 72 2d 69 64 65 | 6e 74 69 66 69 63 61 74 |ffer-ide|ntificat|
|00002910| 69 6f 6e 20 22 25 2d 22 | 20 73 65 74 2d 70 72 6f |ion "%-"| set-pro|
|00002920| 63 65 73 73 2d 66 69 6c | 74 65 72 20 23 5b 28 70 |cess-fil|ter #[(p|
|00002930| 72 6f 63 65 73 73 20 73 | 74 72 69 6e 67 29 20 22 |rocess s|tring) "|
|00002940| 8a c0 09 21 71 88 5c 6e | 0b 43 a4 12 29 c4 20 87 |...!q.\n|.C..). .|
|00002950| 22 20 5b 70 72 6f 63 65 | 73 73 2d 62 75 66 66 65 |" [proce|ss-buffe|
|00002960| 72 20 70 72 6f 63 65 73 | 73 20 74 65 2d 70 65 6e |r proces|s te-pen|
|00002970| 64 69 6e 67 2d 6f 75 74 | 70 75 74 20 73 74 72 69 |ding-out|put stri|
|00002980| 6e 67 20 74 65 2d 75 70 | 64 61 74 65 2d 70 65 6e |ng te-up|date-pen|
|00002990| 64 69 6e 67 2d 6f 75 74 | 70 75 74 2d 64 69 73 70 |ding-out|put-disp|
|000029a0| 6c 61 79 5d 20 32 5d 20 | 74 65 2d 75 70 64 61 74 |lay] 2] |te-updat|
|000029b0| 65 2d 70 65 6e 64 69 6e | 67 2d 6f 75 74 70 75 74 |e-pendin|g-output|
|000029c0| 2d 64 69 73 70 6c 61 79 | 20 77 69 6e 64 6f 77 2d |-display| window-|
|000029d0| 62 75 66 66 65 72 20 73 | 65 6c 65 63 74 65 64 2d |buffer s|elected-|
|000029e0| 77 69 6e 64 6f 77 20 6d | 65 73 73 61 67 65 20 22 |window m|essage "|
|000029f0| 4d 6f 72 65 20 62 72 65 | 61 6b 20 22 20 74 65 72 |More bre|ak " ter|
|00002a00| 6d 69 6e 61 6c 2d 6d 6f | 72 65 2d 62 72 65 61 6b |minal-mo|re-break|
|00002a10| 2d 69 6e 73 65 72 74 69 | 6f 6e 20 31 20 74 65 2d |-inserti|on 1 te-|
|00002a20| 77 69 64 74 68 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |width ru|n-hooks |
|00002a30| 74 65 72 6d 69 6e 61 6c | 2d 6d 6f 72 65 2d 62 72 |terminal|-more-br|
|00002a40| 65 61 6b 2d 68 6f 6f 6b | 20 73 69 74 2d 66 6f 72 |eak-hook| sit-for|
|00002a50| 20 30 20 74 68 72 6f 77 | 20 74 65 2d 70 72 6f 63 | 0 throw| te-proc|
|00002a60| 65 73 73 2d 6f 75 74 70 | 75 74 5d 20 33 5d 20 74 |ess-outp|ut] 3] t|
|00002a70| 65 2d 6d 6f 72 65 2d 62 | 72 65 61 6b 2d 75 6e 77 |e-more-b|reak-unw|
|00002a80| 69 6e 64 20 23 5b 6e 69 | 6c 20 22 c0 09 21 88 c2 |ind #[ni|l "..!..|
|00002a90| 0b 0c 5c 22 88 0d 62 88 | 0e 06 16 07 c8 c9 20 21 |..\"..b.|...... !|
|00002aa0| 88 ca 1e 0b 6d ac 98 0e | 0c ab 94 cd 75 88 60 60 |....m...|....u.``|
|00002ab0| 0e 0c 47 5c 5c 7c 88 ce | cf 0e 10 5c 22 88 0d 62 |..G\\|..|...\"..b|
|00002ac0| 88 ca 15 d1 1e 12 d3 20 | 88 2a d4 d5 21 87 22 20 |....... |.*..!." |
|00002ad0| 5b 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 74 |[use-loc|al-map t|
|00002ae0| 65 2d 6d 6f 72 65 2d 6f | 6c 64 2d 6c 6f 63 61 6c |e-more-o|ld-local|
|00002af0| 2d 6d 61 70 20 73 65 74 | 2d 70 72 6f 63 65 73 73 |-map set|-process|
|00002b00| 2d 66 69 6c 74 65 72 20 | 74 65 2d 70 72 6f 63 65 |-filter |te-proce|
|00002b10| 73 73 20 74 65 2d 6d 6f | 72 65 2d 6f 6c 64 2d 66 |ss te-mo|re-old-f|
|00002b20| 69 6c 74 65 72 20 74 65 | 2d 6d 6f 72 65 2d 6f 6c |ilter te|-more-ol|
|00002b30| 64 2d 70 6f 69 6e 74 20 | 74 65 2d 6d 6f 72 65 2d |d-point |te-more-|
|00002b40| 6f 6c 64 2d 6d 6f 64 65 | 2d 6c 69 6e 65 2d 66 6f |old-mode|-line-fo|
|00002b50| 72 6d 61 74 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 66 |rmat mod|e-line-f|
|00002b60| 6f 72 6d 61 74 20 73 65 | 74 2d 62 75 66 66 65 72 |ormat se|t-buffer|
|00002b70| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 20 62 75 66 66 |-modifie|d-p buff|
|00002b80| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 6e 69 |er-modif|ied-p ni|
|00002b90| 6c 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |l buffer|-read-on|
|00002ba0| 6c 79 20 74 65 72 6d 69 | 6e 61 6c 2d 6d 6f 72 65 |ly termi|nal-more|
|00002bb0| 2d 62 72 65 61 6b 2d 69 | 6e 73 65 72 74 69 6f 6e |-break-i|nsertion|
|00002bc0| 20 31 20 69 6e 73 65 72 | 74 2d 63 68 61 72 20 33 | 1 inser|t-char 3|
|00002bd0| 32 20 74 65 2d 77 69 64 | 74 68 20 32 35 39 32 35 |2 te-wid|th 25925|
|00002be0| 39 20 74 65 2d 6d 6f 72 | 65 2d 63 6f 75 6e 74 20 |9 te-mor|e-count |
|00002bf0| 74 65 2d 6e 65 77 6c 69 | 6e 65 20 74 65 2d 70 72 |te-newli|ne te-pr|
|00002c00| 6f 63 65 73 73 2d 6f 75 | 74 70 75 74 20 74 5d 20 |ocess-ou|tput t] |
|00002c10| 33 5d 20 74 65 2d 73 65 | 74 2d 6d 6f 72 65 2d 63 |3] te-se|t-more-c|
|00002c20| 6f 75 6e 74 20 23 5b 28 | 6e 65 77 6c 69 6e 65 29 |ount #[(|newline)|
|00002c30| 20 22 60 65 5a 08 54 a5 | 19 5c 6e ab 83 09 54 11 | "`eZ.T.|.\n...T.|
|00002c40| 09 0b 55 ab 85 0b 89 14 | aa ad 09 0b 53 55 ab 85 |..U.....|....SU..|
|00002c50| 0b 89 14 aa a2 09 0b c5 | a5 57 ac 87 0b 09 5a c6 |........|.W....Z.|
|00002c60| 56 ab 87 0b 09 5a 89 14 | aa 8d 0b 89 c6 56 ab 83 |V....Z..|.....V..|
|00002c70| c5 aa 81 c7 5a 89 14 29 | 87 22 20 5b 74 65 2d 77 |....Z..)|." [te-w|
|00002c80| 69 64 74 68 20 6c 69 6e | 65 20 6e 65 77 6c 69 6e |idth lin|e newlin|
|00002c90| 65 20 74 65 2d 68 65 69 | 67 68 74 20 74 65 2d 6d |e te-hei|ght te-m|
|00002ca0| 6f 72 65 2d 63 6f 75 6e | 74 20 32 20 31 30 20 31 |ore-coun|t 2 10 1|
|00002cb0| 5d 20 33 5d 5d 20 32 29 | 0a 28 66 73 65 74 20 27 |] 3]] 2)|.(fset '|
|00002cc0| 74 65 2d 6e 65 77 6c 69 | 6e 65 20 23 5b 6e 69 6c |te-newli|ne #[nil|
|00002cd0| 20 22 c0 7f 88 09 ab 96 | 5c 6e 53 89 12 c3 57 ab | "......|\nS...W.|
|00002ce0| 86 c4 c5 21 88 aa 88 5c | 6e c3 3d ab 83 c6 20 88 |...!...\|n.=... .|
|00002cf0| 6d ab 9a 65 65 0e 07 5c | 5c 7c 88 65 62 88 0e 08 |m..ee..\|\|.eb...|
|00002d00| ab 96 c9 ca 21 88 64 62 | 88 cb 63 88 aa 8a ca 75 |....!.db|..c....u|
|00002d10| 88 60 60 0e 07 5c 5c 7c | 88 cc cd 0e 07 5c 22 88 |.``..\\||.....\".|
|00002d20| c3 79 88 ce 20 87 22 20 | 5b 6e 69 6c 20 74 65 72 |.y.. ." |[nil ter|
|00002d30| 6d 69 6e 61 6c 2d 6d 6f | 72 65 2d 70 72 6f 63 65 |minal-mo|re-proce|
|00002d40| 73 73 69 6e 67 20 74 65 | 2d 6d 6f 72 65 2d 63 6f |ssing te|-more-co|
|00002d50| 75 6e 74 20 30 20 74 65 | 2d 73 65 74 2d 6d 6f 72 |unt 0 te|-set-mor|
|00002d60| 65 2d 63 6f 75 6e 74 20 | 74 20 74 65 2d 6d 6f 72 |e-count |t te-mor|
|00002d70| 65 2d 62 72 65 61 6b 20 | 74 65 2d 77 69 64 74 68 |e-break |te-width|
|00002d80| 20 74 65 72 6d 69 6e 61 | 6c 2d 73 63 72 6f 6c 6c | termina|l-scroll|
|00002d90| 69 6e 67 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |ing dele|te-char |
|00002da0| 31 20 31 30 20 69 6e 73 | 65 72 74 2d 63 68 61 72 |1 10 ins|ert-char|
|00002db0| 20 33 32 20 74 65 2d 73 | 65 74 2d 77 69 6e 64 6f | 32 te-s|et-windo|
|00002dc0| 77 2d 73 74 61 72 74 5d | 20 33 20 22 5c 0a 4d 6f |w-start]| 3 "\.Mo|
|00002dd0| 76 65 20 64 6f 77 6e 20 | 61 20 6c 69 6e 65 2c 20 |ve down |a line, |
|00002de0| 6f 70 74 69 6f 6e 61 6c | 6c 79 20 64 6f 20 6d 6f |optional|ly do mo|
|00002df0| 72 65 20 70 72 6f 63 65 | 73 73 69 6e 67 2c 20 70 |re proce|ssing, p|
|00002e00| 65 72 68 61 70 73 20 77 | 72 61 70 2f 73 63 72 6f |erhaps w|rap/scro|
|00002e10| 6c 6c 2c 0a 6d 6f 76 65 | 20 74 6f 20 73 74 61 72 |ll,.move| to star|
|00002e20| 74 20 6f 66 20 6e 65 77 | 20 6c 69 6e 65 2c 20 63 |t of new| line, c|
|00002e30| 6c 65 61 72 20 74 6f 20 | 65 6e 64 20 6f 66 20 6c |lear to |end of l|
|00002e40| 69 6e 65 2e 22 5d 29 0a | 28 66 73 65 74 20 27 74 |ine."]).|(fset 't|
|00002e50| 65 2d 64 6f 77 6e 2d 76 | 65 72 74 69 63 61 6c 6c |e-down-v|erticall|
|00002e60| 79 2d 6f 72 2d 73 63 72 | 6f 6c 6c 20 23 5b 6e 69 |y-or-scr|oll #[ni|
|00002e70| 6c 20 22 69 18 c1 7f 88 | 6d ab 9d 65 65 5c 6e 5c |l "i....|m..ee\n\|
|00002e80| 5c 7c 88 65 62 88 c3 c4 | 21 88 64 62 88 c5 63 88 |\|.eb...|!.db..c.|
|00002e90| c6 c7 5c 6e 5c 22 88 c8 | 79 88 aa 83 c4 79 88 c9 |..\n\"..|y....y..|
|00002ea0| 08 21 88 29 ca 20 87 22 | 20 5b 63 6f 6c 75 6d 6e |.!.). ."| [column|
|00002eb0| 20 6e 69 6c 20 74 65 2d | 77 69 64 74 68 20 64 65 | nil te-|width de|
|00002ec0| 6c 65 74 65 2d 63 68 61 | 72 20 31 20 31 30 20 69 |lete-cha|r 1 10 i|
|00002ed0| 6e 73 65 72 74 2d 63 68 | 61 72 20 33 32 20 30 20 |nsert-ch|ar 32 0 |
|00002ee0| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 74 |move-to-|column t|
|00002ef0| 65 2d 73 65 74 2d 77 69 | 6e 64 6f 77 2d 73 74 61 |e-set-wi|ndow-sta|
|00002f00| 72 74 5d 20 33 20 22 5c | 0a 4d 6f 76 65 20 64 6f |rt] 3 "\|.Move do|
|00002f10| 77 6e 20 61 20 6c 69 6e | 65 20 76 65 72 74 69 63 |wn a lin|e vertic|
|00002f20| 61 6c 6c 79 2c 20 6f 72 | 20 73 63 72 6f 6c 6c 20 |ally, or| scroll |
|00002f30| 61 74 20 62 6f 74 74 6f | 6d 2e 22 5d 29 0a 28 62 |at botto|m."]).(b|
|00002f40| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00002f50| 4d 88 c4 c5 4d 88 c6 c7 | 4d 88 c8 c9 4d 88 ca cb |M...M...|M...M...|
|00002f60| 4d 88 cc cd 4d 88 ce cf | 4d 88 d0 d1 4d 88 d2 d3 |M...M...|M...M...|
|00002f70| 4d 88 d4 d5 4d 88 d6 d7 | 4d 88 d8 d9 4d 88 da db |M...M...|M...M...|
|00002f80| 4d 88 dc dd 4d 88 de df | 4d 88 e0 e1 4d 88 e2 e3 |M...M...|M...M...|
|00002f90| 4d 88 e4 e5 4d 88 e6 e7 | 4d 88 e8 e9 4d 87 22 20 |M...M...|M...M." |
|00002fa0| 5b 74 65 2d 6d 6f 76 65 | 2d 74 6f 2d 70 6f 73 69 |[te-move|-to-posi|
|00002fb0| 74 69 6f 6e 20 23 5b 6e | 69 6c 20 22 c0 20 c1 5a |tion #[n|il ". .Z|
|00002fc0| c0 20 c1 5a 1a 1b 5c 6e | 0c 56 ac 8f 0b 0d 56 ac |. .Z..\n|.V....V.|
|00002fd0| 8a 65 5c 6e 0b 0c 54 5f | 5c 5c 5c 5c 62 88 2a c6 |.e\n..T_|\\\\b.*.|
|00002fe0| 89 16 07 87 22 20 5b 74 | 65 2d 67 65 74 2d 63 68 |...." [t|e-get-ch|
|00002ff0| 61 72 20 33 32 20 78 20 | 79 20 74 65 2d 77 69 64 |ar 32 x |y te-wid|
|00003000| 74 68 20 74 65 2d 68 65 | 69 67 68 74 20 2d 31 20 |th te-he|ight -1 |
|00003010| 74 65 2d 6d 6f 72 65 2d | 63 6f 75 6e 74 5d 20 34 |te-more-|count] 4|
|00003020| 5d 20 74 65 2d 63 6c 65 | 61 72 2d 72 65 73 74 2d |] te-cle|ar-rest-|
|00003030| 6f 66 2d 6c 69 6e 65 20 | 23 5b 6e 69 6c 20 22 8a |of-line |#[nil ".|
|00003040| 60 c0 7f 88 60 5a 19 60 | 60 09 5c 5c 7c 88 c2 c3 |`...`Z.`|`.\\|...|
|00003050| 09 5b 5c 22 2a 87 22 20 | 5b 6e 69 6c 20 6e 20 69 |.[\"*." |[nil n i|
|00003060| 6e 73 65 72 74 2d 63 68 | 61 72 20 33 32 5d 20 33 |nsert-ch|ar 32] 3|
|00003070| 5d 20 74 65 2d 63 6c 65 | 61 72 2d 72 65 73 74 2d |] te-cle|ar-rest-|
|00003080| 6f 66 2d 73 63 72 65 65 | 6e 20 23 5b 6e 69 6c 20 |of-scree|n #[nil |
|00003090| 22 8a c0 20 88 c1 7f 88 | 6d 3f ad 93 c2 75 88 c1 |".. ....|m?...u..|
|000030a0| 7f 88 60 0b 5a 60 7c 88 | c4 c5 0b 5c 22 88 aa 66 |..`.Z`|.|...\"..f|
|000030b0| 29 87 22 20 5b 74 65 2d | 63 6c 65 61 72 2d 72 65 |)." [te-|clear-re|
|000030c0| 73 74 2d 6f 66 2d 6c 69 | 6e 65 20 6e 69 6c 20 31 |st-of-li|ne nil 1|
|000030d0| 20 74 65 2d 77 69 64 74 | 68 20 69 6e 73 65 72 74 | te-widt|h insert|
|000030e0| 2d 63 68 61 72 20 33 32 | 5d 20 33 5d 20 74 65 2d |-char 32|] 3] te-|
|000030f0| 63 6c 65 61 72 2d 73 63 | 72 65 65 6e 20 23 5b 6e |clear-sc|reen #[n|
|00003100| 69 6c 20 22 c0 20 88 c1 | 1a 5c 6e 0b 57 ab 8e 5c |il ". ..|.\n.W..\|
|00003110| 6e 54 12 c4 c5 0e 06 5c | 22 88 c7 63 88 aa 6d 29 |nT.....\|"..c..m)|
|00003120| 64 53 64 7c 88 65 62 88 | c8 89 16 09 87 22 20 5b |dSd|.eb.|....." [|
|00003130| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 30 20 69 |erase-bu|ffer 0 i|
|00003140| 20 74 65 2d 68 65 69 67 | 68 74 20 69 6e 73 65 72 | te-heig|ht inser|
|00003150| 74 2d 63 68 61 72 20 33 | 32 20 74 65 2d 77 69 64 |t-char 3|2 te-wid|
|00003160| 74 68 20 31 30 20 2d 31 | 20 74 65 2d 6d 6f 72 65 |th 10 -1| te-more|
|00003170| 2d 63 6f 75 6e 74 5d 20 | 33 5d 20 74 65 2d 69 6e |-count] |3] te-in|
|00003180| 73 65 72 74 2d 6c 69 6e | 65 73 20 23 5b 6e 69 6c |sert-lin|es #[nil|
|00003190| 20 22 6e ab c6 8a 08 60 | 65 5a 09 54 a5 5a c2 5a | "n....`|eZ.T.Z.Z|
|000031a0| 1b c4 20 c5 5a 0b 5e 1e | 06 c7 1e 08 64 0e 06 09 |.. .Z.^.|....d...|
|000031b0| 54 5f 5a 64 7c 88 60 64 | 3d ab 83 c9 63 88 0e 08 |T_Zd|.`d|=...c...|
|000031c0| 0e 06 57 ab 95 0e 08 54 | 16 08 ca c5 09 5c 22 88 |..W....T|.....\".|
|000031d0| 0e 08 0b 3d ac 69 c9 63 | 88 aa 64 2c c2 89 16 0b |...=.i.c|..d,....|
|000031e0| 87 22 20 5b 74 65 2d 68 | 65 69 67 68 74 20 74 65 |." [te-h|eight te|
|000031f0| 2d 77 69 64 74 68 20 2d | 31 20 6c 69 6e 65 20 74 |-width -|1 line t|
|00003200| 65 2d 67 65 74 2d 63 68 | 61 72 20 33 32 20 6e 20 |e-get-ch|ar 32 n |
|00003210| 30 20 69 20 31 30 20 69 | 6e 73 65 72 74 2d 63 68 |0 i 10 i|nsert-ch|
|00003220| 61 72 20 74 65 2d 6d 6f | 72 65 2d 63 6f 75 6e 74 |ar te-mo|re-count|
|00003230| 5d 20 33 5d 20 74 65 2d | 64 65 6c 65 74 65 2d 6c |] 3] te-|delete-l|
|00003240| 69 6e 65 73 20 23 5b 6e | 69 6c 20 22 6e ab c3 08 |ines #[n|il "n...|
|00003250| 60 65 5a 09 54 a5 5a c2 | 5a 1b c4 20 c5 5a 0b 5e |`eZ.T.Z.|Z.. .Z.^|
|00003260| 1e 06 c7 1e 08 60 60 0e | 06 09 54 5f 5c 5c 64 5e |.....``.|..T_\\d^|
|00003270| 7c 88 8a 64 62 88 0e 08 | 0e 06 57 ab 95 0e 08 54 ||..db...|..W....T|
|00003280| 16 08 c9 c5 09 5c 22 88 | 0e 08 0b 3d ac 69 ca 63 |.....\".|...=.i.c|
|00003290| 88 aa 64 2c c2 89 16 0b | 87 22 20 5b 74 65 2d 68 |..d,....|." [te-h|
|000032a0| 65 69 67 68 74 20 74 65 | 2d 77 69 64 74 68 20 2d |eight te|-width -|
|000032b0| 31 20 6c 69 6e 65 20 74 | 65 2d 67 65 74 2d 63 68 |1 line t|e-get-ch|
|000032c0| 61 72 20 33 32 20 6e 20 | 30 20 69 20 69 6e 73 65 |ar 32 n |0 i inse|
|000032d0| 72 74 2d 63 68 61 72 20 | 31 30 20 74 65 2d 6d 6f |rt-char |10 te-mo|
|000032e0| 72 65 2d 63 6f 75 6e 74 | 5d 20 34 5d 20 74 65 2d |re-count|] 4] te-|
|000032f0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|00003300| 65 20 23 5b 6e 69 6c 20 | 22 c0 79 88 c1 87 22 20 |e #[nil |".y..." |
|00003310| 5b 30 20 6e 69 6c 5d 20 | 31 5d 20 74 65 2d 62 61 |[0 nil] |1] te-ba|
|00003320| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 23 5b 6e 69 |ckward-c|har #[ni|
|00003330| 6c 20 22 6e 3f ad 83 c0 | c1 21 87 22 20 5b 62 61 |l "n?...|.!." [ba|
|00003340| 63 6b 77 61 72 64 2d 63 | 68 61 72 20 31 5d 20 32 |ckward-c|har 1] 2|
|00003350| 5d 20 74 65 2d 66 6f 72 | 77 61 72 64 2d 63 68 61 |] te-for|ward-cha|
|00003360| 72 20 23 5b 6e 69 6c 20 | 22 6c 3f ad 82 c0 75 87 |r #[nil |"l?...u.|
|00003370| 22 20 5b 31 5d 20 31 5d | 20 74 65 2d 64 65 6c 65 |" [1] 1]| te-dele|
|00003380| 74 65 20 23 5b 6e 69 6c | 20 22 6e 3f ad 8a 60 53 |te #[nil| "n?..`S|
|00003390| 60 7c 88 c0 63 88 c1 75 | 87 22 20 5b 33 32 20 2d |`|..c..u|." [32 -|
|000033a0| 31 5d 20 32 5d 20 74 65 | 2d 62 65 65 70 20 23 5b |1] 2] te|-beep #[|
|000033b0| 6e 69 6c 20 22 c0 20 87 | 22 20 5b 62 65 65 70 5d |nil ". .|" [beep]|
|000033c0| 20 31 5d 20 74 65 2d 69 | 6e 73 65 72 74 2d 73 70 | 1] te-i|nsert-sp|
|000033d0| 61 63 65 73 20 23 5b 6e | 69 6c 20 22 60 18 c1 20 |aces #[n|il "`.. |
|000033e0| c2 5a c3 7f 88 60 08 5a | 5e 89 1c c5 58 ac 8d c6 |.Z...`.Z|^...X...|
|000033f0| 0c 5b 21 88 08 62 88 c7 | c2 0c 5c 22 88 08 62 2a |.[!..b..|..\"..b*|
|00003400| 87 22 20 5b 70 20 74 65 | 2d 67 65 74 2d 63 68 61 |." [p te|-get-cha|
|00003410| 72 20 33 32 20 6e 69 6c | 20 6e 20 30 20 64 65 6c |r 32 nil| n 0 del|
|00003420| 65 74 65 2d 63 68 61 72 | 20 69 6e 73 65 72 74 2d |ete-char| insert-|
|00003430| 63 68 61 72 5d 20 34 5d | 20 74 65 2d 64 65 6c 65 |char] 4]| te-dele|
|00003440| 74 65 2d 63 68 61 72 20 | 23 5b 6e 69 6c 20 22 60 |te-char |#[nil "`|
|00003450| 18 c1 20 c2 5a c3 7f 88 | 60 08 5a 5e 89 1c c5 58 |.. .Z...|`.Z^...X|
|00003460| ac 8c c6 c2 0c 5c 22 88 | 08 62 88 c7 0c 21 88 08 |.....\".|.b...!..|
|00003470| 62 2a 87 22 20 5b 70 20 | 74 65 2d 67 65 74 2d 63 |b*." [p |te-get-c|
|00003480| 68 61 72 20 33 32 20 6e | 69 6c 20 6e 20 30 20 69 |har 32 n|il n 0 i|
|00003490| 6e 73 65 72 74 2d 63 68 | 61 72 20 64 65 6c 65 74 |nsert-ch|ar delet|
|000034a0| 65 2d 63 68 61 72 5d 20 | 34 5d 20 74 65 2d 6c 6f |e-char] |4] te-lo|
|000034b0| 73 69 6e 67 2d 75 6e 69 | 78 20 28 6c 61 6d 62 64 |sing-uni|x (lambd|
|000034c0| 61 20 6e 69 6c 29 20 74 | 65 2d 6f 75 74 70 75 74 |a nil) t|e-output|
|000034d0| 2d 74 61 62 20 23 5b 6e | 69 6c 20 22 60 89 18 c1 |-tab #[n|il "`...|
|000034e0| 79 88 60 5a 1a c3 c4 5c | 6e c5 5c 22 5a c6 7f 88 |y.`Z...\|n.\"Z...|
|000034f0| 60 08 5a 5e 1e 07 08 0e | 07 5c 5c 62 2b 87 22 20 |`.Z^....|.\\b+." |
|00003500| 5b 70 20 30 20 78 20 38 | 20 6c 6f 67 61 6e 64 20 |[p 0 x 8| logand |
|00003510| 37 20 6e 69 6c 20 6c 5d | 20 35 5d 20 74 65 2d 66 |7 nil l]| 5] te-f|
|00003520| 69 6c 74 65 72 20 23 5b | 28 70 72 6f 63 65 73 73 |ilter #[|(process|
|00003530| 20 73 74 72 69 6e 67 29 | 20 22 70 18 09 1a c3 8e | string)| "p.....|
|00003540| c4 0d 21 71 88 0e 06 62 | 88 c7 0e 08 21 ab 9c c9 |..!q...b|....!...|
|00003550| 0e 08 21 ac 85 ca 16 08 | aa 91 0e 08 71 88 64 62 |..!.....|....q.db|
|00003560| 88 cb 0e 0c 21 88 c4 0d | 21 71 88 0e 0d 0e 0c 43 |....!...|!q.....C|
|00003570| a4 16 0d ce 20 88 5c 6e | 19 cf 70 d0 d1 20 21 3d |.... .\n|..p.. !=|
|00003580| 21 88 29 c4 0d 21 71 88 | 60 89 16 06 2b 87 22 20 |!.)..!q.|`...+." |
|00003590| 5b 6f 62 75 66 20 6d 65 | 74 61 2d 66 6c 61 67 20 |[obuf me|ta-flag |
|000035a0| 6d 20 28 28 73 65 74 2d | 62 75 66 66 65 72 20 6f |m ((set-|buffer o|
|000035b0| 62 75 66 29 29 20 70 72 | 6f 63 65 73 73 2d 62 75 |buf)) pr|ocess-bu|
|000035c0| 66 66 65 72 20 70 72 6f | 63 65 73 73 20 74 65 2d |ffer pro|cess te-|
|000035d0| 73 61 76 65 64 2d 70 6f | 69 6e 74 20 62 75 66 66 |saved-po|int buff|
|000035e0| 65 72 70 20 74 65 2d 6c | 6f 67 2d 62 75 66 66 65 |erp te-l|og-buffe|
|000035f0| 72 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 6e 69 |r buffer|-name ni|
|00003600| 6c 20 69 6e 73 65 72 74 | 2d 62 65 66 6f 72 65 2d |l insert|-before-|
|00003610| 6d 61 72 6b 65 72 73 20 | 73 74 72 69 6e 67 20 74 |markers |string t|
|00003620| 65 2d 70 65 6e 64 69 6e | 67 2d 6f 75 74 70 75 74 |e-pendin|g-output|
|00003630| 20 74 65 2d 75 70 64 61 | 74 65 2d 70 65 6e 64 69 | te-upda|te-pendi|
|00003640| 6e 67 2d 6f 75 74 70 75 | 74 2d 64 69 73 70 6c 61 |ng-outpu|t-displa|
|00003650| 79 20 74 65 2d 70 72 6f | 63 65 73 73 2d 6f 75 74 |y te-pro|cess-out|
|00003660| 70 75 74 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |put wind|ow-buffe|
|00003670| 72 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |r select|ed-windo|
|00003680| 77 5d 20 34 5d 20 74 65 | 2d 70 72 6f 63 65 73 73 |w] 4] te|-process|
|00003690| 2d 6f 75 74 70 75 74 20 | 23 5b 28 70 72 65 65 6d |-output |#[(preem|
|000036a0| 70 74 61 62 6c 65 29 20 | 22 c0 11 c2 c3 8d 88 c4 |ptable) |".......|
|000036b0| 20 89 1d 1e 06 0d c7 0e | 06 21 89 16 06 3d 3f ad | .......|.!...=?.|
|000036c0| 90 c8 0e 06 21 70 3d ab | 6c c9 0e 06 60 5c 22 88 |....!p=.|l...`\".|
|000036d0| aa 64 2a 87 22 20 5b 74 | 20 70 72 65 65 6d 70 74 |.d*." [t| preempt|
|000036e0| 61 62 6c 65 20 74 65 2d | 70 72 6f 63 65 73 73 2d |able te-|process-|
|000036f0| 6f 75 74 70 75 74 20 28 | 62 79 74 65 2d 63 6f 64 |output (|byte-cod|
|00003700| 65 20 22 c0 89 89 89 89 | 89 19 1a 1b 1c 1d 1e 06 |e ".....|........|
|00003710| 0e 07 41 83 28 01 0d 14 | 0e 07 40 13 0e 07 41 40 |..A.(...|..@...A@|
|00003720| 89 15 0b 48 12 0b 54 89 | 13 0d 47 3d ab 94 c8 0e |...H..T.|..G=....|
|00003730| 07 41 41 42 16 07 c8 13 | 0e 07 41 40 15 c9 20 88 |.AAB....|..A@.. .|
|00003740| aa 85 0e 07 0b a0 88 5c | 6e ca 56 83 fa 00 5c 6e |.......\|n.V...\n|
|00003750| cb 57 83 fa 00 6c ab 9f | 0b c8 3d ab 8e c8 cc cd |.W...l..|..=.....|
|00003760| 5c 6e 5c 22 0e 07 41 42 | 42 16 07 aa 86 0e 07 0b |\n\"..AB|B.......|
|00003770| 53 a0 88 ce 20 88 82 16 | 01 0d ac 8e cf cd 21 88 |S... ...|......!.|
|00003780| 5c 6e 63 88 d0 cd 21 88 | 82 16 01 0c 0d 3d ab 83 |\nc...!.|.....=..|
|00003790| 09 ae 8b d1 d2 0d 0b 23 | 89 11 ae 82 0d 47 1e 13 |.......#|.....G..|
|000037a0| cf cd 21 88 5c 6e 63 88 | 60 12 c0 7f 88 0e 13 0b |..!.\nc.|`.......|
|000037b0| 60 5c 6e 5a 5c 5c 5e 16 | 13 5c 6e 62 88 0e 13 09 |`\nZ\\^.|.\nb....|
|000037c0| 3d ab 82 c0 11 60 60 0e | 13 0b 5a 5c 5c 7c 88 0b |=....``.|..Z\\|..|
|000037d0| c8 3d ab 8a 0e 13 0d 47 | 3d ab 83 0d aa 85 0d 0b |.=.....G|=.......|
|000037e0| 0e 13 4f 63 88 0e 13 0d | 47 3d ab 8a c8 0e 07 41 |..Oc....|G=.....A|
|000037f0| 41 42 16 07 aa 86 0e 07 | 0e 13 a0 88 d0 0e 13 0b |AB......|........|
|00003800| 5a 54 21 88 29 aa 9c 5c | 6e d4 3d ab 8a d5 20 d6 |ZT!.)..\|n.=... .|
|00003810| 9e 41 ae 8a d7 aa 87 5c | 6e d8 9e 41 ae 81 d7 20 |.A.....\|n..A... |
|00003820| 88 d0 cd 21 88 0e 19 83 | 0d 00 da 20 83 0d 00 db |...!....|... ....|
|00003830| dc dd 5c 22 88 82 0d 00 | 2e 06 c0 87 22 20 5b 6e |..\"....|...." [n|
|00003840| 69 6c 20 6d 61 74 63 68 | 70 6f 73 20 63 68 61 72 |il match|pos char|
|00003850| 20 73 74 61 72 74 20 6f | 73 74 72 69 6e 67 20 73 | start o|string s|
|00003860| 74 72 69 6e 67 20 62 75 | 66 66 65 72 2d 72 65 61 |tring bu|ffer-rea|
|00003870| 64 2d 6f 6e 6c 79 20 74 | 65 2d 70 65 6e 64 69 6e |d-only t|e-pendin|
|00003880| 67 2d 6f 75 74 70 75 74 | 20 30 20 74 65 2d 75 70 |g-output| 0 te-up|
|00003890| 64 61 74 65 2d 70 65 6e | 64 69 6e 67 2d 6f 75 74 |date-pen|ding-out|
|000038a0| 70 75 74 2d 64 69 73 70 | 6c 61 79 20 33 31 20 32 |put-disp|lay 31 2|
|000038b0| 35 35 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 31 |55 make-|string 1|
|000038c0| 20 74 65 2d 6e 65 77 6c | 69 6e 65 20 64 65 6c 65 | te-newl|ine dele|
|000038d0| 74 65 2d 63 68 61 72 20 | 74 65 2d 72 65 64 69 73 |te-char |te-redis|
|000038e0| 70 6c 61 79 2d 69 66 2d | 6e 65 63 65 73 73 61 72 |play-if-|necessar|
|000038f0| 79 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |y string|-match "|
|00003900| 5b 00 2d 1f 7f 2d ff 5d | 22 20 65 6e 64 20 31 36 |[.-..-.]|" end 16|
|00003910| 20 74 65 2d 67 65 74 2d | 63 68 61 72 20 28 28 36 | te-get-|char ((6|
|00003920| 31 20 2e 20 74 65 2d 6d | 6f 76 65 2d 74 6f 2d 70 |1 . te-m|ove-to-p|
|00003930| 6f 73 69 74 69 6f 6e 29 | 20 28 39 39 20 2e 20 74 |osition)| (99 . t|
|00003940| 65 2d 63 6c 65 61 72 2d | 72 65 73 74 2d 6f 66 2d |e-clear-|rest-of-|
|00003950| 6c 69 6e 65 29 20 28 36 | 37 20 2e 20 74 65 2d 63 |line) (6|7 . te-c|
|00003960| 6c 65 61 72 2d 72 65 73 | 74 2d 6f 66 2d 73 63 72 |lear-res|t-of-scr|
|00003970| 65 65 6e 29 20 28 31 35 | 20 2e 20 74 65 2d 69 6e |een) (15| . te-in|
|00003980| 73 65 72 74 2d 6c 69 6e | 65 73 29 20 28 31 31 20 |sert-lin|es) (11 |
|00003990| 2e 20 74 65 2d 64 65 6c | 65 74 65 2d 6c 69 6e 65 |. te-del|ete-line|
|000039a0| 73 29 20 28 31 20 2e 20 | 74 65 2d 62 65 67 69 6e |s) (1 . |te-begin|
|000039b0| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 29 20 28 32 |ning-of-|line) (2|
|000039c0| 20 2e 20 74 65 2d 62 61 | 63 6b 77 61 72 64 2d 63 | . te-ba|ckward-c|
|000039d0| 68 61 72 29 20 28 31 30 | 30 20 2e 20 74 65 2d 64 |har) (10|0 . te-d|
|000039e0| 65 6c 65 74 65 2d 63 68 | 61 72 29 20 28 39 35 20 |elete-ch|ar) (95 |
|000039f0| 2e 20 74 65 2d 69 6e 73 | 65 72 74 2d 73 70 61 63 |. te-ins|ert-spac|
|00003a00| 65 73 29 20 28 36 20 2e | 20 74 65 2d 66 6f 72 77 |es) (6 .| te-forw|
|00003a10| 61 72 64 2d 63 68 61 72 | 29 20 28 37 20 2e 20 74 |ard-char|) (7 . t|
|00003a20| 65 2d 62 65 65 70 29 20 | 28 31 30 20 2e 20 74 65 |e-beep) |(10 . te|
|00003a30| 2d 64 6f 77 6e 2d 76 65 | 72 74 69 63 61 6c 6c 79 |-down-ve|rtically|
|00003a40| 2d 6f 72 2d 73 63 72 6f | 6c 6c 29 20 28 31 32 20 |-or-scro|ll) (12 |
|00003a50| 2e 20 74 65 2d 63 6c 65 | 61 72 2d 73 63 72 65 65 |. te-cle|ar-scree|
|00003a60| 6e 29 29 20 74 65 2d 6c | 6f 73 69 6e 67 2d 75 6e |n)) te-l|osing-un|
|00003a70| 69 78 20 28 28 31 30 20 | 2e 20 74 65 2d 6e 65 77 |ix ((10 |. te-new|
|00003a80| 6c 69 6e 65 29 20 28 31 | 32 37 20 2e 20 74 65 2d |line) (1|27 . te-|
|00003a90| 64 65 6c 65 74 65 29 20 | 28 31 33 20 2e 20 74 65 |delete) |(13 . te|
|00003aa0| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 6c 69 |-beginni|ng-of-li|
|00003ab0| 6e 65 29 20 28 37 20 2e | 20 74 65 2d 62 65 65 70 |ne) (7 .| te-beep|
|00003ac0| 29 20 28 38 20 2e 20 74 | 65 2d 62 61 63 6b 77 61 |) (8 . t|e-backwa|
|00003ad0| 72 64 2d 63 68 61 72 29 | 20 28 39 20 2e 20 74 65 |rd-char)| (9 . te|
|00003ae0| 2d 6f 75 74 70 75 74 2d | 74 61 62 29 29 20 70 72 |-output-|tab)) pr|
|00003af0| 65 65 6d 70 74 61 62 6c | 65 20 69 6e 70 75 74 2d |eemptabl|e input-|
|00003b00| 70 65 6e 64 69 6e 67 2d | 70 20 74 68 72 6f 77 20 |pending-|p throw |
|00003b10| 74 65 2d 70 72 6f 63 65 | 73 73 2d 6f 75 74 70 75 |te-proce|ss-outpu|
|00003b20| 74 20 74 5d 20 37 29 20 | 73 65 6c 65 63 74 65 64 |t t] 7) |selected|
|00003b30| 2d 77 69 6e 64 6f 77 20 | 73 20 77 20 6e 65 78 74 |-window |s w next|
|00003b40| 2d 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 62 |-window |window-b|
|00003b50| 75 66 66 65 72 20 73 65 | 74 2d 77 69 6e 64 6f 77 |uffer se|t-window|
|00003b60| 2d 70 6f 69 6e 74 5d 20 | 34 5d 20 74 65 2d 67 65 |-point] |4] te-ge|
|00003b70| 74 2d 63 68 61 72 20 23 | 5b 6e 69 6c 20 22 08 41 |t-char #|[nil ".A|
|00003b80| ab a1 08 40 08 41 40 19 | 1a 09 5c 6e 48 5c 6e 54 |...@.A@.|..\nH\nT|
|00003b90| 89 12 09 47 3d ab 88 c3 | 08 41 41 42 10 aa 84 08 |...G=...|.AAB....|
|00003ba0| 5c 6e a0 88 2a 87 c4 c5 | 8d 87 22 20 5b 74 65 2d |\n..*...|.." [te-|
|00003bb0| 70 65 6e 64 69 6e 67 2d | 6f 75 74 70 75 74 20 73 |pending-|output s|
|00003bc0| 74 72 69 6e 67 20 73 74 | 61 72 74 20 30 20 63 68 |tring st|art 0 ch|
|00003bd0| 61 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ar (byte|-code ".|
|00003be0| 09 21 1a c3 8e c4 09 c5 | 5c 22 88 c6 09 21 2a 87 |.!......|\"...!*.|
|00003bf0| 22 20 5b 70 72 6f 63 65 | 73 73 2d 66 69 6c 74 65 |" [proce|ss-filte|
|00003c00| 72 20 74 65 2d 70 72 6f | 63 65 73 73 20 66 69 6c |r te-pro|cess fil|
|00003c10| 74 65 72 20 28 28 73 65 | 74 2d 70 72 6f 63 65 73 |ter ((se|t-proces|
|00003c20| 73 2d 66 69 6c 74 65 72 | 20 74 65 2d 70 72 6f 63 |s-filter| te-proc|
|00003c30| 65 73 73 20 66 69 6c 74 | 65 72 29 29 20 73 65 74 |ess filt|er)) set|
|00003c40| 2d 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 |-process|-filter |
|00003c50| 23 5b 28 70 20 73 29 20 | 22 08 47 c1 3d ac 84 c1 |#[(p s) |".G.=...|
|00003c60| 08 44 12 c3 c4 08 c5 48 | 5c 22 87 22 20 5b 73 20 |.D.....H|\"." [s |
|00003c70| 31 20 74 65 2d 70 65 6e | 64 69 6e 67 2d 6f 75 74 |1 te-pen|ding-out|
|00003c80| 70 75 74 20 74 68 72 6f | 77 20 63 68 61 72 20 30 |put thro|w char 0|
|00003c90| 5d 20 34 5d 20 61 63 63 | 65 70 74 2d 70 72 6f 63 |] 4] acc|ept-proc|
|00003ca0| 65 73 73 2d 6f 75 74 70 | 75 74 5d 20 33 29 5d 20 |ess-outp|ut] 3)] |
|00003cb0| 33 5d 20 74 65 2d 72 65 | 64 69 73 70 6c 61 79 2d |3] te-re|display-|
|00003cc0| 69 66 2d 6e 65 63 65 73 | 73 61 72 79 20 23 5b 28 |if-neces|sary #[(|
|00003cd0| 6c 65 6e 67 74 68 29 20 | 22 08 09 5a 89 10 c2 58 |length) |"..Z...X|
|00003ce0| ad 97 70 c3 c4 20 21 3d | ad 8f c5 20 ad 8b c6 20 |..p.. !=|... ... |
|00003cf0| 88 c7 c2 21 88 0e 08 89 | 10 87 22 20 5b 74 65 2d |...!....|.." [te-|
|00003d00| 72 65 64 69 73 70 6c 61 | 79 2d 63 6f 75 6e 74 20 |redispla|y-count |
|00003d10| 6c 65 6e 67 74 68 20 30 | 20 77 69 6e 64 6f 77 2d |length 0| window-|
|00003d20| 62 75 66 66 65 72 20 73 | 65 6c 65 63 74 65 64 2d |buffer s|elected-|
|00003d30| 77 69 6e 64 6f 77 20 77 | 61 69 74 69 6e 67 2d 66 |window w|aiting-f|
|00003d40| 6f 72 2d 75 73 65 72 2d | 69 6e 70 75 74 2d 70 20 |or-user-|input-p |
|00003d50| 74 65 2d 75 70 64 61 74 | 65 2d 70 65 6e 64 69 6e |te-updat|e-pendin|
|00003d60| 67 2d 6f 75 74 70 75 74 | 2d 64 69 73 70 6c 61 79 |g-output|-display|
|00003d70| 20 73 69 74 2d 66 6f 72 | 20 74 65 72 6d 69 6e 61 | sit-for| termina|
|00003d80| 6c 2d 72 65 64 69 73 70 | 6c 61 79 2d 69 6e 74 65 |l-redisp|lay-inte|
|00003d90| 72 76 61 6c 5d 20 33 5d | 20 74 65 2d 75 70 64 61 |rval] 3]| te-upda|
|00003da0| 74 65 2d 70 65 6e 64 69 | 6e 67 2d 6f 75 74 70 75 |te-pendi|ng-outpu|
|00003db0| 74 2d 64 69 73 70 6c 61 | 79 20 23 5b 6e 69 6c 20 |t-displa|y #[nil |
|00003dc0| 22 08 41 ac 84 c1 12 aa | 96 c3 20 89 1c c5 57 ab |".A.....|.. ...W.|
|00003dd0| 84 c1 12 aa 89 c6 c7 0c | c8 5c 5c c9 a5 5c 22 12 |........|.\\..\".|
|00003de0| 29 ca cb 20 21 87 22 20 | 5b 74 65 2d 70 65 6e 64 |).. !." |[te-pend|
|00003df0| 69 6e 67 2d 6f 75 74 70 | 75 74 20 22 22 20 74 65 |ing-outp|ut "" te|
|00003e00| 2d 70 65 6e 64 69 6e 67 | 2d 6f 75 74 70 75 74 2d |-pending|-output-|
|00003e10| 69 6e 66 6f 20 74 65 2d | 70 65 6e 64 69 6e 67 2d |info te-|pending-|
|00003e20| 6f 75 74 70 75 74 2d 6c | 65 6e 67 74 68 20 6c 65 |output-l|ength le|
|00003e30| 6e 67 74 68 20 31 35 30 | 30 20 66 6f 72 6d 61 74 |ngth 150|0 format|
|00003e40| 20 22 28 25 64 4b 20 63 | 68 61 72 73 20 6f 75 74 | "(%dK c|hars out|
|00003e50| 70 75 74 20 70 65 6e 64 | 69 6e 67 29 20 22 20 35 |put pend|ing) " 5|
|00003e60| 31 32 20 31 30 32 34 20 | 73 65 74 2d 62 75 66 66 |12 1024 |set-buff|
|00003e70| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 62 75 |er-modif|ied-p bu|
|00003e80| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 5d |ffer-mod|ified-p]|
|00003e90| 20 35 5d 20 74 65 2d 73 | 65 6e 74 69 6e 65 6c 20 | 5] te-s|entinel |
|00003ea0| 23 5b 28 70 72 6f 63 65 | 73 73 20 6d 65 73 73 61 |#[(proce|ss messa|
|00003eb0| 67 65 29 20 22 c0 09 21 | c2 3d ae b9 c3 c4 09 21 |ge) "..!|.=.....!|
|00003ec0| 21 3f ae b1 70 1d 8a c4 | 09 21 71 88 c6 16 07 c8 |!?..p...|.!q.....|
|00003ed0| 20 88 64 62 88 c9 20 88 | ca 20 88 cb 0e 0c cd b1 | .db.. .|. ......|
|00003ee0| 03 88 29 0d c4 09 21 3d | ad 8a ce 20 ad 86 64 62 |..)...!=|... ..db|
|00003ef0| 88 cf d0 21 29 87 22 20 | 5b 70 72 6f 63 65 73 73 |...!)." |[process|
|00003f00| 2d 73 74 61 74 75 73 20 | 70 72 6f 63 65 73 73 20 |-status |process |
|00003f10| 72 75 6e 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |run buff|er-name |
|00003f20| 70 72 6f 63 65 73 73 2d | 62 75 66 66 65 72 20 62 |process-|buffer b|
|00003f30| 20 6e 69 6c 20 62 75 66 | 66 65 72 2d 72 65 61 64 | nil buf|fer-read|
|00003f40| 2d 6f 6e 6c 79 20 66 75 | 6e 64 61 6d 65 6e 74 61 |-only fu|ndamenta|
|00003f50| 6c 2d 6d 6f 64 65 20 64 | 65 6c 65 74 65 2d 62 6c |l-mode d|elete-bl|
|00003f60| 61 6e 6b 2d 6c 69 6e 65 | 73 20 64 65 6c 65 74 65 |ank-line|s delete|
|00003f70| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 70 61 63 |-horizon|tal-spac|
|00003f80| 65 20 22 5c 6e 2a 2a 2a | 2a 2a 2a 2a 5c 6e 22 20 |e "\n***|****\n" |
|00003f90| 6d 65 73 73 61 67 65 20 | 22 2a 2a 2a 2a 2a 2a 2a |message |"*******|
|00003fa0| 5c 6e 22 20 77 61 69 74 | 69 6e 67 2d 66 6f 72 2d |\n" wait|ing-for-|
|00003fb0| 75 73 65 72 2d 69 6e 70 | 75 74 2d 70 20 72 65 63 |user-inp|ut-p rec|
|00003fc0| 65 6e 74 65 72 20 2d 31 | 5d 20 33 5d 5d 20 32 29 |enter -1|] 3]] 2)|
|00003fd0| 0a 28 64 65 66 76 61 72 | 20 74 65 2d 73 74 74 79 |.(defvar| te-stty|
|00003fe0| 2d 73 74 72 69 6e 67 20 | 22 73 74 74 79 20 2d 6e |-string |"stty -n|
|00003ff0| 6c 20 6e 65 77 20 64 65 | 63 20 65 63 68 6f 22 20 |l new de|c echo" |
|00004000| 22 5c 0a 43 6f 6d 6d 61 | 6e 64 20 73 74 72 69 6e |"\.Comma|nd strin|
|00004010| 67 20 28 74 6f 20 62 65 | 20 69 6e 74 65 72 70 72 |g (to be| interpr|
|00004020| 65 74 65 64 20 62 79 20 | 5c 22 73 68 5c 22 29 20 |eted by |\"sh\") |
|00004030| 77 68 69 63 68 20 73 65 | 74 73 20 74 68 65 20 6d |which se|ts the m|
|00004040| 6f 64 65 73 0a 6f 66 20 | 74 68 65 20 76 69 72 74 |odes.of |the virt|
|00004050| 75 61 6c 20 74 65 72 6d | 69 6e 61 6c 20 74 6f 20 |ual term|inal to |
|00004060| 62 65 20 61 70 70 72 6f | 70 72 69 61 74 65 20 66 |be appro|priate f|
|00004070| 6f 72 20 69 6e 74 65 72 | 61 63 74 69 76 65 20 75 |or inter|active u|
|00004080| 73 65 2e 22 29 0a 28 64 | 65 66 76 61 72 20 65 78 |se.").(d|efvar ex|
|00004090| 70 6c 69 63 69 74 2d 73 | 68 65 6c 6c 2d 66 69 6c |plicit-s|hell-fil|
|000040a0| 65 2d 6e 61 6d 65 20 6e | 69 6c 20 22 5c 0a 2a 49 |e-name n|il "\.*I|
|000040b0| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 69 73 20 66 69 |f non-ni|l, is fi|
|000040c0| 6c 65 20 6e 61 6d 65 20 | 74 6f 20 75 73 65 20 66 |le name |to use f|
|000040d0| 6f 72 20 65 78 70 6c 69 | 63 69 74 6c 79 20 72 65 |or expli|citly re|
|000040e0| 71 75 65 73 74 65 64 20 | 69 6e 66 65 72 69 6f 72 |quested |inferior|
|000040f0| 20 73 68 65 6c 6c 2e 22 | 29 0a 28 66 73 65 74 20 | shell."|).(fset |
|00004100| 27 74 65 72 6d 69 6e 61 | 6c 2d 65 6d 75 6c 61 74 |'termina|l-emulat|
|00004110| 6f 72 20 23 5b 28 62 75 | 66 66 65 72 20 70 72 6f |or #[(bu|ffer pro|
|00004120| 67 72 61 6d 20 61 72 67 | 73 20 26 6f 70 74 69 6f |gram arg|s &optio|
|00004130| 6e 61 6c 20 77 69 64 74 | 68 20 68 65 69 67 68 74 |nal widt|h height|
|00004140| 29 20 22 c0 09 21 88 5c | 6e ac 87 c3 c4 20 21 c5 |) "..!.\|n.... !.|
|00004150| 5a 12 0e 06 ac 88 c7 c4 | 20 21 c5 5a 16 06 c8 20 |Z.......| !.Z... |
|00004160| 88 5c 6e 16 09 0e 06 16 | 5c 6e cb cc 0e 09 0e 5c |.\n.....|\n.....\|
|00004170| 6e 23 cd 44 16 0e cf 1e | 10 d1 20 88 29 cf 1e 12 |n#.D....|.. .)...|
|00004180| d3 70 21 89 16 12 ab 9c | d4 cb d5 d6 0e 12 21 5c |.p!.....|......!\|
|00004190| 22 21 ab 87 d7 0e 12 21 | 88 aa 66 d8 d9 d6 0e 12 |"!.....!|..f.....|
|000041a0| 21 5c 22 88 aa 5c 5c 29 | da db dc 8f 88 dd de 21 |!\"..\\)|.......!|
|000041b0| ab 88 df e0 21 88 e1 c5 | 21 88 e2 16 23 e4 0e 25 |....!...|!...#..%|
|000041c0| 21 88 e6 e7 21 88 df e8 | e9 0e 2a 21 eb e9 ec ed |!...!...|..*!....|
|000041d0| 0e 2e e2 23 ef 23 23 87 | 22 20 5b 73 77 69 74 63 |...#.##.|" [switc|
|000041e0| 68 2d 74 6f 2d 62 75 66 | 66 65 72 20 62 75 66 66 |h-to-buf|fer buff|
|000041f0| 65 72 20 77 69 64 74 68 | 20 77 69 6e 64 6f 77 2d |er width| window-|
|00004200| 77 69 64 74 68 20 73 65 | 6c 65 63 74 65 64 2d 77 |width se|lected-w|
|00004210| 69 6e 64 6f 77 20 31 20 | 68 65 69 67 68 74 20 77 |indow 1 |height w|
|00004220| 69 6e 64 6f 77 2d 68 65 | 69 67 68 74 20 74 65 72 |indow-he|ight ter|
|00004230| 6d 69 6e 61 6c 2d 6d 6f | 64 65 20 74 65 2d 77 69 |minal-mo|de te-wi|
|00004240| 64 74 68 20 74 65 2d 68 | 65 69 67 68 74 20 66 6f |dth te-h|eight fo|
|00004250| 72 6d 61 74 20 22 45 6d | 61 63 73 20 74 65 72 6d |rmat "Em|acs term|
|00004260| 69 6e 61 6c 20 25 64 78 | 25 64 3a 20 25 25 62 20 |inal %dx|%d: %%b |
|00004270| 20 22 20 74 65 2d 70 65 | 6e 64 69 6e 67 2d 6f 75 | " te-pe|nding-ou|
|00004280| 74 70 75 74 2d 69 6e 66 | 6f 20 6d 6f 64 65 2d 6c |tput-inf|o mode-l|
|00004290| 69 6e 65 2d 62 75 66 66 | 65 72 2d 69 64 65 6e 74 |ine-buff|er-ident|
|000042a0| 69 66 69 63 61 74 69 6f | 6e 20 6e 69 6c 20 62 75 |ificatio|n nil bu|
|000042b0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 74 |ffer-rea|d-only t|
|000042c0| 65 2d 63 6c 65 61 72 2d | 73 63 72 65 65 6e 20 70 |e-clear-|screen p|
|000042d0| 72 6f 63 65 73 73 20 67 | 65 74 2d 62 75 66 66 65 |rocess g|et-buffe|
|000042e0| 72 2d 70 72 6f 63 65 73 | 73 20 79 2d 6f 72 2d 6e |r-proces|s y-or-n|
|000042f0| 2d 70 20 22 4b 69 6c 6c | 20 70 72 6f 63 65 73 73 |-p "Kill| process|
|00004300| 20 25 73 3f 20 22 20 70 | 72 6f 63 65 73 73 2d 6e | %s? " p|rocess-n|
|00004310| 61 6d 65 20 64 65 6c 65 | 74 65 2d 70 72 6f 63 65 |ame dele|te-proce|
|00004320| 73 73 20 65 72 72 6f 72 | 20 22 50 72 6f 63 65 73 |ss error| "Proces|
|00004330| 73 20 25 73 20 6e 6f 74 | 20 6b 69 6c 6c 65 64 22 |s %s not| killed"|
|00004340| 20 65 72 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | err (by|te-code |
|00004350| 22 c0 c1 5c 6e 0b 0c ab | 83 c5 aa 81 c6 24 c7 c8 |"..\n...|.....$..|
|00004360| c9 ca cb cc b0 07 1e 0d | ce cf 21 ab 9d cf d0 0e |........|..!.....|
|00004370| 11 0e 12 d3 d4 d5 d6 d7 | 70 d8 d9 da db dc 42 dd |........|p.....B.|
|00004380| 0e 0d 42 44 26 0d 16 1e | aa ae df d0 70 e0 e1 c0 |..BD&...|....p...|
|00004390| e2 0e 23 e4 0e 25 e6 50 | 21 e4 e7 0e 0d 50 21 e8 |..#..%.P|!....P!.|
|000043a0| e4 0e 11 0e 12 42 e9 23 | 25 25 16 1e ea 0e 1e d6 |.....B.#|%%......|
|000043b0| 5c 22 88 eb 0e 1e d9 5c | 22 88 29 c0 87 22 20 5b |\".....\|".).." [|
|000043c0| 66 6f 72 6d 61 74 20 22 | 65 6d 61 63 73 2d 76 69 |format "|emacs-vi|
|000043d0| 72 74 75 61 6c 3a 63 6f | 23 25 64 3a 6c 69 23 25 |rtual:co|#%d:li#%|
|000043e0| 64 3a 25 73 22 20 74 65 | 2d 77 69 64 74 68 20 74 |d:%s" te|-width t|
|000043f0| 65 2d 68 65 69 67 68 74 | 20 74 65 72 6d 69 6e 61 |e-height| termina|
|00004400| 6c 2d 73 63 72 6f 6c 6c | 69 6e 67 20 22 22 20 22 |l-scroll|ing "" "|
|00004410| 6e 73 3a 22 20 22 63 6d | 3d 5e 70 3d 25 2b 20 25 |ns:" "cm|=^p=%+ %|
|00004420| 2b 20 3a 63 72 3d 5e 70 | 5e 61 3a 6c 65 3d 5e 70 |+ :cr=^p|^a:le=^p|
|00004430| 5e 62 3a 6e 64 3d 5e 70 | 5e 66 3a 22 20 22 6e 77 |^b:nd=^p|^f:" "nw|
|00004440| 3d 5e 6a 3a 63 65 3d 5e | 70 63 3a 63 64 3d 5e 70 |=^j:ce=^|pc:cd=^p|
|00004450| 43 3a 63 6c 3d 5e 70 5e | 6c 3a 62 6c 3d 5e 70 5e |C:cl=^p^|l:bl=^p^|
|00004460| 67 3a 22 20 22 49 43 3d | 5e 70 5f 25 2b 20 3a 44 |g:" "IC=|^p_%+ :D|
|00004470| 43 3d 5e 70 64 25 2b 20 | 3a 41 4c 3d 5e 70 5e 6f |C=^pd%+ |:AL=^p^o|
|00004480| 25 2b 20 3a 44 4c 3d 5e | 70 5e 6b 25 2b 20 3a 22 |%+ :DL=^|p^k%+ :"|
|00004490| 20 22 4c 50 3a 4e 46 3a | 22 20 22 69 63 3d 5e 70 | "LP:NF:|" "ic=^p|
|000044a0| 5f 21 3a 64 63 3d 5e 70 | 64 21 3a 61 6c 3d 5e 70 |_!:dc=^p|d!:al=^p|
|000044b0| 5e 6f 21 3a 64 6c 3d 5e | 70 5e 6b 21 3a 68 6f 3d |^o!:dl=^|p^k!:ho=|
|000044c0| 5e 70 3d 20 20 3a 22 20 | 22 69 6d 3d 3a 65 69 3d |^p= :" |"im=:ei=|
|000044d0| 3a 64 6d 3d 3a 65 64 3d | 3a 6d 69 3a 64 6f 3d 5e |:dm=:ed=|:mi:do=^|
|000044e0| 70 5e 6a 3a 6e 6c 3d 5e | 70 5e 6a 3a 62 73 3a 22 |p^j:nl=^|p^j:bs:"|
|000044f0| 20 74 65 72 6d 63 61 70 | 20 66 62 6f 75 6e 64 70 | termcap| fboundp|
|00004500| 20 73 74 61 72 74 2d 73 | 75 62 70 72 6f 63 65 73 | start-s|ubproces|
|00004510| 73 20 22 74 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |s "termi|nal-emul|
|00004520| 61 74 6f 72 22 20 70 72 | 6f 67 72 61 6d 20 61 72 |ator" pr|ogram ar|
|00004530| 67 73 20 63 68 61 6e 6e | 65 6c 2d 74 79 70 65 20 |gs chann|el-type |
|00004540| 74 65 72 6d 69 6e 61 6c | 20 66 69 6c 74 65 72 20 |terminal| filter |
|00004550| 74 65 2d 66 69 6c 74 65 | 72 20 62 75 66 66 65 72 |te-filte|r buffer|
|00004560| 20 73 65 6e 74 69 6e 65 | 6c 20 74 65 2d 73 65 6e | sentine|l te-sen|
|00004570| 74 69 6e 65 6c 20 6d 6f | 64 69 66 79 2d 65 6e 76 |tinel mo|dify-env|
|00004580| 69 72 6f 6e 6d 65 6e 74 | 20 22 54 45 52 4d 22 20 |ironment| "TERM" |
|00004590| 22 65 6d 61 63 73 2d 76 | 69 72 74 75 61 6c 22 20 |"emacs-v|irtual" |
|000045a0| 22 54 45 52 4d 43 41 50 | 22 20 74 65 2d 70 72 6f |"TERMCAP|" te-pro|
|000045b0| 63 65 73 73 20 73 74 61 | 72 74 2d 70 72 6f 63 65 |cess sta|rt-proce|
|000045c0| 73 73 20 22 2f 62 69 6e | 2f 73 68 22 20 22 2d 63 |ss "/bin|/sh" "-c|
|000045d0| 22 20 22 25 73 3b 20 65 | 78 65 63 20 25 73 20 54 |" "%s; e|xec %s T|
|000045e0| 45 52 4d 3d 65 6d 61 63 | 73 2d 76 69 72 74 75 61 |ERM=emac|s-virtua|
|000045f0| 6c 20 25 73 20 25 73 22 | 20 74 65 2d 73 74 74 79 |l %s %s"| te-stty|
|00004600| 2d 73 74 72 69 6e 67 20 | 74 65 2d 71 75 6f 74 65 |-string |te-quote|
|00004610| 2d 61 72 67 2d 66 6f 72 | 2d 73 68 20 65 78 65 63 |-arg-for|-sh exec|
|00004620| 2d 64 69 72 65 63 74 6f | 72 79 20 22 65 6e 76 22 |-directo|ry "env"|
|00004630| 20 22 54 45 52 4d 43 41 | 50 3d 22 20 6d 61 70 63 | "TERMCA|P=" mapc|
|00004640| 6f 6e 63 61 74 20 22 20 | 22 20 73 65 74 2d 70 72 |oncat " |" set-pr|
|00004650| 6f 63 65 73 73 2d 66 69 | 6c 74 65 72 20 73 65 74 |ocess-fi|lter set|
|00004660| 2d 70 72 6f 63 65 73 73 | 2d 73 65 6e 74 69 6e 65 |-process|-sentine|
|00004670| 6c 5d 20 31 36 29 20 28 | 28 65 72 72 6f 72 20 28 |l] 16) (|(error (|
|00004680| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 20 88 c1 5c |byte-cod|e ". ..\|
|00004690| 6e 40 5c 6e 41 5c 22 87 | 22 20 5b 66 75 6e 64 61 |n@\nA\".|" [funda|
|000046a0| 6d 65 6e 74 61 6c 2d 6d | 6f 64 65 20 73 69 67 6e |mental-m|ode sign|
|000046b0| 61 6c 20 65 72 72 5d 20 | 33 29 29 29 20 64 65 66 |al err] |3))) def|
|000046c0| 61 75 6c 74 2d 76 61 6c | 75 65 20 6d 65 74 61 2d |ault-val|ue meta-|
|000046d0| 66 6c 61 67 20 6d 65 73 | 73 61 67 65 20 22 4e 6f |flag mes|sage "No|
|000046e0| 74 65 3a 20 20 4d 65 74 | 61 20 6b 65 79 20 64 69 |te: Met|a key di|
|000046f0| 73 61 62 6c 65 64 20 64 | 75 65 20 74 6f 20 6d 61 |sabled d|ue to ma|
|00004700| 79 62 65 2d 65 76 65 6e | 74 75 61 6c 6c 79 2d 72 |ybe-even|tually-r|
|00004710| 65 70 61 72 61 62 6c 65 | 20 62 72 61 69 6e 64 61 |eparable| brainda|
|00004720| 6d 61 67 65 22 20 73 69 | 74 2d 66 6f 72 20 74 20 |mage" si|t-for t |
|00004730| 69 6e 68 69 62 69 74 2d | 71 75 69 74 20 75 73 65 |inhibit-|quit use|
|00004740| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 74 65 72 6d 69 |-local-m|ap termi|
|00004750| 6e 61 6c 2d 6d 61 70 20 | 72 75 6e 2d 68 6f 6f 6b |nal-map |run-hook|
|00004760| 73 20 74 65 72 6d 69 6e | 61 6c 2d 6d 6f 64 65 2d |s termin|al-mode-|
|00004770| 68 6f 6f 6b 20 22 45 6e | 74 65 72 69 6e 67 20 65 |hook "En|tering e|
|00004780| 6d 61 63 73 20 74 65 72 | 6d 69 6e 61 6c 2d 65 6d |macs ter|minal-em|
|00004790| 75 6c 61 74 6f 72 2e 2e | 2e 20 20 54 79 70 65 20 |ulator..|. Type |
|000047a0| 25 73 20 25 73 20 66 6f | 72 20 68 65 6c 70 22 20 |%s %s fo|r help" |
|000047b0| 73 69 6e 67 6c 65 2d 6b | 65 79 2d 64 65 73 63 72 |single-k|ey-descr|
|000047c0| 69 70 74 69 6f 6e 20 74 | 65 72 6d 69 6e 61 6c 2d |iption t|erminal-|
|000047d0| 65 73 63 61 70 65 2d 63 | 68 61 72 20 6d 61 70 63 |escape-c|har mapc|
|000047e0| 6f 6e 63 61 74 20 77 68 | 65 72 65 2d 69 73 2d 69 |oncat wh|ere-is-i|
|000047f0| 6e 74 65 72 6e 61 6c 20 | 74 65 2d 65 73 63 61 70 |nternal |te-escap|
|00004800| 65 2d 68 65 6c 70 20 74 | 65 72 6d 69 6e 61 6c 2d |e-help t|erminal-|
|00004810| 65 73 63 61 70 65 2d 6d | 61 70 20 22 20 22 5d 20 |escape-m|ap " "] |
|00004820| 39 20 22 5c 0a 55 6e 64 | 65 72 20 61 20 64 69 73 |9 "\.Und|er a dis|
|00004830| 70 6c 61 79 2d 74 65 72 | 6d 69 6e 61 6c 20 65 6d |play-ter|minal em|
|00004840| 75 6c 61 74 6f 72 20 69 | 6e 20 42 55 46 46 45 52 |ulator i|n BUFFER|
|00004850| 2c 20 72 75 6e 20 50 52 | 4f 47 52 41 4d 20 6f 6e |, run PR|OGRAM on|
|00004860| 20 61 72 67 75 6d 65 6e | 74 73 20 41 52 47 53 2e | argumen|ts ARGS.|
|00004870| 0a 41 52 47 53 20 69 73 | 20 61 20 6c 69 73 74 20 |.ARGS is| a list |
|00004880| 6f 66 20 61 72 67 75 6d | 65 6e 74 2d 73 74 72 69 |of argum|ent-stri|
|00004890| 6e 67 73 2e 20 20 52 65 | 6d 61 69 6e 69 6e 67 20 |ngs. Re|maining |
|000048a0| 61 72 67 75 6d 65 6e 74 | 73 20 61 72 65 20 57 49 |argument|s are WI|
|000048b0| 44 54 48 20 61 6e 64 20 | 48 45 49 47 48 54 2e 0a |DTH and |HEIGHT..|
|000048c0| 42 55 46 46 45 52 27 73 | 20 63 6f 6e 74 65 6e 74 |BUFFER's| content|
|000048d0| 73 20 61 72 65 20 6d 61 | 64 65 20 61 6e 20 69 6d |s are ma|de an im|
|000048e0| 61 67 65 20 6f 66 20 74 | 68 65 20 64 69 73 70 6c |age of t|he displ|
|000048f0| 61 79 20 67 65 6e 65 72 | 61 74 65 64 20 62 79 20 |ay gener|ated by |
|00004900| 74 68 61 74 20 70 72 6f | 67 72 61 6d 2c 0a 61 6e |that pro|gram,.an|
|00004910| 64 20 61 6e 79 20 69 6e | 70 75 74 20 74 79 70 65 |d any in|put type|
|00004920| 64 20 77 68 65 6e 20 42 | 55 46 46 45 52 20 69 73 |d when B|UFFER is|
|00004930| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 45 6d 61 | the cur|rent Ema|
|00004940| 63 73 20 62 75 66 66 65 | 72 20 69 73 20 73 65 6e |cs buffe|r is sen|
|00004950| 74 20 74 6f 20 74 68 61 | 74 0a 70 72 6f 67 72 61 |t to tha|t.progra|
|00004960| 6d 20 61 6e 20 6b 65 79 | 62 6f 61 72 64 20 69 6e |m an key|board in|
|00004970| 70 75 74 2e 0a 0a 49 6e | 74 65 72 61 63 74 69 76 |put...In|teractiv|
|00004980| 65 6c 79 2c 20 42 55 46 | 46 45 52 20 64 65 66 61 |ely, BUF|FER defa|
|00004990| 75 6c 74 73 20 74 6f 20 | 5c 22 2a 74 65 72 6d 69 |ults to |\"*termi|
|000049a0| 6e 61 6c 2a 5c 22 20 61 | 6e 64 20 50 52 4f 47 52 |nal*\" a|nd PROGR|
|000049b0| 41 4d 20 61 6e 64 20 41 | 52 47 53 0a 61 72 65 20 |AM and A|RGS.are |
|000049c0| 70 61 72 73 65 64 20 66 | 72 6f 6d 20 61 6e 20 69 |parsed f|rom an i|
|000049d0| 6e 70 75 74 2d 73 74 72 | 69 6e 67 20 75 73 69 6e |nput-str|ing usin|
|000049e0| 67 20 79 6f 75 72 20 75 | 73 75 61 6c 20 73 68 65 |g your u|sual she|
|000049f0| 6c 6c 2e 0a 57 49 44 54 | 48 20 61 6e 64 20 48 45 |ll..WIDT|H and HE|
|00004a00| 49 47 48 54 20 61 72 65 | 20 64 65 74 65 72 6d 69 |IGHT are| determi|
|00004a10| 6e 65 64 20 66 72 6f 6d | 20 74 68 65 20 73 69 7a |ned from| the siz|
|00004a20| 65 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e of the| current|
|00004a30| 20 77 69 6e 64 6f 77 0a | 2d 2d 20 57 49 44 54 48 | window.|-- WIDTH|
|00004a40| 20 77 69 6c 6c 20 62 65 | 20 6f 6e 65 20 6c 65 73 | will be| one les|
|00004a50| 73 20 74 68 61 6e 20 74 | 68 65 20 77 69 6e 64 6f |s than t|he windo|
|00004a60| 77 27 73 20 77 69 64 74 | 68 2c 20 48 45 49 47 48 |w's widt|h, HEIGH|
|00004a70| 54 20 77 69 6c 6c 20 62 | 65 20 69 74 73 20 68 65 |T will b|e its he|
|00004a80| 69 67 68 74 2e 0a 0a 54 | 6f 20 73 77 69 74 63 68 |ight...T|o switch|
|00004a90| 20 62 75 66 66 65 72 73 | 20 61 6e 64 20 6c 65 61 | buffers| and lea|
|00004aa0| 76 65 20 74 68 65 20 65 | 6d 75 6c 61 74 6f 72 2c |ve the e|mulator,|
|00004ab0| 20 6f 72 20 74 6f 20 67 | 69 76 65 20 63 6f 6d 6d | or to g|ive comm|
|00004ac0| 61 6e 64 73 0a 74 6f 20 | 74 68 65 20 65 6d 75 6c |ands.to |the emul|
|00004ad0| 61 74 6f 72 20 69 74 73 | 65 6c 66 20 28 61 73 20 |ator its|elf (as |
|00004ae0| 6f 70 70 6f 73 65 64 20 | 74 6f 20 74 68 65 20 70 |opposed |to the p|
|00004af0| 72 6f 67 72 61 6d 20 72 | 75 6e 6e 69 6e 67 20 75 |rogram r|unning u|
|00004b00| 6e 64 65 72 20 69 74 29 | 2c 0a 74 79 70 65 20 43 |nder it)|,.type C|
|00004b10| 6f 6e 74 72 6f 6c 2d 5e | 2e 20 20 54 68 65 20 66 |ontrol-^|. The f|
|00004b20| 6f 6c 6c 6f 77 69 6e 67 | 20 63 68 61 72 61 63 74 |ollowing| charact|
|00004b30| 65 72 20 69 73 20 61 6e | 20 65 6d 75 6c 61 74 6f |er is an| emulato|
|00004b40| 72 20 63 6f 6d 6d 61 6e | 64 2e 0a 54 79 70 65 20 |r comman|d..Type |
|00004b50| 43 6f 6e 74 72 6f 6c 2d | 5e 20 74 77 69 63 65 20 |Control-|^ twice |
|00004b60| 74 6f 20 73 65 6e 64 20 | 69 74 20 74 6f 20 74 68 |to send |it to th|
|00004b70| 65 20 73 75 62 70 72 6f | 67 72 61 6d 2e 0a 54 68 |e subpro|gram..Th|
|00004b80| 69 73 20 65 73 63 61 70 | 65 20 63 68 61 72 61 63 |is escap|e charac|
|00004b90| 74 65 72 20 6d 61 79 20 | 62 65 20 63 68 61 6e 67 |ter may |be chang|
|00004ba0| 65 64 20 75 73 69 6e 67 | 20 74 68 65 20 76 61 72 |ed using| the var|
|00004bb0| 69 61 62 6c 65 20 60 74 | 65 72 6d 69 6e 61 6c 2d |iable `t|erminal-|
|00004bc0| 65 73 63 61 70 65 2d 63 | 68 61 72 27 2e 0a 0a 60 |escape-c|har'...`|
|00004bd0| 4d 65 74 61 27 20 63 68 | 61 72 61 63 74 65 72 73 |Meta' ch|aracters|
|00004be0| 20 6d 61 79 20 6e 6f 74 | 20 63 75 72 72 65 6e 74 | may not| current|
|00004bf0| 6c 79 20 62 65 20 73 65 | 6e 74 20 74 68 72 6f 75 |ly be se|nt throu|
|00004c00| 67 68 20 74 68 65 20 74 | 65 72 6d 69 6e 61 6c 20 |gh the t|erminal |
|00004c10| 65 6d 75 6c 61 74 6f 72 | 2e 0a 0a 48 65 72 65 20 |emulator|...Here |
|00004c20| 69 73 20 61 20 6c 69 73 | 74 20 6f 66 20 73 6f 6d |is a lis|t of som|
|00004c30| 65 20 6f 66 20 74 68 65 | 20 76 61 72 69 61 62 6c |e of the| variabl|
|00004c40| 65 73 20 77 68 69 63 68 | 20 63 6f 6e 74 72 6f 6c |es which| control|
|00004c50| 20 74 68 65 20 62 65 68 | 61 76 69 6f 75 72 0a 6f | the beh|aviour.o|
|00004c60| 66 20 74 68 65 20 65 6d | 75 6c 61 74 6f 72 20 2d |f the em|ulator -|
|00004c70| 2d 20 73 65 65 20 74 68 | 65 69 72 20 64 6f 63 75 |- see th|eir docu|
|00004c80| 6d 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 6d 6f |mentatio|n for mo|
|00004c90| 72 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 3a 0a |re infor|mation:.|
|00004ca0| 74 65 72 6d 69 6e 61 6c | 2d 65 73 63 61 70 65 2d |terminal|-escape-|
|00004cb0| 63 68 61 72 2c 20 74 65 | 72 6d 69 6e 61 6c 2d 73 |char, te|rminal-s|
|00004cc0| 63 72 6f 6c 6c 69 6e 67 | 2c 20 74 65 72 6d 69 6e |crolling|, termin|
|00004cd0| 61 6c 2d 6d 6f 72 65 2d | 70 72 6f 63 65 73 73 69 |al-more-|processi|
|00004ce0| 6e 67 2c 0a 74 65 72 6d | 69 6e 61 6c 2d 72 65 64 |ng,.term|inal-red|
|00004cf0| 69 73 70 6c 61 79 2d 69 | 6e 74 65 72 76 61 6c 2e |isplay-i|nterval.|
|00004d00| 0a 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|00004d10| 63 61 6c 6c 73 20 74 68 | 65 20 76 61 6c 75 65 20 |calls th|e value |
|00004d20| 6f 66 20 74 65 72 6d 69 | 6e 61 6c 2d 6d 6f 64 65 |of termi|nal-mode|
|00004d30| 2d 68 6f 6f 6b 20 69 66 | 20 74 68 61 74 20 65 78 |-hook if| that ex|
|00004d40| 69 73 74 73 0a 61 6e 64 | 20 69 73 20 6e 6f 6e 2d |ists.and| is non-|
|00004d50| 6e 69 6c 20 61 66 74 65 | 72 20 74 68 65 20 74 65 |nil afte|r the te|
|00004d60| 72 6d 69 6e 61 6c 20 62 | 75 66 66 65 72 20 68 61 |rminal b|uffer ha|
|00004d70| 73 20 62 65 65 6e 20 73 | 65 74 20 75 70 20 61 6e |s been s|et up an|
|00004d80| 64 20 74 68 65 0a 73 75 | 62 70 72 6f 63 65 73 73 |d the.su|bprocess|
|00004d90| 20 73 74 61 72 74 65 64 | 2e 0a 0a 50 72 65 73 65 | started|...Prese|
|00004da0| 6e 74 6c 79 20 77 69 74 | 68 20 60 74 65 72 6d 63 |ntly wit|h `termc|
|00004db0| 61 70 27 20 6f 6e 6c 79 | 3b 20 69 66 20 73 6f 6d |ap' only|; if som|
|00004dc0| 65 62 6f 64 79 20 73 65 | 6e 64 73 20 75 73 20 63 |ebody se|nds us c|
|00004dd0| 6f 64 65 20 74 6f 20 6d | 61 6b 65 20 74 68 69 73 |ode to m|ake this|
|00004de0| 0a 77 6f 72 6b 20 77 69 | 74 68 20 60 74 65 72 6d |.work wi|th `term|
|00004df0| 69 6e 66 6f 27 20 77 65 | 20 77 69 6c 6c 20 74 72 |info' we| will tr|
|00004e00| 79 20 74 6f 20 75 73 65 | 20 69 74 2e 22 20 28 62 |y to use| it." (b|
|00004e10| 79 74 65 2d 63 6f 64 65 | 20 22 8a c0 c1 21 71 88 |yte-code| "...!q.|
|00004e20| c2 c3 c4 21 ab 8a 0c ab | 87 c5 0c 21 c6 3d ac 83 |...!....|...!.=..|
|00004e30| 70 aa 83 c7 c1 21 21 29 | c8 0e 09 ae 8b ca cb 21 |p....!!)|.......!|
|00004e40| ae 86 ca cc 21 ae 81 cd | 1e 0e cf d0 d1 0e 0e 5c |....!...|.......\|
|00004e50| 22 21 89 1e 12 d3 9a ab | 86 0e 0e d4 44 aa 84 d5 |"!......|....D...|
|00004e60| 0e 12 21 2a 21 42 87 22 | 20 5b 67 65 74 2d 62 75 |..!*!B."| [get-bu|
|00004e70| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 74 65 |ffer-cre|ate "*te|
|00004e80| 72 6d 69 6e 61 6c 2a 22 | 20 62 75 66 66 65 72 2d |rminal*"| buffer-|
|00004e90| 6e 61 6d 65 20 62 6f 75 | 6e 64 70 20 74 65 2d 70 |name bou|ndp te-p|
|00004ea0| 72 6f 63 65 73 73 20 70 | 72 6f 63 65 73 73 2d 73 |rocess p|rocess-s|
|00004eb0| 74 61 74 75 73 20 72 75 | 6e 20 67 65 6e 65 72 61 |tatus ru|n genera|
|00004ec0| 74 65 2d 6e 65 77 2d 62 | 75 66 66 65 72 20 61 70 |te-new-b|uffer ap|
|00004ed0| 70 65 6e 64 20 65 78 70 | 6c 69 63 69 74 2d 73 68 |pend exp|licit-sh|
|00004ee0| 65 6c 6c 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 67 65 |ell-file|-name ge|
|00004ef0| 74 65 6e 76 20 22 45 53 | 48 45 4c 4c 22 20 22 53 |tenv "ES|HELL" "S|
|00004f00| 48 45 4c 4c 22 20 22 2f | 62 69 6e 2f 73 68 22 20 |HELL" "/|bin/sh" |
|00004f10| 64 65 66 61 75 6c 74 2d | 73 20 72 65 61 64 2d 73 |default-|s read-s|
|00004f20| 74 72 69 6e 67 20 66 6f | 72 6d 61 74 20 22 52 75 |tring fo|rmat "Ru|
|00004f30| 6e 20 70 72 6f 67 72 61 | 6d 20 69 6e 20 65 6d 75 |n progra|m in emu|
|00004f40| 6c 61 74 6f 72 3a 20 28 | 64 65 66 61 75 6c 74 20 |lator: (|default |
|00004f50| 25 73 29 20 22 20 73 20 | 22 22 20 6e 69 6c 20 74 |%s) " s |"" nil t|
|00004f60| 65 2d 70 61 72 73 65 2d | 70 72 6f 67 72 61 6d 2d |e-parse-|program-|
|00004f70| 61 6e 64 2d 61 72 67 73 | 5d 20 37 29 5d 29 0a 28 |and-args|] 7)]).(|
|00004f80| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00004f90| c3 c4 c5 23 87 22 20 5b | 74 65 2d 70 61 72 73 65 |...#." [|te-parse|
|00004fa0| 2d 70 72 6f 67 72 61 6d | 2d 61 6e 64 2d 61 72 67 |-program|-and-arg|
|00004fb0| 73 20 23 5b 28 73 29 20 | 22 c0 c1 5c 6e 5c 22 ab |s #[(s) |"..\n\".|
|00004fc0| bb c3 c4 1d 1e 06 0d ab | a6 c0 c7 5c 6e 0d 23 ab |........|...\n.#.|
|00004fd0| 92 5c 6e 0d c8 95 4f c4 | 95 89 15 5c 6e 47 3d ab |.\n...O.|...\nG=.|
|00004fe0| 8a c3 15 aa 86 5c 6e 0d | c3 4f c3 15 0e 06 42 16 |.....\n.|.O....B.|
|00004ff0| 06 aa 57 0e 06 9f 89 16 | 06 40 0e 06 41 2a 44 87 |..W.....|.@..A*D.|
|00005000| c0 c9 5c 6e 5c 22 ab 8e | ca 5c 6e 21 ac 89 0e 0b |..\n\"..|.\n!....|
|00005010| cc cd 5c 6e 50 44 44 87 | 5c 6e c3 44 87 22 20 5b |..\nPDD.|\n.D." [|
|00005020| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00005030| 60 5c 5c 28 5b 61 2d 7a | 41 2d 5a 30 2d 39 2d 2b |`\\([a-z|A-Z0-9-+|
|00005040| 3d 5f 2e 40 2f 3a 5d 2b | 5b 20 09 5d 2a 5c 5c 29 |=_.@/:]+|[ .]*\\)|
|00005050| 2b 5c 5c 27 22 20 73 20 | 6e 69 6c 20 30 20 70 20 |+\\'" s |nil 0 p |
|00005060| 6c 20 22 5c 5c 28 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |l "\\([a|-zA-Z0-9|
|00005070| 2d 2b 3d 5f 2e 40 2f 3a | 5d 2b 5c 5c 29 5c 5c 28 |-+=_.@/:|]+\\)\\(|
|00005080| 5b 20 09 5d 2b 5c 5c 29 | 2a 22 20 31 20 22 5b 20 |[ .]+\\)|*" 1 "[ |
|00005090| 09 5d 22 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |.]" file|-exists-|
|000050a0| 70 20 73 68 65 6c 6c 2d | 66 69 6c 65 2d 6e 61 6d |p shell-|file-nam|
|000050b0| 65 20 22 2d 63 22 20 22 | 65 78 65 63 20 22 5d 20 |e "-c" "|exec "] |
|000050c0| 35 5d 20 70 75 74 20 74 | 65 72 6d 69 6e 61 6c 2d |5] put t|erminal-|
|000050d0| 6d 6f 64 65 20 6d 6f 64 | 65 2d 63 6c 61 73 73 20 |mode mod|e-class |
|000050e0| 73 70 65 63 69 61 6c 5d | 20 34 29 0a 28 66 73 65 |special]| 4).(fse|
|000050f0| 74 20 27 74 65 72 6d 69 | 6e 61 6c 2d 6d 6f 64 65 |t 'termi|nal-mode|
|00005100| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 70 21 88 c2 | #[nil "|. ..p!..|
|00005110| 13 c4 15 c6 16 07 c8 16 | 09 c8 16 5c 6e cb cc 21 |........|...\n..!|
|00005120| 88 cd cc 21 16 0c cb ce | 21 88 cd ce 21 16 0e cb |...!....|!...!...|
|00005130| cf 21 88 cd cf 21 16 0f | cb d0 21 88 cd d0 21 16 |.!...!..|..!...!.|
|00005140| 10 cb d1 21 88 cb d2 21 | 88 cb d3 21 88 cb d4 21 |...!...!|...!...!|
|00005150| 88 d5 43 16 14 cb d6 21 | 88 65 16 16 cb d7 21 88 |..C....!|.e....!.|
|00005160| d8 16 17 cb d9 21 88 cb | da 21 88 db 16 1a cb dc |.....!..|.!......|
|00005170| 21 88 dd 16 1c cb de 21 | 88 0e 10 16 1e cb df 21 |!......!|.......!|
|00005180| 88 db 89 16 1f 87 22 20 | 5b 6b 69 6c 6c 2d 61 6c |......" |[kill-al|
|00005190| 6c 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |l-local-|variable|
|000051a0| 73 20 62 75 66 66 65 72 | 2d 64 69 73 61 62 6c 65 |s buffer|-disable|
|000051b0| 2d 75 6e 64 6f 20 74 65 | 72 6d 69 6e 61 6c 2d 6d |-undo te|rminal-m|
|000051c0| 6f 64 65 20 6d 61 6a 6f | 72 2d 6d 6f 64 65 20 22 |ode majo|r-mode "|
|000051d0| 74 65 72 6d 69 6e 61 6c | 22 20 6d 6f 64 65 2d 6e |terminal|" mode-n|
|000051e0| 61 6d 65 20 28 22 3a 20 | 25 73 22 29 20 6d 6f 64 |ame (": |%s") mod|
|000051f0| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 20 74 |e-line-p|rocess t|
|00005200| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00005210| 79 20 74 72 75 6e 63 61 | 74 65 2d 6c 69 6e 65 73 |y trunca|te-lines|
|00005220| 20 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 | make-lo|cal-vari|
|00005230| 61 62 6c 65 20 74 65 72 | 6d 69 6e 61 6c 2d 65 73 |able ter|minal-es|
|00005240| 63 61 70 65 2d 63 68 61 | 72 20 64 65 66 61 75 6c |cape-cha|r defaul|
|00005250| 74 2d 76 61 6c 75 65 20 | 74 65 72 6d 69 6e 61 6c |t-value |terminal|
|00005260| 2d 73 63 72 6f 6c 6c 69 | 6e 67 20 74 65 72 6d 69 |-scrolli|ng termi|
|00005270| 6e 61 6c 2d 6d 6f 72 65 | 2d 70 72 6f 63 65 73 73 |nal-more|-process|
|00005280| 69 6e 67 20 74 65 72 6d | 69 6e 61 6c 2d 72 65 64 |ing term|inal-red|
|00005290| 69 73 70 6c 61 79 2d 69 | 6e 74 65 72 76 61 6c 20 |isplay-i|nterval |
|000052a0| 74 65 2d 77 69 64 74 68 | 20 74 65 2d 68 65 69 67 |te-width| te-heig|
|000052b0| 68 74 20 74 65 2d 70 72 | 6f 63 65 73 73 20 74 65 |ht te-pr|ocess te|
|000052c0| 2d 70 65 6e 64 69 6e 67 | 2d 6f 75 74 70 75 74 20 |-pending|-output |
|000052d0| 30 20 74 65 2d 73 61 76 | 65 64 2d 70 6f 69 6e 74 |0 te-sav|ed-point|
|000052e0| 20 74 65 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 | te-pend|ing-outp|
|000052f0| 75 74 2d 69 6e 66 6f 20 | 22 22 20 69 6e 68 69 62 |ut-info |"" inhib|
|00005300| 69 74 2d 71 75 69 74 20 | 74 65 2d 6c 6f 67 2d 62 |it-quit |te-log-b|
|00005310| 75 66 66 65 72 20 6e 69 | 6c 20 74 65 2d 6d 6f 72 |uffer ni|l te-mor|
|00005320| 65 2d 63 6f 75 6e 74 20 | 2d 31 20 74 65 2d 72 65 |e-count |-1 te-re|
|00005330| 64 69 73 70 6c 61 79 2d | 63 6f 75 6e 74 20 6d 65 |display-|count me|
|00005340| 74 61 2d 66 6c 61 67 5d | 20 32 20 22 5c 0a 53 65 |ta-flag]| 2 "\.Se|
|00005350| 74 20 75 70 20 76 61 72 | 69 61 62 6c 65 73 20 66 |t up var|iables f|
|00005360| 6f 72 20 75 73 65 20 66 | 20 74 68 65 20 74 65 72 |or use f| the ter|
|00005370| 6d 69 6e 61 6c 2d 65 6d | 75 61 6c 74 6f 72 2e 0a |minal-em|ualtor..|
|00005380| 4f 6e 65 20 73 68 6f 75 | 6c 64 20 6e 6f 74 20 63 |One shou|ld not c|
|00005390| 61 6c 6c 20 74 68 69 73 | 20 2d 2d 20 69 74 20 69 |all this| -- it i|
|000053a0| 73 20 61 6e 20 69 6e 74 | 65 72 6e 61 6c 20 66 75 |s an int|ernal fu|
|000053b0| 6e 63 74 69 6f 6e 0a 6f | 66 20 74 68 65 20 74 65 |nction.o|f the te|
|000053c0| 72 6d 69 6e 61 6c 2d 65 | 6d 75 6c 61 74 6f 72 22 |rminal-e|mulator"|
|000053d0| 5d 29 0a 28 66 73 65 74 | 20 27 74 65 2d 71 75 6f |]).(fset| 'te-quo|
|000053e0| 74 65 2d 61 72 67 2d 66 | 6f 72 2d 73 68 20 23 5b |te-arg-f|or-sh #[|
|000053f0| 28 66 75 63 6b 6d 65 29 | 20 22 c0 c1 5c 6e 5c 22 |(fuckme)| "..\n\"|
|00005400| ab 82 5c 6e 87 c0 c3 5c | 6e 5c 22 ac 84 c4 5c 6e |..\n...\|n\"...\n|
|00005410| 21 87 c5 c6 89 1e 07 1e | 08 1e 09 0e 08 5c 6e 47 |!.......|.....\nG|
|00005420| 59 ac b1 c0 ca 5c 6e 0e | 08 23 89 16 07 ac 8c 0e |Y....\n.|.#......|
|00005430| 09 5c 6e 0e 08 cb 4f 50 | 16 09 aa 9a 0e 09 5c 6e |.\n...OP|......\n|
|00005440| 0e 08 0e 07 4f cc 5c 6e | 0e 07 89 54 4f 52 16 09 |....O.\n|...TOR..|
|00005450| 0e 07 54 89 16 08 aa 4a | cd 0e 09 cd 51 2b 87 22 |..T....J|....Q+."|
|00005460| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00005470| 5c 5c 60 5b 61 2d 7a 41 | 2d 5a 30 2d 39 2d 2b 3d |\\`[a-zA|-Z0-9-+=|
|00005480| 5f 2e 40 2f 3a 5d 2b 5c | 5c 27 22 20 66 75 63 6b |_.@/:]+\|\'" fuck|
|00005490| 6d 65 20 22 5b 24 5d 22 | 20 70 72 69 6e 31 2d 74 |me "[$]"| prin1-t|
|000054a0| 6f 2d 73 74 72 69 6e 67 | 20 22 22 20 30 20 73 74 |o-string| "" 0 st|
|000054b0| 75 70 69 64 20 63 72 65 | 74 69 6e 20 68 61 72 64 |upid cre|tin hard|
|000054c0| 65 72 20 22 5b 5c 22 5c | 5c 24 5d 22 20 6e 69 6c |er "[\"\|\$]" nil|
|000054d0| 20 22 5c 5c 22 20 22 5c | 22 22 5d 20 37 5d 29 0a | "\\" "\|""] 7]).|
+--------+-------------------------+-------------------------+--------+--------+
