/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / term / sun.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 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 32 35 3a 35 | 30 20 31 39 39 33 0a 3b | 00:25:5|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 74 65 72 | 6d 2f 73 75 6e 2e 65 6c |lisp/ter|m/sun.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 64 65 66 61 6c | 69 61 73 20 27 69 67 6e |..(defal|ias 'ign|
|000001d0| 6f 72 65 2d 6b 65 79 20 | 23 5b 6e 69 6c 20 22 c0 |ore-key |#[nil ".|
|000001e0| 20 87 22 20 5b 69 67 6e | 6f 72 65 5d 20 31 20 22 | ." [ign|ore] 1 "|
|000001f0| 5c 0a 69 6e 74 65 72 61 | 63 74 69 76 65 20 76 65 |\.intera|ctive ve|
|00000200| 72 73 69 6f 6e 20 6f 66 | 20 69 67 6e 6f 72 65 22 |rsion of| ignore"|
|00000210| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|00000220| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00000230| 20 5b 64 65 66 61 6c 69 | 61 73 20 73 63 72 6f 6c | [defali|as scrol|
|00000240| 6c 2d 64 6f 77 6e 2d 69 | 6e 2d 70 6c 61 63 65 20 |l-down-i|n-place |
|00000250| 23 5b 28 6e 29 20 22 c0 | 09 21 88 c2 09 21 87 22 |#[(n) ".|.!...!."|
|00000260| 20 5b 70 72 65 76 69 6f | 75 73 2d 6c 69 6e 65 20 | [previo|us-line |
|00000270| 6e 20 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 5d 20 32 |n scroll|-down] 2|
|00000280| 20 6e 69 6c 20 22 70 22 | 5d 20 73 63 72 6f 6c 6c | nil "p"|] scroll|
|00000290| 2d 75 70 2d 69 6e 2d 70 | 6c 61 63 65 20 23 5b 28 |-up-in-p|lace #[(|
|000002a0| 6e 29 20 22 c0 09 21 88 | c2 09 21 87 22 20 5b 6e |n) "..!.|..!." [n|
|000002b0| 65 78 74 2d 6c 69 6e 65 | 20 6e 20 73 63 72 6f 6c |ext-line| n scrol|
|000002c0| 6c 2d 75 70 5d 20 32 20 | 6e 69 6c 20 22 70 22 5d |l-up] 2 |nil "p"]|
|000002d0| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|000002e0| 6b 69 6c 6c 2d 72 65 67 | 69 6f 6e 2d 61 6e 64 2d |kill-reg|ion-and-|
|000002f0| 75 6e 6d 61 72 6b 20 23 | 5b 28 62 65 67 20 65 6e |unmark #|[(beg en|
|00000300| 64 29 20 22 c0 09 5c 6e | 5c 22 88 c3 14 c5 c6 21 |d) "..\n|\".....!|
|00000310| 87 22 20 5b 6b 69 6c 6c | 2d 72 65 67 69 6f 6e 20 |." [kill|-region |
|00000320| 62 65 67 20 65 6e 64 20 | 6b 69 6c 6c 2d 72 65 67 |beg end |kill-reg|
|00000330| 69 6f 6e 2d 61 6e 64 2d | 75 6e 6d 61 72 6b 20 74 |ion-and-|unmark t|
|00000340| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 73 65 74 2d |his-comm|and set-|
|00000350| 6d 61 72 6b 2d 63 6f 6d | 6d 61 6e 64 20 74 5d 20 |mark-com|mand t] |
|00000360| 33 20 22 5c 0a 4c 69 6b | 65 20 6b 69 6c 6c 2d 72 |3 "\.Lik|e kill-r|
|00000370| 65 67 69 6f 6e 2c 20 62 | 75 74 20 70 6f 70 73 20 |egion, b|ut pops |
|00000380| 74 68 65 20 6d 61 72 6b | 20 5b 77 68 69 63 68 20 |the mark| [which |
|00000390| 65 71 75 61 6c 73 20 70 | 6f 69 6e 74 2c 20 61 6e |equals p|oint, an|
|000003a0| 79 77 61 79 2e 5d 22 20 | 22 72 22 5d 29 0a 28 64 |yway.]" |"r"]).(d|
|000003b0| 65 66 61 6c 69 61 73 20 | 27 73 65 6c 65 63 74 2d |efalias |'select-|
|000003c0| 70 72 65 76 69 6f 75 73 | 2d 63 6f 6d 70 6c 65 78 |previous|-complex|
|000003d0| 2d 63 6f 6d 6d 61 6e 64 | 20 23 5b 6e 69 6c 20 22 |-command| #[nil "|
|000003e0| c0 20 c1 55 83 0b 00 c2 | c3 21 87 c4 c3 21 87 22 |. .U....|.!...!."|
|000003f0| 20 5b 6d 69 6e 69 62 75 | 66 66 65 72 2d 64 65 70 | [minibu|ffer-dep|
|00000400| 74 68 20 30 20 72 65 70 | 65 61 74 2d 63 6f 6d 70 |th 0 rep|eat-comp|
|00000410| 6c 65 78 2d 63 6f 6d 6d | 61 6e 64 20 31 20 70 72 |lex-comm|and 1 pr|
|00000420| 65 76 69 6f 75 73 2d 63 | 6f 6d 70 6c 65 78 2d 63 |evious-c|omplex-c|
|00000430| 6f 6d 6d 61 6e 64 5d 20 | 32 20 22 5c 0a 53 65 6c |ommand] |2 "\.Sel|
|00000440| 65 63 74 20 50 72 65 76 | 69 6f 75 73 2d 63 6f 6d |ect Prev|ious-com|
|00000450| 70 6c 65 78 2d 63 6f 6d | 6d 61 6e 64 22 20 6e 69 |plex-com|mand" ni|
|00000460| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |l]).(def|alias 'r|
|00000470| 65 72 75 6e 2d 70 72 65 | 76 2d 63 6f 6d 6d 61 6e |erun-pre|v-comman|
|00000480| 64 20 23 5b 6e 69 6c 20 | 22 c0 09 40 21 87 22 20 |d #[nil |"..@!." |
|00000490| 5b 65 76 61 6c 20 63 6f | 6d 6d 61 6e 64 2d 68 69 |[eval co|mmand-hi|
|000004a0| 73 74 6f 72 79 5d 20 32 | 20 22 5c 0a 52 65 70 65 |story] 2| "\.Repe|
|000004b0| 61 74 20 50 72 65 76 69 | 6f 75 73 2d 63 6f 6d 70 |at Previ|ous-comp|
|000004c0| 6c 65 78 2d 63 6f 6d 6d | 61 6e 64 2e 22 20 6e 69 |lex-comm|and." ni|
|000004d0| 6c 5d 29 0a 28 64 65 66 | 76 61 72 20 67 72 65 70 |l]).(def|var grep|
|000004e0| 2d 61 72 67 20 6e 69 6c | 20 22 5c 0a 44 65 66 61 |-arg nil| "\.Defa|
|000004f0| 75 6c 74 20 61 72 67 20 | 66 6f 72 20 52 45 2d 73 |ult arg |for RE-s|
|00000500| 65 61 72 63 68 22 29 0a | 28 64 65 66 61 6c 69 61 |earch").|(defalia|
|00000510| 73 20 28 71 75 6f 74 65 | 20 67 72 65 70 2d 61 72 |s (quote| grep-ar|
|00000520| 67 29 20 23 5b 6e 69 6c | 20 22 08 c1 3e 83 08 00 |g) #[nil| "..>...|
|00000530| 5c 6e 87 0b 40 1c c5 0c | 40 21 1e 06 0c 41 40 1e |\n..@...|@!...A@.|
|00000540| 07 0e 06 85 20 00 c8 c9 | 0e 06 5c 22 89 1e 5c 6e |.... ...|..\"..\n|
|00000550| 83 33 00 0e 07 3b 83 33 | 00 0e 07 89 12 82 41 00 |.3...;.3|......A.|
|00000560| 0e 0b 16 5c 6e cc cd 5c | 6e 5c 22 12 0e 5c 6e 16 |...\n..\|n\"..\n.|
|00000570| 0b 5c 6e 2c 87 22 20 5b | 6c 61 73 74 2d 63 6f 6d |.\n,." [|last-com|
|00000580| 6d 61 6e 64 20 28 72 65 | 73 65 61 72 63 68 2d 66 |mand (re|search-f|
|00000590| 6f 72 77 61 72 64 20 72 | 65 73 65 61 72 63 68 2d |orward r|esearch-|
|000005a0| 62 61 63 6b 77 61 72 64 | 29 20 67 72 65 70 2d 61 |backward|) grep-a|
|000005b0| 72 67 20 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |rg comma|nd-histo|
|000005c0| 72 79 20 63 6f 6d 6d 61 | 6e 64 20 73 79 6d 62 6f |ry comma|nd symbo|
|000005d0| 6c 2d 6e 61 6d 65 20 63 | 6f 6d 6d 61 6e 64 2d 6e |l-name c|ommand-n|
|000005e0| 61 6d 65 20 73 65 61 72 | 63 68 2d 61 72 67 20 73 |ame sear|ch-arg s|
|000005f0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 73 65 61 |tring-ma|tch "sea|
|00000600| 72 63 68 22 20 73 65 61 | 72 63 68 2d 63 6f 6d 6d |rch" sea|rch-comm|
|00000610| 61 6e 64 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |and this|-command|
|00000620| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 52 45 | read-st|ring "RE|
|00000630| 73 65 61 72 63 68 3a 20 | 22 5d 20 34 5d 29 0a 28 |search: |"] 4]).(|
|00000640| 64 65 66 61 6c 69 61 73 | 20 27 72 65 73 65 61 72 |defalias| 'resear|
|00000650| 63 68 2d 66 6f 72 77 61 | 72 64 20 23 5b 6e 69 6c |ch-forwa|rd #[nil|
|00000660| 20 22 c0 c1 20 21 87 22 | 20 5b 72 65 2d 73 65 61 | ".. !."| [re-sea|
|00000670| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 67 72 65 70 |rch-forw|ard grep|
|00000680| 2d 61 72 67 5d 20 32 20 | 22 5c 0a 52 65 70 65 61 |-arg] 2 |"\.Repea|
|00000690| 74 20 52 45 20 73 65 61 | 72 63 68 20 66 6f 72 77 |t RE sea|rch forw|
|000006a0| 61 72 64 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ard." ni|l]).(def|
|000006b0| 61 6c 69 61 73 20 27 72 | 65 73 65 61 72 63 68 2d |alias 'r|esearch-|
|000006c0| 62 61 63 6b 77 61 72 64 | 20 23 5b 6e 69 6c 20 22 |backward| #[nil "|
|000006d0| c0 c1 20 21 87 22 20 5b | 72 65 2d 73 65 61 72 63 |.. !." [|re-searc|
|000006e0| 68 2d 62 61 63 6b 77 61 | 72 64 20 67 72 65 70 2d |h-backwa|rd grep-|
|000006f0| 61 72 67 5d 20 32 20 22 | 5c 0a 52 65 70 65 61 74 |arg] 2 "|\.Repeat|
|00000700| 20 52 45 20 73 65 61 72 | 63 68 20 62 61 63 6b 77 | RE sear|ch backw|
|00000710| 61 72 64 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ard." ni|l]).(def|
|00000720| 76 61 72 20 73 75 6e 2d | 65 73 63 2d 62 72 61 63 |var sun-|esc-brac|
|00000730| 6b 65 74 20 6e 69 6c 20 | 22 5c 0a 2a 49 66 20 6e |ket nil |"\.*If n|
|00000740| 6f 6e 2d 6e 69 6c 2c 20 | 72 65 62 69 6e 64 20 45 |on-nil, |rebind E|
|00000750| 53 43 20 5b 20 61 73 20 | 70 72 65 66 69 78 20 66 |SC [ as |prefix f|
|00000760| 6f 72 20 53 75 6e 20 66 | 75 6e 63 74 69 6f 6e 20 |or Sun f|unction |
|00000770| 6b 65 79 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |keys.").|(byte-co|
|00000780| 64 65 20 22 c0 c1 21 88 | c2 0b c4 c1 23 88 c2 09 |de "..!.|....#...|
|00000790| c5 c6 23 88 c2 09 c7 c8 | 23 88 c2 09 c9 ca 23 88 |..#.....|#.....#.|
|000007a0| c2 09 cb cc 23 88 c2 09 | cd ce 23 88 c2 09 cf d0 |....#...|..#.....|
|000007b0| 23 88 c2 09 d1 d2 23 88 | c2 09 d3 d4 23 88 c2 09 |#.....#.|....#...|
|000007c0| d5 d6 23 88 c2 09 d7 d8 | 23 88 c2 09 d9 da 23 88 |..#.....|#.....#.|
|000007d0| c2 09 db dc 23 88 c2 09 | dd de 23 88 c2 09 df e0 |....#...|..#.....|
|000007e0| 23 88 c2 09 e1 e2 23 88 | c2 09 e3 e4 23 88 c2 09 |#.....#.|....#...|
|000007f0| e5 e6 23 88 c2 09 e7 e8 | 23 88 c2 09 e9 ea 23 88 |..#.....|#.....#.|
|00000800| eb ec ed 5c 22 88 eb ee | ef 5c 22 88 eb f0 f1 5c |...\"...|.\"....\|
|00000810| 22 88 eb f2 f3 5c 22 88 | eb f4 f5 5c 22 88 eb f6 |"....\".|...\"...|
|00000820| f7 5c 22 88 eb f8 f9 5c | 22 88 eb fa fb 5c 22 88 |.\"....\|"....\".|
|00000830| eb fc fd 5c 22 88 eb fe | ff 5c 22 88 eb 81 40 00 |...\"...|.\"...@.|
|00000840| 81 41 00 5c 22 88 eb 81 | 42 00 81 43 00 5c 22 88 |.A.\"...|B..C.\".|
|00000850| eb 81 44 00 81 45 00 5c | 22 88 eb 81 46 00 81 47 |..D..E.\|"...F..G|
|00000860| 00 5c 22 88 eb 81 48 00 | 81 49 00 5c 22 88 eb 81 |.\"...H.|.I.\"...|
|00000870| 4a 00 81 4b 00 5c 22 88 | eb 81 4c 00 81 4d 00 5c |J..K.\".|..L..M.\|
|00000880| 22 88 0e 4e 83 f8 00 81 | 4f 00 c4 21 88 c0 87 22 |"..N....|O..!..."|
|00000890| 20 5b 64 65 66 69 6e 65 | 2d 70 72 65 66 69 78 2d | [define|-prefix-|
|000008a0| 63 6f 6d 6d 61 6e 64 20 | 73 75 6e 2d 72 61 77 2d |command |sun-raw-|
|000008b0| 70 72 65 66 69 78 20 64 | 65 66 69 6e 65 2d 6b 65 |prefix d|efine-ke|
|000008c0| 79 20 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 2d 6d |y functi|on-key-m|
|000008d0| 61 70 20 22 1b 5b 22 20 | 22 32 31 30 7a 22 20 5b |ap ".[" |"210z" [|
|000008e0| 72 33 5d 20 22 32 31 33 | 7a 22 20 5b 72 36 5d 20 |r3] "213|z" [r6] |
|000008f0| 22 32 31 34 7a 22 20 5b | 72 37 5d 20 22 32 31 36 |"214z" [|r7] "216|
|00000900| 7a 22 20 5b 72 39 5d 20 | 22 32 31 38 7a 22 20 5b |z" [r9] |"218z" [|
|00000910| 72 31 31 5d 20 22 32 32 | 30 7a 22 20 5b 72 31 33 |r11] "22|0z" [r13|
|00000920| 5d 20 22 32 32 32 7a 22 | 20 5b 72 31 35 5d 20 22 |] "222z"| [r15] "|
|00000930| 31 39 33 7a 22 20 5b 72 | 65 64 6f 5d 20 22 31 39 |193z" [r|edo] "19|
|00000940| 34 7a 22 20 5b 70 72 6f | 70 73 5d 20 22 31 39 35 |4z" [pro|ps] "195|
|00000950| 7a 22 20 5b 75 6e 64 6f | 5d 20 22 32 30 30 7a 22 |z" [undo|] "200z"|
|00000960| 20 5b 66 69 6e 64 5d 20 | 22 32 32 36 7a 22 20 5b | [find] |"226z" [|
|00000970| 74 33 5d 20 22 32 32 37 | 7a 22 20 5b 74 34 5d 20 |t3] "227|z" [t4] |
|00000980| 22 32 32 39 7a 22 20 5b | 74 36 5d 20 22 32 33 30 |"229z" [|t6] "230|
|00000990| 7a 22 20 5b 74 37 5d 20 | 22 41 22 20 5b 75 70 5d |z" [t7] |"A" [up]|
|000009a0| 20 22 42 22 20 5b 64 6f | 77 6e 5d 20 22 43 22 20 | "B" [do|wn] "C" |
|000009b0| 5b 72 69 67 68 74 5d 20 | 22 44 22 20 5b 6c 65 66 |[right] |"D" [lef|
|000009c0| 74 5d 20 67 6c 6f 62 61 | 6c 2d 73 65 74 2d 6b 65 |t] globa|l-set-ke|
|000009d0| 79 20 5b 72 33 5d 20 62 | 61 63 6b 77 61 72 64 2d |y [r3] b|ackward-|
|000009e0| 70 61 67 65 20 5b 72 36 | 5d 20 66 6f 72 77 61 72 |page [r6|] forwar|
|000009f0| 64 2d 70 61 67 65 20 5b | 72 37 5d 20 62 65 67 69 |d-page [|r7] begi|
|00000a00| 6e 6e 69 6e 67 2d 6f 66 | 2d 62 75 66 66 65 72 20 |nning-of|-buffer |
|00000a10| 5b 72 39 5d 20 73 63 72 | 6f 6c 6c 2d 64 6f 77 6e |[r9] scr|oll-down|
|00000a20| 20 5b 72 31 31 5d 20 72 | 65 63 65 6e 74 65 72 20 | [r11] r|ecenter |
|00000a30| 5b 72 31 33 5d 20 65 6e | 64 2d 6f 66 2d 62 75 66 |[r13] en|d-of-buf|
|00000a40| 66 65 72 20 5b 72 31 35 | 5d 20 73 63 72 6f 6c 6c |fer [r15|] scroll|
|00000a50| 2d 75 70 20 5b 72 65 64 | 6f 5d 20 72 65 64 72 61 |-up [red|o] redra|
|00000a60| 77 2d 64 69 73 70 6c 61 | 79 20 5b 70 72 6f 70 73 |w-displa|y [props|
|00000a70| 5d 20 6c 69 73 74 2d 62 | 75 66 66 65 72 73 20 5b |] list-b|uffers [|
|00000a80| 75 6e 64 6f 5d 20 75 6e | 64 6f 20 5b 70 75 74 5d |undo] un|do [put]|
|00000a90| 20 73 75 6e 2d 73 65 6c | 65 63 74 2d 72 65 67 69 | sun-sel|ect-regi|
|00000aa0| 6f 6e 20 5b 67 65 74 5d | 20 73 75 6e 2d 79 61 6e |on [get]| sun-yan|
|00000ab0| 6b 2d 73 65 6c 65 63 74 | 69 6f 6e 20 5b 66 69 6e |k-select|ion [fin|
|00000ac0| 64 5d 20 65 78 63 68 61 | 6e 67 65 2d 70 6f 69 6e |d] excha|nge-poin|
|00000ad0| 74 2d 61 6e 64 2d 6d 61 | 72 6b 20 5b 74 33 5d 20 |t-and-ma|rk [t3] |
|00000ae0| 73 63 72 6f 6c 6c 2d 64 | 6f 77 6e 2d 69 6e 2d 70 |scroll-d|own-in-p|
|00000af0| 6c 61 63 65 20 5b 74 34 | 5d 20 73 63 72 6f 6c 6c |lace [t4|] scroll|
|00000b00| 2d 75 70 2d 69 6e 2d 70 | 6c 61 63 65 20 5b 74 36 |-up-in-p|lace [t6|
|00000b10| 5d 20 73 68 72 69 6e 6b | 2d 77 69 6e 64 6f 77 20 |] shrink|-window |
|00000b20| 5b 74 37 5d 20 65 6e 6c | 61 72 67 65 2d 77 69 6e |[t7] enl|arge-win|
|00000b30| 64 6f 77 20 73 75 6e 2d | 65 73 63 2d 62 72 61 63 |dow sun-|esc-brac|
|00000b40| 6b 65 74 20 67 6c 6f 62 | 61 6c 2d 75 6e 73 65 74 |ket glob|al-unset|
|00000b50| 2d 6b 65 79 5d 20 34 29 | 0a 28 64 65 66 76 61 72 |-key] 4)|.(defvar|
|00000b60| 20 73 75 6e 2d 72 61 77 | 2d 70 72 65 66 69 78 2d | sun-raw|-prefix-|
|00000b70| 68 6f 6f 6b 73 20 6e 69 | 6c 20 22 5c 0a 4c 69 73 |hooks ni|l "\.Lis|
|00000b80| 74 20 6f 66 20 66 6f 72 | 6d 73 20 74 6f 20 65 76 |t of for|ms to ev|
|00000b90| 61 6c 75 61 74 65 20 61 | 66 74 65 72 20 73 65 74 |aluate a|fter set|
|00000ba0| 74 69 6e 67 20 73 75 6e | 2d 72 61 77 2d 70 72 65 |ting sun|-raw-pre|
|00000bb0| 66 69 78 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |fix.").(|byte-cod|
|00000bc0| 65 20 22 08 89 19 83 12 | 00 c2 09 40 21 88 09 41 |e ".....|...@!..A|
|00000bd0| 89 11 84 06 00 29 c3 c4 | 21 84 1b 00 c5 14 c2 87 |.....)..|!.......|
|00000be0| 22 20 5b 73 75 6e 2d 72 | 61 77 2d 70 72 65 66 69 |" [sun-r|aw-prefi|
|00000bf0| 78 2d 68 6f 6f 6b 73 20 | 68 6f 6f 6b 73 20 65 76 |x-hooks |hooks ev|
|00000c00| 61 6c 20 62 6f 75 6e 64 | 70 20 6d 65 74 61 2d 66 |al bound|p meta-f|
|00000c10| 6c 61 67 20 74 5d 20 33 | 29 0a 28 64 65 66 76 61 |lag t] 3|).(defva|
|00000c20| 72 20 73 75 6e 74 6f 6f | 6c 2d 6d 61 70 20 28 6d |r suntoo|l-map (m|
|00000c30| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|00000c40| 70 29 20 22 5c 0a 2a 4b | 65 79 6d 61 70 20 66 6f |p) "\.*K|eymap fo|
|00000c50| 72 20 45 6d 61 63 73 74 | 6f 6f 6c 20 62 69 6e 64 |r Emacst|ool bind|
|00000c60| 69 6e 67 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |ings.").|(byte-co|
|00000c70| 64 65 20 22 c0 09 c2 c3 | 23 88 c0 09 c4 c5 23 88 |de "....|#.....#.|
|00000c80| c0 09 c6 c7 23 88 c0 09 | c8 c9 23 88 c0 09 ca cb |....#...|..#.....|
|00000c90| 23 88 c0 09 cc cd 23 88 | c0 09 ce cf 23 88 c0 09 |#.....#.|....#...|
|00000ca0| d0 d1 23 88 c0 09 d2 d3 | 23 88 c0 09 d4 d5 23 88 |..#.....|#.....#.|
|00000cb0| c0 09 d6 d7 23 88 c0 09 | d8 d9 23 88 c0 09 da db |....#...|..#.....|
|00000cc0| 23 88 c0 09 dc dd 23 88 | c0 09 de df 23 88 c0 09 |#.....#.|....#...|
|00000cd0| e0 db 23 88 c0 09 e1 e2 | 23 88 c0 09 e3 e4 23 88 |..#.....|#.....#.|
|00000ce0| c0 09 e5 e6 23 88 c0 09 | e7 e8 23 88 c0 09 e9 ea |....#...|..#.....|
|00000cf0| 23 88 c0 09 eb ec 23 88 | c0 09 ed e4 23 88 c0 09 |#.....#.|....#...|
|00000d00| ee ef 23 88 c0 09 f0 f1 | 23 88 c0 09 f2 f3 23 88 |..#.....|#.....#.|
|00000d10| c0 09 f4 f5 23 88 c0 09 | f6 f7 23 88 c0 09 f8 f9 |....#...|..#.....|
|00000d20| 23 88 c0 09 fa fb 23 88 | c0 09 fc fd 23 88 c0 09 |#.....#.|....#...|
|00000d30| fe ff 23 88 c0 09 81 40 | 00 81 41 00 23 88 c0 09 |..#....@|..A.#...|
|00000d40| 81 42 00 81 43 00 23 88 | c0 0e 44 81 45 00 09 23 |.B..C.#.|..D.E..#|
|00000d50| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 73 |." [defi|ne-key s|
|00000d60| 75 6e 74 6f 6f 6c 2d 6d | 61 70 20 22 67 72 22 20 |untool-m|ap "gr" |
|00000d70| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 62 75 66 |beginnin|g-of-buf|
|00000d80| 66 65 72 20 22 69 52 22 | 20 62 61 63 6b 77 61 72 |fer "iR"| backwar|
|00000d90| 64 2d 70 61 67 65 20 22 | 69 72 22 20 73 63 72 6f |d-page "|ir" scro|
|00000da0| 6c 6c 2d 64 6f 77 6e 20 | 22 6b 72 22 20 72 65 63 |ll-down |"kr" rec|
|00000db0| 65 6e 74 65 72 20 22 6d | 72 22 20 65 6e 64 2d 6f |enter "m|r" end-o|
|00000dc0| 66 2d 62 75 66 66 65 72 | 20 22 6f 52 22 20 66 6f |f-buffer| "oR" fo|
|00000dd0| 72 77 61 72 64 2d 70 61 | 67 65 20 22 6f 72 22 20 |rward-pa|ge "or" |
|00000de0| 73 63 72 6f 6c 6c 2d 75 | 70 20 22 62 cc 22 20 72 |scroll-u|p "b." r|
|00000df0| 65 72 75 6e 2d 70 72 65 | 76 2d 63 6f 6d 6d 61 6e |erun-pre|v-comman|
|00000e00| 64 20 22 62 ec 22 20 70 | 72 65 76 2d 63 6f 6d 70 |d "b." p|rev-comp|
|00000e10| 6c 65 78 2d 63 6f 6d 6d | 61 6e 64 20 22 62 6c 22 |lex-comm|and "bl"|
|00000e20| 20 72 65 64 72 61 77 2d | 64 69 73 70 6c 61 79 20 | redraw-|display |
|00000e30| 22 63 6c 22 20 6c 69 73 | 74 2d 62 75 66 66 65 72 |"cl" lis|t-buffer|
|00000e40| 73 20 22 64 6c 22 20 75 | 6e 64 6f 20 22 65 6c 22 |s "dl" u|ndo "el"|
|00000e50| 20 69 67 6e 6f 72 65 2d | 6b 65 79 20 22 66 6c 22 | ignore-|key "fl"|
|00000e60| 20 73 75 6e 2d 73 65 6c | 65 63 74 2d 72 65 67 69 | sun-sel|ect-regi|
|00000e70| 6f 6e 20 22 66 2c 22 20 | 63 6f 70 79 2d 72 65 67 |on "f," |copy-reg|
|00000e80| 69 6f 6e 2d 61 73 2d 6b | 69 6c 6c 20 22 67 6c 22 |ion-as-k|ill "gl"|
|00000e90| 20 22 68 6c 22 20 73 75 | 6e 2d 79 61 6e 6b 2d 73 | "hl" su|n-yank-s|
|00000ea0| 65 6c 65 63 74 69 6f 6e | 20 22 68 2c 22 20 79 61 |election| "h," ya|
|00000eb0| 6e 6b 20 22 69 6c 22 20 | 72 65 73 65 61 72 63 68 |nk "il" |research|
|00000ec0| 2d 66 6f 72 77 61 72 64 | 20 22 69 2c 22 20 72 65 |-forward| "i," re|
|00000ed0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00000ee0| 22 69 ec 22 20 72 65 73 | 65 61 72 63 68 2d 62 61 |"i." res|earch-ba|
|00000ef0| 63 6b 77 61 72 64 20 22 | 69 ac 22 20 72 65 2d 73 |ckward "|i." re-s|
|00000f00| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00000f10| 6a 4c 22 20 22 6a 6c 22 | 20 6b 69 6c 6c 2d 72 65 |jL" "jl"| kill-re|
|00000f20| 67 69 6f 6e 2d 61 6e 64 | 2d 75 6e 6d 61 72 6b 20 |gion-and|-unmark |
|00000f30| 22 6a ec 22 20 65 78 63 | 68 61 6e 67 65 2d 70 6f |"j." exc|hange-po|
|00000f40| 69 6e 74 2d 61 6e 64 2d | 6d 61 72 6b 20 22 6a 2c |int-and-|mark "j,|
|00000f50| 22 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 69 |" (lambd|a nil (i|
|00000f60| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 70 6f 70 |nteracti|ve) (pop|
|00000f70| 2d 6d 61 72 6b 20 31 29 | 29 20 22 66 54 22 20 73 |-mark 1)|) "fT" s|
|00000f80| 68 72 69 6e 6b 2d 77 69 | 6e 64 6f 77 2d 68 6f 72 |hrink-wi|ndow-hor|
|00000f90| 69 7a 6f 6e 74 61 6c 6c | 79 20 22 67 54 22 20 65 |izontall|y "gT" e|
|00000fa0| 6e 6c 61 72 67 65 2d 77 | 69 6e 64 6f 77 2d 68 6f |nlarge-w|indow-ho|
|00000fb0| 72 69 7a 6f 6e 74 61 6c | 6c 79 20 22 66 74 22 20 |rizontal|ly "ft" |
|00000fc0| 73 68 72 69 6e 6b 2d 77 | 69 6e 64 6f 77 20 22 67 |shrink-w|indow "g|
|00000fd0| 74 22 20 65 6e 6c 61 72 | 67 65 2d 77 69 6e 64 6f |t" enlar|ge-windo|
|00000fe0| 77 20 22 63 54 22 20 28 | 6c 61 6d 62 64 61 20 28 |w "cT" (|lambda (|
|00000ff0| 6e 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |n) (inte|ractive |
|00001000| 22 70 22 29 20 28 73 63 | 72 6f 6c 6c 2d 64 6f 77 |"p") (sc|roll-dow|
|00001010| 6e 20 6e 29 29 20 22 64 | 54 22 20 28 6c 61 6d 62 |n n)) "d|T" (lamb|
|00001020| 64 61 20 28 6e 29 20 28 | 69 6e 74 65 72 61 63 74 |da (n) (|interact|
|00001030| 69 76 65 20 22 70 22 29 | 20 28 73 63 72 6f 6c 6c |ive "p")| (scroll|
|00001040| 2d 75 70 20 6e 29 29 20 | 22 63 74 22 20 73 63 72 |-up n)) |"ct" scr|
|00001050| 6f 6c 6c 2d 64 6f 77 6e | 2d 69 6e 2d 70 6c 61 63 |oll-down|-in-plac|
|00001060| 65 20 22 64 74 22 20 73 | 63 72 6f 6c 6c 2d 75 70 |e "dt" s|croll-up|
|00001070| 2d 69 6e 2d 70 6c 61 63 | 65 20 63 74 6c 2d 78 2d |-in-plac|e ctl-x-|
|00001080| 6d 61 70 20 22 2a 22 5d | 20 34 29 0a 28 64 65 66 |map "*"]| 4).(def|
|00001090| 76 61 72 20 73 75 6e 74 | 6f 6f 6c 2d 6d 61 70 2d |var sunt|ool-map-|
|000010a0| 68 6f 6f 6b 73 20 6e 69 | 6c 20 22 5c 0a 4c 69 73 |hooks ni|l "\.Lis|
|000010b0| 74 20 6f 66 20 66 6f 72 | 6d 73 20 74 6f 20 65 76 |t of for|ms to ev|
|000010c0| 61 6c 75 61 74 65 20 61 | 66 74 65 72 20 73 65 74 |aluate a|fter set|
|000010d0| 74 69 6e 67 20 73 75 6e | 74 6f 6f 6c 2d 6d 61 70 |ting sun|tool-map|
|000010e0| 2e 22 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |.").(byt|e-code "|
|000010f0| 08 89 19 83 12 00 c2 09 | 40 21 88 09 41 89 11 84 |........|@!..A...|
|00001100| 06 00 29 c2 87 22 20 5b | 73 75 6e 74 6f 6f 6c 2d |..).." [|suntool-|
|00001110| 6d 61 70 2d 68 6f 6f 6b | 73 20 68 6f 6f 6b 73 20 |map-hook|s hooks |
|00001120| 65 76 61 6c 5d 20 33 29 | 0a 28 61 75 74 6f 6c 6f |eval] 3)|.(autolo|
|00001130| 61 64 20 28 71 75 6f 74 | 65 20 73 75 6e 2d 6d 6f |ad (quot|e sun-mo|
|00001140| 75 73 65 2d 68 61 6e 64 | 6c 65 72 29 20 22 73 75 |use-hand|ler) "su|
|00001150| 6e 2d 6d 6f 75 73 65 22 | 20 22 5c 0a 53 75 6e 20 |n-mouse"| "\.Sun |
|00001160| 45 6d 61 63 73 74 6f 6f | 6c 20 68 61 6e 64 6c 65 |Emacstoo|l handle|
|00001170| 72 20 66 6f 72 20 6d 6f | 75 73 65 20 62 6c 69 70 |r for mo|use blip|
|00001180| 73 20 28 6e 6f 74 20 6c | 6f 61 64 65 64 29 2e 22 |s (not l|oaded)."|
|00001190| 20 74 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 | t).(def|alias 'e|
|000011a0| 6d 61 63 73 74 6f 6f 6c | 2d 69 6e 69 74 20 23 5b |macstool|-init #[|
|000011b0| 6e 69 6c 20 22 c0 c1 21 | 88 c2 0b c4 c5 23 88 c6 |nil "..!|.....#..|
|000011c0| 20 c7 57 83 15 00 c8 c9 | 21 87 ca cb cc 0e 0d 23 | .W.....|!......#|
|000011d0| 88 ca cb cc 0e 0e 23 88 | ca cb cc 0b 23 88 cf d0 |......#.|....#...|
|000011e0| 0e 11 d2 51 21 87 22 20 | 5b 72 65 71 75 69 72 65 |...Q!." |[require|
|000011f0| 20 73 75 6e 2d 66 6e 73 | 20 64 65 66 69 6e 65 2d | sun-fns| define-|
|00001200| 6b 65 79 20 63 74 6c 2d | 78 2d 6d 61 70 20 22 00 |key ctl-|x-map ".|
|00001210| 22 20 73 75 6e 2d 6d 6f | 75 73 65 2d 68 61 6e 64 |" sun-mo|use-hand|
|00001220| 6c 65 72 20 73 75 6e 2d | 77 69 6e 64 6f 77 2d 69 |ler sun-|window-i|
|00001230| 6e 69 74 20 30 20 6d 65 | 73 73 61 67 65 20 22 4e |nit 0 me|ssage "N|
|00001240| 6f 74 20 61 20 53 75 6e | 20 57 69 6e 64 6f 77 22 |ot a Sun| Window"|
|00001250| 20 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d | substit|ute-key-|
|00001260| 64 65 66 69 6e 69 74 69 | 6f 6e 20 73 75 73 70 65 |definiti|on suspe|
|00001270| 6e 64 2d 65 6d 61 63 73 | 20 73 75 73 70 65 6e 64 |nd-emacs| suspend|
|00001280| 2d 65 6d 61 63 73 74 6f | 6f 6c 20 67 6c 6f 62 61 |-emacsto|ol globa|
|00001290| 6c 2d 6d 61 70 20 65 73 | 63 2d 6d 61 70 20 73 65 |l-map es|c-map se|
|000012a0| 6e 64 2d 73 74 72 69 6e | 67 2d 74 6f 2d 74 65 72 |nd-strin|g-to-ter|
|000012b0| 6d 69 6e 61 6c 20 22 1b | 5d 6c 45 6d 61 63 73 74 |minal ".|]lEmacst|
|000012c0| 6f 6f 6c 20 2d 20 47 4e | 55 20 45 6d 61 63 73 20 |ool - GN|U Emacs |
|000012d0| 22 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |" emacs-|version |
|000012e0| 22 1b 5c 5c 22 5d 20 34 | 20 22 5c 0a 53 65 74 20 |".\\"] 4| "\.Set |
|000012f0| 75 70 20 45 6d 61 63 73 | 74 6f 6f 6c 20 77 69 6e |up Emacs|tool win|
|00001300| 64 6f 77 2c 20 69 66 20 | 79 6f 75 20 6b 6e 6f 77 |dow, if |you know|
|00001310| 20 79 6f 75 20 61 72 65 | 20 69 6e 20 61 6e 20 65 | you are| in an e|
|00001320| 6d 61 63 73 74 6f 6f 6c | 2e 22 5d 29 0a 28 64 65 |macstool|."]).(de|
|00001330| 66 61 6c 69 61 73 20 27 | 73 75 6e 2d 6d 6f 75 73 |falias '|sun-mous|
|00001340| 65 2d 6f 6e 63 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |e-once #|[nil ". |
|00001350| 88 c1 20 87 22 20 5b 65 | 6d 61 63 73 74 6f 6f 6c |.. ." [e|macstool|
|00001360| 2d 69 6e 69 74 20 73 75 | 6e 2d 6d 6f 75 73 65 2d |-init su|n-mouse-|
|00001370| 68 61 6e 64 6c 65 72 5d | 20 31 20 22 5c 0a 43 6f |handler]| 1 "\.Co|
|00001380| 6e 76 65 72 74 73 20 74 | 6f 20 65 6d 61 63 73 74 |nverts t|o emacst|
|00001390| 6f 6f 6c 20 61 6e 64 20 | 73 75 6e 2d 6d 6f 75 73 |ool and |sun-mous|
|000013a0| 65 2d 68 61 6e 64 6c 65 | 72 20 6f 6e 20 66 69 72 |e-handle|r on fir|
|000013b0| 73 74 20 6d 6f 75 73 65 | 20 68 69 74 2e 22 20 6e |st mouse| hit." n|
|000013c0| 69 6c 5d 29 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |il]).(de|fine-key|
|000013d0| 20 63 74 6c 2d 78 2d 6d | 61 70 20 22 00 22 20 28 | ctl-x-m|ap "." (|
|000013e0| 71 75 6f 74 65 20 73 75 | 6e 2d 6d 6f 75 73 65 2d |quote su|n-mouse-|
|000013f0| 6f 6e 63 65 29 29 0a    |                         |once)). |        |
+--------+-------------------------+-------------------------+--------+--------+