home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 23.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul 6|
|00000040| 20 30 30 3a 30 38 3a 35 | 37 20 31 39 39 33 0a 3b | 00:08:5|7 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 74 65 72 | 6d 69 6e 61 6c 2e 65 6c |lisp/ter|minal.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 35 | 2e 31 36 2e 0a 3b 3b 3b |on 19.15|.16..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 | (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 72 65 71 75 69 | 72 65 20 28 71 75 6f 74 |..(requi|re (quot|
|000001d0| 65 20 65 68 65 6c 70 29 | 29 0a 28 64 65 66 76 61 |e ehelp)|).(defva|
|000001e0| 72 20 74 65 72 6d 69 6e | 61 6c 2d 65 73 63 61 70 |r termin|al-escap|
|000001f0| 65 2d 63 68 61 72 20 33 | 30 20 22 5c 0a 2a 41 6c |e-char 3|0 "\.*Al|
|00000200| 6c 20 63 68 61 72 61 63 | 74 65 72 73 20 65 78 63 |l charac|ters exc|
|00000210| 65 70 74 20 66 6f 72 20 | 74 68 69 73 20 61 72 65 |ept for |this are|
|00000220| 20 70 61 73 73 65 64 20 | 76 65 72 62 61 74 69 6d | passed |verbatim|
|00000230| 20 74 68 72 6f 75 67 68 | 20 74 68 65 0a 74 65 72 | through| the.ter|
|00000240| 6d 69 6e 61 6c 2d 65 6d | 75 6c 61 74 6f 72 2e 20 |minal-em|ulator. |
|00000250| 20 54 68 69 73 20 63 68 | 61 72 61 63 74 65 72 20 | This ch|aracter |
|00000260| 61 63 74 73 20 61 73 20 | 61 20 70 72 65 66 69 78 |acts as |a prefix|
|00000270| 20 66 6f 72 20 63 6f 6d | 6d 61 6e 64 73 0a 74 6f | for com|mands.to|
|00000280| 20 74 68 65 20 65 6d 75 | 6c 61 74 6f 72 20 70 72 | the emu|lator pr|
|00000290| 6f 67 72 61 6d 20 69 74 | 73 65 6c 66 2e 20 20 54 |ogram it|self. T|
|000002a0| 79 70 65 20 74 68 69 73 | 20 63 68 61 72 61 63 74 |ype this| charact|
|000002b0| 65 72 20 74 77 69 63 65 | 20 74 6f 20 73 65 6e 64 |er twice| to send|
|000002c0| 0a 69 74 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |.it thro|ugh the |
|000002d0| 65 6d 75 6c 61 74 6f 72 | 2e 20 20 54 79 70 65 20 |emulator|. Type |
|000002e0| 3f 20 61 66 74 65 72 20 | 74 79 70 69 6e 67 20 69 |? after |typing i|
|000002f0| 74 20 66 6f 72 20 61 20 | 6c 69 73 74 20 6f 66 0a |t for a |list of.|
|00000300| 70 6f 73 73 69 62 6c 65 | 20 63 6f 6d 6d 61 6e 64 |possible| command|
|00000310| 73 2e 0a 54 68 69 73 20 | 76 61 72 69 61 62 6c 65 |s..This |variable|
|00000320| 20 69 73 20 6c 6f 63 61 | 6c 20 74 6f 20 65 61 63 | is loca|l to eac|
|00000330| 68 20 74 65 72 6d 69 6e | 61 6c 2d 65 6d 75 6c 61 |h termin|al-emula|
|00000340| 74 6f 72 20 62 75 66 66 | 65 72 2e 22 29 0a 28 64 |tor buff|er.").(d|
|00000350| 65 66 76 61 72 20 74 65 | 72 6d 69 6e 61 6c 2d 73 |efvar te|rminal-s|
|00000360| 63 72 6f 6c 6c 69 6e 67 | 20 74 20 22 5c 0a 2a 49 |crolling| t "\.*I|
|00000370| 66 20 6e 6f 6e 2d 6e 69 | 6c 2c 20 74 68 65 20 74 |f non-ni|l, the t|
|00000380| 65 72 6d 69 6e 61 6c 2d | 65 6d 75 6c 61 74 6f 72 |erminal-|emulator|
|00000390| 20 77 69 6c 6c 20 6c 6f | 73 69 6e 67 6c 79 20 60 | will lo|singly `|
|000003a0| 73 63 72 6f 6c 6c 27 20 | 77 68 65 6e 20 6f 75 74 |scroll' |when out|
|000003b0| 70 75 74 20 6f 63 63 75 | 72 73 0a 70 61 73 74 20 |put occu|rs.past |
|000003c0| 74 68 65 20 62 6f 74 74 | 6f 6d 20 6f 66 20 74 68 |the bott|om of th|
|000003d0| 65 20 73 63 72 65 65 6e | 2e 20 20 49 66 20 6e 69 |e screen|. If ni|
|000003e0| 6c 2c 20 6f 75 74 70 75 | 74 20 77 69 6c 6c 20 77 |l, outpu|t will w|
|000003f0| 69 6e 20 61 6e 64 20 60 | 77 72 61 70 27 20 74 6f |in and `|wrap' to|
|00000400| 20 74 68 65 20 74 6f 70 | 0a 6f 66 20 74 68 65 20 | the top|.of the |
|00000410| 73 63 72 65 65 6e 2e 0a | 54 68 69 73 20 76 61 72 |screen..|This var|
|00000420| 69 61 62 6c 65 20 69 73 | 20 6c 6f 63 61 6c 20 74 |iable is| local t|
|00000430| 6f 20 65 61 63 68 20 74 | 65 72 6d 69 6e 61 6c 2d |o each t|erminal-|
|00000440| 65 6d 75 6c 61 74 6f 72 | 20 62 75 66 66 65 72 2e |emulator| buffer.|
|00000450| 22 29 0a 28 64 65 66 76 | 61 72 20 74 65 72 6d 69 |").(defv|ar termi|
|00000460| 6e 61 6c 2d 6d 6f 72 65 | 2d 70 72 6f 63 65 73 73 |nal-more|-process|
|00000470| 69 6e 67 20 74 20 22 5c | 0a 2a 49 66 20 6e 6f 6e |ing t "\|.*If non|
|00000480| 2d 6e 69 6c 2c 20 64 6f | 20 6d 6f 72 65 2d 70 72 |-nil, do| more-pr|
|00000490| 6f 63 65 73 73 69 6e 67 | 2e 0a 54 68 69 73 20 76 |ocessing|..This v|
|000004a0| 61 72 69 61 62 6c 65 20 | 69 73 20 6c 6f 63 61 6c |ariable |is local|
|000004b0| 20 74 6f 20 65 61 63 68 | 20 74 65 72 6d 69 6e 61 | to each| termina|
|000004c0| 6c 2d 65 6d 75 6c 61 74 | 6f 72 20 62 75 66 66 65 |l-emulat|or buffe|
|000004d0| 72 2e 22 29 0a 28 64 65 | 66 76 61 72 20 74 65 72 |r.").(de|fvar ter|
|000004e0| 6d 69 6e 61 6c 2d 72 65 | 64 69 73 70 6c 61 79 2d |minal-re|display-|
|000004f0| 69 6e 74 65 72 76 61 6c | 20 35 30 30 30 20 22 5c |interval| 5000 "\|
|00000500| 0a 2a 4d 61 78 69 6d 75 | 6d 20 6e 75 6d 62 65 72 |.*Maximu|m number|
|00000510| 20 6f 66 20 63 68 61 72 | 61 63 74 65 72 73 20 77 | of char|acters w|
|00000520| 68 69 63 68 20 77 69 6c | 6c 20 62 65 20 70 72 6f |hich wil|l be pro|
|00000530| 63 65 73 73 65 64 20 62 | 79 20 74 68 65 0a 74 65 |cessed b|y the.te|
|00000540| 72 6d 69 6e 61 6c 2d 65 | 6d 75 6c 61 74 6f 72 20 |rminal-e|mulator |
|00000550| 62 65 66 6f 72 65 20 61 | 20 73 63 72 65 65 6e 20 |before a| screen |
|00000560| 72 65 64 69 73 70 6c 61 | 79 20 69 73 20 66 6f 72 |redispla|y is for|
|00000570| 63 65 64 2e 0a 53 65 74 | 20 74 68 69 73 20 74 6f |ced..Set| this to|
|00000580| 20 61 20 6c 61 72 67 65 | 20 76 61 6c 75 65 20 66 | a large| value f|
|00000590| 6f 72 20 67 72 65 61 74 | 65 72 20 74 68 72 6f 75 |or great|er throu|
|000005a0| 67 68 70 75 74 2c 0a 73 | 65 74 20 69 74 20 73 6d |ghput,.s|et it sm|
|000005b0| 61 6c 6c 65 72 20 66 6f | 72 20 6d 6f 72 65 20 66 |aller fo|r more f|
|000005c0| 72 65 71 75 65 6e 74 20 | 75 70 64 61 74 65 73 20 |requent |updates |
|000005d0| 62 75 74 20 6f 76 65 72 | 61 6c 6c 20 73 6c 6f 77 |but over|all slow|
|000005e0| 65 72 0a 70 65 72 66 6f | 72 6d 61 6e 63 65 2e 22 |er.perfo|rmance."|
|000005f0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000600| 21 84 08 00 c2 11 c0 c3 | 21 84 10 00 c4 13 0b 84 |!.......|!.......|
|00000610| 23 00 c5 20 1e 06 c7 0e | 06 c8 c9 23 88 0e 06 13 |#.. ....|...#....|
|00000620| 29 c0 ca 21 84 2c 00 c4 | 16 5c 6e 0e 5c 6e 84 48 |)..!.,..|.\n.\n.H|
|00000630| 00 c5 20 1e 06 c7 0e 06 | cb c9 23 88 c7 0e 06 cc |.. .....|..#.....|
|00000640| 0b 23 88 0e 06 16 5c 6e | 29 c0 cd 21 84 51 00 c4 |.#....\n|)..!.Q..|
|00000650| 16 0d 0e 0d 84 d1 00 c5 | 20 1e 06 c7 0e 06 ce cf |........| .......|
|00000660| 23 88 d0 1e 11 0e 11 d2 | 48 d3 58 83 82 00 c7 0e |#.......|H.X.....|
|00000670| 06 0e 11 d4 23 88 0e 11 | d2 0e 11 d2 48 54 49 88 |....#...|....HTI.|
|00000680| 82 64 00 29 c7 0e 06 d5 | d6 23 88 c7 0e 06 d7 d8 |.d.)....|.#......|
|00000690| 23 88 c7 0e 06 d9 da 23 | 88 c7 0e 06 db dc 23 88 |#......#|......#.|
|000006a0| c7 0e 06 dd de 23 88 c7 | 0e 06 df e0 23 88 c7 0e |.....#..|....#...|
|000006b0| 06 e1 e2 23 88 c7 0e 06 | e3 e4 23 88 c7 0e 06 e5 |...#....|..#.....|
|000006c0| e6 23 88 c7 0e 06 e7 0e | 28 21 e6 23 88 0e 06 16 |.#......|(!.#....|
|000006d0| 0d 29 c0 e9 21 84 da 00 | c4 16 29 0e 29 84 e2 00 |.)..!...|..).)...|
|000006e0| ea 16 29 c0 eb 21 84 eb | 00 c4 16 2b 0e 2b 84 26 |..)..!..|...+.+.&|
|000006f0| 01 c5 20 1e 06 c7 0e 06 | ec ed 23 88 c7 0e 06 e7 |.. .....|..#.....|
|00000700| 0e 28 21 ee 23 88 c7 0e | 06 ef f0 23 88 c7 0e 06 |.(!.#...|...#....|
|00000710| db dc 23 88 c7 0e 06 dd | f1 23 88 c7 0e 06 f2 f3 |..#.....|.#......|
|00000720| 23 88 0e 06 16 2b 29 c0 | f4 21 84 2f 01 c4 16 34 |#....+).|.!./...4|
|00000730| c0 f5 21 84 38 01 c4 16 | 35 c0 f6 21 84 41 01 c4 |..!.8...|5..!.A..|
|00000740| 16 36 c0 f7 21 84 4a 01 | c4 16 37 c0 f8 21 84 53 |.6..!.J.|..7..!.S|
|00000750| 01 c4 16 38 c0 f9 21 84 | 5c 5c 01 c4 16 39 c0 fa |...8..!.|\\...9..|
|00000760| 21 84 65 01 c4 16 3a c0 | fb 21 84 6e 01 c4 16 3b |!.e...:.|.!.n...;|
|00000770| c0 fc 21 84 77 01 c4 16 | 3c c0 fd 21 84 80 01 c4 |..!.w...|<..!....|
|00000780| 16 3d c0 fe 21 84 89 01 | c4 16 3e c0 ff 21 84 92 |.=..!...|..>..!..|
|00000790| 01 c4 16 3f 81 40 00 81 | 41 00 81 42 00 5c 22 87 |...?.@..|A..B.\".|
|000007a0| 22 20 5b 62 6f 75 6e 64 | 70 20 74 65 72 6d 69 6e |" [bound|p termin|
|000007b0| 61 6c 2d 6d 6f 72 65 2d | 62 72 65 61 6b 2d 69 6e |al-more-|break-in|
|000007c0| 73 65 72 74 69 6f 6e 20 | 22 2a 2a 2a 20 4d 6f 72 |sertion |"*** Mor|
|000007d0| 65 20 62 72 65 61 6b 20 | 2d 2d 20 50 72 65 73 73 |e break |-- Press|
|000007e0| 20 73 70 61 63 65 20 74 | 6f 20 63 6f 6e 74 69 6e | space t|o contin|
|000007f0| 75 65 20 2a 2a 2a 22 20 | 74 65 72 6d 69 6e 61 6c |ue ***" |terminal|
|00000800| 2d 6d 65 74 61 2d 6d 61 | 70 20 6e 69 6c 20 6d 61 |-meta-ma|p nil ma|
|00000810| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00000820| 20 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 | map def|ine-key |
|00000830| 5b 74 5d 20 74 65 2d 70 | 61 73 73 2d 74 68 72 6f |[t] te-p|ass-thro|
|00000840| 75 67 68 20 74 65 72 6d | 69 6e 61 6c 2d 6d 61 70 |ugh term|inal-map|
|00000850| 20 5b 74 5d 20 22 1b 22 | 20 74 65 72 6d 69 6e 61 | [t] "."| termina|
|00000860| 6c 2d 65 73 63 61 70 65 | 2d 6d 61 70 20 5b 74 5d |l-escape|-map [t]|
|00000870| 20 75 6e 64 65 66 69 6e | 65 64 20 22 30 22 20 73 | undefin|ed "0" s|
|00000880| 20 30 20 35 37 20 64 69 | 67 69 74 2d 61 72 67 75 | 0 57 di|git-argu|
|00000890| 6d 65 6e 74 20 22 62 22 | 20 73 77 69 74 63 68 2d |ment "b"| switch-|
|000008a0| 74 6f 2d 62 75 66 66 65 | 72 20 22 6f 22 20 6f 74 |to-buffe|r "o" ot|
|000008b0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 22 65 22 20 74 |her-wind|ow "e" t|
|000008c0| 65 2d 73 65 74 2d 65 73 | 63 61 70 65 2d 63 68 61 |e-set-es|cape-cha|
|000008d0| 72 20 22 0c 22 20 72 65 | 64 72 61 77 2d 64 69 73 |r "." re|draw-dis|
|000008e0| 70 6c 61 79 20 22 0f 22 | 20 74 65 2d 66 6c 75 73 |play "."| te-flus|
|000008f0| 68 2d 70 65 6e 64 69 6e | 67 2d 6f 75 74 70 75 74 |h-pendin|g-output|
|00000900| 20 22 6d 22 20 74 65 2d | 74 6f 67 67 6c 65 2d 6d | "m" te-|toggle-m|
|00000910| 6f 72 65 2d 70 72 6f 63 | 65 73 73 69 6e 67 20 22 |ore-proc|essing "|
|00000920| 78 22 20 74 65 2d 65 73 | 63 61 70 65 2d 65 78 74 |x" te-es|cape-ext|
|00000930| 65 6e 64 65 64 2d 63 6f | 6d 6d 61 6e 64 20 22 77 |ended-co|mmand "w|
|00000940| 22 20 74 65 2d 65 64 69 | 74 20 22 3f 22 20 74 65 |" te-edi|t "?" te|
|00000950| 2d 65 73 63 61 70 65 2d | 68 65 6c 70 20 63 68 61 |-escape-|help cha|
|00000960| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 68 65 6c 70 |r-to-str|ing help|
|00000970| 2d 63 68 61 72 20 74 65 | 2d 65 73 63 61 70 65 2d |-char te|-escape-|
|00000980| 63 6f 6d 6d 61 6e 64 2d | 61 6c 69 73 74 20 28 28 |command-|alist ((|
|00000990| 22 53 65 74 20 45 73 63 | 61 70 65 20 43 68 61 72 |"Set Esc|ape Char|
|000009a0| 61 63 74 65 72 22 20 2e | 20 74 65 2d 73 65 74 2d |acter" .| te-set-|
|000009b0| 65 73 63 61 70 65 2d 63 | 68 61 72 29 20 28 22 45 |escape-c|har) ("E|
|000009c0| 64 69 74 22 20 2e 20 74 | 65 2d 65 64 69 74 29 20 |dit" . t|e-edit) |
|000009d0| 28 22 52 65 66 72 65 73 | 68 22 20 2e 20 72 65 64 |("Refres|h" . red|
|000009e0| 72 61 77 2d 64 69 73 70 | 6c 61 79 29 20 28 22 52 |raw-disp|lay) ("R|
|000009f0| 65 63 6f 72 64 20 4f 75 | 74 70 75 74 22 20 2e 20 |ecord Ou|tput" . |
|00000a00| 74 65 2d 73 65 74 2d 6f | 75 74 70 75 74 2d 6c 6f |te-set-o|utput-lo|
|00000a10| 67 29 20 28 22 50 68 6f | 74 6f 22 20 2e 20 74 65 |g) ("Pho|to" . te|
|00000a20| 2d 73 65 74 2d 6f 75 74 | 70 75 74 2d 6c 6f 67 29 |-set-out|put-log)|
|00000a30| 20 28 22 54 6f 66 75 22 | 20 2e 20 74 65 2d 74 6f | ("Tofu"| . te-to|
|00000a40| 66 75 29 20 28 22 53 74 | 75 66 66 20 49 6e 70 75 |fu) ("St|uff Inpu|
|00000a50| 74 22 20 2e 20 74 65 2d | 73 74 75 66 66 2d 73 74 |t" . te-|stuff-st|
|00000a60| 72 69 6e 67 29 20 28 22 | 46 6c 75 73 68 20 50 65 |ring) ("|Flush Pe|
|00000a70| 6e 64 69 6e 67 20 4f 75 | 74 70 75 74 22 20 2e 20 |nding Ou|tput" . |
|00000a80| 74 65 2d 66 6c 75 73 68 | 2d 70 65 6e 64 69 6e 67 |te-flush|-pending|
|00000a90| 2d 6f 75 74 70 75 74 29 | 20 28 22 45 6e 61 62 6c |-output)| ("Enabl|
|00000aa0| 65 20 4d 6f 72 65 20 50 | 72 6f 63 65 73 73 69 6e |e More P|rocessin|
|00000ab0| 67 22 20 2e 20 74 65 2d | 65 6e 61 62 6c 65 2d 6d |g" . te-|enable-m|
|00000ac0| 6f 72 65 2d 70 72 6f 63 | 65 73 73 69 6e 67 29 20 |ore-proc|essing) |
|00000ad0| 28 22 44 69 73 61 62 6c | 65 20 4d 6f 72 65 20 50 |("Disabl|e More P|
|00000ae0| 72 6f 63 65 73 73 69 6e | 67 22 20 2e 20 74 65 2d |rocessin|g" . te-|
|00000af0| 64 69 73 61 62 6c 65 2d | 6d 6f 72 65 2d 70 72 6f |disable-|more-pro|
|00000b00| 63 65 73 73 69 6e 67 29 | 20 28 22 53 63 72 6f 6c |cessing)| ("Scrol|
|00000b10| 6c 20 61 74 20 65 6e 64 | 20 6f 66 20 70 61 67 65 |l at end| of page|
|00000b20| 22 20 2e 20 74 65 2d 64 | 6f 2d 73 63 72 6f 6c 6c |" . te-d|o-scroll|
|00000b30| 69 6e 67 29 20 28 22 57 | 72 61 70 20 61 74 20 65 |ing) ("W|rap at e|
|00000b40| 6e 64 20 6f 66 20 70 61 | 67 65 22 20 2e 20 74 65 |nd of pa|ge" . te|
|00000b50| 2d 64 6f 2d 77 72 61 70 | 70 69 6e 67 29 20 28 22 |-do-wrap|ping) ("|
|00000b60| 53 77 69 74 63 68 20 54 | 6f 20 42 75 66 66 65 72 |Switch T|o Buffer|
|00000b70| 22 20 2e 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |" . swit|ch-to-bu|
|00000b80| 66 66 65 72 29 20 28 22 | 4f 74 68 65 72 20 57 69 |ffer) ("|Other Wi|
|00000b90| 6e 64 6f 77 22 20 2e 20 | 6f 74 68 65 72 2d 77 69 |ndow" . |other-wi|
|00000ba0| 6e 64 6f 77 29 20 28 22 | 4b 69 6c 6c 20 42 75 66 |ndow) ("|Kill Buf|
|00000bb0| 66 65 72 22 20 2e 20 6b | 69 6c 6c 2d 62 75 66 66 |fer" . k|ill-buff|
|00000bc0| 65 72 29 20 28 22 48 65 | 6c 70 22 20 2e 20 74 65 |er) ("He|lp" . te|
|00000bd0| 2d 65 73 63 61 70 65 2d | 68 65 6c 70 29 20 28 22 |-escape-|help) ("|
|00000be0| 53 65 74 20 52 65 64 69 | 73 70 6c 61 79 20 49 6e |Set Redi|splay In|
|00000bf0| 74 65 72 76 61 6c 22 20 | 2e 20 74 65 2d 73 65 74 |terval" |. te-set|
|00000c00| 2d 72 65 64 69 73 70 6c | 61 79 2d 69 6e 74 65 72 |-redispl|ay-inter|
|00000c10| 76 61 6c 29 29 20 74 65 | 72 6d 69 6e 61 6c 2d 6d |val)) te|rminal-m|
|00000c20| 6f 72 65 2d 62 72 65 61 | 6b 2d 6d 61 70 20 5b 74 |ore-brea|k-map [t|
|00000c30| 5d 20 74 65 2d 6d 6f 72 | 65 2d 62 72 65 61 6b 2d |] te-mor|e-break-|
|00000c40| 75 6e 72 65 61 64 20 74 | 65 2d 6d 6f 72 65 2d 62 |unread t|e-more-b|
|00000c50| 72 65 61 6b 2d 68 65 6c | 70 20 22 20 22 20 74 65 |reak-hel|p " " te|
|00000c60| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 72 65 73 75 |-more-br|eak-resu|
|00000c70| 6d 65 20 74 65 2d 6d 6f | 72 65 2d 62 72 65 61 6b |me te-mo|re-break|
|00000c80| 2d 66 6c 75 73 68 2d 70 | 65 6e 64 69 6e 67 2d 6f |-flush-p|ending-o|
|00000c90| 75 74 70 75 74 20 22 0d | 22 20 74 65 2d 6d 6f 72 |utput ".|" te-mor|
|00000ca0| 65 2d 62 72 65 61 6b 2d | 61 64 76 61 6e 63 65 2d |e-break-|advance-|
|00000cb0| 6f 6e 65 2d 6c 69 6e 65 | 20 74 65 2d 70 72 6f 63 |one-line| te-proc|
|00000cc0| 65 73 73 20 74 65 2d 6c | 6f 67 2d 62 75 66 66 65 |ess te-l|og-buffe|
|00000cd0| 72 20 74 65 2d 68 65 69 | 67 68 74 20 74 65 2d 77 |r te-hei|ght te-w|
|00000ce0| 69 64 74 68 20 74 65 2d | 6d 6f 72 65 2d 63 6f 75 |idth te-|more-cou|
|00000cf0| 6e 74 20 74 65 2d 72 65 | 64 69 73 70 6c 61 79 2d |nt te-re|display-|
|00000d00| 63 6f 75 6e 74 20 74 65 | 2d 70 65 6e 64 69 6e 67 |count te|-pending|
|00000d10| 2d 6f 75 74 70 75 74 20 | 74 65 2d 6d 6f 72 65 2d |-output |te-more-|
|00000d20| 6f 6c 64 2d 70 6f 69 6e | 74 20 74 65 2d 6d 6f 72 |old-poin|t te-mor|
|00000d30| 65 2d 6f 6c 64 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |e-old-lo|cal-map |
|00000d40| 74 65 2d 6d 6f 72 65 2d | 6f 6c 64 2d 66 69 6c 74 |te-more-|old-filt|
|00000d50| 65 72 20 74 65 2d 6d 6f | 72 65 2d 6f 6c 64 2d 6d |er te-mo|re-old-m|
|00000d60| 6f 64 65 2d 6c 69 6e 65 | 2d 66 6f 72 6d 61 74 20 |ode-line|-format |
|00000d70| 74 65 2d 70 65 6e 64 69 | 6e 67 2d 6f 75 74 70 75 |te-pendi|ng-outpu|
|00000d80| 74 2d 69 6e 66 6f 20 64 | 65 66 61 6c 69 61 73 20 |t-info d|efalias |
|00000d90| 74 65 2d 65 73 63 61 70 | 65 20 23 5b 6e 69 6c 20 |te-escap|e #[nil |
|00000da0| 22 c0 c1 20 c2 20 1b 1c | 1d c6 8e c7 0e 08 21 88 |".. . ..|......!.|
|00000db0| c9 0e 08 21 88 ca 0e 0b | 83 24 00 cc cd ce 0e 0b |...!....|.$......|
|00000dc0| 21 5c 22 82 25 00 cf 21 | 15 29 d0 d1 21 88 0d d2 |!\".%..!|.)..!...|
|00000dd0| d3 0e 14 5c 22 98 83 43 | 00 0e 14 16 15 d6 1e 14 |...\"..C|........|
|00000de0| d7 20 29 82 50 00 d8 0e | 08 0d 5c 22 89 15 85 50 |. ).P...|..\"...P|
|00000df0| 00 d9 0d 21 2b 87 22 20 | 5b 6e 69 6c 20 63 75 72 |...!+." |[nil cur|
|00000e00| 72 65 6e 74 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 63 |rent-loc|al-map c|
|00000e10| 75 72 72 65 6e 74 2d 67 | 6c 6f 62 61 6c 2d 6d 61 |urrent-g|lobal-ma|
|00000e20| 70 20 67 6c 6f 62 61 6c | 20 6c 6f 63 61 6c 20 73 |p global| local s|
|00000e30| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 | ((byte-|code "..|
|00000e40| 21 88 c2 0b 21 87 22 20 | 5b 75 73 65 2d 67 6c 6f |!...!." |[use-glo|
|00000e50| 62 61 6c 2d 6d 61 70 20 | 67 6c 6f 62 61 6c 20 75 |bal-map |global u|
|00000e60| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 6c 6f 63 |se-local|-map loc|
|00000e70| 61 6c 5d 20 32 29 29 20 | 75 73 65 2d 67 6c 6f 62 |al] 2)) |use-glob|
|00000e80| 61 6c 2d 6d 61 70 20 74 | 65 72 6d 69 6e 61 6c 2d |al-map t|erminal-|
|00000e90| 65 73 63 61 70 65 2d 6d | 61 70 20 75 73 65 2d 6c |escape-m|ap use-l|
|00000ea0| 6f 63 61 6c 2d 6d 61 70 | 20 72 65 61 64 2d 6b 65 |ocal-map| read-ke|
|00000eb0| 79 2d 73 65 71 75 65 6e | 63 65 20 70 72 65 66 69 |y-sequen|ce prefi|
|00000ec0| 78 2d 61 72 67 20 66 6f | 72 6d 61 74 20 22 45 6d |x-arg fo|rmat "Em|
|00000ed0| 61 63 73 20 54 65 72 6d | 69 6e 61 6c 20 65 73 63 |acs Term|inal esc|
|00000ee0| 61 70 65 3e 20 25 64 20 | 22 20 70 72 65 66 69 78 |ape> %d |" prefix|
|00000ef0| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 22 |-numeric|-value "|
|00000f00| 45 6d 61 63 73 20 54 65 | 72 6d 69 6e 61 6c 20 65 |Emacs Te|rminal e|
|00000f10| 73 63 61 70 65 3e 20 22 | 20 6d 65 73 73 61 67 65 |scape> "| message|
|00000f20| 20 22 22 20 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 | "" make|-string |
|00000f30| 31 20 74 65 72 6d 69 6e | 61 6c 2d 65 73 63 61 70 |1 termin|al-escap|
|00000f40| 65 2d 63 68 61 72 20 6c | 61 73 74 2d 63 6f 6d 6d |e-char l|ast-comm|
|00000f50| 61 6e 64 2d 63 68 61 72 | 20 2d 32 35 39 20 74 65 |and-char| -259 te|
|00000f60| 2d 70 61 73 73 2d 74 68 | 72 6f 75 67 68 20 6c 6f |-pass-th|rough lo|
|00000f70| 6f 6b 75 70 2d 6b 65 79 | 20 63 61 6c 6c 2d 69 6e |okup-key| call-in|
|00000f80| 74 65 72 61 63 74 69 76 | 65 6c 79 5d 20 35 20 6e |teractiv|ely] 5 n|
|00000f90| 69 6c 20 6e 69 6c 5d 5d | 20 34 29 0a 28 64 65 66 |il nil]]| 4).(def|
|00000fa0| 61 6c 69 61 73 20 27 74 | 65 2d 65 73 63 61 70 65 |alias 't|e-escape|
|00000fb0| 2d 68 65 6c 70 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-help #[|nil "..!|
|00000fc0| 88 c2 0b 21 1c c5 c6 21 | 29 87 22 20 5b 6d 65 73 |...!...!|)." [mes|
|00000fd0| 73 61 67 65 20 22 54 65 | 72 6d 69 6e 61 6c 20 65 |sage "Te|rminal e|
|00000fe0| 6d 75 6c 61 74 6f 72 20 | 65 73 63 61 70 65 20 68 |mulator |escape h|
|00000ff0| 65 6c 70 2e 2e 2e 22 20 | 73 69 6e 67 6c 65 2d 6b |elp..." |single-k|
|00001000| 65 79 2d 64 65 73 63 72 | 69 70 74 69 6f 6e 20 74 |ey-descr|iption t|
|00001010| 65 72 6d 69 6e 61 6c 2d | 65 73 63 61 70 65 2d 63 |erminal-|escape-c|
|00001020| 68 61 72 20 63 68 61 72 | 20 77 69 74 68 2d 65 6c |har char| with-el|
|00001030| 65 63 74 72 69 63 2d 68 | 65 6c 70 20 23 5b 6e 69 |ectric-h|elp #[ni|
|00001040| 6c 20 22 c0 c1 c2 0b 89 | 89 89 25 21 88 c0 c4 c5 |l ".....|..%!....|
|00001050| 21 21 88 c0 c1 c6 c7 c8 | 0e 09 ca cb 24 c8 23 21 |!!......|....$.#!|
|00001060| 88 cc cd 21 83 2e 00 cd | ce 0e 0f 21 d0 5c 22 82 |...!....|...!.\".|
|00001070| 35 00 d1 ce 0e 0f 21 d2 | 5c 22 89 1e 13 83 79 00 |5.....!.|\"....y.|
|00001080| d4 0e 13 40 41 21 86 45 | 00 d5 1e 16 d7 d8 0e 16 |...@A!.E|........|
|00001090| 5c 22 83 57 00 0e 16 d9 | 89 94 4f 16 16 c0 da 21 |\".W....|..O....!|
|000010a0| 88 c0 0e 13 40 40 21 88 | c0 db 21 88 c0 0e 16 21 |....@@!.|..!....!|
|000010b0| 88 dc dd 21 88 29 0e 13 | 41 89 16 13 84 3b 00 29 |...!.)..|A....;.)|
|000010c0| ca 87 22 20 5b 70 72 69 | 6e 63 20 66 6f 72 6d 61 |.." [pri|nc forma|
|000010d0| 74 20 22 54 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |t "Termi|nal-emul|
|000010e0| 61 74 6f 72 20 65 73 63 | 61 70 65 2c 20 69 6e 76 |ator esc|ape, inv|
|000010f0| 6f 6b 65 64 20 62 79 20 | 5c 22 25 73 5c 22 5c 6e |oked by |\"%s\"\n|
|00001100| 54 79 70 65 20 5c 22 25 | 73 5c 22 20 74 77 69 63 |Type \"%|s\" twic|
|00001110| 65 20 74 6f 20 73 65 6e | 64 20 61 20 73 69 6e 67 |e to sen|d a sing|
|00001120| 6c 65 20 5c 22 25 73 5c | 22 20 74 68 72 6f 75 67 |le \"%s\|" throug|
|00001130| 68 2e 5c 6e 5c 6e 4f 74 | 68 65 72 20 63 68 61 72 |h.\n\nOt|her char|
|00001140| 73 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 5c 22 25 73 |s follow|ing \"%s|
|00001150| 5c 22 20 61 72 65 20 69 | 6e 74 65 72 70 72 65 74 |\" are i|nterpret|
|00001160| 65 64 20 61 73 20 66 6f | 6c 6c 6f 77 73 3a 5c 6e |ed as fo|llows:\n|
|00001170| 22 20 63 68 61 72 20 73 | 75 62 73 74 69 74 75 74 |" char s|ubstitut|
|00001180| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 22 |e-comman|d-keys "|
|00001190| 5c 5c 7b 74 65 72 6d 69 | 6e 61 6c 2d 65 73 63 61 |\\{termi|nal-esca|
|000011a0| 70 65 2d 6d 61 70 7d 5c | 6e 22 20 22 5c 6e 53 75 |pe-map}\|n" "\nSu|
|000011b0| 62 63 6f 6d 6d 61 6e 64 | 73 20 6f 66 20 5c 22 25 |bcommand|s of \"%|
|000011c0| 73 5c 22 20 28 25 73 29 | 5c 6e 22 20 77 68 65 72 |s\" (%s)|\n" wher|
|000011d0| 65 2d 69 73 2d 69 6e 74 | 65 72 6e 61 6c 20 74 65 |e-is-int|ernal te|
|000011e0| 2d 65 73 63 61 70 65 2d | 65 78 74 65 6e 64 65 64 |-escape-|extended|
|000011f0| 2d 63 6f 6d 6d 61 6e 64 | 20 74 65 72 6d 69 6e 61 |-command| termina|
|00001200| 6c 2d 65 73 63 61 70 65 | 2d 6d 61 70 20 6e 69 6c |l-escape|-map nil|
|00001210| 20 74 20 66 62 6f 75 6e | 64 70 20 73 6f 72 74 63 | t fboun|dp sortc|
|00001220| 61 72 20 63 6f 70 79 2d | 73 65 71 75 65 6e 63 65 |ar copy-|sequence|
|00001230| 20 74 65 2d 65 73 63 61 | 70 65 2d 63 6f 6d 6d 61 | te-esca|pe-comma|
|00001240| 6e 64 2d 61 6c 69 73 74 | 20 73 74 72 69 6e 67 3c |nd-alist| string<|
|00001250| 20 73 6f 72 74 20 23 5b | 28 61 20 62 29 20 22 08 | sort #[|(a b) ".|
|00001260| 40 09 40 99 87 22 20 5b | 61 20 62 5d 20 32 5d 20 |@.@.." [|a b] 2] |
|00001270| 6c 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |l docume|ntation |
|00001280| 22 4e 6f 74 20 64 6f 63 | 75 6d 65 6e 74 65 64 22 |"Not doc|umented"|
|00001290| 20 64 6f 63 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | doc str|ing-matc|
|000012a0| 68 20 22 5c 6e 22 20 30 | 20 22 20 20 5c 22 22 20 |h "\n" 0| " \"" |
|000012b0| 22 5c 22 3a 5c 6e 20 20 | 20 20 20 22 20 77 72 69 |"\":\n | " wri|
|000012c0| 74 65 2d 63 68 61 72 20 | 31 30 5d 20 39 5d 5d 20 |te-char |10] 9]] |
|000012d0| 32 20 22 5c 0a 50 72 6f | 76 69 64 65 20 68 65 6c |2 "\.Pro|vide hel|
|000012e0| 70 20 6f 6e 20 63 6f 6d | 6d 61 6e 64 73 20 61 76 |p on com|mands av|
|000012f0| 61 69 6c 61 62 6c 65 20 | 61 66 74 65 72 20 74 65 |ailable |after te|
|00001300| 72 6d 69 6e 61 6c 2d 65 | 73 63 61 70 65 2d 63 68 |rminal-e|scape-ch|
|00001310| 61 72 20 69 73 20 74 79 | 70 65 64 2e 22 20 6e 69 |ar is ty|ped." ni|
|00001320| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00001330| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 87 22 20 5b 64 |...\"...|.\"." [d|
|00001340| 65 66 61 6c 69 61 73 20 | 74 65 2d 65 73 63 61 70 |efalias |te-escap|
|00001350| 65 2d 65 78 74 65 6e 64 | 65 64 2d 63 6f 6d 6d 61 |e-extend|ed-comma|
|00001360| 6e 64 20 23 5b 6e 69 6c | 20 22 c0 19 c2 c3 0c c5 |nd #[nil| "......|
|00001370| c0 24 29 89 1e 06 85 12 | 00 c7 c8 8d 29 87 22 20 |.$).....|....)." |
|00001380| 5b 74 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 69 67 |[t compl|etion-ig|
|00001390| 6e 6f 72 65 2d 63 61 73 | 65 20 63 6f 6d 70 6c 65 |nore-cas|e comple|
|000013a0| 74 69 6e 67 2d 72 65 61 | 64 20 22 74 65 72 6d 69 |ting-rea|d "termi|
|000013b0| 6e 61 6c 20 63 6f 6d 6d | 61 6e 64 3a 20 22 20 74 |nal comm|and: " t|
|000013c0| 65 2d 65 73 63 61 70 65 | 2d 63 6f 6d 6d 61 6e 64 |e-escape|-command|
|000013d0| 2d 61 6c 69 73 74 20 6e | 69 6c 20 63 20 66 6f 6f |-alist n|il c foo|
|000013e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 97 10 | (byte-c|ode "...|
|000013f0| 09 1a 5c 6e 85 26 00 08 | 5c 6e 40 40 97 98 83 1e |..\n.&..|\n@@....|
|00001400| 00 c3 c4 c5 5c 6e 40 41 | 21 5c 22 88 82 05 00 5c |....\n@A|!\"....\|
|00001410| 6e 41 89 12 84 09 00 c6 | 29 87 22 20 5b 63 20 74 |nA......|)." [c t|
|00001420| 65 2d 65 73 63 61 70 65 | 2d 63 6f 6d 6d 61 6e 64 |e-escape|-command|
|00001430| 2d 61 6c 69 73 74 20 6c | 20 74 68 72 6f 77 20 66 |-alist l| throw f|
|00001440| 6f 6f 20 63 61 6c 6c 2d | 69 6e 74 65 72 61 63 74 |oo call-|interact|
|00001450| 69 76 65 6c 79 20 6e 69 | 6c 5d 20 35 29 5d 20 36 |ively ni|l] 5)] 6|
|00001460| 20 6e 69 6c 20 6e 69 6c | 5d 20 74 65 2d 65 73 63 | nil nil|] te-esc|
|00001470| 61 70 65 2d 65 78 74 65 | 6e 64 65 64 2d 63 6f 6d |ape-exte|nded-com|
|00001480| 6d 61 6e 64 2d 75 6e 72 | 65 61 64 20 23 5b 6e 69 |mand-unr|ead #[ni|
|00001490| 6c 20 22 c0 c1 20 21 12 | c3 20 87 22 20 5b 6c 69 |l ".. !.|. ." [li|
|000014a0| 73 74 69 66 79 2d 6b 65 | 79 2d 73 65 71 75 65 6e |stify-ke|y-sequen|
|000014b0| 63 65 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 2d |ce this-|command-|
|000014c0| 6b 65 79 73 20 75 6e 72 | 65 61 64 2d 63 6f 6d 6d |keys unr|ead-comm|
|000014d0| 61 6e 64 2d 65 76 65 6e | 74 73 20 74 65 2d 65 73 |and-even|ts te-es|
|000014e0| 63 61 70 65 2d 65 78 74 | 65 6e 64 65 64 2d 63 6f |cape-ext|ended-co|
|000014f0| 6d 6d 61 6e 64 5d 20 32 | 20 6e 69 6c 20 6e 69 6c |mmand] 2| nil nil|
|00001500| 5d 5d 20 33 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |]] 3).(d|efalias |
|00001510| 27 74 65 2d 73 65 74 2d | 65 73 63 61 70 65 2d 63 |'te-set-|escape-c|
|00001520| 68 61 72 20 23 5b 28 63 | 29 20 22 08 19 c2 09 0b |har #[(c|) ".....|
|00001530| 55 83 0d 00 c4 82 0e 00 | c5 c6 0b 21 c6 09 21 23 |U.......|...!..!#|
|00001540| 88 0b 89 10 29 87 22 20 | 5b 74 65 72 6d 69 6e 61 |....)." |[termina|
|00001550| 6c 2d 65 73 63 61 70 65 | 2d 63 68 61 72 20 6f 20 |l-escape|-char o |
|00001560| 6d 65 73 73 61 67 65 20 | 63 20 22 5c 22 25 73 5c |message |c "\"%s\|
|00001570| 22 20 69 73 20 74 68 65 | 20 65 73 63 61 70 65 20 |" is the| escape |
|00001580| 63 68 61 72 22 20 22 5c | 22 25 73 5c 22 20 69 73 |char" "\|"%s\" is|
|00001590| 20 6e 6f 77 20 74 68 65 | 20 65 73 63 61 70 65 3b | now the| escape;|
|000015a0| 20 5c 22 25 73 5c 22 20 | 70 61 73 73 65 73 20 74 | \"%s\" |passes t|
|000015b0| 68 72 6f 75 67 68 22 20 | 73 69 6e 67 6c 65 2d 6b |hrough" |single-k|
|000015c0| 65 79 2d 64 65 73 63 72 | 69 70 74 69 6f 6e 5d 20 |ey-descr|iption] |
|000015d0| 35 20 22 5c 0a 43 68 61 | 6e 67 65 20 74 68 65 20 |5 "\.Cha|nge the |
|000015e0| 74 65 72 6d 69 6e 61 6c | 2d 65 6d 75 6c 61 74 6f |terminal|-emulato|
|000015f0| 72 20 65 73 63 61 70 65 | 20 63 68 61 72 61 63 74 |r escape| charact|
|00001600| 65 72 2e 22 20 22 63 53 | 65 74 20 65 73 63 61 70 |er." "cS|et escap|
|00001610| 65 20 63 68 61 72 61 63 | 74 65 72 20 74 6f 3a 20 |e charac|ter to: |
|00001620| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |"]).(def|alias 't|
|00001630| 65 2d 73 74 75 66 66 2d | 73 74 72 69 6e 67 20 23 |e-stuff-|string #|
|00001640| 5b 28 73 74 72 69 6e 67 | 29 20 22 c0 09 5c 6e 5c |[(string|) "..\n\|
|00001650| 22 87 22 20 5b 70 72 6f | 63 65 73 73 2d 73 65 6e |"." [pro|cess-sen|
|00001660| 64 2d 73 74 72 69 6e 67 | 20 74 65 2d 70 72 6f 63 |d-string| te-proc|
|00001670| 65 73 73 20 73 74 72 69 | 6e 67 5d 20 33 20 22 5c |ess stri|ng] 3 "\|
|00001680| 0a 52 65 61 64 20 61 20 | 73 74 72 69 6e 67 20 74 |.Read a |string t|
|00001690| 6f 20 73 65 6e 64 20 74 | 6f 20 74 68 72 6f 75 67 |o send t|o throug|
|000016a0| 68 20 74 68 65 20 74 65 | 72 6d 69 6e 61 6c 20 65 |h the te|rminal e|
|000016b0| 6d 75 6c 61 74 6f 72 0a | 61 73 20 74 68 6f 75 67 |mulator.|as thoug|
|000016c0| 68 20 74 68 61 74 20 73 | 74 72 69 6e 67 20 68 61 |h that s|tring ha|
|000016d0| 64 20 62 65 65 6e 20 74 | 79 70 65 64 20 6f 6e 20 |d been t|yped on |
|000016e0| 74 68 65 20 6b 65 79 62 | 6f 61 72 64 2e 0a 0a 56 |the keyb|oard...V|
|000016f0| 65 72 79 20 70 6f 6f 72 | 20 6d 61 6e 27 73 20 66 |ery poor| man's f|
|00001700| 69 6c 65 20 74 72 61 6e | 73 66 65 72 20 70 72 6f |ile tran|sfer pro|
|00001710| 74 6f 63 6f 6c 2e 22 20 | 22 73 53 74 75 66 66 20 |tocol." |"sStuff |
|00001720| 73 74 72 69 6e 67 3a 20 | 22 5d 29 0a 28 64 65 66 |string: |"]).(def|
|00001730| 61 6c 69 61 73 20 27 74 | 65 2d 73 65 74 2d 6f 75 |alias 't|e-set-ou|
|00001740| 74 70 75 74 2d 6c 6f 67 | 20 23 5b 28 6e 61 6d 65 |tput-log| #[(name|
|00001750| 29 20 22 08 83 5c 6e 00 | 08 c1 9a 83 10 00 c2 13 |) "..\n.|........|
|00001760| c4 c5 21 87 c6 08 21 84 | 27 00 8a c7 08 21 71 88 |..!...!.|'....!q.|
|00001770| c8 20 88 c9 70 21 88 ca | 20 88 29 c6 08 21 13 c4 |. ..p!..| .)..!..|
|00001780| cb cc 0b 21 5c 22 87 22 | 20 5b 6e 61 6d 65 20 22 |...!\"."| [name "|
|00001790| 22 20 6e 69 6c 20 74 65 | 2d 6c 6f 67 2d 62 75 66 |" nil te|-log-buf|
|000017a0| 66 65 72 20 6d 65 73 73 | 61 67 65 20 22 4f 75 74 |fer mess|age "Out|
|000017b0| 70 75 74 20 6c 6f 67 67 | 69 6e 67 20 6f 66 66 2e |put logg|ing off.|
|000017c0| 22 20 67 65 74 2d 62 75 | 66 66 65 72 20 67 65 74 |" get-bu|ffer get|
|000017d0| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 66 |-buffer-|create f|
|000017e0| 75 6e 64 61 6d 65 6e 74 | 61 6c 2d 6d 6f 64 65 20 |undament|al-mode |
|000017f0| 62 75 66 66 65 72 2d 64 | 69 73 61 62 6c 65 2d 75 |buffer-d|isable-u|
|00001800| 6e 64 6f 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |ndo eras|e-buffer|
|00001810| 20 22 52 65 63 6f 72 64 | 69 6e 67 20 74 65 72 6d | "Record|ing term|
|00001820| 69 6e 61 6c 20 65 6d 75 | 6c 61 74 6f 72 20 6f 75 |inal emu|lator ou|
|00001830| 74 70 75 74 20 69 6e 74 | 6f 20 62 75 66 66 65 72 |tput int|o buffer|
|00001840| 20 5c 22 25 73 5c 22 22 | 20 62 75 66 66 65 72 2d | \"%s\""| buffer-|
|00001850| 6e 61 6d 65 5d 20 34 20 | 22 5c 0a 52 65 63 6f 72 |name] 4 |"\.Recor|
|00001860| 64 20 6f 75 74 70 75 74 | 20 66 72 6f 6d 20 74 68 |d output| from th|
|00001870| 65 20 74 65 72 6d 69 6e | 61 6c 20 65 6d 75 6c 61 |e termin|al emula|
|00001880| 74 6f 72 20 69 6e 20 61 | 20 62 75 66 66 65 72 2e |tor in a| buffer.|
|00001890| 22 20 28 6c 69 73 74 20 | 28 69 66 20 74 65 2d 6c |" (list |(if te-l|
|000018a0| 6f 67 2d 62 75 66 66 65 | 72 20 6e 69 6c 20 28 72 |og-buffe|r nil (r|
|000018b0| 65 61 64 2d 62 75 66 66 | 65 72 20 22 52 65 63 6f |ead-buff|er "Reco|
|000018c0| 72 64 20 6f 75 74 70 75 | 74 20 69 6e 20 62 75 66 |rd outpu|t in buf|
|000018d0| 66 65 72 3a 20 22 20 28 | 66 6f 72 6d 61 74 20 22 |fer: " (|format "|
|000018e0| 25 73 20 6f 75 74 70 75 | 74 2d 6c 6f 67 22 20 28 |%s outpu|t-log" (|
|000018f0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 28 63 75 72 |buffer-n|ame (cur|
|00001900| 72 65 6e 74 2d 62 75 66 | 66 65 72 29 29 29 20 6e |rent-buf|fer))) n|
|00001910| 69 6c 29 29 29 5d 29 0a | 28 64 65 66 61 6c 69 61 |il)))]).|(defalia|
|00001920| 73 20 27 74 65 2d 74 6f | 66 75 20 23 5b 6e 69 6c |s 'te-to|fu #[nil|
|00001930| 20 22 c0 c1 21 87 22 20 | 5b 74 65 2d 73 65 74 2d | "..!." |[te-set-|
|00001940| 6f 75 74 70 75 74 2d 6c | 6f 67 20 6e 69 6c 5d 20 |output-l|og nil] |
|00001950| 32 20 22 5c 0a 44 69 73 | 63 6f 6e 74 69 6e 75 65 |2 "\.Dis|continue|
|00001960| 20 6f 75 74 70 75 74 20 | 6c 6f 67 2e 22 20 6e 69 | output |log." ni|
|00001970| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00001980| c0 c1 c2 5c 22 88 c0 c3 | c4 5c 22 88 c0 c5 c6 5c |...\"...|.\"....\|
|00001990| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 74 65 |"." [def|alias te|
|000019a0| 2d 74 6f 67 67 6c 65 20 | 23 5b 28 73 79 6d 20 61 |-toggle |#[(sym a|
|000019b0| 72 67 29 20 22 08 09 a7 | 84 5c 6e 00 09 82 21 00 |rg) "...|.\n...!.|
|000019c0| 09 c2 55 83 16 00 08 4a | 3f 82 21 00 09 c3 57 83 |..U....J|?.!...W.|
|000019d0| 20 00 c4 82 21 00 c5 4c | 87 22 20 5b 73 79 6d 20 | ...!..L|." [sym |
|000019e0| 61 72 67 20 31 20 30 20 | 6e 69 6c 20 74 5d 20 33 |arg 1 0 |nil t] 3|
|000019f0| 5d 20 74 65 2d 74 6f 67 | 67 6c 65 2d 6d 6f 72 65 |] te-tog|gle-more|
|00001a00| 2d 70 72 6f 63 65 73 73 | 69 6e 67 20 23 5b 28 61 |-process|ing #[(a|
|00001a10| 72 67 29 20 22 c0 c1 c2 | 0b 5c 22 83 0c 00 c4 82 |rg) "...|.\".....|
|00001a20| 0d 00 c5 21 88 5c 6e 85 | 17 00 c6 89 16 07 87 22 |...!.\n.|......."|
|00001a30| 20 5b 6d 65 73 73 61 67 | 65 20 74 65 2d 74 6f 67 | [messag|e te-tog|
|00001a40| 67 6c 65 20 74 65 72 6d | 69 6e 61 6c 2d 6d 6f 72 |gle term|inal-mor|
|00001a50| 65 2d 70 72 6f 63 65 73 | 73 69 6e 67 20 61 72 67 |e-proces|sing arg|
|00001a60| 20 22 4d 6f 72 65 20 70 | 72 6f 63 65 73 73 69 6e | "More p|rocessin|
|00001a70| 67 20 6f 6e 22 20 22 4d | 6f 72 65 20 70 72 6f 63 |g on" "M|ore proc|
|00001a80| 65 73 73 69 6e 67 20 6f | 66 66 22 20 2d 31 20 74 |essing o|ff" -1 t|
|00001a90| 65 2d 6d 6f 72 65 2d 63 | 6f 75 6e 74 5d 20 34 20 |e-more-c|ount] 4 |
|00001aa0| 6e 69 6c 20 22 70 22 5d | 20 74 65 2d 74 6f 67 67 |nil "p"]| te-togg|
|00001ab0| 6c 65 2d 73 63 72 6f 6c | 6c 69 6e 67 20 23 5b 28 |le-scrol|ling #[(|
|00001ac0| 61 72 67 29 20 22 c0 c1 | c2 0b 5c 22 83 0c 00 c4 |arg) "..|..\"....|
|00001ad0| 82 0d 00 c5 21 87 22 20 | 5b 6d 65 73 73 61 67 65 |....!." |[message|
|00001ae0| 20 74 65 2d 74 6f 67 67 | 6c 65 20 74 65 72 6d 69 | te-togg|le termi|
|00001af0| 6e 61 6c 2d 73 63 72 6f | 6c 6c 69 6e 67 20 61 72 |nal-scro|lling ar|
|00001b00| 67 20 22 53 63 72 6f 6c | 6c 20 61 74 20 65 6e 64 |g "Scrol|l at end|
|00001b10| 20 6f 66 20 70 61 67 65 | 22 20 22 57 72 61 70 20 | of page|" "Wrap |
|00001b20| 61 74 20 65 6e 64 20 6f | 66 20 70 61 67 65 22 5d |at end o|f page"]|
|00001b30| 20 34 20 6e 69 6c 20 22 | 70 22 5d 5d 20 33 29 0a | 4 nil "|p"]] 3).|
|00001b40| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 2d 65 6e |(defalia|s 'te-en|
|00001b50| 61 62 6c 65 2d 6d 6f 72 | 65 2d 70 72 6f 63 65 73 |able-mor|e-proces|
|00001b60| 73 69 6e 67 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |sing #[n|il "..!.|
|00001b70| 22 20 5b 74 65 2d 74 6f | 67 67 6c 65 2d 6d 6f 72 |" [te-to|ggle-mor|
|00001b80| 65 2d 70 72 6f 63 65 73 | 73 69 6e 67 20 74 5d 20 |e-proces|sing t] |
|00001b90| 32 20 22 5c 0a 45 6e 61 | 62 6c 65 20 2a 2a 20 4d |2 "\.Ena|ble ** M|
|00001ba0| 4f 52 45 20 2a 2a 20 70 | 72 6f 63 65 73 73 69 6e |ORE ** p|rocessin|
|00001bb0| 67 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |g" nil])|.(defali|
|00001bc0| 61 73 20 27 74 65 2d 64 | 69 73 61 62 6c 65 2d 6d |as 'te-d|isable-m|
|00001bd0| 6f 72 65 2d 70 72 6f 63 | 65 73 73 69 6e 67 20 23 |ore-proc|essing #|
|00001be0| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 74 65 2d |[nil "..|!." [te-|
|00001bf0| 74 6f 67 67 6c 65 2d 6d | 6f 72 65 2d 70 72 6f 63 |toggle-m|ore-proc|
|00001c00| 65 73 73 69 6e 67 20 6e | 69 6c 5d 20 32 20 22 5c |essing n|il] 2 "\|
|00001c10| 0a 44 69 73 61 62 6c 65 | 20 2a 2a 20 4d 4f 52 45 |.Disable| ** MORE|
|00001c20| 20 2a 2a 20 70 72 6f 63 | 65 73 73 69 6e 67 22 20 | ** proc|essing" |
|00001c30| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001c40| 27 74 65 2d 64 6f 2d 73 | 63 72 6f 6c 6c 69 6e 67 |'te-do-s|crolling|
|00001c50| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 74 | #[nil "|..!." [t|
|00001c60| 65 2d 74 6f 67 67 6c 65 | 2d 73 63 72 6f 6c 6c 69 |e-toggle|-scrolli|
|00001c70| 6e 67 20 74 5d 20 32 20 | 22 5c 0a 53 63 72 6f 6c |ng t] 2 |"\.Scrol|
|00001c80| 6c 20 61 74 20 65 6e 64 | 20 6f 66 20 70 61 67 65 |l at end| of page|
|00001c90| 20 28 79 75 63 6b 29 22 | 20 6e 69 6c 5d 29 0a 28 | (yuck)"| nil]).(|
|00001ca0| 64 65 66 61 6c 69 61 73 | 20 27 74 65 2d 64 6f 2d |defalias| 'te-do-|
|00001cb0| 77 72 61 70 70 69 6e 67 | 20 23 5b 6e 69 6c 20 22 |wrapping| #[nil "|
|00001cc0| c0 c1 21 87 22 20 5b 74 | 65 2d 74 6f 67 67 6c 65 |..!." [t|e-toggle|
|00001cd0| 2d 73 63 72 6f 6c 6c 69 | 6e 67 20 6e 69 6c 5d 20 |-scrolli|ng nil] |
|00001ce0| 32 20 22 5c 0a 57 72 61 | 70 20 74 6f 20 74 6f 70 |2 "\.Wra|p to top|
|00001cf0| 20 6f 66 20 77 69 6e 64 | 6f 77 20 61 74 20 65 6e | of wind|ow at en|
|00001d00| 64 20 6f 66 20 70 61 67 | 65 22 20 6e 69 6c 5d 29 |d of pag|e" nil])|
|00001d10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 2d 73 |.(defali|as 'te-s|
|00001d20| 65 74 2d 72 65 64 69 73 | 70 6c 61 79 2d 69 6e 74 |et-redis|play-int|
|00001d30| 65 72 76 61 6c 20 23 5b | 28 61 72 67 29 20 22 08 |erval #[|(arg) ".|
|00001d40| c1 5d 89 10 12 c3 89 14 | 87 22 20 5b 61 72 67 20 |.]......|." [arg |
|00001d50| 31 20 74 65 72 6d 69 6e | 61 6c 2d 72 65 64 69 73 |1 termin|al-redis|
|00001d60| 70 6c 61 79 2d 69 6e 74 | 65 72 76 61 6c 20 30 20 |play-int|erval 0 |
|00001d70| 74 65 2d 72 65 64 69 73 | 70 6c 61 79 2d 63 6f 75 |te-redis|play-cou|
|00001d80| 6e 74 5d 20 33 20 22 5c | 0a 53 65 74 20 74 68 65 |nt] 3 "\|.Set the|
|00001d90| 20 6d 61 78 69 6d 75 6d | 20 69 6e 74 65 72 76 61 | maximum| interva|
|00001da0| 6c 20 28 69 6e 20 6f 75 | 74 70 75 74 20 63 68 61 |l (in ou|tput cha|
|00001db0| 72 61 63 74 65 72 73 29 | 20 62 65 74 77 65 65 6e |racters)| between|
|00001dc0| 20 73 63 72 65 65 6e 20 | 75 70 64 61 74 65 73 2e | screen |updates.|
|00001dd0| 0a 53 65 74 20 74 68 69 | 73 20 6e 75 6d 62 65 72 |.Set thi|s number|
|00001de0| 20 74 6f 20 6c 61 72 67 | 65 20 76 61 6c 75 65 20 | to larg|e value |
|00001df0| 66 6f 72 20 67 72 65 61 | 74 65 72 20 74 68 72 6f |for grea|ter thro|
|00001e00| 75 67 68 70 75 74 2c 0a | 73 65 74 20 69 74 20 73 |ughput,.|set it s|
|00001e10| 6d 61 6c 6c 65 72 20 66 | 6f 72 20 6d 6f 72 65 20 |maller f|or more |
|00001e20| 66 72 65 71 75 65 6e 74 | 20 75 70 64 61 74 65 73 |frequent| updates|
|00001e30| 20 28 62 75 74 20 6f 76 | 65 72 61 6c 6c 20 73 6c | (but ov|erall sl|
|00001e40| 6f 77 65 72 20 70 65 72 | 66 6f 72 6d 61 6e 63 65 |ower per|formance|
|00001e50| 2e 22 20 22 4e 4d 61 78 | 20 6e 75 6d 62 65 72 20 |." "NMax| number |
|00001e60| 6f 66 20 6f 75 74 70 75 | 74 20 63 68 61 72 73 20 |of outpu|t chars |
|00001e70| 62 65 74 77 65 65 6e 20 | 72 65 64 69 73 70 6c 61 |between |redispla|
|00001e80| 79 20 75 70 64 61 74 65 | 73 3a 20 22 5d 29 0a 28 |y update|s: "]).(|
|00001e90| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 c3 23 |byte-cod|e "....#|
|00001ea0| 88 c4 c1 c5 5c 22 87 22 | 20 5b 70 75 74 20 74 65 |....\"."| [put te|
|00001eb0| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 75 6e 72 65 |-more-br|eak-unre|
|00001ec0| 61 64 20 73 75 70 70 72 | 65 73 73 2d 6b 65 79 6d |ad suppr|ess-keym|
|00001ed0| 61 70 20 74 20 64 65 66 | 61 6c 69 61 73 20 23 5b |ap t def|alias #[|
|00001ee0| 6e 69 6c 20 22 08 09 3d | 83 5c 6e 00 c2 c3 21 87 |nil "..=|.\n...!.|
|00001ef0| c4 c5 c6 08 21 c7 20 23 | 88 c8 16 09 ca 20 88 cb |....!. #|..... ..|
|00001f00| 1e 0c cd 20 29 87 22 20 | 5b 6c 61 73 74 2d 69 6e |... )." |[last-in|
|00001f10| 70 75 74 2d 63 68 61 72 | 20 74 65 72 6d 69 6e 61 |put-char| termina|
|00001f20| 6c 2d 65 73 63 61 70 65 | 2d 63 68 61 72 20 63 61 |l-escape|-char ca|
|00001f30| 6c 6c 2d 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |ll-inter|actively|
|00001f40| 20 74 65 2d 65 73 63 61 | 70 65 20 6d 65 73 73 61 | te-esca|pe messa|
|00001f50| 67 65 20 22 43 6f 6e 74 | 69 6e 75 69 6e 67 20 66 |ge "Cont|inuing f|
|00001f60| 72 6f 6d 20 6d 6f 72 65 | 20 62 72 65 61 6b 20 28 |rom more| break (|
|00001f70| 5c 22 25 73 5c 22 20 74 | 79 70 65 64 2c 20 25 64 |\"%s\" t|yped, %d|
|00001f80| 20 63 68 61 72 73 20 6f | 75 74 70 75 74 20 70 65 | chars o|utput pe|
|00001f90| 6e 64 69 6e 67 2e 2e 2e | 29 22 20 73 69 6e 67 6c |nding...|)" singl|
|00001fa0| 65 2d 6b 65 79 2d 64 65 | 73 63 72 69 70 74 69 6f |e-key-de|scriptio|
|00001fb0| 6e 20 74 65 2d 70 65 6e | 64 69 6e 67 2d 6f 75 74 |n te-pen|ding-out|
|00001fc0| 70 75 74 2d 6c 65 6e 67 | 74 68 20 32 35 39 32 35 |put-leng|th 25925|
|00001fd0| 39 20 74 65 2d 6d 6f 72 | 65 2d 63 6f 75 6e 74 20 |9 te-mor|e-count |
|00001fe0| 74 65 2d 6d 6f 72 65 2d | 62 72 65 61 6b 2d 75 6e |te-more-|break-un|
|00001ff0| 77 69 6e 64 20 6e 69 6c | 20 74 65 72 6d 69 6e 61 |wind nil| termina|
|00002000| 6c 2d 6d 6f 72 65 2d 70 | 72 6f 63 65 73 73 69 6e |l-more-p|rocessin|
|00002010| 67 20 74 65 2d 70 61 73 | 73 2d 74 68 72 6f 75 67 |g te-pas|s-throug|
|00002020| 68 5d 20 34 20 6e 69 6c | 20 6e 69 6c 5d 5d 20 34 |h] 4 nil| nil]] 4|
|00002030| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 65 2d |).(defal|ias 'te-|
|00002040| 6d 6f 72 65 2d 62 72 65 | 61 6b 2d 72 65 73 75 6d |more-bre|ak-resum|
|00002050| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 20 87 |e #[nil |"..!.. .|
|00002060| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 43 6f 6e 74 |" [messa|ge "Cont|
|00002070| 69 6e 75 69 6e 67 20 66 | 72 6f 6d 20 6d 6f 72 65 |inuing f|rom more|
|00002080| 20 62 72 65 61 6b 22 20 | 74 65 2d 6d 6f 72 65 2d | break" |te-more-|
|00002090| 62 72 65 61 6b 2d 75 6e | 77 69 6e 64 5d 20 32 20 |break-un|wind] 2 |
|000020a0| 22 5c 0a 50 72 6f 63 65 | 65 64 20 70 61 73 74 20 |"\.Proce|ed past |
|000020b0| 74 68 65 20 2a 2a 4d 4f | 52 45 2a 2a 20 62 72 65 |the **MO|RE** bre|
|000020c0| 61 6b 2c 0a 61 6c 6c 6f | 77 69 6e 67 20 74 68 65 |ak,.allo|wing the|
|000020d0| 20 6e 65 78 74 20 70 61 | 67 65 20 6f 66 20 6f 75 | next pa|ge of ou|
|000020e0| 74 70 75 74 20 74 6f 20 | 61 70 70 65 61 72 22 20 |tput to |appear" |
|000020f0| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00002100| 27 74 65 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 68 |'te-more|-break-h|
|00002110| 65 6c 70 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 88 c2 |elp #[ni|l "..!..|
|00002120| c3 21 88 c4 c5 21 87 22 | 20 5b 6d 65 73 73 61 67 |.!...!."| [messag|
|00002130| 65 20 22 54 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |e "Termi|nal-emul|
|00002140| 61 74 6f 72 20 6d 6f 72 | 65 20 62 72 65 61 6b 20 |ator mor|e break |
|00002150| 68 65 6c 70 2e 2e 2e 22 | 20 73 69 74 2d 66 6f 72 |help..."| sit-for|
|00002160| 20 30 20 77 69 74 68 2d | 65 6c 65 63 74 72 69 63 | 0 with-|electric|
|00002170| 2d 68 65 6c 70 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-help #[|nil "..!|
|00002180| 88 c0 c2 c3 c4 c5 0e 06 | c7 c8 24 c9 c5 21 23 21 |........|..$..!#!|
|00002190| 88 c0 ca cb 21 21 88 c0 | cc 21 88 c7 87 22 20 5b |....!!..|.!..." [|
|000021a0| 70 72 69 6e 63 20 22 54 | 65 72 6d 69 6e 61 6c 2d |princ "T|erminal-|
|000021b0| 65 6d 75 6c 61 74 6f 72 | 20 6d 6f 72 65 20 62 72 |emulator| more br|
|000021c0| 65 61 6b 2e 5c 6e 5c 6e | 22 20 66 6f 72 6d 61 74 |eak.\n\n|" format|
|000021d0| 20 22 54 79 70 65 20 5c | 22 25 73 5c 22 20 28 74 | "Type \|"%s\" (t|
|000021e0| 65 2d 6d 6f 72 65 2d 62 | 72 65 61 6b 2d 72 65 73 |e-more-b|reak-res|
|000021f0| 75 6d 65 29 5c 6e 25 73 | 5c 6e 22 20 77 68 65 72 |ume)\n%s|\n" wher|
|00002200| 65 2d 69 73 2d 69 6e 74 | 65 72 6e 61 6c 20 74 65 |e-is-int|ernal te|
|00002210| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 72 65 73 75 |-more-br|eak-resu|
|00002220| 6d 65 20 74 65 72 6d 69 | 6e 61 6c 2d 6d 6f 72 65 |me termi|nal-more|
|00002230| 2d 62 72 65 61 6b 2d 6d | 61 70 20 6e 69 6c 20 74 |-break-m|ap nil t|
|00002240| 20 64 6f 63 75 6d 65 6e | 74 61 74 69 6f 6e 20 73 | documen|tation s|
|00002250| 75 62 73 74 69 74 75 74 | 65 2d 63 6f 6d 6d 61 6e |ubstitut|e-comman|
|00002260| 64 2d 6b 65 79 73 20 22 | 5c 5c 7b 74 65 72 6d 69 |d-keys "|\\{termi|
|00002270| 6e 61 6c 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 6d |nal-more|-break-m|
|00002280| 61 70 7d 5c 6e 22 20 22 | 41 6e 79 20 6f 74 68 65 |ap}\n" "|Any othe|
|00002290| 72 20 6b 65 79 20 69 73 | 20 70 61 73 73 65 64 20 |r key is| passed |
|000022a0| 74 68 72 6f 75 67 68 20 | 74 6f 20 74 68 65 20 70 |through |to the p|
|000022b0| 72 6f 67 72 61 6d 5c 6e | 72 75 6e 6e 69 6e 67 20 |rogram\n|running |
|000022c0| 75 6e 64 65 72 20 74 68 | 65 20 74 65 72 6d 69 6e |under th|e termin|
|000022d0| 61 6c 20 65 6d 75 6c 61 | 74 6f 72 20 61 6e 64 20 |al emula|tor and |
|000022e0| 64 69 73 61 62 6c 65 73 | 20 6d 6f 72 65 20 70 72 |disables| more pr|
|000022f0| 6f 63 65 73 73 69 6e 67 | 20 75 6e 74 69 6c 5c 6e |ocessing| until\n|
|00002300| 61 6c 6c 20 70 65 6e 64 | 69 6e 67 20 6f 75 74 70 |all pend|ing outp|
|00002310| 75 74 20 68 61 73 20 62 | 65 65 6e 20 64 65 61 6c |ut has b|een deal|
|00002320| 74 20 77 69 74 68 2e 22 | 5d 20 38 5d 5d 20 32 20 |t with."|] 8]] 2 |
|00002330| 22 5c 0a 50 72 6f 76 69 | 64 65 20 68 65 6c 70 20 |"\.Provi|de help |
|00002340| 6f 6e 20 63 6f 6d 6d 61 | 6e 64 73 20 61 76 61 69 |on comma|nds avai|
|00002350| 6c 61 62 6c 65 20 69 6e | 20 61 20 74 65 72 6d 69 |lable in| a termi|
|00002360| 6e 61 6c 2d 65 6d 75 6c | 61 74 6f 72 20 2a 2a 4d |nal-emul|ator **M|
|00002370| 4f 52 45 2a 2a 20 62 72 | 65 61 6b 22 20 6e 69 6c |ORE** br|eak" nil|
|00002380| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 65 |]).(defa|lias 'te|
|00002390| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 61 64 76 61 |-more-br|eak-adva|
|000023a0| 6e 63 65 2d 6f 6e 65 2d | 6c 69 6e 65 20 23 5b 6e |nce-one-|line #[n|
|000023b0| 69 6c 20 22 c0 11 c2 20 | 87 22 20 5b 31 20 74 65 |il "... |." [1 te|
|000023c0| 2d 6d 6f 72 65 2d 63 6f | 75 6e 74 20 74 65 2d 6d |-more-co|unt te-m|
|000023d0| 6f 72 65 2d 62 72 65 61 | 6b 2d 75 6e 77 69 6e 64 |ore-brea|k-unwind|
|000023e0| 5d 20 31 20 22 5c 0a 41 | 6c 6c 6f 77 20 6f 6e 65 |] 1 "\.A|llow one|
|000023f0| 20 6d 6f 72 65 20 6c 69 | 6e 65 20 6f 66 20 74 65 | more li|ne of te|
|00002400| 78 74 20 74 6f 20 62 65 | 20 6f 75 74 70 75 74 20 |xt to be| output |
|00002410| 62 65 66 6f 72 65 20 64 | 6f 69 6e 67 20 61 6e 6f |before d|oing ano|
|00002420| 74 68 65 72 20 6d 6f 72 | 65 20 62 72 65 61 6b 2e |ther mor|e break.|
|00002430| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00002440| 73 20 27 74 65 2d 6d 6f | 72 65 2d 62 72 65 61 6b |s 'te-mo|re-break|
|00002450| 2d 66 6c 75 73 68 2d 70 | 65 6e 64 69 6e 67 2d 6f |-flush-p|ending-o|
|00002460| 75 74 70 75 74 20 23 5b | 6e 69 6c 20 22 c0 20 88 |utput #[|nil ". .|
|00002470| c1 20 87 22 20 5b 74 65 | 2d 6d 6f 72 65 2d 62 72 |. ." [te|-more-br|
|00002480| 65 61 6b 2d 75 6e 77 69 | 6e 64 20 74 65 2d 66 6c |eak-unwi|nd te-fl|
|00002490| 75 73 68 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 |ush-pend|ing-outp|
|000024a0| 75 74 5d 20 31 20 22 5c | 0a 44 69 73 63 61 72 64 |ut] 1 "\|.Discard|
|000024b0| 20 61 6e 79 20 6f 75 74 | 70 75 74 20 77 68 69 63 | any out|put whic|
|000024c0| 68 20 68 61 73 20 62 65 | 65 6e 20 72 65 63 65 69 |h has be|en recei|
|000024d0| 76 65 64 20 62 79 20 74 | 68 65 20 74 65 72 6d 69 |ved by t|he termi|
|000024e0| 6e 61 6c 20 65 6d 75 6c | 61 74 6f 72 20 62 75 74 |nal emul|ator but|
|000024f0| 0a 6e 6f 74 20 79 65 74 | 20 70 72 6f 63 65 73 73 |.not yet| process|
|00002500| 65 64 20 61 6e 64 20 74 | 68 65 6e 20 70 72 6f 63 |ed and t|hen proc|
|00002510| 65 65 64 20 66 72 6f 6d | 20 74 68 65 20 6d 6f 72 |eed from| the mor|
|00002520| 65 20 62 72 65 61 6b 2e | 22 20 6e 69 6c 5d 29 0a |e break.|" nil]).|
|00002530| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 2d 66 6c |(defalia|s 'te-fl|
|00002540| 75 73 68 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 |ush-pend|ing-outp|
|00002550| 75 74 20 23 5b 6e 69 6c | 20 22 08 41 84 09 00 c1 |ut #[nil| ".A....|
|00002560| c2 21 87 c3 20 1c c1 c5 | 0c 5c 22 88 c6 c7 c8 0c |.!.. ...|.\".....|
|00002570| 5c 22 44 10 c9 20 88 ca | cb 21 88 cc c6 21 29 87 |\"D.. ..|.!...!).|
|00002580| 22 20 5b 74 65 2d 70 65 | 6e 64 69 6e 67 2d 6f 75 |" [te-pe|nding-ou|
|00002590| 74 70 75 74 20 6d 65 73 | 73 61 67 65 20 22 28 54 |tput mes|sage "(T|
|000025a0| 68 65 72 65 20 69 73 20 | 6e 6f 20 6f 75 74 70 75 |here is |no outpu|
|000025b0| 74 20 70 65 6e 64 69 6e | 67 29 22 20 74 65 2d 70 |t pendin|g)" te-p|
|000025c0| 65 6e 64 69 6e 67 2d 6f | 75 74 70 75 74 2d 6c 65 |ending-o|utput-le|
|000025d0| 6e 67 74 68 20 6c 65 6e | 67 74 68 20 22 46 6c 75 |ngth len|gth "Flu|
|000025e0| 73 68 69 6e 67 20 25 64 | 20 63 68 61 72 73 20 6f |shing %d| chars o|
|000025f0| 66 20 70 65 6e 64 69 6e | 67 20 6f 75 74 70 75 74 |f pendin|g output|
|00002600| 22 20 30 20 66 6f 72 6d | 61 74 20 22 5c 6e 2a 2a |" 0 form|at "\n**|
|00002610| 2a 20 25 64 20 63 68 61 | 72 73 20 6f 66 20 70 65 |* %d cha|rs of pe|
|00002620| 6e 64 69 6e 67 20 6f 75 | 74 70 75 74 20 66 6c 75 |nding ou|tput flu|
|00002630| 73 68 65 64 20 2a 2a 2a | 5c 6e 22 20 74 65 2d 75 |shed ***|\n" te-u|
|00002640| 70 64 61 74 65 2d 70 65 | 6e 64 69 6e 67 2d 6f 75 |pdate-pe|nding-ou|
|00002650| 74 70 75 74 2d 64 69 73 | 70 6c 61 79 20 74 65 2d |tput-dis|play te-|
|00002660| 70 72 6f 63 65 73 73 2d | 6f 75 74 70 75 74 20 6e |process-|output n|
|00002670| 69 6c 20 73 69 74 2d 66 | 6f 72 5d 20 34 20 22 5c |il sit-f|or] 4 "\|
|00002680| 0a 44 69 73 63 61 72 64 | 20 61 6e 79 20 61 73 2d |.Discard| any as-|
|00002690| 79 65 74 2d 75 6e 70 72 | 6f 63 65 73 73 65 64 20 |yet-unpr|ocessed |
|000026a0| 6f 75 74 70 75 74 20 77 | 68 69 63 68 20 68 61 73 |output w|hich has|
|000026b0| 20 62 65 65 6e 20 72 65 | 63 65 69 76 65 64 20 62 | been re|ceived b|
|000026c0| 79 0a 74 68 65 20 74 65 | 72 6d 69 6e 61 6c 20 65 |y.the te|rminal e|
|000026d0| 6d 75 6c 61 74 6f 72 2e | 22 20 6e 69 6c 5d 29 0a |mulator.|" nil]).|
|000026e0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 2d 70 61 |(defalia|s 'te-pa|
|000026f0| 73 73 2d 74 68 72 6f 75 | 67 68 20 23 5b 6e 69 6c |ss-throu|gh #[nil|
|00002700| 20 22 08 09 3d 83 5c 6e | 00 c2 c3 21 87 08 39 83 | "..=.\n|...!..9.|
|00002710| 19 00 08 c4 4e 83 19 00 | 08 c4 4e 10 08 a8 83 31 |....N...|..N....1|
|00002720| 00 c5 08 c6 c7 c8 5c 22 | 5c 22 c9 55 84 31 00 c5 |......\"|\".U.1..|
|00002730| 08 ca 5c 22 cb 5c 5c 10 | 08 a8 83 52 00 0e 0c 83 |..\".\\.|...R....|
|00002740| 45 00 0e 0d 41 84 45 00 | ce cf 21 88 d0 0e 11 d2 |E...A.E.|..!.....|
|00002750| c7 08 5c 22 5c 22 88 d3 | d4 21 87 d5 d6 d7 08 21 |..\"\"..|.!.....!|
|00002760| 5c 22 87 22 20 5b 6c 61 | 73 74 2d 69 6e 70 75 74 |\"." [la|st-input|
|00002770| 2d 63 68 61 72 20 74 65 | 72 6d 69 6e 61 6c 2d 65 |-char te|rminal-e|
|00002780| 73 63 61 70 65 2d 63 68 | 61 72 20 63 61 6c 6c 2d |scape-ch|ar call-|
|00002790| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 20 74 65 |interact|ively te|
|000027a0| 2d 65 73 63 61 70 65 20 | 61 73 63 69 69 2d 63 68 |-escape |ascii-ch|
|000027b0| 61 72 61 63 74 65 72 20 | 6c 6f 67 61 6e 64 20 6c |aracter |logand l|
|000027c0| 73 68 20 31 20 32 33 20 | 30 20 31 32 37 20 31 32 |sh 1 23 |0 127 12|
|000027d0| 38 20 74 65 72 6d 69 6e | 61 6c 2d 6d 6f 72 65 2d |8 termin|al-more-|
|000027e0| 70 72 6f 63 65 73 73 69 | 6e 67 20 74 65 2d 70 65 |processi|ng te-pe|
|000027f0| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 20 74 65 2d |nding-ou|tput te-|
|00002800| 73 65 74 2d 6d 6f 72 65 | 2d 63 6f 75 6e 74 20 6e |set-more|-count n|
|00002810| 69 6c 20 73 65 6e 64 2d | 73 74 72 69 6e 67 20 74 |il send-|string t|
|00002820| 65 2d 70 72 6f 63 65 73 | 73 20 6d 61 6b 65 2d 73 |e-proces|s make-s|
|00002830| 74 72 69 6e 67 20 74 65 | 2d 70 72 6f 63 65 73 73 |tring te|-process|
|00002840| 2d 6f 75 74 70 75 74 20 | 74 20 6d 65 73 73 61 67 |-output |t messag|
|00002850| 65 20 22 46 75 6e 63 74 | 69 6f 6e 20 6b 65 79 20 |e "Funct|ion key |
|00002860| 60 25 73 27 20 69 67 6e | 6f 72 65 64 22 20 73 69 |`%s' ign|ored" si|
|00002870| 6e 67 6c 65 2d 6b 65 79 | 2d 64 65 73 63 72 69 70 |ngle-key|-descrip|
|00002880| 74 69 6f 6e 5d 20 35 20 | 22 5c 0a 43 68 61 72 61 |tion] 5 |"\.Chara|
|00002890| 63 74 65 72 20 69 73 20 | 70 61 73 73 65 64 20 74 |cter is |passed t|
|000028a0| 6f 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 72 75 |o the pr|ogram ru|
|000028b0| 6e 6e 69 6e 67 20 75 6e | 64 65 72 20 74 68 65 20 |nning un|der the |
|000028c0| 74 65 72 6d 69 6e 61 6c | 20 65 6d 75 6c 61 74 6f |terminal| emulato|
|000028d0| 72 2e 0a 4f 6e 65 20 63 | 68 61 72 61 63 74 65 72 |r..One c|haracter|
|000028e0| 73 20 69 73 20 74 72 65 | 61 74 65 64 20 73 70 65 |s is tre|ated spe|
|000028f0| 63 69 61 6c 6c 79 3a 0a | 74 68 65 20 74 65 72 6d |cially:.|the term|
|00002900| 69 6e 61 6c 20 65 73 63 | 61 70 65 20 63 68 61 72 |inal esc|ape char|
|00002910| 61 63 74 65 72 20 28 6e | 6f 72 6d 61 6c 6c 79 20 |acter (n|ormally |
|00002920| 43 2d 5e 29 0a 6c 65 74 | 73 20 79 6f 75 20 74 79 |C-^).let|s you ty|
|00002930| 70 65 20 61 20 74 65 72 | 6d 69 6e 61 6c 20 65 6d |pe a ter|minal em|
|00002940| 75 6c 61 74 6f 72 20 63 | 6f 6d 6d 61 6e 64 2e 22 |ulator c|ommand."|
|00002950| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|00002960| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 88 c5 |e "...\"|....\"..|
|00002970| c6 21 84 13 00 c7 16 06 | 0e 06 84 23 00 c8 20 16 |.!......|...#.. .|
|00002980| 06 c9 0e 06 ca cb 23 88 | cc cd ce cf 23 87 22 20 |......#.|....#." |
|00002990| 5b 64 65 66 61 6c 69 61 | 73 20 74 65 2d 73 65 74 |[defalia|s te-set|
|000029a0| 2d 77 69 6e 64 6f 77 2d | 73 74 61 72 74 20 23 5b |-window-|start #[|
|000029b0| 6e 69 6c 20 22 c0 70 21 | 89 19 85 0b 00 c2 09 21 |nil ".p!|.......!|
|000029c0| 1b 09 3f 86 3d 00 0b 60 | 65 5a 0c 54 a5 59 83 23 |..?.=..`|eZ.T.Y.#|
|000029d0| 00 c5 09 65 5c 22 82 3d | 00 0b 64 60 5a 0c 54 a5 |...e\".=|..d`Z.T.|
|000029e0| 59 83 3c 00 c5 09 64 0b | 0c 54 5f 5a c6 5a 5c 22 |Y.<...d.|.T_Z.Z\"|
|000029f0| 82 3d 00 c7 2a 87 22 20 | 5b 67 65 74 2d 62 75 66 |.=..*." |[get-buf|
|00002a00| 66 65 72 2d 77 69 6e 64 | 6f 77 20 77 20 77 69 6e |fer-wind|ow w win|
|00002a10| 64 6f 77 2d 68 65 69 67 | 68 74 20 68 20 74 65 2d |dow-heig|ht h te-|
|00002a20| 77 69 64 74 68 20 73 65 | 74 2d 77 69 6e 64 6f 77 |width se|t-window|
|00002a30| 2d 73 74 61 72 74 20 2d | 31 20 6e 69 6c 5d 20 36 |-start -|1 nil] 6|
|00002a40| 5d 20 74 65 2d 70 65 6e | 64 69 6e 67 2d 6f 75 74 |] te-pen|ding-out|
|00002a50| 70 75 74 2d 6c 65 6e 67 | 74 68 20 23 5b 6e 69 6c |put-leng|th #[nil|
|00002a60| 20 22 08 40 08 41 19 1a | 09 83 17 00 5c 6e 09 40 | ".@.A..|....\n.@|
|00002a70| 47 5c 5c 12 09 41 89 11 | 84 5c 6e 00 5c 6e 2a 87 |G\\..A..|.\n.\n*.|
|00002a80| 22 20 5b 74 65 2d 70 65 | 6e 64 69 6e 67 2d 6f 75 |" [te-pe|nding-ou|
|00002a90| 74 70 75 74 20 74 65 6d | 20 6c 65 6e 67 74 68 5d |tput tem| length]|
|00002aa0| 20 33 5d 20 62 6f 75 6e | 64 70 20 74 65 72 6d 69 | 3] boun|dp termi|
|00002ab0| 6e 61 6c 2d 65 64 69 74 | 2d 6d 61 70 20 6e 69 6c |nal-edit|-map nil|
|00002ac0| 20 6d 61 6b 65 2d 73 70 | 61 72 73 65 2d 6b 65 79 | make-sp|arse-key|
|00002ad0| 6d 61 70 20 64 65 66 69 | 6e 65 2d 6b 65 79 20 22 |map defi|ne-key "|
|00002ae0| 03 03 22 20 74 65 72 6d | 69 6e 61 6c 2d 63 65 61 |.." term|inal-cea|
|00002af0| 73 65 2d 65 64 69 74 20 | 70 75 74 20 74 65 72 6d |se-edit |put term|
|00002b00| 69 6e 61 6c 2d 65 64 69 | 74 2d 6d 6f 64 65 20 6d |inal-edi|t-mode m|
|00002b10| 6f 64 65 2d 63 6c 61 73 | 73 20 73 70 65 63 69 61 |ode-clas|s specia|
|00002b20| 6c 5d 20 34 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |l] 4).(d|efalias |
|00002b30| 27 74 65 72 6d 69 6e 61 | 6c 2d 65 64 69 74 2d 6d |'termina|l-edit-m|
|00002b40| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 09 21 88 c2 |ode #[ni|l "..!..|
|00002b50| 13 c4 15 c6 c7 21 16 07 | c8 16 09 ca cb 21 87 22 |.....!..|.....!."|
|00002b60| 20 5b 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 | [use-lo|cal-map |
|00002b70| 74 65 72 6d 69 6e 61 6c | 2d 65 64 69 74 2d 6d 61 |terminal|-edit-ma|
|00002b80| 70 20 74 65 72 6d 69 6e | 61 6c 2d 65 64 69 74 2d |p termin|al-edit-|
|00002b90| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00002ba0| 22 54 65 72 6d 69 6e 61 | 6c 20 45 64 69 74 22 20 |"Termina|l Edit" |
|00002bb0| 6d 6f 64 65 2d 6e 61 6d | 65 20 64 65 66 61 75 6c |mode-nam|e defaul|
|00002bc0| 74 2d 76 61 6c 75 65 20 | 6d 6f 64 65 2d 6c 69 6e |t-value |mode-lin|
|00002bd0| 65 2d 6d 6f 64 69 66 69 | 65 64 20 6e 69 6c 20 6d |e-modifi|ed nil m|
|00002be0| 6f 64 65 2d 6c 69 6e 65 | 2d 70 72 6f 63 65 73 73 |ode-line|-process|
|00002bf0| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 74 65 72 6d 69 | run-hoo|ks termi|
|00002c00| 6e 61 6c 2d 65 64 69 74 | 2d 6d 6f 64 65 2d 68 6f |nal-edit|-mode-ho|
|00002c10| 6f 6b 5d 20 32 20 22 5c | 0a 4d 61 6a 6f 72 20 6d |ok] 2 "\|.Major m|
|00002c20| 6f 64 65 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |ode for |editing |
|00002c30| 74 68 65 20 63 6f 6e 74 | 65 6e 74 73 20 6f 66 20 |the cont|ents of |
|00002c40| 61 20 74 65 72 6d 69 6e | 61 6c 2d 65 6d 75 6c 61 |a termin|al-emula|
|00002c50| 74 6f 72 20 62 75 66 66 | 65 72 2e 0a 54 68 65 20 |tor buff|er..The |
|00002c60| 65 64 69 74 69 6e 67 20 | 63 6f 6d 6d 61 6e 64 73 |editing |commands|
|00002c70| 20 61 72 65 20 74 68 65 | 20 73 61 6d 65 20 61 73 | are the| same as|
|00002c80| 20 69 6e 20 46 75 6e 64 | 61 6d 65 6e 74 61 6c 20 | in Fund|amental |
|00002c90| 6d 6f 64 65 2c 0a 74 6f | 67 65 74 68 65 72 20 77 |mode,.to|gether w|
|00002ca0| 69 74 68 20 61 20 63 6f | 6d 6d 61 6e 64 20 5c 5c |ith a co|mmand \\|
|00002cb0| 3c 74 65 72 6d 69 6e 61 | 6c 2d 65 64 69 74 2d 6d |<termina|l-edit-m|
|00002cc0| 6f 64 65 2d 6d 61 70 3e | 74 6f 20 72 65 74 75 72 |ode-map>|to retur|
|00002cd0| 6e 20 74 6f 20 74 65 72 | 6d 69 6e 61 6c 20 65 6d |n to ter|minal em|
|00002ce0| 75 6c 61 74 69 6f 6e 3a | 20 5c 5c 5b 74 65 72 6d |ulation:| \\[term|
|00002cf0| 69 6e 61 6c 2d 63 65 61 | 73 65 2d 65 64 69 74 5d |inal-cea|se-edit]|
|00002d00| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00002d10| 74 65 2d 65 64 69 74 20 | 23 5b 6e 69 6c 20 22 c0 |te-edit |#[nil ".|
|00002d20| 20 88 c1 c2 20 21 88 c3 | c4 21 c5 3d 83 14 00 c6 | ... !..|.!.=....|
|00002d30| c7 21 87 c6 c8 c9 21 21 | 87 22 20 5b 74 65 72 6d |.!....!!|." [term|
|00002d40| 69 6e 61 6c 2d 65 64 69 | 74 2d 6d 6f 64 65 20 73 |inal-edi|t-mode s|
|00002d50| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00002d60| 65 64 2d 70 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |ed-p buf|fer-modi|
|00002d70| 66 69 65 64 2d 70 20 6b | 65 79 2d 62 69 6e 64 69 |fied-p k|ey-bindi|
|00002d80| 6e 67 20 22 03 03 22 20 | 74 65 72 6d 69 6e 61 6c |ng ".." |terminal|
|00002d90| 2d 63 65 61 73 65 2d 65 | 64 69 74 20 6d 65 73 73 |-cease-e|dit mess|
|00002da0| 61 67 65 20 22 45 64 69 | 74 69 6e 67 3a 20 54 79 |age "Edi|ting: Ty|
|00002db0| 70 65 20 43 2d 63 20 43 | 2d 63 20 74 6f 20 72 65 |pe C-c C|-c to re|
|00002dc0| 74 75 72 6e 20 74 6f 20 | 54 65 72 6d 69 6e 61 6c |turn to |Terminal|
|00002dd0| 22 20 73 75 62 73 74 69 | 74 75 74 65 2d 63 6f 6d |" substi|tute-com|
|00002de0| 6d 61 6e 64 2d 6b 65 79 | 73 20 22 45 64 69 74 69 |mand-key|s "Editi|
|00002df0| 6e 67 3a 20 54 79 70 65 | 20 5c 5c 5b 74 65 72 6d |ng: Type| \\[term|
|00002e00| 69 6e 61 6c 2d 63 65 61 | 73 65 2d 65 64 69 74 5d |inal-cea|se-edit]|
|00002e10| 20 74 6f 20 72 65 74 75 | 72 6e 20 74 6f 20 54 65 | to retu|rn to Te|
|00002e20| 72 6d 69 6e 61 6c 22 5d | 20 33 20 22 5c 0a 53 74 |rminal"]| 3 "\.St|
|00002e30| 61 72 74 20 65 64 69 74 | 69 6e 67 20 74 68 65 20 |art edit|ing the |
|00002e40| 74 65 72 6d 69 6e 61 6c | 20 65 6d 75 6c 61 74 6f |terminal| emulato|
|00002e50| 72 20 62 75 66 66 65 72 | 20 77 69 74 68 20 6f 72 |r buffer| with or|
|00002e60| 64 69 6e 61 72 79 20 45 | 6d 61 63 73 20 63 6f 6d |dinary E|macs com|
|00002e70| 6d 61 6e 64 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |mands." |nil]).(d|
|00002e80| 65 66 61 6c 69 61 73 20 | 27 74 65 72 6d 69 6e 61 |efalias |'termina|
|00002e90| 6c 2d 63 65 61 73 65 2d | 65 64 69 74 20 23 5b 6e |l-cease-|edit #[n|
|00002ea0| 69 6c 20 22 c0 19 7e 88 | c2 20 0b 0c 53 1d 1e 06 |il "..~.|. ..S...|
|00002eb0| 1e 07 65 62 88 0d c8 59 | 83 91 00 60 1e 09 ca cb |..eb...Y|...`....|
|00002ec0| 0e 09 0e 06 5c 5c cc 23 | 83 3a 00 cd 75 88 ce cf |....\\.#|.:..u...|
|00002ed0| 0e 06 60 0e 09 5a 5a 5c | 22 88 d0 75 88 82 71 00 |..`..ZZ\|"..u..q.|
|00002ee0| 6d 83 4c 00 ce cf 0e 06 | 60 0e 09 5a 5a 5c 22 88 |m.L.....|`..ZZ\".|
|00002ef0| 82 71 00 67 d1 55 83 58 | 00 d0 75 88 82 71 00 60 |.q.g.U.X|..u..q.`|
|00002f00| 16 09 ca cb c0 d2 23 83 | 6c 00 0e 09 60 53 7c 88 |......#.|l...`S|.|
|00002f10| 82 71 00 0e 09 64 7c 88 | 29 0d c8 55 83 83 00 6d |.q...d|.|)..U...m|
|00002f20| 84 8a 00 60 64 7c 88 82 | 8a 00 6d 83 8a 00 d1 63 |...`d|..|..m....c|
|00002f30| 88 0d 53 89 15 82 12 00 | 0e 07 62 88 0e 07 c0 89 |..S.....|..b.....|
|00002f40| 93 88 60 16 13 c8 16 14 | cd 16 15 2c d6 d7 21 16 |..`.....|...,..!.|
|00002f50| 17 d8 16 19 da 16 1b dc | 89 16 1d 87 22 20 5b 6e |........|...." [n|
|00002f60| 69 6c 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |il buffe|r-read-o|
|00002f70| 6e 6c 79 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |nly poin|t-marker|
|00002f80| 20 74 65 2d 77 69 64 74 | 68 20 74 65 2d 68 65 69 | te-widt|h te-hei|
|00002f90| 67 68 74 20 68 20 77 69 | 64 74 68 20 6f 70 6f 69 |ght h wi|dth opoi|
|00002fa0| 6e 74 20 30 20 70 20 73 | 65 61 72 63 68 2d 66 6f |nt 0 p s|earch-fo|
|00002fb0| 72 77 61 72 64 20 22 5c | 6e 22 20 6d 6f 76 65 20 |rward "\|n" move |
|00002fc0| 2d 31 20 69 6e 73 65 72 | 74 2d 63 68 61 72 20 33 |-1 inser|t-char 3|
|00002fd0| 32 20 31 20 31 30 20 74 | 20 74 65 2d 73 61 76 65 |2 1 10 t| te-save|
|00002fe0| 64 2d 70 6f 69 6e 74 20 | 74 65 2d 72 65 64 69 73 |d-point |te-redis|
|00002ff0| 70 6c 61 79 2d 63 6f 75 | 6e 74 20 74 65 2d 6d 6f |play-cou|nt te-mo|
|00003000| 72 65 2d 63 6f 75 6e 74 | 20 64 65 66 61 75 6c 74 |re-count| default|
|00003010| 2d 76 61 6c 75 65 20 6d | 6f 64 65 2d 6c 69 6e 65 |-value m|ode-line|
|00003020| 2d 6d 6f 64 69 66 69 65 | 64 20 74 65 72 6d 69 6e |-modifie|d termin|
|00003030| 61 6c 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |al-mode |major-mo|
|00003040| 64 65 20 22 74 65 72 6d | 69 6e 61 6c 22 20 6d 6f |de "term|inal" mo|
|00003050| 64 65 2d 6e 61 6d 65 20 | 28 22 3a 20 25 73 22 29 |de-name |(": %s")|
|00003060| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 | mode-li|ne-proce|
|00003070| 73 73 5d 20 36 20 22 5c | 0a 46 69 6e 69 73 68 20 |ss] 6 "\|.Finish |
|00003080| 65 64 69 74 69 6e 67 20 | 6d 65 73 73 61 67 65 3b |editing |message;|
|00003090| 20 73 77 69 74 63 68 20 | 62 61 63 6b 20 74 6f 20 | switch |back to |
|000030a0| 54 65 72 6d 69 6e 61 6c | 20 70 72 6f 70 65 72 2e |Terminal| proper.|
|000030b0| 22 20 6e 69 6c 5d 29 0a | 28 62 79 74 65 2d 63 6f |" nil]).|(byte-co|
|000030c0| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 88 |de "...\|"....\".|
|000030d0| c0 c5 c6 5c 22 87 22 20 | 5b 64 65 66 61 6c 69 61 |...\"." |[defalia|
|000030e0| 73 20 74 65 2d 6d 6f 72 | 65 2d 62 72 65 61 6b 20 |s te-mor|e-break |
|000030f0| 23 5b 6e 69 6c 20 22 c0 | c1 21 88 c2 c3 21 88 60 |#[nil ".|.!...!.`|
|00003100| 13 c2 c4 21 88 c5 20 14 | c6 0e 07 21 88 c2 c8 21 |...!.. .|...!...!|
|00003110| 88 c9 0e 5c 6e 21 16 08 | c2 cb 21 88 0e 0c 16 0b |...\n!..|..!.....|
|00003120| cd 0e 0e cf 45 16 0c d0 | 0e 5c 6e d1 5c 22 88 d2 |....E...|.\n.\"..|
|00003130| 20 88 d3 d4 20 21 70 3d | 83 45 00 d5 d6 21 88 6d | ... !p=|.E...!.m|
|00003140| 84 5e 00 0e 17 83 5e 00 | 8a d8 75 88 60 60 0e 19 |.^....^.|..u.``..|
|00003150| 5c 5c 7c 88 0e 17 63 88 | 29 da db 21 88 dc dd 21 |\\|...c.|)..!...!|
|00003160| 88 de df c1 5c 22 87 22 | 20 5b 74 65 2d 73 65 74 |....\"."| [te-set|
|00003170| 2d 6d 6f 72 65 2d 63 6f | 75 6e 74 20 74 20 6d 61 |-more-co|unt t ma|
|00003180| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00003190| 65 20 74 65 2d 6d 6f 72 | 65 2d 6f 6c 64 2d 70 6f |e te-mor|e-old-po|
|000031a0| 69 6e 74 20 74 65 2d 6d | 6f 72 65 2d 6f 6c 64 2d |int te-m|ore-old-|
|000031b0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 63 75 72 72 65 6e |local-ma|p curren|
|000031c0| 74 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 75 73 65 2d |t-local-|map use-|
|000031d0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 74 65 72 6d 69 6e |local-ma|p termin|
|000031e0| 61 6c 2d 6d 6f 72 65 2d | 62 72 65 61 6b 2d 6d 61 |al-more-|break-ma|
|000031f0| 70 20 74 65 2d 6d 6f 72 | 65 2d 6f 6c 64 2d 66 69 |p te-mor|e-old-fi|
|00003200| 6c 74 65 72 20 70 72 6f | 63 65 73 73 2d 66 69 6c |lter pro|cess-fil|
|00003210| 74 65 72 20 74 65 2d 70 | 72 6f 63 65 73 73 20 74 |ter te-p|rocess t|
|00003220| 65 2d 6d 6f 72 65 2d 6f | 6c 64 2d 6d 6f 64 65 2d |e-more-o|ld-mode-|
|00003230| 6c 69 6e 65 2d 66 6f 72 | 6d 61 74 20 6d 6f 64 65 |line-for|mat mode|
|00003240| 2d 6c 69 6e 65 2d 66 6f | 72 6d 61 74 20 22 2d 2d |-line-fo|rmat "--|
|00003250| 20 20 20 2a 2a 4d 4f 52 | 45 2a 2a 20 20 22 20 6d | **MOR|E** " m|
|00003260| 6f 64 65 2d 6c 69 6e 65 | 2d 62 75 66 66 65 72 2d |ode-line|-buffer-|
|00003270| 69 64 65 6e 74 69 66 69 | 63 61 74 69 6f 6e 20 22 |identifi|cation "|
|00003280| 25 2d 22 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |%-" set-|process-|
|00003290| 66 69 6c 74 65 72 20 23 | 5b 28 70 72 6f 63 65 73 |filter #|[(proces|
|000032a0| 73 20 73 74 72 69 6e 67 | 29 20 22 8a c0 09 21 71 |s string|) "...!q|
|000032b0| 88 5c 6e 0b 43 a4 12 29 | c4 20 87 22 20 5b 70 72 |.\n.C..)|. ." [pr|
|000032c0| 6f 63 65 73 73 2d 62 75 | 66 66 65 72 20 70 72 6f |ocess-bu|ffer pro|
|000032d0| 63 65 73 73 20 74 65 2d | 70 65 6e 64 69 6e 67 2d |cess te-|pending-|
|000032e0| 6f 75 74 70 75 74 20 73 | 74 72 69 6e 67 20 74 65 |output s|tring te|
|000032f0| 2d 75 70 64 61 74 65 2d | 70 65 6e 64 69 6e 67 2d |-update-|pending-|
|00003300| 6f 75 74 70 75 74 2d 64 | 69 73 70 6c 61 79 5d 20 |output-d|isplay] |
|00003310| 32 5d 20 74 65 2d 75 70 | 64 61 74 65 2d 70 65 6e |2] te-up|date-pen|
|00003320| 64 69 6e 67 2d 6f 75 74 | 70 75 74 2d 64 69 73 70 |ding-out|put-disp|
|00003330| 6c 61 79 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |lay wind|ow-buffe|
|00003340| 72 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |r select|ed-windo|
|00003350| 77 20 6d 65 73 73 61 67 | 65 20 22 4d 6f 72 65 20 |w messag|e "More |
|00003360| 62 72 65 61 6b 20 22 20 | 74 65 72 6d 69 6e 61 6c |break " |terminal|
|00003370| 2d 6d 6f 72 65 2d 62 72 | 65 61 6b 2d 69 6e 73 65 |-more-br|eak-inse|
|00003380| 72 74 69 6f 6e 20 31 20 | 74 65 2d 77 69 64 74 68 |rtion 1 |te-width|
|00003390| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 74 65 72 6d 69 | run-hoo|ks termi|
|000033a0| 6e 61 6c 2d 6d 6f 72 65 | 2d 62 72 65 61 6b 2d 68 |nal-more|-break-h|
|000033b0| 6f 6f 6b 20 73 69 74 2d | 66 6f 72 20 30 20 74 68 |ook sit-|for 0 th|
|000033c0| 72 6f 77 20 74 65 2d 70 | 72 6f 63 65 73 73 2d 6f |row te-p|rocess-o|
|000033d0| 75 74 70 75 74 5d 20 33 | 5d 20 74 65 2d 6d 6f 72 |utput] 3|] te-mor|
|000033e0| 65 2d 62 72 65 61 6b 2d | 75 6e 77 69 6e 64 20 23 |e-break-|unwind #|
|000033f0| 5b 6e 69 6c 20 22 c0 09 | 21 88 c2 0b 0c 5c 22 88 |[nil "..|!....\".|
|00003400| 0d 62 88 0e 06 16 07 c8 | c9 20 21 88 ca 1e 0b 6d |.b......|. !....m|
|00003410| 84 35 00 0e 0c 83 35 00 | cd 75 88 60 60 0e 0c 47 |.5....5.|.u.``..G|
|00003420| 5c 5c 7c 88 ce cf 0e 10 | 5c 22 88 0d 62 88 ca 15 |\\|.....|\"..b...|
|00003430| d1 1e 12 d3 20 88 2a d4 | d5 21 87 22 20 5b 75 73 |.... .*.|.!." [us|
|00003440| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 74 65 2d 6d |e-local-|map te-m|
|00003450| 6f 72 65 2d 6f 6c 64 2d | 6c 6f 63 61 6c 2d 6d 61 |ore-old-|local-ma|
|00003460| 70 20 73 65 74 2d 70 72 | 6f 63 65 73 73 2d 66 69 |p set-pr|ocess-fi|
|00003470| 6c 74 65 72 20 74 65 2d | 70 72 6f 63 65 73 73 20 |lter te-|process |
|00003480| 74 65 2d 6d 6f 72 65 2d | 6f 6c 64 2d 66 69 6c 74 |te-more-|old-filt|
|00003490| 65 72 20 74 65 2d 6d 6f | 72 65 2d 6f 6c 64 2d 70 |er te-mo|re-old-p|
|000034a0| 6f 69 6e 74 20 74 65 2d | 6d 6f 72 65 2d 6f 6c 64 |oint te-|more-old|
|000034b0| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 66 6f 72 6d 61 |-mode-li|ne-forma|
|000034c0| 74 20 6d 6f 64 65 2d 6c | 69 6e 65 2d 66 6f 72 6d |t mode-l|ine-form|
|000034d0| 61 74 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |at set-b|uffer-mo|
|000034e0| 64 69 66 69 65 64 2d 70 | 20 62 75 66 66 65 72 2d |dified-p| buffer-|
|000034f0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6e 69 6c 20 62 |modified|-p nil b|
|00003500| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00003510| 74 65 72 6d 69 6e 61 6c | 2d 6d 6f 72 65 2d 62 72 |terminal|-more-br|
|00003520| 65 61 6b 2d 69 6e 73 65 | 72 74 69 6f 6e 20 31 20 |eak-inse|rtion 1 |
|00003530| 69 6e 73 65 72 74 2d 63 | 68 61 72 20 33 32 20 74 |insert-c|har 32 t|
|00003540| 65 2d 77 69 64 74 68 20 | 32 35 39 32 35 39 20 74 |e-width |259259 t|
|00003550| 65 2d 6d 6f 72 65 2d 63 | 6f 75 6e 74 20 74 65 2d |e-more-c|ount te-|
|00003560| 6e 65 77 6c 69 6e 65 20 | 74 65 2d 70 72 6f 63 65 |newline |te-proce|
|00003570| 73 73 2d 6f 75 74 70 75 | 74 20 74 5d 20 33 5d 20 |ss-outpu|t t] 3] |
|00003580| 74 65 2d 73 65 74 2d 6d | 6f 72 65 2d 63 6f 75 6e |te-set-m|ore-coun|
|00003590| 74 20 23 5b 28 6e 65 77 | 6c 69 6e 65 29 20 22 60 |t #[(new|line) "`|
|000035a0| 65 5a 08 54 a5 19 5c 6e | 83 0e 00 09 54 11 09 0b |eZ.T..\n|....T...|
|000035b0| 55 83 1a 00 0b 89 14 82 | 4e 00 09 0b 53 55 83 27 |U.......|N...SU.'|
|000035c0| 00 0b 89 14 82 4e 00 09 | 0b c5 a5 57 84 37 00 0b |.....N..|...W.7..|
|000035d0| 09 5a c6 56 83 3f 00 0b | 09 5a 89 14 82 4e 00 0b |.Z.V.?..|.Z...N..|
|000035e0| 89 c6 56 83 4a 00 c5 82 | 4b 00 c7 5a 89 14 29 87 |..V.J...|K..Z..).|
|000035f0| 22 20 5b 74 65 2d 77 69 | 64 74 68 20 6c 69 6e 65 |" [te-wi|dth line|
|00003600| 20 6e 65 77 6c 69 6e 65 | 20 74 65 2d 68 65 69 67 | newline| te-heig|
|00003610| 68 74 20 74 65 2d 6d 6f | 72 65 2d 63 6f 75 6e 74 |ht te-mo|re-count|
|00003620| 20 32 20 31 30 20 31 5d | 20 33 5d 5d 20 33 29 0a | 2 10 1]| 3]] 3).|
|00003630| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 2d 6e 65 |(defalia|s 'te-ne|
|00003640| 77 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 c0 7f 88 |wline #[|nil "...|
|00003650| 09 83 20 00 5c 6e 53 89 | 12 c3 57 83 17 00 c4 c5 |.. .\nS.|..W.....|
|00003660| 21 88 82 20 00 5c 6e c3 | 3d 83 20 00 c6 20 88 6d |!.. .\n.|=. .. .m|
|00003670| 83 40 00 65 65 0e 07 5c | 5c 7c 88 65 62 88 0e 08 |.@.ee..\|\|.eb...|
|00003680| 83 4a 00 c9 ca 21 88 64 | 62 88 cb 63 88 82 4a 00 |.J...!.d|b..c..J.|
|00003690| ca 75 88 60 60 0e 07 5c | 5c 7c 88 cc cd 0e 07 5c |.u.``..\|\|.....\|
|000036a0| 22 88 c3 79 88 ce 20 87 | 22 20 5b 6e 69 6c 20 74 |"..y.. .|" [nil t|
|000036b0| 65 72 6d 69 6e 61 6c 2d | 6d 6f 72 65 2d 70 72 6f |erminal-|more-pro|
|000036c0| 63 65 73 73 69 6e 67 20 | 74 65 2d 6d 6f 72 65 2d |cessing |te-more-|
|000036d0| 63 6f 75 6e 74 20 30 20 | 74 65 2d 73 65 74 2d 6d |count 0 |te-set-m|
|000036e0| 6f 72 65 2d 63 6f 75 6e | 74 20 74 20 74 65 2d 6d |ore-coun|t t te-m|
|000036f0| 6f 72 65 2d 62 72 65 61 | 6b 20 74 65 2d 77 69 64 |ore-brea|k te-wid|
|00003700| 74 68 20 74 65 72 6d 69 | 6e 61 6c 2d 73 63 72 6f |th termi|nal-scro|
|00003710| 6c 6c 69 6e 67 20 64 65 | 6c 65 74 65 2d 63 68 61 |lling de|lete-cha|
|00003720| 72 20 31 20 31 30 20 69 | 6e 73 65 72 74 2d 63 68 |r 1 10 i|nsert-ch|
|00003730| 61 72 20 33 32 20 74 65 | 2d 73 65 74 2d 77 69 6e |ar 32 te|-set-win|
|00003740| 64 6f 77 2d 73 74 61 72 | 74 5d 20 33 20 22 5c 0a |dow-star|t] 3 "\.|
|00003750| 4d 6f 76 65 20 64 6f 77 | 6e 20 61 20 6c 69 6e 65 |Move dow|n a line|
|00003760| 2c 20 6f 70 74 69 6f 6e | 61 6c 6c 79 20 64 6f 20 |, option|ally do |
|00003770| 6d 6f 72 65 20 70 72 6f | 63 65 73 73 69 6e 67 2c |more pro|cessing,|
|00003780| 20 70 65 72 68 61 70 73 | 20 77 72 61 70 2f 73 63 | perhaps| wrap/sc|
|00003790| 72 6f 6c 6c 2c 0a 6d 6f | 76 65 20 74 6f 20 73 74 |roll,.mo|ve to st|
|000037a0| 61 72 74 20 6f 66 20 6e | 65 77 20 6c 69 6e 65 2c |art of n|ew line,|
|000037b0| 20 63 6c 65 61 72 20 74 | 6f 20 65 6e 64 20 6f 66 | clear t|o end of|
|000037c0| 20 6c 69 6e 65 2e 22 5d | 29 0a 28 62 79 74 65 2d | line."]|).(byte-|
|000037d0| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c0 c3 c4 5c |code "..|.\"....\|
|000037e0| 22 88 c0 c5 c6 5c 22 88 | c0 c7 c8 5c 22 88 c0 c9 |"....\".|...\"...|
|000037f0| ca 5c 22 88 c0 cb cc 5c | 22 88 c0 cd ce 5c 22 88 |.\"....\|"....\".|
|00003800| c0 cf d0 5c 22 88 c0 d1 | d2 5c 22 88 c0 d3 d4 5c |...\"...|.\"....\|
|00003810| 22 88 c0 d5 d6 5c 22 88 | c0 d7 d8 5c 22 88 c0 d9 |"....\".|...\"...|
|00003820| da 5c 22 88 c0 db dc 5c | 22 88 c0 dd de 5c 22 87 |.\"....\|"....\".|
|00003830| 22 20 5b 64 65 66 61 6c | 69 61 73 20 74 65 2d 6d |" [defal|ias te-m|
|00003840| 6f 76 65 2d 74 6f 2d 70 | 6f 73 69 74 69 6f 6e 20 |ove-to-p|osition |
|00003850| 23 5b 6e 69 6c 20 22 c0 | 20 c1 5a c0 20 c1 5a 1a |#[nil ".| .Z. .Z.|
|00003860| 1b 5c 6e 0c 56 84 20 00 | 0b 0d 56 84 20 00 65 5c |.\n.V. .|..V. .e\|
|00003870| 6e 0b 0c 54 5f 5c 5c 5c | 5c 62 88 2a c6 89 16 07 |n..T_\\\|\b.*....|
|00003880| 87 22 20 5b 74 65 2d 67 | 65 74 2d 63 68 61 72 20 |." [te-g|et-char |
|00003890| 33 32 20 78 20 79 20 74 | 65 2d 77 69 64 74 68 20 |32 x y t|e-width |
|000038a0| 74 65 2d 68 65 69 67 68 | 74 20 2d 31 20 74 65 2d |te-heigh|t -1 te-|
|000038b0| 6d 6f 72 65 2d 63 6f 75 | 6e 74 5d 20 34 5d 20 74 |more-cou|nt] 4] t|
|000038c0| 65 2d 63 6c 65 61 72 2d | 72 65 73 74 2d 6f 66 2d |e-clear-|rest-of-|
|000038d0| 6c 69 6e 65 20 23 5b 6e | 69 6c 20 22 8a 60 c0 7f |line #[n|il ".`..|
|000038e0| 88 60 5a 19 60 60 09 5c | 5c 7c 88 c2 c3 09 5b 5c |.`Z.``.\|\|....[\|
|000038f0| 22 2a 87 22 20 5b 6e 69 | 6c 20 6e 20 69 6e 73 65 |"*." [ni|l n inse|
|00003900| 72 74 2d 63 68 61 72 20 | 33 32 5d 20 33 5d 20 74 |rt-char |32] 3] t|
|00003910| 65 2d 63 6c 65 61 72 2d | 72 65 73 74 2d 6f 66 2d |e-clear-|rest-of-|
|00003920| 73 63 72 65 65 6e 20 23 | 5b 6e 69 6c 20 22 8a c0 |screen #|[nil "..|
|00003930| 20 88 c1 7f 88 6d 3f 85 | 20 00 c2 75 88 c1 7f 88 | ....m?.| ..u....|
|00003940| 60 0b 5a 60 7c 88 c4 c5 | 0b 5c 22 88 82 04 00 29 |`.Z`|...|.\"....)|
|00003950| 87 22 20 5b 74 65 2d 63 | 6c 65 61 72 2d 72 65 73 |." [te-c|lear-res|
|00003960| 74 2d 6f 66 2d 6c 69 6e | 65 20 6e 69 6c 20 31 20 |t-of-lin|e nil 1 |
|00003970| 74 65 2d 77 69 64 74 68 | 20 69 6e 73 65 72 74 2d |te-width| insert-|
|00003980| 63 68 61 72 20 33 32 5d | 20 33 5d 20 74 65 2d 63 |char 32]| 3] te-c|
|00003990| 6c 65 61 72 2d 73 63 72 | 65 65 6e 20 23 5b 6e 69 |lear-scr|een #[ni|
|000039a0| 6c 20 22 c0 20 88 c1 1a | 5c 6e 0b 57 83 1a 00 5c |l ". ...|\n.W...\|
|000039b0| 6e 54 12 c4 c5 0e 06 5c | 22 88 c7 63 88 82 05 00 |nT.....\|"..c....|
|000039c0| 29 64 53 64 7c 88 65 62 | 88 c8 89 16 09 87 22 20 |)dSd|.eb|......" |
|000039d0| 5b 65 72 61 73 65 2d 62 | 75 66 66 65 72 20 30 20 |[erase-b|uffer 0 |
|000039e0| 69 20 74 65 2d 68 65 69 | 67 68 74 20 69 6e 73 65 |i te-hei|ght inse|
|000039f0| 72 74 2d 63 68 61 72 20 | 33 32 20 74 65 2d 77 69 |rt-char |32 te-wi|
|00003a00| 64 74 68 20 31 30 20 2d | 31 20 74 65 2d 6d 6f 72 |dth 10 -|1 te-mor|
|00003a10| 65 2d 63 6f 75 6e 74 5d | 20 33 5d 20 74 65 2d 69 |e-count]| 3] te-i|
|00003a20| 6e 73 65 72 74 2d 6c 69 | 6e 65 73 20 23 5b 6e 69 |nsert-li|nes #[ni|
|00003a30| 6c 20 22 6e 83 4e 00 8a | 08 60 65 5a 09 54 a5 5a |l "n.N..|.`eZ.T.Z|
|00003a40| c2 5a 1b c4 20 c5 5a 0b | 5e 1e 06 c7 1e 08 64 0e |.Z.. .Z.|^.....d.|
|00003a50| 06 09 54 5f 5a 64 7c 88 | 60 64 3d 83 2e 00 c9 63 |..T_Zd|.|`d=....c|
|00003a60| 88 0e 08 0e 06 57 83 4d | 00 0e 08 54 16 08 ca c5 |.....W.M|...T....|
|00003a70| 09 5c 22 88 0e 08 0b 3d | 84 2e 00 c9 63 88 82 2e |.\"....=|....c...|
|00003a80| 00 2c c2 89 16 0b 87 22 | 20 5b 74 65 2d 68 65 69 |.,....."| [te-hei|
|00003a90| 67 68 74 20 74 65 2d 77 | 69 64 74 68 20 2d 31 20 |ght te-w|idth -1 |
|00003aa0| 6c 69 6e 65 20 74 65 2d | 67 65 74 2d 63 68 61 72 |line te-|get-char|
|00003ab0| 20 33 32 20 6e 20 30 20 | 69 20 31 30 20 69 6e 73 | 32 n 0 |i 10 ins|
|00003ac0| 65 72 74 2d 63 68 61 72 | 20 74 65 2d 6d 6f 72 65 |ert-char| te-more|
|00003ad0| 2d 63 6f 75 6e 74 5d 20 | 33 5d 20 74 65 2d 64 65 |-count] |3] te-de|
|00003ae0| 6c 65 74 65 2d 6c 69 6e | 65 73 20 23 5b 6e 69 6c |lete-lin|es #[nil|
|00003af0| 20 22 6e 83 4a 00 08 60 | 65 5a 09 54 a5 5a c2 5a | "n.J..`|eZ.T.Z.Z|
|00003b00| 1b c4 20 c5 5a 0b 5e 1e | 06 c7 1e 08 60 60 0e 06 |.. .Z.^.|....``..|
|00003b10| 09 54 5f 5c 5c 64 5e 7c | 88 8a 64 62 88 0e 08 0e |.T_\\d^||..db....|
|00003b20| 06 57 83 49 00 0e 08 54 | 16 08 c9 c5 09 5c 22 88 |.W.I...T|.....\".|
|00003b30| 0e 08 0b 3d 84 2a 00 ca | 63 88 82 2a 00 2c c2 89 |...=.*..|c..*.,..|
|00003b40| 16 0b 87 22 20 5b 74 65 | 2d 68 65 69 67 68 74 20 |..." [te|-height |
|00003b50| 74 65 2d 77 69 64 74 68 | 20 2d 31 20 6c 69 6e 65 |te-width| -1 line|
|00003b60| 20 74 65 2d 67 65 74 2d | 63 68 61 72 20 33 32 20 | te-get-|char 32 |
|00003b70| 6e 20 30 20 69 20 69 6e | 73 65 72 74 2d 63 68 61 |n 0 i in|sert-cha|
|00003b80| 72 20 31 30 20 74 65 2d | 6d 6f 72 65 2d 63 6f 75 |r 10 te-|more-cou|
|00003b90| 6e 74 5d 20 34 5d 20 74 | 65 2d 62 65 67 69 6e 6e |nt] 4] t|e-beginn|
|00003ba0| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 23 5b 6e 69 |ing-of-l|ine #[ni|
|00003bb0| 6c 20 22 c0 79 88 c1 87 | 22 20 5b 30 20 6e 69 6c |l ".y...|" [0 nil|
|00003bc0| 5d 20 31 5d 20 74 65 2d | 62 61 63 6b 77 61 72 64 |] 1] te-|backward|
|00003bd0| 2d 63 68 61 72 20 23 5b | 6e 69 6c 20 22 6e 3f 85 |-char #[|nil "n?.|
|00003be0| 08 00 c0 c1 21 87 22 20 | 5b 62 61 63 6b 77 61 72 |....!." |[backwar|
|00003bf0| 64 2d 63 68 61 72 20 31 | 5d 20 32 5d 20 74 65 2d |d-char 1|] 2] te-|
|00003c00| 66 6f 72 77 61 72 64 2d | 63 68 61 72 20 23 5b 6e |forward-|char #[n|
|00003c10| 69 6c 20 22 6c 3f 85 07 | 00 c0 75 87 22 20 5b 31 |il "l?..|..u." [1|
|00003c20| 5d 20 31 5d 20 74 65 2d | 64 65 6c 65 74 65 20 23 |] 1] te-|delete #|
|00003c30| 5b 6e 69 6c 20 22 6e 3f | 85 0f 00 60 53 60 7c 88 |[nil "n?|...`S`|.|
|00003c40| c0 63 88 c1 75 87 22 20 | 5b 33 32 20 2d 31 5d 20 |.c..u." |[32 -1] |
|00003c50| 32 5d 20 74 65 2d 62 65 | 65 70 20 23 5b 6e 69 6c |2] te-be|ep #[nil|
|00003c60| 20 22 c0 20 87 22 20 5b | 62 65 65 70 5d 20 31 5d | ". ." [|beep] 1]|
|00003c70| 20 74 65 2d 69 6e 73 65 | 72 74 2d 73 70 61 63 65 | te-inse|rt-space|
|00003c80| 73 20 23 5b 6e 69 6c 20 | 22 60 18 c1 20 c2 5a c3 |s #[nil |"`.. .Z.|
|00003c90| 7f 88 60 08 5a 5e 89 1c | c5 58 84 21 00 c6 0c 5b |..`.Z^..|.X.!...[|
|00003ca0| 21 88 08 62 88 c7 c2 0c | 5c 22 88 08 62 2a 87 22 |!..b....|\"..b*."|
|00003cb0| 20 5b 70 20 74 65 2d 67 | 65 74 2d 63 68 61 72 20 | [p te-g|et-char |
|00003cc0| 33 32 20 6e 69 6c 20 6e | 20 30 20 64 65 6c 65 74 |32 nil n| 0 delet|
|00003cd0| 65 2d 63 68 61 72 20 69 | 6e 73 65 72 74 2d 63 68 |e-char i|nsert-ch|
|00003ce0| 61 72 5d 20 34 5d 20 74 | 65 2d 64 65 6c 65 74 65 |ar] 4] t|e-delete|
|00003cf0| 2d 63 68 61 72 20 23 5b | 6e 69 6c 20 22 60 18 c1 |-char #[|nil "`..|
|00003d00| 20 c2 5a c3 7f 88 60 08 | 5a 5e 89 1c c5 58 84 20 | .Z...`.|Z^...X. |
|00003d10| 00 c6 c2 0c 5c 22 88 08 | 62 88 c7 0c 21 88 08 62 |....\"..|b...!..b|
|00003d20| 2a 87 22 20 5b 70 20 74 | 65 2d 67 65 74 2d 63 68 |*." [p t|e-get-ch|
|00003d30| 61 72 20 33 32 20 6e 69 | 6c 20 6e 20 30 20 69 6e |ar 32 ni|l n 0 in|
|00003d40| 73 65 72 74 2d 63 68 61 | 72 20 64 65 6c 65 74 65 |sert-cha|r delete|
|00003d50| 2d 63 68 61 72 5d 20 34 | 5d 20 74 65 2d 6c 6f 73 |-char] 4|] te-los|
|00003d60| 69 6e 67 2d 75 6e 69 78 | 20 28 6c 61 6d 62 64 61 |ing-unix| (lambda|
|00003d70| 20 6e 69 6c 29 20 74 65 | 2d 6f 75 74 70 75 74 2d | nil) te|-output-|
|00003d80| 74 61 62 20 23 5b 6e 69 | 6c 20 22 60 89 18 c1 79 |tab #[ni|l "`...y|
|00003d90| 88 60 5a 1a c3 c4 5c 6e | c5 5c 22 5a c6 7f 88 60 |.`Z...\n|.\"Z...`|
|00003da0| 08 5a 5e 1e 07 08 0e 07 | 5c 5c 62 2b 87 22 20 5b |.Z^.....|\\b+." [|
|00003db0| 70 20 30 20 78 20 38 20 | 6c 6f 67 61 6e 64 20 37 |p 0 x 8 |logand 7|
|00003dc0| 20 6e 69 6c 20 6c 5d 20 | 35 5d 5d 20 33 29 0a 28 | nil l] |5]] 3).(|
|00003dd0| 64 65 66 61 6c 69 61 73 | 20 27 74 65 2d 64 6f 77 |defalias| 'te-dow|
|00003de0| 6e 2d 76 65 72 74 69 63 | 61 6c 6c 79 2d 6f 72 2d |n-vertic|ally-or-|
|00003df0| 73 63 72 6f 6c 6c 20 23 | 5b 6e 69 6c 20 22 69 18 |scroll #|[nil "i.|
|00003e00| c1 7f 88 6d 83 27 00 65 | 65 5c 6e 5c 5c 7c 88 65 |...m.'.e|e\n\\|.e|
|00003e10| 62 88 c3 c4 21 88 64 62 | 88 c5 63 88 c6 c7 5c 6e |b...!.db|..c...\n|
|00003e20| 5c 22 88 c8 79 88 82 2a | 00 c4 79 88 c9 08 21 88 |\"..y..*|..y...!.|
|00003e30| 29 ca 20 87 22 20 5b 63 | 6f 6c 75 6d 6e 20 6e 69 |). ." [c|olumn ni|
|00003e40| 6c 20 74 65 2d 77 69 64 | 74 68 20 64 65 6c 65 74 |l te-wid|th delet|
|00003e50| 65 2d 63 68 61 72 20 31 | 20 31 30 20 69 6e 73 65 |e-char 1| 10 inse|
|00003e60| 72 74 2d 63 68 61 72 20 | 33 32 20 30 20 6d 6f 76 |rt-char |32 0 mov|
|00003e70| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 20 74 65 2d 73 |e-to-col|umn te-s|
|00003e80| 65 74 2d 77 69 6e 64 6f | 77 2d 73 74 61 72 74 5d |et-windo|w-start]|
|00003e90| 20 33 20 22 5c 0a 4d 6f | 76 65 20 64 6f 77 6e 20 | 3 "\.Mo|ve down |
|00003ea0| 61 20 6c 69 6e 65 20 76 | 65 72 74 69 63 61 6c 6c |a line v|erticall|
|00003eb0| 79 2c 20 6f 72 20 73 63 | 72 6f 6c 6c 20 61 74 20 |y, or sc|roll at |
|00003ec0| 62 6f 74 74 6f 6d 2e 22 | 5d 29 0a 28 62 79 74 65 |bottom."|]).(byte|
|00003ed0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|00003ee0| 5c 22 88 c0 c5 c6 5c 22 | 88 c0 c7 c8 5c 22 88 c0 |\"....\"|....\"..|
|00003ef0| c9 ca 5c 22 88 c0 cb cc | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|00003f00| 66 61 6c 69 61 73 20 74 | 65 2d 66 69 6c 74 65 72 |falias t|e-filter|
|00003f10| 20 23 5b 28 70 72 6f 63 | 65 73 73 20 73 74 72 69 | #[(proc|ess stri|
|00003f20| 6e 67 29 20 22 70 18 c1 | 8e c2 0b 21 71 88 0c 62 |ng) "p..|...!q..b|
|00003f30| 88 c5 0e 06 21 83 31 00 | c7 0e 06 21 84 20 00 c8 |....!.1.|...!. ..|
|00003f40| 16 06 82 31 00 0e 06 71 | 88 64 62 88 c9 0e 5c 6e |...1...q|.db...\n|
|00003f50| 21 88 c2 0b 21 71 88 0e | 0b 0e 5c 6e 43 a4 16 0b |!...!q..|..\nC...|
|00003f60| cc 20 88 cd 70 ce cf 20 | 21 3d 21 88 c2 0b 21 71 |. ..p.. |!=!...!q|
|00003f70| 88 60 89 14 2a 87 22 20 | 5b 6f 62 75 66 20 28 28 |.`..*." |[obuf ((|
|00003f80| 73 65 74 2d 62 75 66 66 | 65 72 20 6f 62 75 66 29 |set-buff|er obuf)|
|00003f90| 29 20 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |) proces|s-buffer|
|00003fa0| 20 70 72 6f 63 65 73 73 | 20 74 65 2d 73 61 76 65 | process| te-save|
|00003fb0| 64 2d 70 6f 69 6e 74 20 | 62 75 66 66 65 72 70 20 |d-point |bufferp |
|00003fc0| 74 65 2d 6c 6f 67 2d 62 | 75 66 66 65 72 20 62 75 |te-log-b|uffer bu|
|00003fd0| 66 66 65 72 2d 6e 61 6d | 65 20 6e 69 6c 20 69 6e |ffer-nam|e nil in|
|00003fe0| 73 65 72 74 2d 62 65 66 | 6f 72 65 2d 6d 61 72 6b |sert-bef|ore-mark|
|00003ff0| 65 72 73 20 73 74 72 69 | 6e 67 20 74 65 2d 70 65 |ers stri|ng te-pe|
|00004000| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 20 74 65 2d |nding-ou|tput te-|
|00004010| 75 70 64 61 74 65 2d 70 | 65 6e 64 69 6e 67 2d 6f |update-p|ending-o|
|00004020| 75 74 70 75 74 2d 64 69 | 73 70 6c 61 79 20 74 65 |utput-di|splay te|
|00004030| 2d 70 72 6f 63 65 73 73 | 2d 6f 75 74 70 75 74 20 |-process|-output |
|00004040| 77 69 6e 64 6f 77 2d 62 | 75 66 66 65 72 20 73 65 |window-b|uffer se|
|00004050| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 5d 20 34 |lected-w|indow] 4|
|00004060| 5d 20 74 65 2d 70 72 6f | 63 65 73 73 2d 6f 75 74 |] te-pro|cess-out|
|00004070| 70 75 74 20 23 5b 28 70 | 72 65 65 6d 70 74 61 62 |put #[(p|reemptab|
|00004080| 6c 65 29 20 22 c0 11 c2 | c3 8d 88 c4 20 89 1d 1e |le) "...|.... ...|
|00004090| 06 0d c7 0e 06 21 89 16 | 06 3d 3f 85 2b 00 c8 0e |.....!..|.=?.+...|
|000040a0| 06 21 70 3d 83 0c 00 c9 | 0e 06 60 5c 22 88 82 0c |.!p=....|..`\"...|
|000040b0| 00 2a 87 22 20 5b 74 20 | 70 72 65 65 6d 70 74 61 |.*." [t |preempta|
|000040c0| 62 6c 65 20 74 65 2d 70 | 72 6f 63 65 73 73 2d 6f |ble te-p|rocess-o|
|000040d0| 75 74 70 75 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |utput (b|yte-code|
|000040e0| 20 22 c0 89 89 89 89 89 | 19 1a 1b 1c 1d 1e 06 0e | "......|........|
|000040f0| 07 41 83 3c 01 0d 14 0e | 07 40 13 0e 07 41 40 89 |.A.<....|.@...A@.|
|00004100| 15 0b 48 12 0b 54 89 13 | 0d 47 3d 83 41 00 c8 0e |..H..T..|.G=.A...|
|00004110| 07 41 41 42 16 07 c8 13 | 0e 07 41 40 15 c9 20 88 |.AAB....|..A@.. .|
|00004120| 82 46 00 0e 07 0b a0 88 | 5c 6e ca 56 83 5c 6e 01 |.F......|\n.V.\n.|
|00004130| 5c 6e cb 57 83 5c 6e 01 | 6c 83 77 00 0b c8 3d 83 |\n.W.\n.|l.w...=.|
|00004140| 6b 00 c8 cc cd 5c 6e 5c | 22 0e 07 41 42 42 16 07 |k....\n\|"..ABB..|
|00004150| 82 71 00 0e 07 0b 53 a0 | 88 ce 20 88 82 2a 01 0d |.q....S.|.. ..*..|
|00004160| 84 89 00 cf cd 21 88 5c | 6e 63 88 d0 cd 21 88 82 |.....!.\|nc...!..|
|00004170| 2a 01 0c 0d 3d 83 93 00 | 09 86 9f 00 d1 d2 0d 0b |*...=...|........|
|00004180| 23 89 11 86 9f 00 0d 47 | 1e 13 cf cd 21 88 5c 6e |#......G|....!.\n|
|00004190| 63 88 60 12 c0 7f 88 0e | 13 0b 60 5c 6e 5a 5c 5c |c.`.....|..`\nZ\\|
|000041a0| 5e 16 13 5c 6e 62 88 0e | 13 09 3d 83 c3 00 c0 11 |^..\nb..|..=.....|
|000041b0| 60 60 0e 13 0b 5a 5c 5c | 7c 88 0b c8 3d 83 de 00 |``...Z\\||...=...|
|000041c0| 0e 13 0d 47 3d 83 de 00 | 0d 82 e3 00 0d 0b 0e 13 |...G=...|........|
|000041d0| 4f 63 88 0e 13 0d 47 3d | 83 f8 00 c8 0e 07 41 41 |Oc....G=|......AA|
|000041e0| 42 16 07 82 fe 00 0e 07 | 0e 13 a0 88 d0 0e 13 0b |B.......|........|
|000041f0| 5a 54 21 88 29 82 2a 01 | 5c 6e d4 3d 83 1c 01 d5 |ZT!.).*.|\n.=....|
|00004200| 20 d6 9e 41 86 24 01 d7 | 82 24 01 5c 6e d8 9e 41 | ..A.$..|.$.\n..A|
|00004210| 86 24 01 d7 20 88 d0 cd | 21 88 0e 19 83 0d 00 da |.$.. ...|!.......|
|00004220| 20 83 0d 00 db dc dd 5c | 22 88 82 0d 00 2e 06 c0 | ......\|".......|
|00004230| 87 22 20 5b 6e 69 6c 20 | 6d 61 74 63 68 70 6f 73 |." [nil |matchpos|
|00004240| 20 63 68 61 72 20 73 74 | 61 72 74 20 6f 73 74 72 | char st|art ostr|
|00004250| 69 6e 67 20 73 74 72 69 | 6e 67 20 62 75 66 66 65 |ing stri|ng buffe|
|00004260| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 74 65 2d 70 |r-read-o|nly te-p|
|00004270| 65 6e 64 69 6e 67 2d 6f | 75 74 70 75 74 20 30 20 |ending-o|utput 0 |
|00004280| 74 65 2d 75 70 64 61 74 | 65 2d 70 65 6e 64 69 6e |te-updat|e-pendin|
|00004290| 67 2d 6f 75 74 70 75 74 | 2d 64 69 73 70 6c 61 79 |g-output|-display|
|000042a0| 20 33 31 20 32 35 35 20 | 6d 61 6b 65 2d 73 74 72 | 31 255 |make-str|
|000042b0| 69 6e 67 20 31 20 74 65 | 2d 6e 65 77 6c 69 6e 65 |ing 1 te|-newline|
|000042c0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 74 65 2d | delete-|char te-|
|000042d0| 72 65 64 69 73 70 6c 61 | 79 2d 69 66 2d 6e 65 63 |redispla|y-if-nec|
|000042e0| 65 73 73 61 72 79 20 73 | 74 72 69 6e 67 2d 6d 61 |essary s|tring-ma|
|000042f0| 74 63 68 20 22 5b 00 2d | 1f 7f 2d ff 5d 22 20 65 |tch "[.-|..-.]" e|
|00004300| 6e 64 20 31 36 20 74 65 | 2d 67 65 74 2d 63 68 61 |nd 16 te|-get-cha|
|00004310| 72 20 28 28 36 31 20 2e | 20 74 65 2d 6d 6f 76 65 |r ((61 .| te-move|
|00004320| 2d 74 6f 2d 70 6f 73 69 | 74 69 6f 6e 29 20 28 39 |-to-posi|tion) (9|
|00004330| 39 20 2e 20 74 65 2d 63 | 6c 65 61 72 2d 72 65 73 |9 . te-c|lear-res|
|00004340| 74 2d 6f 66 2d 6c 69 6e | 65 29 20 28 36 37 20 2e |t-of-lin|e) (67 .|
|00004350| 20 74 65 2d 63 6c 65 61 | 72 2d 72 65 73 74 2d 6f | te-clea|r-rest-o|
|00004360| 66 2d 73 63 72 65 65 6e | 29 20 28 31 35 20 2e 20 |f-screen|) (15 . |
|00004370| 74 65 2d 69 6e 73 65 72 | 74 2d 6c 69 6e 65 73 29 |te-inser|t-lines)|
|00004380| 20 28 31 31 20 2e 20 74 | 65 2d 64 65 6c 65 74 65 | (11 . t|e-delete|
|00004390| 2d 6c 69 6e 65 73 29 20 | 28 31 20 2e 20 74 65 2d |-lines) |(1 . te-|
|000043a0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|000043b0| 65 29 20 28 32 20 2e 20 | 74 65 2d 62 61 63 6b 77 |e) (2 . |te-backw|
|000043c0| 61 72 64 2d 63 68 61 72 | 29 20 28 31 30 30 20 2e |ard-char|) (100 .|
|000043d0| 20 74 65 2d 64 65 6c 65 | 74 65 2d 63 68 61 72 29 | te-dele|te-char)|
|000043e0| 20 28 39 35 20 2e 20 74 | 65 2d 69 6e 73 65 72 74 | (95 . t|e-insert|
|000043f0| 2d 73 70 61 63 65 73 29 | 20 28 36 20 2e 20 74 65 |-spaces)| (6 . te|
|00004400| 2d 66 6f 72 77 61 72 64 | 2d 63 68 61 72 29 20 28 |-forward|-char) (|
|00004410| 37 20 2e 20 74 65 2d 62 | 65 65 70 29 20 28 31 30 |7 . te-b|eep) (10|
|00004420| 20 2e 20 74 65 2d 64 6f | 77 6e 2d 76 65 72 74 69 | . te-do|wn-verti|
|00004430| 63 61 6c 6c 79 2d 6f 72 | 2d 73 63 72 6f 6c 6c 29 |cally-or|-scroll)|
|00004440| 20 28 31 32 20 2e 20 74 | 65 2d 63 6c 65 61 72 2d | (12 . t|e-clear-|
|00004450| 73 63 72 65 65 6e 29 29 | 20 74 65 2d 6c 6f 73 69 |screen))| te-losi|
|00004460| 6e 67 2d 75 6e 69 78 20 | 28 28 31 30 20 2e 20 74 |ng-unix |((10 . t|
|00004470| 65 2d 6e 65 77 6c 69 6e | 65 29 20 28 31 32 37 20 |e-newlin|e) (127 |
|00004480| 2e 20 74 65 2d 64 65 6c | 65 74 65 29 20 28 31 33 |. te-del|ete) (13|
|00004490| 20 2e 20 74 65 2d 62 65 | 67 69 6e 6e 69 6e 67 2d | . te-be|ginning-|
|000044a0| 6f 66 2d 6c 69 6e 65 29 | 20 28 37 20 2e 20 74 65 |of-line)| (7 . te|
|000044b0| 2d 62 65 65 70 29 20 28 | 38 20 2e 20 74 65 2d 62 |-beep) (|8 . te-b|
|000044c0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 29 20 28 39 |ackward-|char) (9|
|000044d0| 20 2e 20 74 65 2d 6f 75 | 74 70 75 74 2d 74 61 62 | . te-ou|tput-tab|
|000044e0| 29 29 20 70 72 65 65 6d | 70 74 61 62 6c 65 20 69 |)) preem|ptable i|
|000044f0| 6e 70 75 74 2d 70 65 6e | 64 69 6e 67 2d 70 20 74 |nput-pen|ding-p t|
|00004500| 68 72 6f 77 20 74 65 2d | 70 72 6f 63 65 73 73 2d |hrow te-|process-|
|00004510| 6f 75 74 70 75 74 20 74 | 5d 20 37 29 20 73 65 6c |output t|] 7) sel|
|00004520| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 73 20 77 |ected-wi|ndow s w|
|00004530| 20 6e 65 78 74 2d 77 69 | 6e 64 6f 77 20 77 69 6e | next-wi|ndow win|
|00004540| 64 6f 77 2d 62 75 66 66 | 65 72 20 73 65 74 2d 77 |dow-buff|er set-w|
|00004550| 69 6e 64 6f 77 2d 70 6f | 69 6e 74 5d 20 34 5d 20 |indow-po|int] 4] |
|00004560| 74 65 2d 67 65 74 2d 63 | 68 61 72 20 23 5b 6e 69 |te-get-c|har #[ni|
|00004570| 6c 20 22 08 41 83 28 00 | 08 40 08 41 40 19 1a 09 |l ".A.(.|.@.A@...|
|00004580| 5c 6e 48 5c 6e 54 89 12 | 09 47 3d 83 5c 22 00 c3 |\nH\nT..|.G=.\"..|
|00004590| 08 41 41 42 10 82 26 00 | 08 5c 6e a0 88 2a 87 c4 |.AAB..&.|.\n..*..|
|000045a0| c5 8d 87 22 20 5b 74 65 | 2d 70 65 6e 64 69 6e 67 |..." [te|-pending|
|000045b0| 2d 6f 75 74 70 75 74 20 | 73 74 72 69 6e 67 20 73 |-output |string s|
|000045c0| 74 61 72 74 20 30 20 63 | 68 61 72 20 28 62 79 74 |tart 0 c|har (byt|
|000045d0| 65 2d 63 6f 64 65 20 22 | c0 09 21 1a c3 8e c4 09 |e-code "|..!.....|
|000045e0| c5 5c 22 88 c6 09 21 2a | 87 22 20 5b 70 72 6f 63 |.\"...!*|." [proc|
|000045f0| 65 73 73 2d 66 69 6c 74 | 65 72 20 74 65 2d 70 72 |ess-filt|er te-pr|
|00004600| 6f 63 65 73 73 20 66 69 | 6c 74 65 72 20 28 28 73 |ocess fi|lter ((s|
|00004610| 65 74 2d 70 72 6f 63 65 | 73 73 2d 66 69 6c 74 65 |et-proce|ss-filte|
|00004620| 72 20 74 65 2d 70 72 6f | 63 65 73 73 20 66 69 6c |r te-pro|cess fil|
|00004630| 74 65 72 29 29 20 73 65 | 74 2d 70 72 6f 63 65 73 |ter)) se|t-proces|
|00004640| 73 2d 66 69 6c 74 65 72 | 20 23 5b 28 70 20 73 29 |s-filter| #[(p s)|
|00004650| 20 22 08 47 c1 3d 84 0b | 00 c1 08 44 12 c3 c4 08 | ".G.=..|...D....|
|00004660| c5 48 5c 22 87 22 20 5b | 73 20 31 20 74 65 2d 70 |.H\"." [|s 1 te-p|
|00004670| 65 6e 64 69 6e 67 2d 6f | 75 74 70 75 74 20 74 68 |ending-o|utput th|
|00004680| 72 6f 77 20 63 68 61 72 | 20 30 5d 20 34 5d 20 61 |row char| 0] 4] a|
|00004690| 63 63 65 70 74 2d 70 72 | 6f 63 65 73 73 2d 6f 75 |ccept-pr|ocess-ou|
|000046a0| 74 70 75 74 5d 20 33 29 | 5d 20 33 5d 20 74 65 2d |tput] 3)|] 3] te-|
|000046b0| 72 65 64 69 73 70 6c 61 | 79 2d 69 66 2d 6e 65 63 |redispla|y-if-nec|
|000046c0| 65 73 73 61 72 79 20 23 | 5b 28 6c 65 6e 67 74 68 |essary #|[(length|
|000046d0| 29 20 22 08 09 5a 89 10 | c2 58 85 23 00 70 c3 c4 |) "..Z..|.X.#.p..|
|000046e0| 20 21 3d 85 23 00 c5 20 | 85 23 00 c6 20 88 c7 c2 | !=.#.. |.#.. ...|
|000046f0| 21 88 0e 08 89 10 87 22 | 20 5b 74 65 2d 72 65 64 |!......"| [te-red|
|00004700| 69 73 70 6c 61 79 2d 63 | 6f 75 6e 74 20 6c 65 6e |isplay-c|ount len|
|00004710| 67 74 68 20 30 20 77 69 | 6e 64 6f 77 2d 62 75 66 |gth 0 wi|ndow-buf|
|00004720| 66 65 72 20 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |fer sele|cted-win|
|00004730| 64 6f 77 20 77 61 69 74 | 69 6e 67 2d 66 6f 72 2d |dow wait|ing-for-|
|00004740| 75 73 65 72 2d 69 6e 70 | 75 74 2d 70 20 74 65 2d |user-inp|ut-p te-|
|00004750| 75 70 64 61 74 65 2d 70 | 65 6e 64 69 6e 67 2d 6f |update-p|ending-o|
|00004760| 75 74 70 75 74 2d 64 69 | 73 70 6c 61 79 20 73 69 |utput-di|splay si|
|00004770| 74 2d 66 6f 72 20 74 65 | 72 6d 69 6e 61 6c 2d 72 |t-for te|rminal-r|
|00004780| 65 64 69 73 70 6c 61 79 | 2d 69 6e 74 65 72 76 61 |edisplay|-interva|
|00004790| 6c 5d 20 33 5d 20 74 65 | 2d 75 70 64 61 74 65 2d |l] 3] te|-update-|
|000047a0| 70 65 6e 64 69 6e 67 2d | 6f 75 74 70 75 74 2d 64 |pending-|output-d|
|000047b0| 69 73 70 6c 61 79 20 23 | 5b 6e 69 6c 20 22 08 41 |isplay #|[nil ".A|
|000047c0| 84 5c 6e 00 c1 12 82 5c | 22 00 c3 20 89 1c c5 57 |.\n....\|".. ...W|
|000047d0| 83 18 00 c1 12 82 21 00 | c6 c7 0c c8 5c 5c c9 a5 |......!.|....\\..|
|000047e0| 5c 22 12 29 ca cb 20 21 | 87 22 20 5b 74 65 2d 70 |\".).. !|." [te-p|
|000047f0| 65 6e 64 69 6e 67 2d 6f | 75 74 70 75 74 20 22 22 |ending-o|utput ""|
|00004800| 20 74 65 2d 70 65 6e 64 | 69 6e 67 2d 6f 75 74 70 | te-pend|ing-outp|
|00004810| 75 74 2d 69 6e 66 6f 20 | 74 65 2d 70 65 6e 64 69 |ut-info |te-pendi|
|00004820| 6e 67 2d 6f 75 74 70 75 | 74 2d 6c 65 6e 67 74 68 |ng-outpu|t-length|
|00004830| 20 6c 65 6e 67 74 68 20 | 31 35 30 30 20 66 6f 72 | length |1500 for|
|00004840| 6d 61 74 20 22 28 25 64 | 4b 20 63 68 61 72 73 20 |mat "(%d|K chars |
|00004850| 6f 75 74 70 75 74 20 70 | 65 6e 64 69 6e 67 29 20 |output p|ending) |
|00004860| 22 20 35 31 32 20 31 30 | 32 34 20 73 65 74 2d 62 |" 512 10|24 set-b|
|00004870| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00004880| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00004890| 2d 70 5d 20 35 5d 20 74 | 65 2d 73 65 6e 74 69 6e |-p] 5] t|e-sentin|
|000048a0| 65 6c 20 23 5b 28 70 72 | 6f 63 65 73 73 20 6d 65 |el #[(pr|ocess me|
|000048b0| 73 73 61 67 65 29 20 22 | c0 09 21 c2 3d 86 44 00 |ssage) "|..!.=.D.|
|000048c0| c3 c4 09 21 21 3f 86 44 | 00 70 1d 8a c4 09 21 71 |...!!?.D|.p....!q|
|000048d0| 88 c6 16 07 c8 20 88 64 | 62 88 c9 20 88 ca 20 88 |..... .d|b.. .. .|
|000048e0| cb 0e 0c cd b1 03 88 29 | 0d c4 09 21 3d 85 43 00 |.......)|...!=.C.|
|000048f0| ce 20 85 43 00 64 62 88 | cf d0 21 29 87 22 20 5b |. .C.db.|..!)." [|
|00004900| 70 72 6f 63 65 73 73 2d | 73 74 61 74 75 73 20 70 |process-|status p|
|00004910| 72 6f 63 65 73 73 20 72 | 75 6e 20 62 75 66 66 65 |rocess r|un buffe|
|00004920| 72 2d 6e 61 6d 65 20 70 | 72 6f 63 65 73 73 2d 62 |r-name p|rocess-b|
|00004930| 75 66 66 65 72 20 62 20 | 6e 69 6c 20 62 75 66 66 |uffer b |nil buff|
|00004940| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 66 75 6e |er-read-|only fun|
|00004950| 64 61 6d 65 6e 74 61 6c | 2d 6d 6f 64 65 20 64 65 |damental|-mode de|
|00004960| 6c 65 74 65 2d 62 6c 61 | 6e 6b 2d 6c 69 6e 65 73 |lete-bla|nk-lines|
|00004970| 20 64 65 6c 65 74 65 2d | 68 6f 72 69 7a 6f 6e 74 | delete-|horizont|
|00004980| 61 6c 2d 73 70 61 63 65 | 20 22 5c 6e 2a 2a 2a 2a |al-space| "\n****|
|00004990| 2a 2a 2a 5c 6e 22 20 6d | 65 73 73 61 67 65 20 22 |***\n" m|essage "|
|000049a0| 2a 2a 2a 2a 2a 2a 2a 5c | 6e 22 20 77 61 69 74 69 |*******\|n" waiti|
|000049b0| 6e 67 2d 66 6f 72 2d 75 | 73 65 72 2d 69 6e 70 75 |ng-for-u|ser-inpu|
|000049c0| 74 2d 70 20 72 65 63 65 | 6e 74 65 72 20 2d 31 5d |t-p rece|nter -1]|
|000049d0| 20 33 5d 5d 20 33 29 0a | 28 64 65 66 76 61 72 20 | 3]] 3).|(defvar |
|000049e0| 74 65 2d 73 74 74 79 2d | 73 74 72 69 6e 67 20 22 |te-stty-|string "|
|000049f0| 73 74 74 79 20 2d 6e 6c | 20 65 72 61 73 65 20 27 |stty -nl| erase '|
|00004a00| 5e 3f 27 20 6b 69 6c 6c | 20 27 5e 75 27 20 69 6e |^?' kill| '^u' in|
|00004a10| 74 72 20 27 5e 63 27 20 | 65 63 68 6f 20 70 61 73 |tr '^c' |echo pas|
|00004a20| 73 38 22 20 22 5c 0a 53 | 68 65 6c 6c 20 63 6f 6d |s8" "\.S|hell com|
|00004a30| 6d 61 6e 64 20 74 6f 20 | 73 65 74 20 74 65 72 6d |mand to |set term|
|00004a40| 69 6e 61 6c 20 6d 6f 64 | 65 73 20 66 6f 72 20 74 |inal mod|es for t|
|00004a50| 65 72 6d 69 6e 61 6c 20 | 65 6d 75 6c 61 74 6f 72 |erminal |emulator|
|00004a60| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 65 78 70 6c |.").(def|var expl|
|00004a70| 69 63 69 74 2d 73 68 65 | 6c 6c 2d 66 69 6c 65 2d |icit-she|ll-file-|
|00004a80| 6e 61 6d 65 20 6e 69 6c | 20 22 5c 0a 2a 49 66 20 |name nil| "\.*If |
|00004a90| 6e 6f 6e 2d 6e 69 6c 2c | 20 69 73 20 66 69 6c 65 |non-nil,| is file|
|00004aa0| 20 6e 61 6d 65 20 74 6f | 20 75 73 65 20 66 6f 72 | name to| use for|
|00004ab0| 20 65 78 70 6c 69 63 69 | 74 6c 79 20 72 65 71 75 | explici|tly requ|
|00004ac0| 65 73 74 65 64 20 69 6e | 66 65 72 69 6f 72 20 73 |ested in|ferior s|
|00004ad0| 68 65 6c 6c 2e 22 29 0a | 28 64 65 66 61 6c 69 61 |hell.").|(defalia|
|00004ae0| 73 20 27 74 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |s 'termi|nal-emul|
|00004af0| 61 74 6f 72 20 23 5b 28 | 62 75 66 66 65 72 20 70 |ator #[(|buffer p|
|00004b00| 72 6f 67 72 61 6d 20 61 | 72 67 73 20 26 6f 70 74 |rogram a|rgs &opt|
|00004b10| 69 6f 6e 61 6c 20 77 69 | 64 74 68 20 68 65 69 67 |ional wi|dth heig|
|00004b20| 68 74 29 20 22 c0 09 21 | 88 5c 6e 84 0f 00 c3 c4 |ht) "..!|.\n.....|
|00004b30| 20 21 c5 5a 12 0e 06 84 | 1c 00 c7 c4 20 21 c5 5a | !.Z....|.... !.Z|
|00004b40| 16 06 c8 20 88 5c 6e 16 | 09 0e 06 16 5c 6e cb cc |... .\n.|....\n..|
|00004b50| 0e 09 0e 5c 6e 23 cd 44 | 16 0e cf 1e 10 d1 20 88 |...\n#.D|...... .|
|00004b60| 29 cf 1e 12 d3 70 21 89 | 16 12 83 63 00 d4 cb d5 |)....p!.|...c....|
|00004b70| d6 0e 12 21 5c 22 21 83 | 58 00 d7 0e 12 21 88 82 |...!\"!.|X....!..|
|00004b80| 3b 00 d8 d9 d6 0e 12 21 | 5c 22 88 82 3b 00 29 da |;......!|\"..;.).|
|00004b90| db dc 8f 88 dd 16 1e df | 0e 20 21 88 e1 e2 21 88 |........|. !...!.|
|00004ba0| e3 e4 e5 0e 26 21 e7 e5 | e8 e9 0e 2a cf dd 24 eb |....&!..|...*..$.|
|00004bb0| 23 23 87 22 20 5b 73 77 | 69 74 63 68 2d 74 6f 2d |##." [sw|itch-to-|
|00004bc0| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 20 77 69 |buffer b|uffer wi|
|00004bd0| 64 74 68 20 77 69 6e 64 | 6f 77 2d 77 69 64 74 68 |dth wind|ow-width|
|00004be0| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|00004bf0| 20 31 20 68 65 69 67 68 | 74 20 77 69 6e 64 6f 77 | 1 heigh|t window|
|00004c00| 2d 68 65 69 67 68 74 20 | 74 65 72 6d 69 6e 61 6c |-height |terminal|
|00004c10| 2d 6d 6f 64 65 20 74 65 | 2d 77 69 64 74 68 20 74 |-mode te|-width t|
|00004c20| 65 2d 68 65 69 67 68 74 | 20 66 6f 72 6d 61 74 20 |e-height| format |
|00004c30| 22 45 6d 61 63 73 20 74 | 65 72 6d 69 6e 61 6c 20 |"Emacs t|erminal |
|00004c40| 25 64 78 25 64 3a 20 25 | 25 62 20 20 22 20 74 65 |%dx%d: %|%b " te|
|00004c50| 2d 70 65 6e 64 69 6e 67 | 2d 6f 75 74 70 75 74 2d |-pending|-output-|
|00004c60| 69 6e 66 6f 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 62 |info mod|e-line-b|
|00004c70| 75 66 66 65 72 2d 69 64 | 65 6e 74 69 66 69 63 61 |uffer-id|entifica|
|00004c80| 74 69 6f 6e 20 6e 69 6c | 20 62 75 66 66 65 72 2d |tion nil| buffer-|
|00004c90| 72 65 61 64 2d 6f 6e 6c | 79 20 74 65 2d 63 6c 65 |read-onl|y te-cle|
|00004ca0| 61 72 2d 73 63 72 65 65 | 6e 20 70 72 6f 63 65 73 |ar-scree|n proces|
|00004cb0| 73 20 67 65 74 2d 62 75 | 66 66 65 72 2d 70 72 6f |s get-bu|ffer-pro|
|00004cc0| 63 65 73 73 20 79 2d 6f | 72 2d 6e 2d 70 20 22 4b |cess y-o|r-n-p "K|
|00004cd0| 69 6c 6c 20 70 72 6f 63 | 65 73 73 20 25 73 3f 20 |ill proc|ess %s? |
|00004ce0| 22 20 70 72 6f 63 65 73 | 73 2d 6e 61 6d 65 20 64 |" proces|s-name d|
|00004cf0| 65 6c 65 74 65 2d 70 72 | 6f 63 65 73 73 20 65 72 |elete-pr|ocess er|
|00004d00| 72 6f 72 20 22 50 72 6f | 63 65 73 73 20 25 73 20 |ror "Pro|cess %s |
|00004d10| 6e 6f 74 20 6b 69 6c 6c | 65 64 22 20 65 72 72 20 |not kill|ed" err |
|00004d20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 5c 6e |(byte-co|de "..\n|
|00004d30| 0b 0c 83 0c 00 c5 82 0d | 00 c6 24 c7 c8 c9 ca cb |........|..$.....|
|00004d40| cc b0 07 1e 0d ce cf 0e | 0d 50 0e 10 42 42 1e 10 |........|.P..BB..|
|00004d50| d1 d2 70 d3 d4 c0 d5 0e | 16 d7 d8 0e 19 0e 1a 42 |..p.....|.......B|
|00004d60| db 23 23 25 16 1c 29 dd | 0e 1c de 5c 22 88 df 0e |.##%..).|...\"...|
|00004d70| 1c e0 5c 22 88 29 c0 87 | 22 20 5b 66 6f 72 6d 61 |..\".)..|" [forma|
|00004d80| 74 20 22 65 6d 61 63 73 | 2d 76 69 72 74 75 61 6c |t "emacs|-virtual|
|00004d90| 3a 63 6f 23 25 64 3a 6c | 69 23 25 64 3a 25 73 22 |:co#%d:l|i#%d:%s"|
|00004da0| 20 74 65 2d 77 69 64 74 | 68 20 74 65 2d 68 65 69 | te-widt|h te-hei|
|00004db0| 67 68 74 20 74 65 72 6d | 69 6e 61 6c 2d 73 63 72 |ght term|inal-scr|
|00004dc0| 6f 6c 6c 69 6e 67 20 22 | 22 20 22 6e 73 3a 22 20 |olling "|" "ns:" |
|00004dd0| 22 63 6d 3d 5e 70 3d 25 | 2b 20 25 2b 20 3a 63 72 |"cm=^p=%|+ %+ :cr|
|00004de0| 3d 5e 70 5e 61 3a 6c 65 | 3d 5e 70 5e 62 3a 6e 64 |=^p^a:le|=^p^b:nd|
|00004df0| 3d 5e 70 5e 66 3a 22 20 | 22 6e 77 3d 5e 6a 3a 63 |=^p^f:" |"nw=^j:c|
|00004e00| 65 3d 5e 70 63 3a 63 64 | 3d 5e 70 43 3a 63 6c 3d |e=^pc:cd|=^pC:cl=|
|00004e10| 5e 70 5e 6c 3a 62 6c 3d | 5e 70 5e 67 3a 22 20 22 |^p^l:bl=|^p^g:" "|
|00004e20| 49 43 3d 5e 70 5f 25 2b | 20 3a 44 43 3d 5e 70 64 |IC=^p_%+| :DC=^pd|
|00004e30| 25 2b 20 3a 41 4c 3d 5e | 70 5e 6f 25 2b 20 3a 44 |%+ :AL=^|p^o%+ :D|
|00004e40| 4c 3d 5e 70 5e 6b 25 2b | 20 3a 22 20 22 4c 50 3a |L=^p^k%+| :" "LP:|
|00004e50| 4e 46 3a 22 20 22 69 63 | 3d 5e 70 5f 21 3a 64 63 |NF:" "ic|=^p_!:dc|
|00004e60| 3d 5e 70 64 21 3a 61 6c | 3d 5e 70 5e 6f 21 3a 64 |=^pd!:al|=^p^o!:d|
|00004e70| 6c 3d 5e 70 5e 6b 21 3a | 68 6f 3d 5e 70 3d 20 20 |l=^p^k!:|ho=^p= |
|00004e80| 3a 22 20 22 69 6d 3d 3a | 65 69 3d 3a 64 6d 3d 3a |:" "im=:|ei=:dm=:|
|00004e90| 65 64 3d 3a 6d 69 3a 64 | 6f 3d 5e 70 5e 6a 3a 6e |ed=:mi:d|o=^p^j:n|
|00004ea0| 6c 3d 5e 70 5e 6a 3a 62 | 73 3a 22 20 74 65 72 6d |l=^p^j:b|s:" term|
|00004eb0| 63 61 70 20 22 54 45 52 | 4d 3d 65 6d 61 63 73 2d |cap "TER|M=emacs-|
|00004ec0| 76 69 72 74 75 61 6c 22 | 20 22 54 45 52 4d 43 41 |virtual"| "TERMCA|
|00004ed0| 50 3d 22 20 70 72 6f 63 | 65 73 73 2d 65 6e 76 69 |P=" proc|ess-envi|
|00004ee0| 72 6f 6e 6d 65 6e 74 20 | 73 74 61 72 74 2d 70 72 |ronment |start-pr|
|00004ef0| 6f 63 65 73 73 20 22 74 | 65 72 6d 69 6e 61 6c 2d |ocess "t|erminal-|
|00004f00| 65 6d 75 6c 61 74 6f 72 | 22 20 22 2f 62 69 6e 2f |emulator|" "/bin/|
|00004f10| 73 68 22 20 22 2d 63 22 | 20 22 25 73 3b 20 65 78 |sh" "-c"| "%s; ex|
|00004f20| 65 63 20 25 73 22 20 74 | 65 2d 73 74 74 79 2d 73 |ec %s" t|e-stty-s|
|00004f30| 74 72 69 6e 67 20 6d 61 | 70 63 6f 6e 63 61 74 20 |tring ma|pconcat |
|00004f40| 74 65 2d 71 75 6f 74 65 | 2d 61 72 67 2d 66 6f 72 |te-quote|-arg-for|
|00004f50| 2d 73 68 20 70 72 6f 67 | 72 61 6d 20 61 72 67 73 |-sh prog|ram args|
|00004f60| 20 22 20 22 20 74 65 2d | 70 72 6f 63 65 73 73 20 | " " te-|process |
|00004f70| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 66 69 6c 74 |set-proc|ess-filt|
|00004f80| 65 72 20 74 65 2d 66 69 | 6c 74 65 72 20 73 65 74 |er te-fi|lter set|
|00004f90| 2d 70 72 6f 63 65 73 73 | 2d 73 65 6e 74 69 6e 65 |-process|-sentine|
|00004fa0| 6c 20 74 65 2d 73 65 6e | 74 69 6e 65 6c 5d 20 31 |l te-sen|tinel] 1|
|00004fb0| 32 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |2) ((err|or (byte|
|00004fc0| 2d 63 6f 64 65 20 22 c0 | 20 88 c1 5c 6e 40 5c 6e |-code ".| ..\n@\n|
|00004fd0| 41 5c 22 87 22 20 5b 66 | 75 6e 64 61 6d 65 6e 74 |A\"." [f|undament|
|00004fe0| 61 6c 2d 6d 6f 64 65 20 | 73 69 67 6e 61 6c 20 65 |al-mode |signal e|
|00004ff0| 72 72 5d 20 33 29 29 29 | 20 74 20 69 6e 68 69 62 |rr] 3)))| t inhib|
|00005000| 69 74 2d 71 75 69 74 20 | 75 73 65 2d 6c 6f 63 61 |it-quit |use-loca|
|00005010| 6c 2d 6d 61 70 20 74 65 | 72 6d 69 6e 61 6c 2d 6d |l-map te|rminal-m|
|00005020| 61 70 20 72 75 6e 2d 68 | 6f 6f 6b 73 20 74 65 72 |ap run-h|ooks ter|
|00005030| 6d 69 6e 61 6c 2d 6d 6f | 64 65 2d 68 6f 6f 6b 20 |minal-mo|de-hook |
|00005040| 6d 65 73 73 61 67 65 20 | 22 45 6e 74 65 72 69 6e |message |"Enterin|
|00005050| 67 20 65 6d 61 63 73 20 | 74 65 72 6d 69 6e 61 6c |g emacs |terminal|
|00005060| 2d 65 6d 75 6c 61 74 6f | 72 2e 2e 2e 20 20 54 79 |-emulato|r... Ty|
|00005070| 70 65 20 25 73 20 25 73 | 20 66 6f 72 20 68 65 6c |pe %s %s| for hel|
|00005080| 70 22 20 73 69 6e 67 6c | 65 2d 6b 65 79 2d 64 65 |p" singl|e-key-de|
|00005090| 73 63 72 69 70 74 69 6f | 6e 20 74 65 72 6d 69 6e |scriptio|n termin|
|000050a0| 61 6c 2d 65 73 63 61 70 | 65 2d 63 68 61 72 20 6d |al-escap|e-char m|
|000050b0| 61 70 63 6f 6e 63 61 74 | 20 77 68 65 72 65 2d 69 |apconcat| where-i|
|000050c0| 73 2d 69 6e 74 65 72 6e | 61 6c 20 74 65 2d 65 73 |s-intern|al te-es|
|000050d0| 63 61 70 65 2d 68 65 6c | 70 20 74 65 72 6d 69 6e |cape-hel|p termin|
|000050e0| 61 6c 2d 65 73 63 61 70 | 65 2d 6d 61 70 20 22 20 |al-escap|e-map " |
|000050f0| 22 5d 20 31 30 20 22 5c | 0a 55 6e 64 65 72 20 61 |"] 10 "\|.Under a|
|00005100| 20 64 69 73 70 6c 61 79 | 2d 74 65 72 6d 69 6e 61 | display|-termina|
|00005110| 6c 20 65 6d 75 6c 61 74 | 6f 72 20 69 6e 20 42 55 |l emulat|or in BU|
|00005120| 46 46 45 52 2c 20 72 75 | 6e 20 50 52 4f 47 52 41 |FFER, ru|n PROGRA|
|00005130| 4d 20 6f 6e 20 61 72 67 | 75 6d 65 6e 74 73 20 41 |M on arg|uments A|
|00005140| 52 47 53 2e 0a 41 52 47 | 53 20 69 73 20 61 20 6c |RGS..ARG|S is a l|
|00005150| 69 73 74 20 6f 66 20 61 | 72 67 75 6d 65 6e 74 2d |ist of a|rgument-|
|00005160| 73 74 72 69 6e 67 73 2e | 20 20 52 65 6d 61 69 6e |strings.| Remain|
|00005170| 69 6e 67 20 61 72 67 75 | 6d 65 6e 74 73 20 61 72 |ing argu|ments ar|
|00005180| 65 20 57 49 44 54 48 20 | 61 6e 64 20 48 45 49 47 |e WIDTH |and HEIG|
|00005190| 48 54 2e 0a 42 55 46 46 | 45 52 27 73 20 63 6f 6e |HT..BUFF|ER's con|
|000051a0| 74 65 6e 74 73 20 61 72 | 65 20 6d 61 64 65 20 61 |tents ar|e made a|
|000051b0| 6e 20 69 6d 61 67 65 20 | 6f 66 20 74 68 65 20 64 |n image |of the d|
|000051c0| 69 73 70 6c 61 79 20 67 | 65 6e 65 72 61 74 65 64 |isplay g|enerated|
|000051d0| 20 62 79 20 74 68 61 74 | 20 70 72 6f 67 72 61 6d | by that| program|
|000051e0| 2c 0a 61 6e 64 20 61 6e | 79 20 69 6e 70 75 74 20 |,.and an|y input |
|000051f0| 74 79 70 65 64 20 77 68 | 65 6e 20 42 55 46 46 45 |typed wh|en BUFFE|
|00005200| 52 20 69 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |R is the| current|
|00005210| 20 45 6d 61 63 73 20 62 | 75 66 66 65 72 20 69 73 | Emacs b|uffer is|
|00005220| 20 73 65 6e 74 20 74 6f | 20 74 68 61 74 0a 70 72 | sent to| that.pr|
|00005230| 6f 67 72 61 6d 20 61 6e | 20 6b 65 79 62 6f 61 72 |ogram an| keyboar|
|00005240| 64 20 69 6e 70 75 74 2e | 0a 0a 49 6e 74 65 72 61 |d input.|..Intera|
|00005250| 63 74 69 76 65 6c 79 2c | 20 42 55 46 46 45 52 20 |ctively,| BUFFER |
|00005260| 64 65 66 61 75 6c 74 73 | 20 74 6f 20 5c 22 2a 74 |defaults| to \"*t|
|00005270| 65 72 6d 69 6e 61 6c 2a | 5c 22 20 61 6e 64 20 50 |erminal*|\" and P|
|00005280| 52 4f 47 52 41 4d 20 61 | 6e 64 20 41 52 47 53 0a |ROGRAM a|nd ARGS.|
|00005290| 61 72 65 20 70 61 72 73 | 65 64 20 66 72 6f 6d 20 |are pars|ed from |
|000052a0| 61 6e 20 69 6e 70 75 74 | 2d 73 74 72 69 6e 67 20 |an input|-string |
|000052b0| 75 73 69 6e 67 20 79 6f | 75 72 20 75 73 75 61 6c |using yo|ur usual|
|000052c0| 20 73 68 65 6c 6c 2e 0a | 57 49 44 54 48 20 61 6e | shell..|WIDTH an|
|000052d0| 64 20 48 45 49 47 48 54 | 20 61 72 65 20 64 65 74 |d HEIGHT| are det|
|000052e0| 65 72 6d 69 6e 65 64 20 | 66 72 6f 6d 20 74 68 65 |ermined |from the|
|000052f0| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 63 75 72 | size of| the cur|
|00005300| 72 65 6e 74 20 77 69 6e | 64 6f 77 0a 2d 2d 20 57 |rent win|dow.-- W|
|00005310| 49 44 54 48 20 77 69 6c | 6c 20 62 65 20 6f 6e 65 |IDTH wil|l be one|
|00005320| 20 6c 65 73 73 20 74 68 | 61 6e 20 74 68 65 20 77 | less th|an the w|
|00005330| 69 6e 64 6f 77 27 73 20 | 77 69 64 74 68 2c 20 48 |indow's |width, H|
|00005340| 45 49 47 48 54 20 77 69 | 6c 6c 20 62 65 20 69 74 |EIGHT wi|ll be it|
|00005350| 73 20 68 65 69 67 68 74 | 2e 0a 0a 54 6f 20 73 77 |s height|...To sw|
|00005360| 69 74 63 68 20 62 75 66 | 66 65 72 73 20 61 6e 64 |itch buf|fers and|
|00005370| 20 6c 65 61 76 65 20 74 | 68 65 20 65 6d 75 6c 61 | leave t|he emula|
|00005380| 74 6f 72 2c 20 6f 72 20 | 74 6f 20 67 69 76 65 20 |tor, or |to give |
|00005390| 63 6f 6d 6d 61 6e 64 73 | 0a 74 6f 20 74 68 65 20 |commands|.to the |
|000053a0| 65 6d 75 6c 61 74 6f 72 | 20 69 74 73 65 6c 66 20 |emulator| itself |
|000053b0| 28 61 73 20 6f 70 70 6f | 73 65 64 20 74 6f 20 74 |(as oppo|sed to t|
|000053c0| 68 65 20 70 72 6f 67 72 | 61 6d 20 72 75 6e 6e 69 |he progr|am runni|
|000053d0| 6e 67 20 75 6e 64 65 72 | 20 69 74 29 2c 0a 74 79 |ng under| it),.ty|
|000053e0| 70 65 20 43 6f 6e 74 72 | 6f 6c 2d 5e 2e 20 20 54 |pe Contr|ol-^. T|
|000053f0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 63 68 61 |he follo|wing cha|
|00005400| 72 61 63 74 65 72 20 69 | 73 20 61 6e 20 65 6d 75 |racter i|s an emu|
|00005410| 6c 61 74 6f 72 20 63 6f | 6d 6d 61 6e 64 2e 0a 54 |lator co|mmand..T|
|00005420| 79 70 65 20 43 6f 6e 74 | 72 6f 6c 2d 5e 20 74 77 |ype Cont|rol-^ tw|
|00005430| 69 63 65 20 74 6f 20 73 | 65 6e 64 20 69 74 20 74 |ice to s|end it t|
|00005440| 6f 20 74 68 65 20 73 75 | 62 70 72 6f 67 72 61 6d |o the su|bprogram|
|00005450| 2e 0a 54 68 69 73 20 65 | 73 63 61 70 65 20 63 68 |..This e|scape ch|
|00005460| 61 72 61 63 74 65 72 20 | 6d 61 79 20 62 65 20 63 |aracter |may be c|
|00005470| 68 61 6e 67 65 64 20 75 | 73 69 6e 67 20 74 68 65 |hanged u|sing the|
|00005480| 20 76 61 72 69 61 62 6c | 65 20 60 74 65 72 6d 69 | variabl|e `termi|
|00005490| 6e 61 6c 2d 65 73 63 61 | 70 65 2d 63 68 61 72 27 |nal-esca|pe-char'|
|000054a0| 2e 0a 0a 60 4d 65 74 61 | 27 20 63 68 61 72 61 63 |...`Meta|' charac|
|000054b0| 74 65 72 73 20 6d 61 79 | 20 6e 6f 74 20 63 75 72 |ters may| not cur|
|000054c0| 72 65 6e 74 6c 79 20 62 | 65 20 73 65 6e 74 20 74 |rently b|e sent t|
|000054d0| 68 72 6f 75 67 68 20 74 | 68 65 20 74 65 72 6d 69 |hrough t|he termi|
|000054e0| 6e 61 6c 20 65 6d 75 6c | 61 74 6f 72 2e 0a 0a 48 |nal emul|ator...H|
|000054f0| 65 72 65 20 69 73 20 61 | 20 6c 69 73 74 20 6f 66 |ere is a| list of|
|00005500| 20 73 6f 6d 65 20 6f 66 | 20 74 68 65 20 76 61 72 | some of| the var|
|00005510| 69 61 62 6c 65 73 20 77 | 68 69 63 68 20 63 6f 6e |iables w|hich con|
|00005520| 74 72 6f 6c 20 74 68 65 | 20 62 65 68 61 76 69 6f |trol the| behavio|
|00005530| 75 72 0a 6f 66 20 74 68 | 65 20 65 6d 75 6c 61 74 |ur.of th|e emulat|
|00005540| 6f 72 20 2d 2d 20 73 65 | 65 20 74 68 65 69 72 20 |or -- se|e their |
|00005550| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00005560| 72 20 6d 6f 72 65 20 69 | 6e 66 6f 72 6d 61 74 69 |r more i|nformati|
|00005570| 6f 6e 3a 0a 74 65 72 6d | 69 6e 61 6c 2d 65 73 63 |on:.term|inal-esc|
|00005580| 61 70 65 2d 63 68 61 72 | 2c 20 74 65 72 6d 69 6e |ape-char|, termin|
|00005590| 61 6c 2d 73 63 72 6f 6c | 6c 69 6e 67 2c 20 74 65 |al-scrol|ling, te|
|000055a0| 72 6d 69 6e 61 6c 2d 6d | 6f 72 65 2d 70 72 6f 63 |rminal-m|ore-proc|
|000055b0| 65 73 73 69 6e 67 2c 0a | 74 65 72 6d 69 6e 61 6c |essing,.|terminal|
|000055c0| 2d 72 65 64 69 73 70 6c | 61 79 2d 69 6e 74 65 72 |-redispl|ay-inter|
|000055d0| 76 61 6c 2e 0a 0a 54 68 | 69 73 20 66 75 6e 63 74 |val...Th|is funct|
|000055e0| 69 6f 6e 20 63 61 6c 6c | 73 20 74 68 65 20 76 61 |ion call|s the va|
|000055f0| 6c 75 65 20 6f 66 20 74 | 65 72 6d 69 6e 61 6c 2d |lue of t|erminal-|
|00005600| 6d 6f 64 65 2d 68 6f 6f | 6b 20 69 66 20 74 68 61 |mode-hoo|k if tha|
|00005610| 74 20 65 78 69 73 74 73 | 0a 61 6e 64 20 69 73 20 |t exists|.and is |
|00005620| 6e 6f 6e 2d 6e 69 6c 20 | 61 66 74 65 72 20 74 68 |non-nil |after th|
|00005630| 65 20 74 65 72 6d 69 6e | 61 6c 20 62 75 66 66 65 |e termin|al buffe|
|00005640| 72 20 68 61 73 20 62 65 | 65 6e 20 73 65 74 20 75 |r has be|en set u|
|00005650| 70 20 61 6e 64 20 74 68 | 65 0a 73 75 62 70 72 6f |p and th|e.subpro|
|00005660| 63 65 73 73 20 73 74 61 | 72 74 65 64 2e 0a 0a 50 |cess sta|rted...P|
|00005670| 72 65 73 65 6e 74 6c 79 | 20 77 69 74 68 20 60 74 |resently| with `t|
|00005680| 65 72 6d 63 61 70 27 20 | 6f 6e 6c 79 3b 20 69 66 |ermcap' |only; if|
|00005690| 20 73 6f 6d 65 62 6f 64 | 79 20 73 65 6e 64 73 20 | somebod|y sends |
|000056a0| 75 73 20 63 6f 64 65 20 | 74 6f 20 6d 61 6b 65 20 |us code |to make |
|000056b0| 74 68 69 73 0a 77 6f 72 | 6b 20 77 69 74 68 20 60 |this.wor|k with `|
|000056c0| 74 65 72 6d 69 6e 66 6f | 27 20 77 65 20 77 69 6c |terminfo|' we wil|
|000056d0| 6c 20 74 72 79 20 74 6f | 20 75 73 65 20 69 74 2e |l try to| use it.|
|000056e0| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 |" (byte-|code "..|
|000056f0| c1 21 71 88 c2 c3 c4 21 | 83 19 00 0c 83 19 00 c5 |.!q....!|........|
|00005700| 0c 21 c6 3d 84 1d 00 70 | 82 20 00 c7 c1 21 21 29 |.!.=...p|. ...!!)|
|00005710| c8 0e 09 86 35 00 ca cb | 21 86 35 00 ca cc 21 86 |....5...|!.5...!.|
|00005720| 35 00 cd 1e 0e cf d0 d1 | 0e 0e 5c 22 21 89 1e 12 |5.......|..\"!...|
|00005730| d3 9a 83 4d 00 0e 0e d4 | 44 82 51 00 d5 0e 12 21 |...M....|D.Q....!|
|00005740| 2a 21 42 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |*!B." [g|et-buffe|
|00005750| 72 2d 63 72 65 61 74 65 | 20 22 2a 74 65 72 6d 69 |r-create| "*termi|
|00005760| 6e 61 6c 2a 22 20 62 75 | 66 66 65 72 2d 6e 61 6d |nal*" bu|ffer-nam|
|00005770| 65 20 62 6f 75 6e 64 70 | 20 74 65 2d 70 72 6f 63 |e boundp| te-proc|
|00005780| 65 73 73 20 70 72 6f 63 | 65 73 73 2d 73 74 61 74 |ess proc|ess-stat|
|00005790| 75 73 20 72 75 6e 20 67 | 65 6e 65 72 61 74 65 2d |us run g|enerate-|
|000057a0| 6e 65 77 2d 62 75 66 66 | 65 72 20 61 70 70 65 6e |new-buff|er appen|
|000057b0| 64 20 65 78 70 6c 69 63 | 69 74 2d 73 68 65 6c 6c |d explic|it-shell|
|000057c0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 67 65 74 65 6e |-file-na|me geten|
|000057d0| 76 20 22 45 53 48 45 4c | 4c 22 20 22 53 48 45 4c |v "ESHEL|L" "SHEL|
|000057e0| 4c 22 20 22 2f 62 69 6e | 2f 73 68 22 20 64 65 66 |L" "/bin|/sh" def|
|000057f0| 61 75 6c 74 2d 73 20 72 | 65 61 64 2d 73 74 72 69 |ault-s r|ead-stri|
|00005800| 6e 67 20 66 6f 72 6d 61 | 74 20 22 52 75 6e 20 70 |ng forma|t "Run p|
|00005810| 72 6f 67 72 61 6d 20 69 | 6e 20 65 6d 75 6c 61 74 |rogram i|n emulat|
|00005820| 6f 72 3a 20 28 64 65 66 | 61 75 6c 74 20 25 73 29 |or: (def|ault %s)|
|00005830| 20 22 20 73 20 22 22 20 | 6e 69 6c 20 74 65 2d 70 | " s "" |nil te-p|
|00005840| 61 72 73 65 2d 70 72 6f | 67 72 61 6d 2d 61 6e 64 |arse-pro|gram-and|
|00005850| 2d 61 72 67 73 5d 20 37 | 29 5d 29 0a 28 62 79 74 |-args] 7|)]).(byt|
|00005860| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 c4 |e-code "|...\"...|
|00005870| c5 c6 23 87 22 20 5b 64 | 65 66 61 6c 69 61 73 20 |..#." [d|efalias |
|00005880| 74 65 2d 70 61 72 73 65 | 2d 70 72 6f 67 72 61 6d |te-parse|-program|
|00005890| 2d 61 6e 64 2d 61 72 67 | 73 20 23 5b 28 73 29 20 |-and-arg|s #[(s) |
|000058a0| 22 c0 c1 5c 6e 5c 22 83 | 47 00 c3 c4 1d 1e 06 0d |"..\n\".|G.......|
|000058b0| 83 3a 00 c0 c7 5c 6e 0d | 23 83 2c 00 5c 6e 0d c8 |.:...\n.|#.,.\n..|
|000058c0| 95 4f c4 95 89 15 5c 6e | 47 3d 83 32 00 c3 15 82 |.O....\n|G=.2....|
|000058d0| 32 00 5c 6e 0d c3 4f c3 | 15 0e 06 42 16 06 82 0c |2.\n..O.|...B....|
|000058e0| 00 0e 06 9f 89 16 06 40 | 0e 06 41 2a 44 87 c0 c9 |.......@|..A*D...|
|000058f0| 5c 6e 5c 22 83 5d 00 ca | 5c 6e 21 84 5d 00 0e 0b |\n\".]..|\n!.]...|
|00005900| cc cd 5c 6e 50 44 44 87 | 5c 6e c3 44 87 22 20 5b |..\nPDD.|\n.D." [|
|00005910| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00005920| 60 5c 5c 28 5b 61 2d 7a | 41 2d 5a 30 2d 39 2d 2b |`\\([a-z|A-Z0-9-+|
|00005930| 3d 5f 2e 40 2f 3a 5d 2b | 5b 20 09 5d 2a 5c 5c 29 |=_.@/:]+|[ .]*\\)|
|00005940| 2b 5c 5c 27 22 20 73 20 | 6e 69 6c 20 30 20 70 20 |+\\'" s |nil 0 p |
|00005950| 6c 20 22 5c 5c 28 5b 61 | 2d 7a 41 2d 5a 30 2d 39 |l "\\([a|-zA-Z0-9|
|00005960| 2d 2b 3d 5f 2e 40 2f 3a | 5d 2b 5c 5c 29 5c 5c 28 |-+=_.@/:|]+\\)\\(|
|00005970| 5b 20 09 5d 2b 5c 5c 29 | 2a 22 20 31 20 22 5b 20 |[ .]+\\)|*" 1 "[ |
|00005980| 09 5d 22 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |.]" file|-exists-|
|00005990| 70 20 73 68 65 6c 6c 2d | 66 69 6c 65 2d 6e 61 6d |p shell-|file-nam|
|000059a0| 65 20 22 2d 63 22 20 22 | 65 78 65 63 20 22 5d 20 |e "-c" "|exec "] |
|000059b0| 35 5d 20 70 75 74 20 74 | 65 72 6d 69 6e 61 6c 2d |5] put t|erminal-|
|000059c0| 6d 6f 64 65 20 6d 6f 64 | 65 2d 63 6c 61 73 73 20 |mode mod|e-class |
|000059d0| 73 70 65 63 69 61 6c 5d | 20 34 29 0a 28 64 65 66 |special]| 4).(def|
|000059e0| 61 6c 69 61 73 20 27 74 | 65 72 6d 69 6e 61 6c 2d |alias 't|erminal-|
|000059f0| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |mode #[n|il ". ..|
|00005a00| 70 21 88 c2 13 c4 15 c6 | 16 07 c8 16 09 c8 16 5c |p!......|.......\|
|00005a10| 6e cb cc 21 88 cd cc 21 | 16 0c cb ce 21 88 cd ce |n..!...!|....!...|
|00005a20| 21 16 0e cb cf 21 88 cd | cf 21 16 0f cb d0 21 88 |!....!..|.!....!.|
|00005a30| cd d0 21 16 10 cb d1 21 | 88 cb d2 21 88 cb d3 21 |..!....!|...!...!|
|00005a40| 88 cb d4 21 88 d5 43 16 | 14 cb d6 21 88 65 16 16 |...!..C.|...!.e..|
|00005a50| cb d7 21 88 d8 16 17 cb | d9 21 88 cb da 21 88 db |..!.....|.!...!..|
|00005a60| 16 1a cb dc 21 88 dd 16 | 1c cb de 21 88 0e 10 89 |....!...|...!....|
|00005a70| 16 1e 87 22 20 5b 6b 69 | 6c 6c 2d 61 6c 6c 2d 6c |..." [ki|ll-all-l|
|00005a80| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 73 20 62 |ocal-var|iables b|
|00005a90| 75 66 66 65 72 2d 64 69 | 73 61 62 6c 65 2d 75 6e |uffer-di|sable-un|
|00005aa0| 64 6f 20 74 65 72 6d 69 | 6e 61 6c 2d 6d 6f 64 65 |do termi|nal-mode|
|00005ab0| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 74 65 72 | major-m|ode "ter|
|00005ac0| 6d 69 6e 61 6c 22 20 6d | 6f 64 65 2d 6e 61 6d 65 |minal" m|ode-name|
|00005ad0| 20 28 22 3a 20 25 73 22 | 29 20 6d 6f 64 65 2d 6c | (": %s"|) mode-l|
|00005ae0| 69 6e 65 2d 70 72 6f 63 | 65 73 73 20 74 20 62 75 |ine-proc|ess t bu|
|00005af0| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 74 |ffer-rea|d-only t|
|00005b00| 72 75 6e 63 61 74 65 2d | 6c 69 6e 65 73 20 6d 61 |runcate-|lines ma|
|00005b10| 6b 65 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |ke-local|-variabl|
|00005b20| 65 20 74 65 72 6d 69 6e | 61 6c 2d 65 73 63 61 70 |e termin|al-escap|
|00005b30| 65 2d 63 68 61 72 20 64 | 65 66 61 75 6c 74 2d 76 |e-char d|efault-v|
|00005b40| 61 6c 75 65 20 74 65 72 | 6d 69 6e 61 6c 2d 73 63 |alue ter|minal-sc|
|00005b50| 72 6f 6c 6c 69 6e 67 20 | 74 65 72 6d 69 6e 61 6c |rolling |terminal|
|00005b60| 2d 6d 6f 72 65 2d 70 72 | 6f 63 65 73 73 69 6e 67 |-more-pr|ocessing|
|00005b70| 20 74 65 72 6d 69 6e 61 | 6c 2d 72 65 64 69 73 70 | termina|l-redisp|
|00005b80| 6c 61 79 2d 69 6e 74 65 | 72 76 61 6c 20 74 65 2d |lay-inte|rval te-|
|00005b90| 77 69 64 74 68 20 74 65 | 2d 68 65 69 67 68 74 20 |width te|-height |
|00005ba0| 74 65 2d 70 72 6f 63 65 | 73 73 20 74 65 2d 70 65 |te-proce|ss te-pe|
|00005bb0| 6e 64 69 6e 67 2d 6f 75 | 74 70 75 74 20 30 20 74 |nding-ou|tput 0 t|
|00005bc0| 65 2d 73 61 76 65 64 2d | 70 6f 69 6e 74 20 74 65 |e-saved-|point te|
|00005bd0| 2d 70 65 6e 64 69 6e 67 | 2d 6f 75 74 70 75 74 2d |-pending|-output-|
|00005be0| 69 6e 66 6f 20 22 22 20 | 69 6e 68 69 62 69 74 2d |info "" |inhibit-|
|00005bf0| 71 75 69 74 20 74 65 2d | 6c 6f 67 2d 62 75 66 66 |quit te-|log-buff|
|00005c00| 65 72 20 6e 69 6c 20 74 | 65 2d 6d 6f 72 65 2d 63 |er nil t|e-more-c|
|00005c10| 6f 75 6e 74 20 2d 31 20 | 74 65 2d 72 65 64 69 73 |ount -1 |te-redis|
|00005c20| 70 6c 61 79 2d 63 6f 75 | 6e 74 5d 20 32 20 22 5c |play-cou|nt] 2 "\|
|00005c30| 0a 53 65 74 20 75 70 20 | 76 61 72 69 61 62 6c 65 |.Set up |variable|
|00005c40| 73 20 66 6f 72 20 75 73 | 65 20 77 69 74 68 20 74 |s for us|e with t|
|00005c50| 68 65 20 74 65 72 6d 69 | 6e 61 6c 2d 65 6d 75 6c |he termi|nal-emul|
|00005c60| 61 74 6f 72 2e 0a 4f 6e | 65 20 73 68 6f 75 6c 64 |ator..On|e should|
|00005c70| 20 6e 6f 74 20 63 61 6c | 6c 20 74 68 69 73 20 2d | not cal|l this -|
|00005c80| 2d 20 69 74 20 69 73 20 | 61 6e 20 69 6e 74 65 72 |- it is |an inter|
|00005c90| 6e 61 6c 20 66 75 6e 63 | 74 69 6f 6e 0a 6f 66 20 |nal func|tion.of |
|00005ca0| 74 68 65 20 74 65 72 6d | 69 6e 61 6c 2d 65 6d 75 |the term|inal-emu|
|00005cb0| 6c 61 74 6f 72 22 5d 29 | 0a 28 62 79 74 65 2d 63 |lator"])|.(byte-c|
|00005cc0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 c4 21 87 22 |ode "...|\"...!."|
|00005cd0| 20 5b 64 65 66 61 6c 69 | 61 73 20 74 65 2d 71 75 | [defali|as te-qu|
|00005ce0| 6f 74 65 2d 61 72 67 2d | 66 6f 72 2d 73 68 20 23 |ote-arg-|for-sh #|
|00005cf0| 5b 28 73 74 72 69 6e 67 | 29 20 22 c0 c1 5c 6e 5c |[(string|) "..\n\|
|00005d00| 22 83 09 00 5c 6e 87 c0 | c3 5c 6e 5c 22 84 14 00 |"...\n..|.\n\"...|
|00005d10| c4 5c 6e 21 87 c5 c6 89 | 1e 07 1e 08 1e 09 0e 08 |.\n!....|........|
|00005d20| 5c 6e 47 59 84 59 00 c0 | ca 5c 6e 0e 08 23 89 16 |\nGY.Y..|.\n..#..|
|00005d30| 07 84 3e 00 0e 09 5c 6e | 0e 08 cb 4f 50 16 09 82 |..>...\n|...OP...|
|00005d40| 59 00 0e 09 5c 6e 0e 08 | 0e 07 4f cc 5c 6e 0e 07 |Y...\n..|..O.\n..|
|00005d50| 89 54 4f 52 16 09 0e 07 | 54 89 16 08 82 1f 00 cd |.TOR....|T.......|
|00005d60| 0e 09 cd 51 2b 87 22 20 | 5b 73 74 72 69 6e 67 2d |...Q+." |[string-|
|00005d70| 6d 61 74 63 68 20 22 5c | 5c 60 5b 61 2d 7a 41 2d |match "\|\`[a-zA-|
|00005d80| 5a 30 2d 39 2d 2b 3d 5f | 2e 40 2f 3a 5d 2b 5c 5c |Z0-9-+=_|.@/:]+\\|
|00005d90| 27 22 20 73 74 72 69 6e | 67 20 22 5b 24 5d 22 20 |'" strin|g "[$]" |
|00005da0| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|00005db0| 22 22 20 30 20 65 6e 64 | 20 73 74 61 72 74 20 68 |"" 0 end| start h|
|00005dc0| 61 72 64 65 72 20 22 5b | 5c 22 5c 5c 24 5d 22 20 |arder "[|\"\\$]" |
|00005dd0| 6e 69 6c 20 22 5c 5c 22 | 20 22 5c 22 22 5d 20 37 |nil "\\"| "\""] 7|
|00005de0| 5d 20 70 72 6f 76 69 64 | 65 20 74 65 72 6d 69 6e |] provid|e termin|
|00005df0| 61 6c 5d 20 33 29 0a | |al] 3). | |
+--------+-------------------------+-------------------------+--------+--------+
