/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / term / bg-mouse.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 34 3a 35 | 36 20 31 39 39 33 0a 3b | 00:24:5|6 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 62 67 2d 6d 6f 75 |lisp/ter|m/bg-mou|
|00000080| 73 65 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |se.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 35 2e 31 36 |version |19.15.16|
|000000a0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000b0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000c0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000d0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000e0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000f0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000100| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000110| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000120| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000130| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000170| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000180| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|00000190| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001a0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001b0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001c0| 31 39 22 29 29 0a 0a 28 | 64 65 66 76 61 72 20 62 |19"))..(|defvar b|
|000001d0| 67 2d 6d 6f 75 73 65 2d | 66 61 73 74 2d 73 65 6c |g-mouse-|fast-sel|
|000001e0| 65 63 74 2d 77 69 6e 64 | 6f 77 20 6e 69 6c 20 22 |ect-wind|ow nil "|
|000001f0| 5c 0a 2a 4e 6f 6e 2d 6e | 69 6c 20 66 6f 72 20 6d |\.*Non-n|il for m|
|00000200| 6f 75 73 65 20 68 69 74 | 73 20 74 6f 20 73 65 6c |ouse hit|s to sel|
|00000210| 65 63 74 20 6e 65 77 20 | 77 69 6e 64 6f 77 2c 20 |ect new |window, |
|00000220| 74 68 65 6e 20 65 78 65 | 63 75 74 65 3b 20 65 6c |then exe|cute; el|
|00000230| 73 65 20 6a 75 73 74 20 | 73 65 6c 65 63 74 2e 22 |se just |select."|
|00000240| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |).(byte-|code "..|
|00000250| c2 13 c2 14 c5 16 06 c7 | 16 08 c9 16 5c 6e cb 16 |........|....\n..|
|00000260| 0c cd 16 0e c0 87 22 20 | 5b 31 20 62 67 2d 62 75 |......" |[1 bg-bu|
|00000270| 74 74 6f 6e 2d 72 20 32 | 20 62 67 2d 62 75 74 74 |tton-r 2| bg-butt|
|00000280| 6f 6e 2d 6d 20 62 67 2d | 62 75 74 74 6f 6e 2d 63 |on-m bg-|button-c|
|00000290| 20 34 20 62 67 2d 62 75 | 74 74 6f 6e 2d 6c 20 38 | 4 bg-bu|tton-l 8|
|000002a0| 20 62 67 2d 69 6e 2d 6d | 6f 64 65 6c 69 6e 65 20 | bg-in-m|odeline |
|000002b0| 31 36 20 62 67 2d 69 6e | 2d 73 63 72 6f 6c 6c 62 |16 bg-in|-scrollb|
|000002c0| 61 72 20 32 34 20 62 67 | 2d 69 6e 2d 6d 69 6e 69 |ar 24 bg|-in-mini|
|000002d0| 62 75 66 20 35 39 20 73 | 65 6d 69 63 6f 6c 6f 6e |buf 59 s|emicolon|
|000002e0| 5d 20 31 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 1).(de|falias '|
|000002f0| 62 67 2d 6d 6f 75 73 65 | 2d 72 65 70 6f 72 74 20 |bg-mouse|-report |
|00000300| 23 5b 28 70 72 65 66 69 | 78 2d 61 72 67 29 20 22 |#[(prefi|x-arg) "|
|00000310| c0 09 21 88 c2 20 53 c0 | 09 21 c3 a5 5e 1c c5 20 |..!.. S.|.!..^.. |
|00000320| 53 c0 09 21 c6 a5 5a 1e | 07 c0 c8 21 c9 a6 1e 5c |S..!..Z.|...!...\|
|00000330| 6e cb 0c 0e 07 5c 22 1e | 0c cd 20 1e 0e cf 0e 0c |n....\".|.. .....|
|00000340| 21 1e 10 0e 07 d1 20 53 | 55 89 1e 12 3f 85 46 00 |!..... S|U...?.F.|
|00000350| 0e 07 d3 0e 10 38 53 55 | 1e 14 0e 12 3f 85 5b 00 |.....8SU|....?.[.|
|00000360| 0e 14 3f 85 5b 00 0c d5 | 0e 10 38 53 59 1e 16 0e |..?.[...|..8SY...|
|00000370| 0c 0e 0e 3d 1e 17 0e 12 | 85 6c 00 0e 0c 3f 89 1e |...=....|.l...?..|
|00000380| 18 83 77 00 0e 19 82 78 | 00 da 0e 14 83 82 00 0e |..w....x|........|
|00000390| 1b 82 83 00 da 0e 16 83 | 8d 00 0e 1c 82 8e 00 da |........|........|
|000003a0| 5c 5c 5c 5c 1e 1d de 0e | 1f e0 0e 1d 0e 5c 6e 5c |\\\\....|.....\n\|
|000003b0| 5c 21 5c 22 1e 21 0c 0e | 10 40 5a 1e 5c 22 0e 07 |\!\".!..|.@Z.\"..|
|000003c0| 0e 10 41 40 5a 1e 23 0e | 14 84 b9 00 0e 16 83 ca |..A@Z.#.|........|
|000003d0| 00 e4 0e 0c 21 88 e5 0e | 21 21 88 e4 0e 0e 21 82 |....!...|!!....!.|
|000003e0| e9 00 0e 17 84 d4 00 0e | 18 83 db 00 e5 0e 21 21 |........|......!!|
|000003f0| 82 e9 00 e4 0e 0c 21 88 | 0e 26 85 e9 00 e5 0e 21 |......!.|.&.....!|
|00000400| 21 2e 0f 87 22 20 5b 62 | 67 2d 67 65 74 2d 74 74 |!..." [b|g-get-tt|
|00000410| 79 2d 6e 75 6d 20 73 65 | 6d 69 63 6f 6c 6f 6e 20 |y-num se|micolon |
|00000420| 66 72 61 6d 65 2d 77 69 | 64 74 68 20 39 20 73 63 |frame-wi|dth 9 sc|
|00000430| 72 65 65 6e 2d 6d 6f 75 | 73 65 2d 78 20 66 72 61 |reen-mou|se-x fra|
|00000440| 6d 65 2d 68 65 69 67 68 | 74 20 31 36 20 73 63 72 |me-heigh|t 16 scr|
|00000450| 65 65 6e 2d 6d 6f 75 73 | 65 2d 79 20 39 39 20 38 |een-mous|e-y 99 8|
|00000460| 20 62 67 2d 6d 6f 75 73 | 65 2d 62 75 74 74 6f 6e | bg-mous|e-button|
|00000470| 73 20 62 67 2d 77 69 6e | 64 6f 77 2d 66 72 6f 6d |s bg-win|dow-from|
|00000480| 2d 78 2d 79 20 62 67 2d | 6d 6f 75 73 65 2d 77 69 |-x-y bg-|mouse-wi|
|00000490| 6e 64 6f 77 20 73 65 6c | 65 63 74 65 64 2d 77 69 |ndow sel|ected-wi|
|000004a0| 6e 64 6f 77 20 62 67 2d | 63 75 72 73 6f 72 2d 77 |ndow bg-|cursor-w|
|000004b0| 69 6e 64 6f 77 20 77 69 | 6e 64 6f 77 2d 65 64 67 |indow wi|ndow-edg|
|000004c0| 65 73 20 65 64 67 65 73 | 20 73 63 72 65 65 6e 2d |es edges| screen-|
|000004d0| 68 65 69 67 68 74 20 6d | 69 6e 69 62 75 66 2d 70 |height m|inibuf-p|
|000004e0| 20 33 20 69 6e 2d 6d 6f | 64 65 6c 69 6e 65 2d 70 | 3 in-mo|deline-p|
|000004f0| 20 32 20 69 6e 2d 73 63 | 72 6f 6c 6c 62 61 72 2d | 2 in-sc|rollbar-|
|00000500| 70 20 73 61 6d 65 2d 77 | 69 6e 64 6f 77 2d 70 20 |p same-w|indow-p |
|00000510| 69 6e 2d 6d 69 6e 69 62 | 75 66 2d 70 20 62 67 2d |in-minib|uf-p bg-|
|00000520| 69 6e 2d 6d 69 6e 69 62 | 75 66 20 30 20 62 67 2d |in-minib|uf 0 bg-|
|00000530| 69 6e 2d 6d 6f 64 65 6c | 69 6e 65 20 62 67 2d 69 |in-model|ine bg-i|
|00000540| 6e 2d 73 63 72 6f 6c 6c | 62 61 72 20 62 67 2d 6d |n-scroll|bar bg-m|
|00000550| 6f 64 65 2d 62 69 74 73 | 20 6c 6f 6f 6b 75 70 2d |ode-bits| lookup-|
|00000560| 6b 65 79 20 6d 6f 75 73 | 65 2d 6d 61 70 20 63 68 |key mous|e-map ch|
|00000570| 61 72 2d 74 6f 2d 73 74 | 72 69 6e 67 20 62 67 2d |ar-to-st|ring bg-|
|00000580| 63 6f 6d 6d 61 6e 64 20 | 62 67 2d 6d 6f 75 73 65 |command |bg-mouse|
|00000590| 2d 78 20 62 67 2d 6d 6f | 75 73 65 2d 79 20 73 65 |-x bg-mo|use-y se|
|000005a0| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 62 67 2d 63 |lect-win|dow bg-c|
|000005b0| 6f 6d 6d 61 6e 64 2d 65 | 78 65 63 75 74 65 20 62 |ommand-e|xecute b|
|000005c0| 67 2d 6d 6f 75 73 65 2d | 66 61 73 74 2d 73 65 6c |g-mouse-|fast-sel|
|000005d0| 65 63 74 2d 77 69 6e 64 | 6f 77 5d 20 36 20 22 5c |ect-wind|ow] 6 "\|
|000005e0| 0a 52 65 61 64 2c 20 70 | 61 72 73 65 2c 20 61 6e |.Read, p|arse, an|
|000005f0| 64 20 65 78 65 63 75 74 | 65 20 61 20 42 42 4e 20 |d execut|e a BBN |
|00000600| 42 69 74 47 72 61 70 68 | 20 6d 6f 75 73 65 20 63 |BitGraph| mouse c|
|00000610| 6c 69 63 6b 2e 0a 0a 4c | 2d 2d 20 6d 6f 76 65 20 |lick...L|-- move |
|00000620| 70 6f 69 6e 74 20 20 20 | 20 20 20 20 20 20 20 20 |point   |        |
|00000630| 20 20 7c 20 54 68 65 73 | 65 20 61 70 70 6c 79 20 |  | Thes|e apply |
|00000640| 66 6f 72 20 6d 6f 75 73 | 65 20 63 6c 69 63 6b 20 |for mous|e click |
|00000650| 69 6e 20 61 20 77 69 6e | 64 6f 77 2e 0a 2d 2d 52 |in a win|dow..--R|
|00000660| 20 73 65 74 20 6d 61 72 | 6b 20 20 20 20 20 20 20 | set mar|k       |
|00000670| 20 20 20 20 20 20 20 20 | 7c 20 49 66 20 62 67 2d |        || If bg-|
|00000680| 6d 6f 75 73 65 2d 66 61 | 73 74 2d 73 65 6c 65 63 |mouse-fa|st-selec|
|00000690| 74 2d 77 69 6e 64 6f 77 | 20 69 73 20 6e 69 6c 2c |t-window| is nil,|
|000006a0| 0a 4c 2d 52 20 6b 69 6c | 6c 20 72 65 67 69 6f 6e |.L-R kil|l region|
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 7c 20 74 68 |        |    | th|
|000006c0| 65 73 65 20 63 6f 6d 6d | 61 6e 64 73 20 6f 6e 20 |ese comm|ands on |
|000006d0| 61 20 6e 6f 6e 73 65 6c | 65 63 74 65 64 20 77 69 |a nonsel|ected wi|
|000006e0| 6e 64 6f 77 0a 2d 43 2d | 20 6d 6f 76 65 20 70 6f |ndow.-C-| move po|
|000006f0| 69 6e 74 20 61 6e 64 20 | 79 61 6e 6b 20 20 20 20 |int and |yank    |
|00000700| 7c 20 6a 75 73 74 20 73 | 65 6c 65 63 74 20 74 68 || just s|elect th|
|00000710| 61 74 20 77 69 6e 64 6f | 77 2e 0a 4c 43 2d 20 79 |at windo|w..LC- y|
|00000720| 61 6e 6b 2d 70 6f 70 09 | 09 20 20 20 7c 0a 2d 43 |ank-pop.|.   |.-C|
|00000730| 52 20 6f 72 20 4c 43 52 | 20 75 6e 64 6f 09 09 20 |R or LCR| undo.. |
|00000740| 20 20 7c 20 5c 22 53 63 | 72 6f 6c 6c 20 62 61 72 |  | \"Sc|roll bar|
|00000750| 5c 22 20 69 73 20 72 69 | 67 68 74 2d 68 61 6e 64 |\" is ri|ght-hand|
|00000760| 20 77 69 6e 64 6f 77 20 | 63 6f 6c 75 6d 6e 2e 0a | window |column..|
|00000770| 0a 6f 6e 20 6d 6f 64 65 | 6c 69 6e 65 3a 09 09 20 |.on mode|line:.. |
|00000780| 20 20 20 6f 6e 20 5c 22 | 73 63 72 6f 6c 6c 20 62 |   on \"|scroll b|
|00000790| 61 72 5c 22 3a 09 69 6e | 20 6d 69 6e 69 62 75 66 |ar\":.in| minibuf|
|000007a0| 66 65 72 3a 0a 4c 2d 2d | 20 73 63 72 6f 6c 6c 2d |fer:.L--| scroll-|
|000007b0| 75 70 09 09 20 20 20 20 | 6c 69 6e 65 20 74 6f 20 |up..    |line to |
|000007c0| 74 6f 70 09 09 65 78 65 | 63 75 74 65 2d 65 78 74 |top..exe|cute-ext|
|000007d0| 65 6e 64 65 64 2d 63 6f | 6d 6d 61 6e 64 0a 2d 2d |ended-co|mmand.--|
|000007e0| 52 20 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 09 09 20 |R scroll|-down.. |
|000007f0| 20 20 20 6c 69 6e 65 20 | 74 6f 20 62 6f 74 74 6f |   line |to botto|
|00000800| 6d 09 65 76 61 6c 2d 65 | 78 70 72 65 73 73 69 6f |m.eval-e|xpressio|
|00000810| 6e 0a 2d 43 2d 20 70 72 | 6f 70 6f 72 74 69 6f 6e |n.-C- pr|oportion|
|00000820| 61 6c 20 67 6f 74 6f 2d | 63 68 61 72 20 20 6c 69 |al goto-|char  li|
|00000830| 6e 65 20 74 6f 20 6d 69 | 64 64 6c 65 09 73 75 73 |ne to mi|ddle.sus|
|00000840| 70 65 6e 64 2d 65 6d 61 | 63 73 0a 0a 54 6f 20 72 |pend-ema|cs..To r|
|00000850| 65 69 6e 69 74 69 61 6c | 69 7a 65 20 74 68 65 20 |einitial|ize the |
|00000860| 6d 6f 75 73 65 20 69 66 | 20 74 68 65 20 74 65 72 |mouse if| the ter|
|00000870| 6d 69 6e 61 6c 20 69 73 | 20 72 65 73 65 74 2c 20 |minal is| reset, |
|00000880| 74 79 70 65 20 45 53 43 | 20 3a 20 52 45 54 22 20 |type ESC| : RET" |
|00000890| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|000008a0| 27 62 67 2d 73 65 74 2d | 70 6f 69 6e 74 20 23 5b |'bg-set-|point #[|
|000008b0| 6e 69 6c 20 22 c0 09 5c | 6e 5c 22 88 c3 14 09 89 |nil "..\|n\".....|
|000008c0| 15 87 22 20 5b 62 67 2d | 6d 6f 76 65 2d 70 6f 69 |.." [bg-|move-poi|
|000008d0| 6e 74 2d 74 6f 2d 78 2d | 79 20 62 67 2d 6d 6f 75 |nt-to-x-|y bg-mou|
|000008e0| 73 65 2d 78 20 62 67 2d | 6d 6f 75 73 65 2d 79 20 |se-x bg-|mouse-y |
|000008f0| 6e 65 78 74 2d 6c 69 6e | 65 20 74 68 69 73 2d 63 |next-lin|e this-c|
|00000900| 6f 6d 6d 61 6e 64 20 74 | 65 6d 70 6f 72 61 72 79 |ommand t|emporary|
|00000910| 2d 67 6f 61 6c 2d 63 6f | 6c 75 6d 6e 5d 20 33 20 |-goal-co|lumn] 3 |
|00000920| 22 5c 0a 4d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |"\.Move |point to|
|00000930| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 42 69 74 | locatio|n of Bit|
|00000940| 47 72 61 70 68 20 6d 6f | 75 73 65 2e 22 20 6e 69 |Graph mo|use." ni|
|00000950| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |l]).(def|alias 'b|
|00000960| 67 2d 73 65 74 2d 6d 61 | 72 6b 20 23 5b 6e 69 6c |g-set-ma|rk #[nil|
|00000970| 20 22 c0 20 88 c1 5c 6e | 0b 5c 22 88 c4 20 87 22 | ". ..\n|.\".. ."|
|00000980| 20 5b 70 75 73 68 2d 6d | 61 72 6b 20 62 67 2d 6d | [push-m|ark bg-m|
|00000990| 6f 76 65 2d 70 6f 69 6e | 74 2d 74 6f 2d 78 2d 79 |ove-poin|t-to-x-y|
|000009a0| 20 62 67 2d 6d 6f 75 73 | 65 2d 78 20 62 67 2d 6d | bg-mous|e-x bg-m|
|000009b0| 6f 75 73 65 2d 79 20 65 | 78 63 68 61 6e 67 65 2d |ouse-y e|xchange-|
|000009c0| 70 6f 69 6e 74 2d 61 6e | 64 2d 6d 61 72 6b 5d 20 |point-an|d-mark] |
|000009d0| 33 20 22 5c 0a 53 65 74 | 20 6d 61 72 6b 20 61 74 |3 "\.Set| mark at|
|000009e0| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 42 69 74 | locatio|n of Bit|
|000009f0| 47 72 61 70 68 20 6d 6f | 75 73 65 2e 22 20 6e 69 |Graph mo|use." ni|
|00000a00| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |l]).(def|alias 'b|
|00000a10| 67 2d 79 61 6e 6b 20 23 | 5b 6e 69 6c 20 22 c0 09 |g-yank #|[nil "..|
|00000a20| 5c 6e 5c 22 88 c3 14 c3 | 20 87 22 20 5b 62 67 2d |\n\"....| ." [bg-|
|00000a30| 6d 6f 76 65 2d 70 6f 69 | 6e 74 2d 74 6f 2d 78 2d |move-poi|nt-to-x-|
|00000a40| 79 20 62 67 2d 6d 6f 75 | 73 65 2d 78 20 62 67 2d |y bg-mou|se-x bg-|
|00000a50| 6d 6f 75 73 65 2d 79 20 | 79 61 6e 6b 20 74 68 69 |mouse-y |yank thi|
|00000a60| 73 2d 63 6f 6d 6d 61 6e | 64 5d 20 33 20 22 5c 0a |s-comman|d] 3 "\.|
|00000a70| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 6c 6f |Move poi|nt to lo|
|00000a80| 63 61 74 69 6f 6e 20 6f | 66 20 42 69 74 47 72 61 |cation o|f BitGra|
|00000a90| 70 68 20 6d 6f 75 73 65 | 20 61 6e 64 20 79 61 6e |ph mouse| and yan|
|00000aa0| 6b 2e 22 20 22 2a 22 5d | 29 0a 28 64 65 66 61 6c |k." "*"]|).(defal|
|00000ab0| 69 61 73 20 28 71 75 6f | 74 65 20 79 61 6e 6b 2d |ias (quo|te yank-|
|00000ac0| 70 6f 70 2d 31 29 20 23 | 5b 6e 69 6c 20 22 c0 c1 |pop-1) #|[nil "..|
|00000ad0| 21 87 22 20 5b 79 61 6e | 6b 2d 70 6f 70 20 31 5d |!." [yan|k-pop 1]|
|00000ae0| 20 32 20 6e 69 6c 20 22 | 2a 22 5d 29 0a 28 64 65 | 2 nil "|*"]).(de|
|00000af0| 66 61 6c 69 61 73 20 27 | 62 67 2d 79 61 6e 6b 2d |falias '|bg-yank-|
|00000b00| 6f 72 2d 70 6f 70 20 23 | 5b 6e 69 6c 20 22 08 c1 |or-pop #|[nil "..|
|00000b10| 3d 83 5c 6e 00 c2 c3 21 | 87 c4 20 87 22 20 5b 6c |=.\n...!|.. ." [l|
|00000b20| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 20 79 61 6e 6b |ast-comm|and yank|
|00000b30| 20 79 61 6e 6b 2d 70 6f | 70 20 31 20 62 67 2d 79 | yank-po|p 1 bg-y|
|00000b40| 61 6e 6b 5d 20 32 20 22 | 5c 0a 4d 6f 76 65 20 70 |ank] 2 "|\.Move p|
|00000b50| 6f 69 6e 74 20 74 6f 20 | 6c 6f 63 61 74 69 6f 6e |oint to |location|
|00000b60| 20 6f 66 20 42 69 74 47 | 72 61 70 68 20 6d 6f 75 | of BitG|raph mou|
|00000b70| 73 65 20 61 6e 64 20 79 | 61 6e 6b 2e 20 20 49 66 |se and y|ank.  If|
|00000b80| 20 6c 61 73 74 20 63 6f | 6d 6d 61 6e 64 0a 77 61 | last co|mmand.wa|
|00000b90| 73 20 61 20 79 61 6e 6b | 2c 20 64 6f 20 61 20 79 |s a yank|, do a y|
|00000ba0| 61 6e 6b 2d 70 6f 70 2e | 22 20 22 2a 22 5d 29 0a |ank-pop.|" "*"]).|
|00000bb0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c0 87 |(byte-co|de "....|
|00000bc0| 22 20 5b 38 33 38 38 36 | 30 37 20 62 67 2d 6d 6f |" [83886|07 bg-mo|
|00000bd0| 73 74 2d 70 6f 73 69 74 | 69 76 65 2d 66 69 78 6e |st-posit|ive-fixn|
|00000be0| 75 6d 5d 20 31 29 0a 28 | 64 65 66 61 6c 69 61 73 |um] 1).(|defalias|
|00000bf0| 20 27 62 67 2d 6d 6f 76 | 65 2d 62 79 2d 70 65 72 | 'bg-mov|e-by-per|
|00000c00| 63 65 6e 74 61 67 65 20 | 23 5b 6e 69 6c 20 22 08 |centage |#[nil ".|
|00000c10| c1 55 83 5c 6e 00 c1 82 | 26 00 c2 20 0b 08 a5 57 |.U.\n...|&.. ...W|
|00000c20| 83 1e 00 08 c2 20 5f c4 | 20 53 a5 82 26 00 c2 20 |..... _.| S..&.. |
|00000c30| c4 20 53 a5 08 5f 62 88 | c1 79 88 c5 20 87 22 20 |. S.._b.|.y.. ." |
|00000c40| 5b 62 67 2d 6d 6f 75 73 | 65 2d 78 20 30 20 62 75 |[bg-mous|e-x 0 bu|
|00000c50| 66 66 65 72 2d 73 69 7a | 65 20 62 67 2d 6d 6f 73 |ffer-siz|e bg-mos|
|00000c60| 74 2d 70 6f 73 69 74 69 | 76 65 2d 66 69 78 6e 75 |t-positi|ve-fixnu|
|00000c70| 6d 20 77 69 6e 64 6f 77 | 2d 77 69 64 74 68 20 77 |m window|-width w|
|00000c80| 68 61 74 2d 63 75 72 73 | 6f 72 2d 70 6f 73 69 74 |hat-curs|or-posit|
|00000c90| 69 6f 6e 5d 20 33 20 22 | 5c 0a 47 6f 20 74 6f 20 |ion] 3 "|\.Go to |
|00000ca0| 6c 6f 63 61 74 69 6f 6e | 20 69 6e 20 62 75 66 66 |location| in buff|
|00000cb0| 65 72 20 74 68 61 74 20 | 69 73 20 74 68 65 20 73 |er that |is the s|
|00000cc0| 61 6d 65 20 70 65 72 63 | 65 6e 74 61 67 65 20 6f |ame perc|entage o|
|00000cd0| 66 20 74 68 65 20 77 61 | 79 0a 74 68 72 6f 75 67 |f the wa|y.throug|
|00000ce0| 68 20 74 68 65 20 62 75 | 66 66 65 72 20 61 73 20 |h the bu|ffer as |
|00000cf0| 74 68 65 20 42 69 74 47 | 72 61 70 68 20 6d 6f 75 |the BitG|raph mou|
|00000d00| 73 65 27 73 20 58 20 70 | 6f 73 69 74 69 6f 6e 20 |se's X p|osition |
|00000d10| 69 6e 20 74 68 65 20 77 | 69 6e 64 6f 77 2e 22 20 |in the w|indow." |
|00000d20| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000d30| 27 62 67 2d 6d 6f 75 73 | 65 2d 6c 69 6e 65 2d 74 |'bg-mous|e-line-t|
|00000d40| 6f 2d 74 6f 70 20 23 5b | 6e 69 6c 20 22 c0 09 21 |o-top #[|nil "..!|
|00000d50| 87 22 20 5b 73 63 72 6f | 6c 6c 2d 75 70 20 62 67 |." [scro|ll-up bg|
|00000d60| 2d 6d 6f 75 73 65 2d 79 | 5d 20 32 20 22 5c 0a 53 |-mouse-y|] 2 "\.S|
|00000d70| 63 72 6f 6c 6c 20 74 68 | 65 20 6c 69 6e 65 20 70 |croll th|e line p|
|00000d80| 6f 69 6e 74 65 64 20 74 | 6f 20 62 79 20 74 68 65 |ointed t|o by the|
|00000d90| 20 42 69 74 47 72 61 70 | 68 20 6d 6f 75 73 65 20 | BitGrap|h mouse |
|00000da0| 74 6f 20 74 68 65 20 74 | 6f 70 20 6f 66 20 74 68 |to the t|op of th|
|00000db0| 65 20 77 69 6e 64 6f 77 | 2e 22 20 6e 69 6c 5d 29 |e window|." nil])|
|00000dc0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 67 2d 6d |.(defali|as 'bg-m|
|00000dd0| 6f 75 73 65 2d 6c 69 6e | 65 2d 74 6f 2d 63 65 6e |ouse-lin|e-to-cen|
|00000de0| 74 65 72 20 23 5b 6e 69 | 6c 20 22 c0 09 89 c2 20 |ter #[ni|l ".... |
|00000df0| 5b c3 5c 5c 5c 5c 5c 5c | c3 a5 21 87 22 20 5b 73 |[.\\\\\\|..!." [s|
|00000e00| 63 72 6f 6c 6c 2d 75 70 | 20 62 67 2d 6d 6f 75 73 |croll-up| bg-mous|
|00000e10| 65 2d 79 20 77 69 6e 64 | 6f 77 2d 68 65 69 67 68 |e-y wind|ow-heigh|
|00000e20| 74 20 32 5d 20 35 20 22 | 5c 0a 53 63 72 6f 6c 6c |t 2] 5 "|\.Scroll|
|00000e30| 20 74 68 65 20 6c 69 6e | 65 20 70 6f 69 6e 74 65 | the lin|e pointe|
|00000e40| 64 20 74 6f 20 62 79 20 | 74 68 65 20 42 69 74 47 |d to by |the BitG|
|00000e50| 72 61 70 68 20 6d 6f 75 | 73 65 20 74 6f 20 74 68 |raph mou|se to th|
|00000e60| 65 20 63 65 6e 74 65 72 | 20 0a 6f 66 20 74 68 65 |e center| .of the|
|00000e70| 20 77 69 6e 64 6f 77 22 | 20 6e 69 6c 5d 29 0a 28 | window"| nil]).(|
|00000e80| 64 65 66 61 6c 69 61 73 | 20 27 62 67 2d 6d 6f 75 |defalias| 'bg-mou|
|00000e90| 73 65 2d 6c 69 6e 65 2d | 74 6f 2d 62 6f 74 74 6f |se-line-|to-botto|
|00000ea0| 6d 20 23 5b 6e 69 6c 20 | 22 c0 09 c2 c3 20 5a 5c |m #[nil |".... Z\|
|00000eb0| 5c 21 87 22 20 5b 73 63 | 72 6f 6c 6c 2d 75 70 20 |\!." [sc|roll-up |
|00000ec0| 62 67 2d 6d 6f 75 73 65 | 2d 79 20 32 20 77 69 6e |bg-mouse|-y 2 win|
|00000ed0| 64 6f 77 2d 68 65 69 67 | 68 74 5d 20 34 20 22 5c |dow-heig|ht] 4 "\|
|00000ee0| 0a 53 63 72 6f 6c 6c 20 | 74 68 65 20 6c 69 6e 65 |.Scroll |the line|
|00000ef0| 20 70 6f 69 6e 74 65 64 | 20 74 6f 20 62 79 20 74 | pointed| to by t|
|00000f00| 68 65 20 6d 6f 75 73 65 | 20 74 6f 20 74 68 65 20 |he mouse| to the |
|00000f10| 62 6f 74 74 6f 6d 20 6f | 66 20 74 68 65 20 77 69 |bottom o|f the wi|
|00000f20| 6e 64 6f 77 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ndow." n|il]).(de|
|00000f30| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 62 67 |falias (|quote bg|
|00000f40| 2d 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 29 20 23 5b |-kill-re|gion) #[|
|00000f50| 6e 69 6c 20 22 c0 c1 20 | c2 20 5c 22 87 22 20 5b |nil ".. |. \"." [|
|00000f60| 6b 69 6c 6c 2d 72 65 67 | 69 6f 6e 20 72 65 67 69 |kill-reg|ion regi|
|00000f70| 6f 6e 2d 62 65 67 69 6e | 6e 69 6e 67 20 72 65 67 |on-begin|ning reg|
|00000f80| 69 6f 6e 2d 65 6e 64 5d | 20 33 20 6e 69 6c 20 22 |ion-end]| 3 nil "|
|00000f90| 2a 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |*"]).(de|falias '|
|00000fa0| 62 67 2d 69 6e 73 65 72 | 74 2d 6d 6f 75 73 65 64 |bg-inser|t-moused|
|00000fb0| 2d 73 65 78 70 20 23 5b | 6e 69 6c 20 22 8a c0 09 |-sexp #[|nil "...|
|00000fc0| 5c 6e 5c 22 88 c3 c4 21 | 83 12 00 c5 75 88 82 16 |\n\"...!|....u...|
|00000fd0| 00 c6 c5 21 88 8a c7 c5 | 21 88 60 29 60 7b 29 1e |...!....|!.`)`{).|
|00000fe0| 08 c9 0e 5c 6e 21 88 cb | 20 88 6e 83 34 00 cc 20 |...\n!..| .n.4.. |
|00000ff0| 88 82 4a 00 8a cd 75 88 | c3 ce 21 3f 85 42 00 c3 |..J...u.|..!?.B..|
|00001000| cf 21 29 84 4a 00 d0 d1 | 21 88 d0 0e 08 21 88 6c |.!).J...|!....!.l|
|00001010| 86 6a 00 c3 d2 21 86 6a | 00 c3 d3 21 83 65 00 c3 |.j...!.j|...!.e..|
|00001020| d4 21 86 6a 00 8a d0 d1 | 21 29 29 87 22 20 5b 62 |.!.j....|!))." [b|
|00001030| 67 2d 6d 6f 76 65 2d 70 | 6f 69 6e 74 2d 74 6f 2d |g-move-p|oint-to-|
|00001040| 78 2d 79 20 62 67 2d 6d | 6f 75 73 65 2d 78 20 62 |x-y bg-m|ouse-x b|
|00001050| 67 2d 6d 6f 75 73 65 2d | 79 20 6c 6f 6f 6b 69 6e |g-mouse-|y lookin|
|00001060| 67 2d 61 74 20 22 5c 5c | 73 29 22 20 31 20 66 6f |g-at "\\|s)" 1 fo|
|00001070| 72 77 61 72 64 2d 73 65 | 78 70 20 62 61 63 6b 77 |rward-se|xp backw|
|00001080| 61 72 64 2d 73 65 78 70 | 20 6d 6f 75 73 65 64 2d |ard-sexp| moused-|
|00001090| 74 65 78 74 20 73 65 6c | 65 63 74 2d 77 69 6e 64 |text sel|ect-wind|
|000010a0| 6f 77 20 62 67 2d 63 75 | 72 73 6f 72 2d 77 69 6e |ow bg-cu|rsor-win|
|000010b0| 64 6f 77 20 64 65 6c 65 | 74 65 2d 68 6f 72 69 7a |dow dele|te-horiz|
|000010c0| 6f 6e 74 61 6c 2d 73 70 | 61 63 65 20 69 6e 64 65 |ontal-sp|ace inde|
|000010d0| 6e 74 2d 61 63 63 6f 72 | 64 69 6e 67 2d 74 6f 2d |nt-accor|ding-to-|
|000010e0| 6d 6f 64 65 20 2d 31 20 | 22 5c 5c 73 5c 22 22 20 |mode -1 |"\\s\"" |
|000010f0| 22 5b 60 27 5c 22 5c 5c | 5d 5c 5c 7c 5c 5c 73 28 |"[`'\"\\|]\\|\\s(|
|00001100| 22 20 69 6e 73 65 72 74 | 2d 73 74 72 69 6e 67 20 |" insert|-string |
|00001110| 22 20 22 20 22 5c 5c 73 | 2e 5c 5c 7c 5c 5c 73 29 |" " "\\s|.\\|\\s)|
|00001120| 22 20 22 27 22 20 22 5c | 5c 73 77 22 5d 20 33 20 |" "'" "\|\sw"] 3 |
|00001130| 22 5c 0a 49 6e 73 65 72 | 74 20 61 20 63 6f 70 79 |"\.Inser|t a copy|
|00001140| 20 6f 66 20 74 68 65 20 | 77 6f 72 64 20 28 61 63 | of the |word (ac|
|00001150| 74 75 61 6c 6c 79 20 73 | 65 78 70 29 20 74 68 61 |tually s|exp) tha|
|00001160| 74 20 74 68 65 20 6d 6f | 75 73 65 20 69 73 20 70 |t the mo|use is p|
|00001170| 6f 69 6e 74 69 6e 67 20 | 61 74 2e 0a 53 65 78 70 |ointing |at..Sexp|
|00001180| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 69 6e 74 | is inse|rted int|
|00001190| 6f 20 74 68 65 20 62 75 | 66 66 65 72 20 61 74 20 |o the bu|ffer at |
|000011a0| 70 6f 69 6e 74 20 28 77 | 68 65 72 65 20 74 68 65 |point (w|here the|
|000011b0| 20 74 65 78 74 20 63 75 | 72 73 6f 72 20 69 73 29 | text cu|rsor is)|
|000011c0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000011d0| 61 73 20 27 62 67 2d 67 | 65 74 2d 74 74 79 2d 6e |as 'bg-g|et-tty-n|
|000011e0| 75 6d 20 23 5b 28 74 65 | 72 6d 2d 63 68 61 72 29 |um #[(te|rm-char)|
|000011f0| 20 22 c0 c1 20 c2 5a 1b | 1c 0b c0 59 83 5c 22 00 | ".. .Z.|...Y.\".|
|00001200| 0b c5 58 83 5c 22 00 0c | c6 5f 0b 5c 5c 14 c1 20 |..X.\"..|._.\\.. |
|00001210| c2 5a 89 13 82 08 00 0e | 07 0b c2 5c 5c 3d 84 32 |.Z......|...\\=.2|
|00001220| 00 c8 20 88 c9 ca 21 88 | 0c 2a 87 22 20 5b 30 20 |.. ...!.|.*." [0 |
|00001230| 72 65 61 64 2d 63 68 61 | 72 20 34 38 20 63 68 61 |read-cha|r 48 cha|
|00001240| 72 20 6e 75 6d 20 39 20 | 31 30 20 74 65 72 6d 2d |r num 9 |10 term-|
|00001250| 63 68 61 72 20 62 67 2d | 70 72 6f 67 72 61 6d 2d |char bg-|program-|
|00001260| 6d 6f 75 73 65 20 65 72 | 72 6f 72 20 22 49 6e 76 |mouse er|ror "Inv|
|00001270| 61 6c 69 64 20 64 61 74 | 61 20 66 6f 72 6d 61 74 |alid dat|a format|
|00001280| 20 69 6e 20 62 67 2d 6d | 6f 75 73 65 20 63 6f 6d | in bg-m|ouse com|
|00001290| 6d 61 6e 64 3a 20 6d 6f | 75 73 65 20 72 65 69 6e |mand: mo|use rein|
|000012a0| 69 74 69 61 6c 69 7a 65 | 64 2e 22 5d 20 34 20 22 |itialize|d."] 4 "|
|000012b0| 5c 0a 52 65 61 64 20 66 | 72 6f 6d 20 74 65 72 6d |\.Read f|rom term|
|000012c0| 69 6e 61 6c 20 75 6e 74 | 69 6c 20 54 45 52 4d 2d |inal unt|il TERM-|
|000012d0| 43 48 41 52 20 69 73 20 | 72 65 61 64 2c 20 61 6e |CHAR is |read, an|
|000012e0| 64 20 72 65 74 75 72 6e | 20 69 6e 74 65 72 76 65 |d return| interve|
|000012f0| 6e 69 6e 67 20 6e 75 6d | 62 65 72 2e 0a 49 66 20 |ning num|ber..If |
|00001300| 6e 6f 6e 2d 6e 75 6d 65 | 72 69 63 20 6e 6f 74 20 |non-nume|ric not |
|00001310| 6d 61 74 63 68 69 6e 67 | 20 54 45 52 4d 2d 43 48 |matching| TERM-CH|
|00001320| 41 52 2c 20 72 65 70 72 | 6f 67 72 61 6d 20 74 68 |AR, repr|ogram th|
|00001330| 65 20 6d 6f 75 73 65 20 | 61 6e 64 20 73 69 67 6e |e mouse |and sign|
|00001340| 61 6c 20 61 6e 20 65 72 | 72 6f 72 2e 22 5d 29 0a |al an er|ror."]).|
|00001350| 28 64 65 66 61 6c 69 61 | 73 20 27 62 67 2d 6d 6f |(defalia|s 'bg-mo|
|00001360| 76 65 2d 70 6f 69 6e 74 | 2d 74 6f 2d 78 2d 79 20 |ve-point|-to-x-y |
|00001370| 23 5b 28 78 20 79 29 20 | 22 c0 09 21 88 69 c2 20 |#[(x y) |"..!.i. |
|00001380| 1b 1c 0b c5 56 83 12 00 | 0b 53 13 c6 0c 0b 0e 07 |....V...|.S......|
|00001390| 5c 5c 5c 5c 21 2a 87 22 | 20 5b 6d 6f 76 65 2d 74 |\\\\!*."| [move-t|
|000013a0| 6f 2d 77 69 6e 64 6f 77 | 2d 6c 69 6e 65 20 79 20 |o-window|-line y |
|000013b0| 77 69 6e 64 6f 77 2d 68 | 73 63 72 6f 6c 6c 20 73 |window-h|scroll s|
|000013c0| 63 72 6f 6c 6c 2d 6f 66 | 66 73 65 74 20 7a 65 72 |croll-of|fset zer|
|000013d0| 6f 2d 63 6f 6c 75 6d 6e | 20 30 20 6d 6f 76 65 2d |o-column| 0 move-|
|000013e0| 74 6f 2d 63 6f 6c 75 6d | 6e 20 78 5d 20 34 20 22 |to-colum|n x] 4 "|
|000013f0| 5c 0a 50 6f 73 69 74 69 | 6f 6e 20 63 75 72 73 6f |\.Positi|on curso|
|00001400| 72 20 69 6e 20 77 69 6e | 64 6f 77 20 63 6f 6f 72 |r in win|dow coor|
|00001410| 64 69 6e 61 74 65 73 2e | 0a 58 20 61 6e 64 20 59 |dinates.|.X and Y|
|00001420| 20 61 72 65 20 30 2d 62 | 61 73 65 64 20 63 68 61 | are 0-b|ased cha|
|00001430| 72 61 63 74 65 72 20 70 | 6f 73 69 74 69 6f 6e 73 |racter p|ositions|
|00001440| 20 69 6e 20 74 68 65 20 | 77 69 6e 64 6f 77 2e 22 | in the |window."|
|00001450| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 67 |]).(defa|lias 'bg|
|00001460| 2d 77 69 6e 64 6f 77 2d | 66 72 6f 6d 2d 78 2d 79 |-window-|from-x-y|
|00001470| 20 23 5b 28 78 20 79 29 | 20 22 c0 20 c1 1a 1b 5c | #[(x y)| ". ...\|
|00001480| 6e c4 20 3d 84 38 00 0d | 0b 41 40 57 84 2d 00 0d |n. =.8..|.A@W.-..|
|00001490| c6 0b 38 59 84 2d 00 0e | 07 0b 40 57 84 2d 00 0e |..8Y.-..|..@W.-..|
|000014a0| 07 c8 0b 38 59 83 38 00 | c9 5c 6e 21 12 c0 5c 6e |...8Y.8.|.\n!..\n|
|000014b0| 21 13 82 05 00 5c 6e c4 | 20 3d 83 43 00 c1 82 4d |!....\n.| =.C...M|
|000014c0| 00 5c 6e 84 4c 00 c4 20 | 82 4d 00 5c 6e 2a 87 22 |.\n.L.. |.M.\n*."|
|000014d0| 20 5b 77 69 6e 64 6f 77 | 2d 65 64 67 65 73 20 6e | [window|-edges n|
|000014e0| 69 6c 20 77 69 6e 64 6f | 77 20 65 64 67 65 73 20 |il windo|w edges |
|000014f0| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00001500| 79 20 33 20 78 20 32 20 | 6e 65 78 74 2d 77 69 6e |y 3 x 2 |next-win|
|00001510| 64 6f 77 5d 20 33 20 22 | 5c 0a 46 69 6e 64 20 77 |dow] 3 "|\.Find w|
|00001520| 69 6e 64 6f 77 20 63 6f | 72 72 65 73 70 6f 6e 64 |indow co|rrespond|
|00001530| 69 6e 67 20 74 6f 20 73 | 63 72 65 65 6e 20 63 6f |ing to s|creen co|
|00001540| 6f 72 64 69 6e 61 74 65 | 73 2e 0a 58 20 61 6e 64 |ordinate|s..X and|
|00001550| 20 59 20 61 72 65 20 30 | 2d 62 61 73 65 64 20 63 | Y are 0|-based c|
|00001560| 68 61 72 61 63 74 65 72 | 20 70 6f 73 69 74 69 6f |haracter| positio|
|00001570| 6e 73 20 6f 6e 20 74 68 | 65 20 73 63 72 65 65 6e |ns on th|e screen|
|00001580| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00001590| 22 c0 c1 c2 5c 22 88 c0 | c3 c4 5c 22 88 c5 0e 06 |"...\"..|..\"....|
|000015a0| 21 84 15 00 c7 20 16 06 | c0 87 22 20 5b 64 65 66 |!.... ..|.." [def|
|000015b0| 61 6c 69 61 73 20 62 67 | 2d 63 6f 6d 6d 61 6e 64 |alias bg|-command|
|000015c0| 2d 65 78 65 63 75 74 65 | 20 23 5b 28 62 67 2d 63 |-execute| #[(bg-c|
|000015d0| 6f 6d 6d 61 6e 64 29 20 | 22 c0 09 21 83 5c 6e 00 |ommand) |"..!.\n.|
|000015e0| c2 09 21 87 c3 20 87 22 | 20 5b 63 6f 6d 6d 61 6e |..!.. ."| [comman|
|000015f0| 64 70 20 62 67 2d 63 6f | 6d 6d 61 6e 64 20 63 6f |dp bg-co|mmand co|
|00001600| 6d 6d 61 6e 64 2d 65 78 | 65 63 75 74 65 20 64 69 |mmand-ex|ecute di|
|00001610| 6e 67 5d 20 32 5d 20 62 | 67 2d 70 72 6f 67 72 61 |ng] 2] b|g-progra|
|00001620| 6d 2d 6d 6f 75 73 65 20 | 23 5b 6e 69 6c 20 22 c0 |m-mouse |#[nil ".|
|00001630| c1 21 87 22 20 5b 73 65 | 6e 64 2d 73 74 72 69 6e |.!." [se|nd-strin|
|00001640| 67 2d 74 6f 2d 74 65 72 | 6d 69 6e 61 6c 20 22 1b |g-to-ter|minal ".|
|00001650| 3a 30 3b 37 3b 3b 3b 33 | 36 30 3b 35 31 32 3b 39 |:0;7;;;3|60;512;9|
|00001660| 3b 31 36 3b 39 3b 31 36 | 63 22 5d 20 32 5d 20 6b |;16;9;16|c"] 2] k|
|00001670| 65 79 6d 61 70 70 20 6d | 6f 75 73 65 2d 6d 61 70 |eymapp m|ouse-map|
|00001680| 20 6d 61 6b 65 2d 6b 65 | 79 6d 61 70 5d 20 33 29 | make-ke|ymap] 3)|
|00001690| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 69 6e 64 |.(defali|as 'bind|
|000016a0| 2d 62 67 2d 6d 6f 75 73 | 65 2d 63 6c 69 63 6b 20 |-bg-mous|e-click |
|000016b0| 23 5b 28 63 6c 69 63 6b | 2d 63 6f 64 65 20 66 75 |#[(click|-code fu|
|000016c0| 6e 63 74 69 6f 6e 29 20 | 22 c0 09 c2 0b 21 0c 23 |nction) |"....!.#|
|000016d0| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 6d |." [defi|ne-key m|
|000016e0| 6f 75 73 65 2d 6d 61 70 | 20 63 68 61 72 2d 74 6f |ouse-map| char-to|
|000016f0| 2d 73 74 72 69 6e 67 20 | 63 6c 69 63 6b 2d 63 6f |-string |click-co|
|00001700| 64 65 20 66 75 6e 63 74 | 69 6f 6e 5d 20 34 20 22 |de funct|ion] 4 "|
|00001710| 5c 0a 42 69 6e 64 20 62 | 67 2d 6d 6f 75 73 65 20 |\.Bind b|g-mouse |
|00001720| 43 4c 49 43 4b 2d 43 4f | 44 45 20 74 6f 20 72 75 |CLICK-CO|DE to ru|
|00001730| 6e 20 46 55 4e 43 54 49 | 4f 4e 2e 22 5d 29 0a 28 |n FUNCTI|ON."]).(|
|00001740| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 c2 5c 22 |byte-cod|e "...\"|
|00001750| 88 c0 0b c4 5c 22 88 c0 | 0d c6 5c 22 88 c0 09 0b |....\"..|..\"....|
|00001760| 5c 5c c7 5c 22 88 c0 09 | 0d 5c 5c c8 5c 22 88 c0 |\\.\"...|.\\.\"..|
|00001770| 0b 0d 5c 5c c9 5c 22 88 | c0 09 0b 0d 5c 5c 5c 5c |..\\.\".|....\\\\|
|00001780| c9 5c 22 88 c0 0e 5c 6e | 09 5c 5c cb 5c 22 88 c0 |.\"...\n|.\\.\"..|
|00001790| 0e 5c 6e 0b 5c 5c cc 5c | 22 88 c0 0e 5c 6e 0d 5c |.\n.\\.\|"...\n.\|
|000017a0| 5c cd 5c 22 88 c0 0e 0e | 09 5c 5c cf 5c 22 88 c0 |\.\"....|.\\.\"..|
|000017b0| 0e 0e 0b 5c 5c d0 5c 22 | 88 c0 0e 0e 0d 5c 5c d1 |...\\.\"|.....\\.|
|000017c0| 5c 22 88 c0 0e 12 09 5c | 5c d3 5c 22 88 c0 0e 12 |\".....\|\.\"....|
|000017d0| 0b 5c 5c d4 5c 22 88 c0 | 0e 12 0d 5c 5c d5 5c 22 |.\\.\"..|...\\.\"|
|000017e0| 88 d6 d7 21 87 22 20 5b | 62 69 6e 64 2d 62 67 2d |...!." [|bind-bg-|
|000017f0| 6d 6f 75 73 65 2d 63 6c | 69 63 6b 20 62 67 2d 62 |mouse-cl|ick bg-b|
|00001800| 75 74 74 6f 6e 2d 6c 20 | 62 67 2d 73 65 74 2d 70 |utton-l |bg-set-p|
|00001810| 6f 69 6e 74 20 62 67 2d | 62 75 74 74 6f 6e 2d 6d |oint bg-|button-m|
|00001820| 20 62 67 2d 79 61 6e 6b | 20 62 67 2d 62 75 74 74 | bg-yank| bg-butt|
|00001830| 6f 6e 2d 72 20 62 67 2d | 73 65 74 2d 6d 61 72 6b |on-r bg-|set-mark|
|00001840| 20 79 61 6e 6b 2d 70 6f | 70 2d 31 20 62 67 2d 6b | yank-po|p-1 bg-k|
|00001850| 69 6c 6c 2d 72 65 67 69 | 6f 6e 20 75 6e 64 6f 20 |ill-regi|on undo |
|00001860| 62 67 2d 69 6e 2d 6d 6f | 64 65 6c 69 6e 65 20 73 |bg-in-mo|deline s|
|00001870| 63 72 6f 6c 6c 2d 75 70 | 20 62 67 2d 6d 6f 76 65 |croll-up| bg-move|
|00001880| 2d 62 79 2d 70 65 72 63 | 65 6e 74 61 67 65 20 73 |-by-perc|entage s|
|00001890| 63 72 6f 6c 6c 2d 64 6f | 77 6e 20 62 67 2d 69 6e |croll-do|wn bg-in|
|000018a0| 2d 73 63 72 6f 6c 6c 62 | 61 72 20 62 67 2d 6d 6f |-scrollb|ar bg-mo|
|000018b0| 75 73 65 2d 6c 69 6e 65 | 2d 74 6f 2d 74 6f 70 20 |use-line|-to-top |
|000018c0| 62 67 2d 6d 6f 75 73 65 | 2d 6c 69 6e 65 2d 74 6f |bg-mouse|-line-to|
|000018d0| 2d 63 65 6e 74 65 72 20 | 62 67 2d 6d 6f 75 73 65 |-center |bg-mouse|
|000018e0| 2d 6c 69 6e 65 2d 74 6f | 2d 62 6f 74 74 6f 6d 20 |-line-to|-bottom |
|000018f0| 62 67 2d 69 6e 2d 6d 69 | 6e 69 62 75 66 20 65 78 |bg-in-mi|nibuf ex|
|00001900| 65 63 75 74 65 2d 65 78 | 74 65 6e 64 65 64 2d 63 |ecute-ex|tended-c|
|00001910| 6f 6d 6d 61 6e 64 20 73 | 75 73 70 65 6e 64 2d 65 |ommand s|uspend-e|
|00001920| 6d 61 63 73 20 65 76 61 | 6c 2d 65 78 70 72 65 73 |macs eva|l-expres|
|00001930| 73 69 6f 6e 20 70 72 6f | 76 69 64 65 20 62 67 2d |sion pro|vide bg-|
|00001940| 6d 6f 75 73 65 5d 20 34 | 29 0a                   |mouse] 4|).      |
+--------+-------------------------+-------------------------+--------+--------+