/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / packages / 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 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 34 3a 33 33 20 |Feb  1 1|9:04:33 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 62 67 |lisp/pac|kages/bg|
|00000080| 2d 6d 6f 75 73 65 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |-mouse.e|l.;;; em|
|00000090| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 34 |acs vers|ion 19.4|
|000000a0| 2e 31 33 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |.13 Luci|d..;;; b|
|000000b0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000c0| 32 2e 31 30 3b 20 20 31 | 2d 66 65 62 2d 39 33 2e |2.10;  1|-feb-93.|
|000000d0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000e0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000f0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000100| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000110| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 31 | exist i|n Emacs1|
|00000120| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000130| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000140| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000150| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000160| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000170| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000180| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000190| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001a0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001b0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001c0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 31 |piled fo|r Emacs1|
|000001d0| 39 2e 22 29 29 0a 0a 28 | 70 72 6f 76 69 64 65 20 |9."))..(|provide |
|000001e0| 27 62 67 2d 6d 6f 75 73 | 65 29 0a 28 64 65 66 76 |'bg-mous|e).(defv|
|000001f0| 61 72 20 62 67 2d 6d 6f | 75 73 65 2d 66 61 73 74 |ar bg-mo|use-fast|
|00000200| 2d 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 6e |-select-|window n|
|00000210| 69 6c 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 66 |il "\.*N|on-nil f|
|00000220| 6f 72 20 6d 6f 75 73 65 | 20 68 69 74 73 20 74 6f |or mouse| hits to|
|00000230| 20 73 65 6c 65 63 74 20 | 6e 65 77 20 77 69 6e 64 | select |new wind|
|00000240| 6f 77 2c 20 74 68 65 6e | 20 65 78 65 63 75 74 65 |ow, then| execute|
|00000250| 3b 20 65 6c 73 65 20 6a | 75 73 74 20 73 65 6c 65 |; else j|ust sele|
|00000260| 63 74 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ct.").(b|yte-code|
|00000270| 20 22 c0 11 c2 13 c2 14 | c5 16 06 c7 16 08 c9 16 | "......|........|
|00000280| 5c 6e cb 16 0c cd 16 0e | c0 87 22 20 5b 31 20 62 |\n......|.." [1 b|
|00000290| 67 2d 62 75 74 74 6f 6e | 2d 72 20 32 20 62 67 2d |g-button|-r 2 bg-|
|000002a0| 62 75 74 74 6f 6e 2d 6d | 20 62 67 2d 62 75 74 74 |button-m| bg-butt|
|000002b0| 6f 6e 2d 63 20 34 20 62 | 67 2d 62 75 74 74 6f 6e |on-c 4 b|g-button|
|000002c0| 2d 6c 20 38 20 62 67 2d | 69 6e 2d 6d 6f 64 65 6c |-l 8 bg-|in-model|
|000002d0| 69 6e 65 20 31 36 20 62 | 67 2d 69 6e 2d 73 63 72 |ine 16 b|g-in-scr|
|000002e0| 6f 6c 6c 62 61 72 20 32 | 34 20 62 67 2d 69 6e 2d |ollbar 2|4 bg-in-|
|000002f0| 6d 69 6e 69 62 75 66 20 | 35 39 20 73 65 6d 69 63 |minibuf |59 semic|
|00000300| 6f 6c 6f 6e 5d 20 31 29 | 0a 28 66 73 65 74 20 27 |olon] 1)|.(fset '|
|00000310| 62 67 2d 6d 6f 75 73 65 | 2d 72 65 70 6f 72 74 20 |bg-mouse|-report |
|00000320| 23 5b 28 70 72 65 66 69 | 78 2d 61 72 67 29 20 22 |#[(prefi|x-arg) "|
|00000330| c0 09 21 88 c2 20 53 c0 | 09 21 c3 a5 5e 1c c5 20 |..!.. S.|.!..^.. |
|00000340| 53 c0 09 21 c6 a5 5a 1e | 07 c0 c8 21 c9 a6 1e 5c |S..!..Z.|...!...\|
|00000350| 6e cb 0c 0e 07 5c 22 1e | 0c cd 20 1e 0e cf 0e 0c |n....\".|.. .....|
|00000360| 21 1e 10 0e 07 c5 20 53 | 55 89 1e 11 3f ad 88 0e |!..... S|U...?...|
|00000370| 07 d2 0e 10 38 53 55 1e | 13 0e 11 3f ad 8c 0e 13 |....8SU.|...?....|
|00000380| 3f ad 87 0c d4 0e 10 38 | 53 59 1e 15 0e 0c 0e 0e |?......8|SY......|
|00000390| 3d 1e 16 0e 11 ad 83 0e | 0c 3f 89 1e 17 ab 84 0e |=.......|.?......|
|000003a0| 18 aa 81 d9 0e 13 ab 84 | 0e 1a aa 81 d9 0e 15 ab |........|........|
|000003b0| 84 0e 1b aa 81 d9 5c 5c | 5c 5c 1e 1c dd 0e 1e df |......\\|\\......|
|000003c0| 0e 1c 0e 5c 6e 5c 5c 21 | 5c 22 1e 20 0c 0e 10 40 |...\n\\!|\". ...@|
|000003d0| 5a 1e 21 0e 07 0e 10 41 | 40 5a 1e 5c 22 0e 13 ac |Z.!....A|@Z.\"...|
|000003e0| 84 0e 15 ab 90 e3 0e 0c | 21 88 e4 0e 20 21 88 e3 |........|!... !..|
|000003f0| 0e 0e 21 aa 9b 0e 16 ac | 84 0e 17 ab 86 e4 0e 20 |..!.....|....... |
|00000400| 21 aa 8d e3 0e 0c 21 88 | 0e 25 ad 84 e4 0e 20 21 |!.....!.|.%.... !|
|00000410| 2e 0f 87 22 20 5b 62 67 | 2d 67 65 74 2d 74 74 79 |..." [bg|-get-tty|
|00000420| 2d 6e 75 6d 20 73 65 6d | 69 63 6f 6c 6f 6e 20 73 |-num sem|icolon s|
|00000430| 63 72 65 65 6e 2d 77 69 | 64 74 68 20 39 20 73 63 |creen-wi|dth 9 sc|
|00000440| 72 65 65 6e 2d 6d 6f 75 | 73 65 2d 78 20 73 63 72 |reen-mou|se-x scr|
|00000450| 65 65 6e 2d 68 65 69 67 | 68 74 20 31 36 20 73 63 |een-heig|ht 16 sc|
|00000460| 72 65 65 6e 2d 6d 6f 75 | 73 65 2d 79 20 39 39 20 |reen-mou|se-y 99 |
|00000470| 38 20 62 67 2d 6d 6f 75 | 73 65 2d 62 75 74 74 6f |8 bg-mou|se-butto|
|00000480| 6e 73 20 62 67 2d 77 69 | 6e 64 6f 77 2d 66 72 6f |ns bg-wi|ndow-fro|
|00000490| 6d 2d 78 2d 79 20 62 67 | 2d 6d 6f 75 73 65 2d 77 |m-x-y bg|-mouse-w|
|000004a0| 69 6e 64 6f 77 20 73 65 | 6c 65 63 74 65 64 2d 77 |indow se|lected-w|
|000004b0| 69 6e 64 6f 77 20 62 67 | 2d 63 75 72 73 6f 72 2d |indow bg|-cursor-|
|000004c0| 77 69 6e 64 6f 77 20 77 | 69 6e 64 6f 77 2d 65 64 |window w|indow-ed|
|000004d0| 67 65 73 20 65 64 67 65 | 73 20 6d 69 6e 69 62 75 |ges edge|s minibu|
|000004e0| 66 2d 70 20 33 20 69 6e | 2d 6d 6f 64 65 6c 69 6e |f-p 3 in|-modelin|
|000004f0| 65 2d 70 20 32 20 69 6e | 2d 73 63 72 6f 6c 6c 62 |e-p 2 in|-scrollb|
|00000500| 61 72 2d 70 20 73 61 6d | 65 2d 77 69 6e 64 6f 77 |ar-p sam|e-window|
|00000510| 2d 70 20 69 6e 2d 6d 69 | 6e 69 62 75 66 2d 70 20 |-p in-mi|nibuf-p |
|00000520| 62 67 2d 69 6e 2d 6d 69 | 6e 69 62 75 66 20 30 20 |bg-in-mi|nibuf 0 |
|00000530| 62 67 2d 69 6e 2d 6d 6f | 64 65 6c 69 6e 65 20 62 |bg-in-mo|deline b|
|00000540| 67 2d 69 6e 2d 73 63 72 | 6f 6c 6c 62 61 72 20 62 |g-in-scr|ollbar b|
|00000550| 67 2d 6d 6f 64 65 2d 62 | 69 74 73 20 6c 6f 6f 6b |g-mode-b|its look|
|00000560| 75 70 2d 6b 65 79 20 6d | 6f 75 73 65 2d 6d 61 70 |up-key m|ouse-map|
|00000570| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|00000580| 62 67 2d 63 6f 6d 6d 61 | 6e 64 20 62 67 2d 6d 6f |bg-comma|nd bg-mo|
|00000590| 75 73 65 2d 78 20 62 67 | 2d 6d 6f 75 73 65 2d 79 |use-x bg|-mouse-y|
|000005a0| 20 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 62 | select-|window b|
|000005b0| 67 2d 63 6f 6d 6d 61 6e | 64 2d 65 78 65 63 75 74 |g-comman|d-execut|
|000005c0| 65 20 62 67 2d 6d 6f 75 | 73 65 2d 66 61 73 74 2d |e bg-mou|se-fast-|
|000005d0| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 5d 20 36 |select-w|indow] 6|
|000005e0| 20 22 5c 0a 52 65 61 64 | 2c 20 70 61 72 73 65 2c | "\.Read|, parse,|
|000005f0| 20 61 6e 64 20 65 78 65 | 63 75 74 65 20 61 20 42 | and exe|cute a B|
|00000600| 42 4e 20 42 69 74 47 72 | 61 70 68 20 6d 6f 75 73 |BN BitGr|aph mous|
|00000610| 65 20 63 6c 69 63 6b 2e | 0a 0a 4c 2d 2d 20 6d 6f |e click.|..L-- mo|
|00000620| 76 65 20 70 6f 69 6e 74 | 20 20 20 20 20 20 20 20 |ve point|        |
|00000630| 20 20 20 20 20 7c 20 54 | 68 65 73 65 20 61 70 70 |     | T|hese app|
|00000640| 6c 79 20 66 6f 72 20 6d | 6f 75 73 65 20 63 6c 69 |ly for m|ouse cli|
|00000650| 63 6b 20 69 6e 20 61 20 | 77 69 6e 64 6f 77 2e 0a |ck in a |window..|
|00000660| 2d 2d 52 20 73 65 74 20 | 6d 61 72 6b 20 20 20 20 |--R set |mark    |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 7c 20 49 66 20 |        |   | If |
|00000680| 62 67 2d 6d 6f 75 73 65 | 2d 66 61 73 74 2d 73 65 |bg-mouse|-fast-se|
|00000690| 6c 65 63 74 2d 77 69 6e | 64 6f 77 20 69 73 20 6e |lect-win|dow is n|
|000006a0| 69 6c 2c 0a 4c 2d 52 20 | 6b 69 6c 6c 20 72 65 67 |il,.L-R |kill reg|
|000006b0| 69 6f 6e 20 20 20 20 20 | 20 20 20 20 20 20 20 7c |ion     |       ||
|000006c0| 20 74 68 65 73 65 20 63 | 6f 6d 6d 61 6e 64 73 20 | these c|ommands |
|000006d0| 6f 6e 20 61 20 6e 6f 6e | 73 65 6c 65 63 74 65 64 |on a non|selected|
|000006e0| 20 77 69 6e 64 6f 77 0a | 2d 43 2d 20 6d 6f 76 65 | window.|-C- move|
|000006f0| 20 70 6f 69 6e 74 20 61 | 6e 64 20 79 61 6e 6b 20 | point a|nd yank |
|00000700| 20 20 20 7c 20 6a 75 73 | 74 20 73 65 6c 65 63 74 |   | jus|t select|
|00000710| 20 74 68 61 74 20 77 69 | 6e 64 6f 77 2e 0a 4c 43 | that wi|ndow..LC|
|00000720| 2d 20 79 61 6e 6b 2d 70 | 6f 70 09 09 20 20 20 7c |- yank-p|op..   ||
|00000730| 0a 2d 43 52 20 6f 72 20 | 4c 43 52 20 75 6e 64 6f |.-CR or |LCR undo|
|00000740| 09 09 20 20 20 7c 20 5c | 22 53 63 72 6f 6c 6c 20 |..   | \|"Scroll |
|00000750| 62 61 72 5c 22 20 69 73 | 20 72 69 67 68 74 2d 68 |bar\" is| right-h|
|00000760| 61 6e 64 20 77 69 6e 64 | 6f 77 20 63 6f 6c 75 6d |and wind|ow colum|
|00000770| 6e 2e 0a 0a 6f 6e 20 6d | 6f 64 65 6c 69 6e 65 3a |n...on m|odeline:|
|00000780| 09 09 20 20 20 20 6f 6e | 20 5c 22 73 63 72 6f 6c |..    on| \"scrol|
|00000790| 6c 20 62 61 72 5c 22 3a | 09 69 6e 20 6d 69 6e 69 |l bar\":|.in mini|
|000007a0| 62 75 66 66 65 72 3a 0a | 4c 2d 2d 20 73 63 72 6f |buffer:.|L-- scro|
|000007b0| 6c 6c 2d 75 70 09 09 20 | 20 20 20 6c 69 6e 65 20 |ll-up.. |   line |
|000007c0| 74 6f 20 74 6f 70 09 09 | 65 78 65 63 75 74 65 2d |to top..|execute-|
|000007d0| 65 78 74 65 6e 64 65 64 | 2d 63 6f 6d 6d 61 6e 64 |extended|-command|
|000007e0| 0a 2d 2d 52 20 73 63 72 | 6f 6c 6c 2d 64 6f 77 6e |.--R scr|oll-down|
|000007f0| 09 09 20 20 20 20 6c 69 | 6e 65 20 74 6f 20 62 6f |..    li|ne to bo|
|00000800| 74 74 6f 6d 09 65 76 61 | 6c 2d 65 78 70 72 65 73 |ttom.eva|l-expres|
|00000810| 73 69 6f 6e 0a 2d 43 2d | 20 70 72 6f 70 6f 72 74 |sion.-C-| proport|
|00000820| 69 6f 6e 61 6c 20 67 6f | 74 6f 2d 63 68 61 72 20 |ional go|to-char |
|00000830| 20 6c 69 6e 65 20 74 6f | 20 6d 69 64 64 6c 65 09 | line to| middle.|
|00000840| 73 75 73 70 65 6e 64 2d | 65 6d 61 63 73 0a 0a 54 |suspend-|emacs..T|
|00000850| 6f 20 72 65 69 6e 69 74 | 69 61 6c 69 7a 65 20 74 |o reinit|ialize t|
|00000860| 68 65 20 6d 6f 75 73 65 | 20 69 66 20 74 68 65 20 |he mouse| if the |
|00000870| 74 65 72 6d 69 6e 61 6c | 20 69 73 20 72 65 73 65 |terminal| is rese|
|00000880| 74 2c 20 74 79 70 65 20 | 45 53 43 20 3a 20 52 45 |t, type |ESC : RE|
|00000890| 54 22 20 22 50 22 5d 29 | 0a 28 66 73 65 74 20 27 |T" "P"])|.(fset '|
|000008a0| 62 67 2d 73 65 74 2d 70 | 6f 69 6e 74 20 23 5b 6e |bg-set-p|oint #[n|
|000008b0| 69 6c 20 22 c0 09 5c 6e | 5c 22 88 c3 14 09 89 15 |il "..\n|\"......|
|000008c0| 87 22 20 5b 62 67 2d 6d | 6f 76 65 2d 70 6f 69 6e |." [bg-m|ove-poin|
|000008d0| 74 2d 74 6f 2d 78 2d 79 | 20 62 67 2d 6d 6f 75 73 |t-to-x-y| bg-mous|
|000008e0| 65 2d 78 20 62 67 2d 6d | 6f 75 73 65 2d 79 20 6e |e-x bg-m|ouse-y n|
|000008f0| 65 78 74 2d 6c 69 6e 65 | 20 74 68 69 73 2d 63 6f |ext-line| this-co|
|00000900| 6d 6d 61 6e 64 20 74 65 | 6d 70 6f 72 61 72 79 2d |mmand te|mporary-|
|00000910| 67 6f 61 6c 2d 63 6f 6c | 75 6d 6e 5d 20 33 20 22 |goal-col|umn] 3 "|
|00000920| 5c 0a 4d 6f 76 65 20 70 | 6f 69 6e 74 20 74 6f 20 |\.Move p|oint to |
|00000930| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 42 69 74 47 |location| of BitG|
|00000940| 72 61 70 68 20 6d 6f 75 | 73 65 2e 22 20 6e 69 6c |raph mou|se." nil|
|00000950| 5d 29 0a 28 66 73 65 74 | 20 27 62 67 2d 73 65 74 |]).(fset| 'bg-set|
|00000960| 2d 6d 61 72 6b 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mark #[|nil ". .|
|00000970| c1 5c 6e 0b 5c 22 88 c4 | 20 87 22 20 5b 70 75 73 |.\n.\"..| ." [pus|
|00000980| 68 2d 6d 61 72 6b 20 62 | 67 2d 6d 6f 76 65 2d 70 |h-mark b|g-move-p|
|00000990| 6f 69 6e 74 2d 74 6f 2d | 78 2d 79 20 62 67 2d 6d |oint-to-|x-y bg-m|
|000009a0| 6f 75 73 65 2d 78 20 62 | 67 2d 6d 6f 75 73 65 2d |ouse-x b|g-mouse-|
|000009b0| 79 20 65 78 63 68 61 6e | 67 65 2d 70 6f 69 6e 74 |y exchan|ge-point|
|000009c0| 2d 61 6e 64 2d 6d 61 72 | 6b 5d 20 33 20 22 5c 0a |-and-mar|k] 3 "\.|
|000009d0| 53 65 74 20 6d 61 72 6b | 20 61 74 20 6c 6f 63 61 |Set mark| at loca|
|000009e0| 74 69 6f 6e 20 6f 66 20 | 42 69 74 47 72 61 70 68 |tion of |BitGraph|
|000009f0| 20 6d 6f 75 73 65 2e 22 | 20 6e 69 6c 5d 29 0a 28 | mouse."| nil]).(|
|00000a00| 66 73 65 74 20 27 62 67 | 2d 79 61 6e 6b 20 23 5b |fset 'bg|-yank #[|
|00000a10| 6e 69 6c 20 22 c0 09 5c | 6e 5c 22 88 c3 14 c3 20 |nil "..\|n\".... |
|00000a20| 87 22 20 5b 62 67 2d 6d | 6f 76 65 2d 70 6f 69 6e |." [bg-m|ove-poin|
|00000a30| 74 2d 74 6f 2d 78 2d 79 | 20 62 67 2d 6d 6f 75 73 |t-to-x-y| bg-mous|
|00000a40| 65 2d 78 20 62 67 2d 6d | 6f 75 73 65 2d 79 20 79 |e-x bg-m|ouse-y y|
|00000a50| 61 6e 6b 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |ank this|-command|
|00000a60| 5d 20 33 20 22 5c 0a 4d | 6f 76 65 20 70 6f 69 6e |] 3 "\.M|ove poin|
|00000a70| 74 20 74 6f 20 6c 6f 63 | 61 74 69 6f 6e 20 6f 66 |t to loc|ation of|
|00000a80| 20 42 69 74 47 72 61 70 | 68 20 6d 6f 75 73 65 20 | BitGrap|h mouse |
|00000a90| 61 6e 64 20 79 61 6e 6b | 2e 22 20 22 2a 22 5d 29 |and yank|." "*"])|
|00000aa0| 0a 28 66 73 65 74 20 27 | 79 61 6e 6b 2d 70 6f 70 |.(fset '|yank-pop|
|00000ab0| 2d 31 20 23 5b 6e 69 6c | 20 22 c0 c1 21 87 22 20 |-1 #[nil| "..!." |
|00000ac0| 5b 79 61 6e 6b 2d 70 6f | 70 20 31 5d 20 32 20 6e |[yank-po|p 1] 2 n|
|00000ad0| 69 6c 20 22 2a 22 5d 29 | 0a 28 66 73 65 74 20 27 |il "*"])|.(fset '|
|00000ae0| 62 67 2d 79 61 6e 6b 2d | 6f 72 2d 70 6f 70 20 23 |bg-yank-|or-pop #|
|00000af0| 5b 6e 69 6c 20 22 08 c1 | 3d ab 84 c2 c3 21 87 c4 |[nil "..|=....!..|
|00000b00| 20 87 22 20 5b 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e | ." [las|t-comman|
|00000b10| 64 20 79 61 6e 6b 20 79 | 61 6e 6b 2d 70 6f 70 20 |d yank y|ank-pop |
|00000b20| 31 20 62 67 2d 79 61 6e | 6b 5d 20 32 20 22 5c 0a |1 bg-yan|k] 2 "\.|
|00000b30| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 74 6f 20 6c 6f |Move poi|nt to lo|
|00000b40| 63 61 74 69 6f 6e 20 6f | 66 20 42 69 74 47 72 61 |cation o|f BitGra|
|00000b50| 70 68 20 6d 6f 75 73 65 | 20 61 6e 64 20 79 61 6e |ph mouse| and yan|
|00000b60| 6b 20 6f 72 20 79 61 6e | 6b 2d 70 6f 70 2e 0a 44 |k or yan|k-pop..D|
|00000b70| 6f 20 61 20 79 61 6e 6b | 20 75 6e 6c 65 73 73 20 |o a yank| unless |
|00000b80| 6c 61 73 74 20 63 6f 6d | 6d 61 6e 64 20 77 61 73 |last com|mand was|
|00000b90| 20 61 20 79 61 6e 6b 2c | 20 69 6e 20 77 68 69 63 | a yank,| in whic|
|00000ba0| 68 20 63 61 73 65 20 64 | 6f 20 61 20 79 61 6e 6b |h case d|o a yank|
|00000bb0| 2d 70 6f 70 2e 22 20 22 | 2a 22 5d 29 0a 28 62 79 |-pop." "|*"]).(by|
|00000bc0| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c0 87 22 20 5b |te-code |"...." [|
|00000bd0| 38 33 38 38 36 30 37 20 | 62 67 2d 6d 6f 73 74 2d |8388607 |bg-most-|
|00000be0| 70 6f 73 69 74 69 76 65 | 2d 66 69 78 6e 75 6d 5d |positive|-fixnum]|
|00000bf0| 20 31 29 0a 28 66 73 65 | 74 20 27 62 67 2d 6d 6f | 1).(fse|t 'bg-mo|
|00000c00| 76 65 2d 62 79 2d 70 65 | 72 63 65 6e 74 61 67 65 |ve-by-pe|rcentage|
|00000c10| 20 23 5b 6e 69 6c 20 22 | 08 c1 55 ab 83 c1 aa 9a | #[nil "|..U.....|
|00000c20| c2 20 0b 08 a5 57 ab 8a | 08 c2 20 5f c4 20 53 a5 |. ...W..|.. _. S.|
|00000c30| aa 88 c2 20 c4 20 53 a5 | 08 5f 62 88 c1 79 88 c5 |... . S.|._b..y..|
|00000c40| 20 87 22 20 5b 62 67 2d | 6d 6f 75 73 65 2d 78 20 | ." [bg-|mouse-x |
|00000c50| 30 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 62 67 |0 buffer|-size bg|
|00000c60| 2d 6d 6f 73 74 2d 70 6f | 73 69 74 69 76 65 2d 66 |-most-po|sitive-f|
|00000c70| 69 78 6e 75 6d 20 77 69 | 6e 64 6f 77 2d 77 69 64 |ixnum wi|ndow-wid|
|00000c80| 74 68 20 77 68 61 74 2d | 63 75 72 73 6f 72 2d 70 |th what-|cursor-p|
|00000c90| 6f 73 69 74 69 6f 6e 5d | 20 33 20 22 5c 0a 47 6f |osition]| 3 "\.Go|
|00000ca0| 20 74 6f 20 6c 6f 63 61 | 74 69 6f 6e 20 69 6e 20 | to loca|tion in |
|00000cb0| 62 75 66 66 65 72 20 74 | 68 61 74 20 69 73 20 74 |buffer t|hat is t|
|00000cc0| 68 65 20 73 61 6d 65 20 | 70 65 72 63 65 6e 74 61 |he same |percenta|
|00000cd0| 67 65 20 6f 66 20 74 68 | 65 0a 77 61 79 20 74 68 |ge of th|e.way th|
|00000ce0| 72 6f 75 67 68 20 74 68 | 65 20 62 75 66 66 65 72 |rough th|e buffer|
|00000cf0| 20 61 73 20 74 68 65 20 | 42 69 74 47 72 61 70 68 | as the |BitGraph|
|00000d00| 20 6d 6f 75 73 65 27 73 | 20 58 20 70 6f 73 69 74 | mouse's| X posit|
|00000d10| 69 6f 6e 20 69 6e 20 74 | 68 65 20 77 69 6e 64 6f |ion in t|he windo|
|00000d20| 77 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |w." nil]|).(fset |
|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 66 73 65 74 20 27 | 62 67 2d 6d 6f 75 73 65 |.(fset '|bg-mouse|
|00000dd0| 2d 6c 69 6e 65 2d 74 6f | 2d 63 65 6e 74 65 72 20 |-line-to|-center |
|00000de0| 23 5b 6e 69 6c 20 22 c0 | 09 89 c2 20 5b c3 5c 5c |#[nil ".|... [.\\|
|00000df0| 5c 5c 5c 5c c3 a5 21 87 | 22 20 5b 73 63 72 6f 6c |\\\\..!.|" [scrol|
|00000e00| 6c 2d 75 70 20 62 67 2d | 6d 6f 75 73 65 2d 79 20 |l-up bg-|mouse-y |
|00000e10| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 32 5d |window-h|eight 2]|
|00000e20| 20 35 20 22 5c 0a 53 63 | 72 6f 6c 6c 20 74 68 65 | 5 "\.Sc|roll the|
|00000e30| 20 6c 69 6e 65 20 70 6f | 69 6e 74 65 64 20 74 6f | line po|inted to|
|00000e40| 20 62 79 20 74 68 65 20 | 42 69 74 47 72 61 70 68 | by the |BitGraph|
|00000e50| 20 6d 6f 75 73 65 20 74 | 6f 20 74 68 65 20 63 65 | mouse t|o the ce|
|00000e60| 6e 74 65 72 20 0a 6f 66 | 20 74 68 65 20 77 69 6e |nter .of| the win|
|00000e70| 64 6f 77 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |dow" nil|]).(fset|
|00000e80| 20 27 62 67 2d 6d 6f 75 | 73 65 2d 6c 69 6e 65 2d | 'bg-mou|se-line-|
|00000e90| 74 6f 2d 62 6f 74 74 6f | 6d 20 23 5b 6e 69 6c 20 |to-botto|m #[nil |
|00000ea0| 22 c0 09 c2 c3 20 5a 5c | 5c 21 87 22 20 5b 73 63 |".... Z\|\!." [sc|
|00000eb0| 72 6f 6c 6c 2d 75 70 20 | 62 67 2d 6d 6f 75 73 65 |roll-up |bg-mouse|
|00000ec0| 2d 79 20 32 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |-y 2 win|dow-heig|
|00000ed0| 68 74 5d 20 34 20 22 5c | 0a 53 63 72 6f 6c 6c 20 |ht] 4 "\|.Scroll |
|00000ee0| 74 68 65 20 6c 69 6e 65 | 20 70 6f 69 6e 74 65 64 |the line| pointed|
|00000ef0| 20 74 6f 20 62 79 20 74 | 68 65 20 6d 6f 75 73 65 | to by t|he mouse|
|00000f00| 20 74 6f 20 74 68 65 20 | 62 6f 74 74 6f 6d 20 6f | to the |bottom o|
|00000f10| 66 20 74 68 65 20 77 69 | 6e 64 6f 77 2e 22 20 6e |f the wi|ndow." n|
|00000f20| 69 6c 5d 29 0a 28 66 73 | 65 74 20 27 62 67 2d 6b |il]).(fs|et 'bg-k|
|00000f30| 69 6c 6c 2d 72 65 67 69 | 6f 6e 20 23 5b 6e 69 6c |ill-regi|on #[nil|
|00000f40| 20 22 c0 c1 20 c2 20 5c | 22 87 22 20 5b 6b 69 6c | ".. . \|"." [kil|
|00000f50| 6c 2d 72 65 67 69 6f 6e | 20 72 65 67 69 6f 6e 2d |l-region| region-|
|00000f60| 62 65 67 69 6e 6e 69 6e | 67 20 72 65 67 69 6f 6e |beginnin|g region|
|00000f70| 2d 65 6e 64 5d 20 33 20 | 6e 69 6c 20 22 2a 22 5d |-end] 3 |nil "*"]|
|00000f80| 29 0a 28 66 73 65 74 20 | 27 62 67 2d 69 6e 73 65 |).(fset |'bg-inse|
|00000f90| 72 74 2d 6d 6f 75 73 65 | 64 2d 73 65 78 70 20 23 |rt-mouse|d-sexp #|
|00000fa0| 5b 6e 69 6c 20 22 8a c0 | 09 5c 6e 5c 22 88 c3 c4 |[nil "..|.\n\"...|
|00000fb0| 21 88 8a c5 c4 21 88 60 | 29 60 7b 29 1e 06 c7 0e |!....!.`|)`{)....|
|00000fc0| 08 21 88 c9 20 88 6e ab | 85 ca 20 88 aa 94 8a cb |.!.. .n.|.. .....|
|00000fd0| 75 88 cc cd 21 3f ad 83 | cc ce 21 29 ac 84 cf d0 |u...!?..|..!)....|
|00000fe0| 21 88 cf 0e 06 21 88 6c | ae 94 cc d1 21 ae 8f cc |!....!.l|....!...|
|00000ff0| d2 21 ab 85 cc d3 21 ae | 85 8a cf d0 21 29 29 87 |.!....!.|....!)).|
|00001000| 22 20 5b 62 67 2d 6d 6f | 76 65 2d 70 6f 69 6e 74 |" [bg-mo|ve-point|
|00001010| 2d 74 6f 2d 78 2d 79 20 | 62 67 2d 6d 6f 75 73 65 |-to-x-y |bg-mouse|
|00001020| 2d 78 20 62 67 2d 6d 6f | 75 73 65 2d 79 20 66 6f |-x bg-mo|use-y fo|
|00001030| 72 77 61 72 64 2d 73 65 | 78 70 20 31 20 62 61 63 |rward-se|xp 1 bac|
|00001040| 6b 77 61 72 64 2d 73 65 | 78 70 20 6d 6f 75 73 65 |kward-se|xp mouse|
|00001050| 64 2d 74 65 78 74 20 73 | 65 6c 65 63 74 2d 77 69 |d-text s|elect-wi|
|00001060| 6e 64 6f 77 20 62 67 2d | 63 75 72 73 6f 72 2d 77 |ndow bg-|cursor-w|
|00001070| 69 6e 64 6f 77 20 64 65 | 6c 65 74 65 2d 68 6f 72 |indow de|lete-hor|
|00001080| 69 7a 6f 6e 74 61 6c 2d | 73 70 61 63 65 20 69 6e |izontal-|space in|
|00001090| 64 65 6e 74 2d 61 63 63 | 6f 72 64 69 6e 67 2d 74 |dent-acc|ording-t|
|000010a0| 6f 2d 6d 6f 64 65 20 2d | 31 20 6c 6f 6f 6b 69 6e |o-mode -|1 lookin|
|000010b0| 67 2d 61 74 20 22 5c 5c | 73 5c 22 22 20 22 5b 60 |g-at "\\|s\"" "[`|
|000010c0| 27 5c 22 5c 5c 5d 5c 5c | 7c 5c 5c 73 28 22 20 69 |'\"\\]\\||\\s(" i|
|000010d0| 6e 73 65 72 74 2d 73 74 | 72 69 6e 67 20 22 20 22 |nsert-st|ring " "|
|000010e0| 20 22 5c 5c 73 2e 5c 5c | 7c 5c 5c 73 29 22 20 22 | "\\s.\\||\\s)" "|
|000010f0| 27 22 20 22 5c 5c 73 77 | 22 5d 20 33 20 22 5c 0a |'" "\\sw|"] 3 "\.|
|00001100| 49 6e 73 65 72 74 20 61 | 20 63 6f 70 79 20 6f 66 |Insert a| copy of|
|00001110| 20 74 68 65 20 77 6f 72 | 64 20 28 61 63 74 75 61 | the wor|d (actua|
|00001120| 6c 6c 79 20 73 65 78 70 | 29 20 74 68 61 74 20 74 |lly sexp|) that t|
|00001130| 68 65 20 6d 6f 75 73 65 | 20 69 73 20 70 6f 69 6e |he mouse| is poin|
|00001140| 74 69 6e 67 20 61 74 2e | 0a 53 65 78 70 20 69 73 |ting at.|.Sexp is|
|00001150| 20 69 6e 73 65 72 74 65 | 64 20 69 6e 74 6f 20 74 | inserte|d into t|
|00001160| 68 65 20 62 75 66 66 65 | 72 20 61 74 20 70 6f 69 |he buffe|r at poi|
|00001170| 6e 74 20 28 77 68 65 72 | 65 20 74 68 65 20 74 65 |nt (wher|e the te|
|00001180| 78 74 20 63 75 72 73 6f | 72 20 69 73 29 2e 0a 42 |xt curso|r is)..B|
|00001190| 79 20 67 69 6c 64 65 61 | 20 37 20 46 65 62 20 38 |y gildea| 7 Feb 8|
|000011a0| 39 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |9" nil])|.(fset '|
|000011b0| 62 67 2d 67 65 74 2d 74 | 74 79 2d 6e 75 6d 20 23 |bg-get-t|ty-num #|
|000011c0| 5b 28 74 65 72 6d 2d 63 | 68 61 72 29 20 22 c0 c1 |[(term-c|har) "..|
|000011d0| 20 c2 5a 1b 1c 0b c0 59 | ab 93 0b c5 58 ab 8e 0c | .Z....Y|....X...|
|000011e0| c6 5f 0b 5c 5c 14 c1 20 | c2 5a 89 13 aa 69 0e 07 |._.\\.. |.Z...i..|
|000011f0| 0b c2 5c 5c 3d ac 87 c8 | 20 88 c9 ca 21 88 0c 2a |..\\=...| ...!..*|
|00001200| 87 22 20 5b 30 20 72 65 | 61 64 2d 63 68 61 72 20 |." [0 re|ad-char |
|00001210| 34 38 20 63 68 61 72 20 | 6e 75 6d 20 39 20 31 30 |48 char |num 9 10|
|00001220| 20 74 65 72 6d 2d 63 68 | 61 72 20 62 67 2d 70 72 | term-ch|ar bg-pr|
|00001230| 6f 67 72 61 6d 2d 6d 6f | 75 73 65 20 65 72 72 6f |ogram-mo|use erro|
|00001240| 72 20 22 49 6e 76 61 6c | 69 64 20 64 61 74 61 20 |r "Inval|id data |
|00001250| 66 6f 72 6d 61 74 20 69 | 6e 20 62 67 2d 6d 6f 75 |format i|n bg-mou|
|00001260| 73 65 20 63 6f 6d 6d 61 | 6e 64 3a 20 6d 6f 75 73 |se comma|nd: mous|
|00001270| 65 20 72 65 69 6e 69 74 | 69 61 6c 69 7a 65 64 2e |e reinit|ialized.|
|00001280| 22 5d 20 34 20 22 5c 0a | 52 65 61 64 20 66 72 6f |"] 4 "\.|Read fro|
|00001290| 6d 20 74 65 72 6d 69 6e | 61 6c 20 75 6e 74 69 6c |m termin|al until|
|000012a0| 20 54 45 52 4d 2d 43 48 | 41 52 20 69 73 20 72 65 | TERM-CH|AR is re|
|000012b0| 61 64 2c 20 61 6e 64 20 | 72 65 74 75 72 6e 20 69 |ad, and |return i|
|000012c0| 6e 74 65 72 76 65 6e 69 | 6e 67 20 6e 75 6d 62 65 |nterveni|ng numbe|
|000012d0| 72 2e 0a 49 66 20 6e 6f | 6e 2d 6e 75 6d 65 72 69 |r..If no|n-numeri|
|000012e0| 63 20 6e 6f 74 20 6d 61 | 74 63 68 69 6e 67 20 54 |c not ma|tching T|
|000012f0| 45 52 4d 2d 43 48 41 52 | 2c 20 72 65 70 72 6f 67 |ERM-CHAR|, reprog|
|00001300| 72 61 6d 20 74 68 65 20 | 6d 6f 75 73 65 20 61 6e |ram the |mouse an|
|00001310| 64 20 73 69 67 6e 61 6c | 20 61 6e 20 65 72 72 6f |d signal| an erro|
|00001320| 72 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 62 67 2d |r."]).(f|set 'bg-|
|00001330| 6d 6f 76 65 2d 70 6f 69 | 6e 74 2d 74 6f 2d 78 2d |move-poi|nt-to-x-|
|00001340| 79 20 23 5b 28 78 20 79 | 29 20 22 c0 09 21 88 69 |y #[(x y|) "..!.i|
|00001350| c2 20 1b 1c 0b c5 56 ab | 83 0b 53 13 c6 0c 0b 0e |. ....V.|..S.....|
|00001360| 07 5c 5c 5c 5c 21 2a 87 | 22 20 5b 6d 6f 76 65 2d |.\\\\!*.|" [move-|
|00001370| 74 6f 2d 77 69 6e 64 6f | 77 2d 6c 69 6e 65 20 79 |to-windo|w-line y|
|00001380| 20 77 69 6e 64 6f 77 2d | 68 73 63 72 6f 6c 6c 20 | window-|hscroll |
|00001390| 73 63 72 6f 6c 6c 2d 6f | 66 66 73 65 74 20 7a 65 |scroll-o|ffset ze|
|000013a0| 72 6f 2d 63 6f 6c 75 6d | 6e 20 30 20 6d 6f 76 65 |ro-colum|n 0 move|
|000013b0| 2d 74 6f 2d 63 6f 6c 75 | 6d 6e 20 78 5d 20 34 20 |-to-colu|mn x] 4 |
|000013c0| 22 5c 0a 50 6f 73 69 74 | 69 6f 6e 20 63 75 72 73 |"\.Posit|ion curs|
|000013d0| 6f 72 20 69 6e 20 77 69 | 6e 64 6f 77 20 63 6f 6f |or in wi|ndow coo|
|000013e0| 72 64 69 6e 61 74 65 73 | 2e 0a 58 20 61 6e 64 20 |rdinates|..X and |
|000013f0| 59 20 61 72 65 20 30 2d | 62 61 73 65 64 20 63 68 |Y are 0-|based ch|
|00001400| 61 72 61 63 74 65 72 20 | 70 6f 73 69 74 69 6f 6e |aracter |position|
|00001410| 73 20 69 6e 20 74 68 65 | 20 77 69 6e 64 6f 77 2e |s in the| window.|
|00001420| 22 5d 29 0a 28 66 73 65 | 74 20 27 62 67 2d 77 69 |"]).(fse|t 'bg-wi|
|00001430| 6e 64 6f 77 2d 66 72 6f | 6d 2d 78 2d 79 20 23 5b |ndow-fro|m-x-y #[|
|00001440| 28 78 20 79 29 20 22 c0 | 20 c1 1a 1b 5c 6e c4 20 |(x y) ".| ...\n. |
|00001450| 3d ac a7 0d 0b 41 40 57 | ac 96 0d c6 0b 38 59 ac |=....A@W|.....8Y.|
|00001460| 8f 0e 07 0b 40 57 ac 88 | 0e 07 c8 0b 38 59 ab 8a |....@W..|....8Y..|
|00001470| c9 5c 6e 21 12 c0 5c 6e | 21 13 aa 53 5c 6e c4 20 |.\n!..\n|!..S\n. |
|00001480| 3d ab 83 c1 aa 88 5c 6e | ac 84 c4 20 aa 81 5c 6e |=.....\n|... ..\n|
|00001490| 2a 87 22 20 5b 77 69 6e | 64 6f 77 2d 65 64 67 65 |*." [win|dow-edge|
|000014a0| 73 20 6e 69 6c 20 77 69 | 6e 64 6f 77 20 65 64 67 |s nil wi|ndow edg|
|000014b0| 65 73 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |es selec|ted-wind|
|000014c0| 6f 77 20 79 20 33 20 78 | 20 32 20 6e 65 78 74 2d |ow y 3 x| 2 next-|
|000014d0| 77 69 6e 64 6f 77 5d 20 | 33 20 22 5c 0a 46 69 6e |window] |3 "\.Fin|
|000014e0| 64 20 77 69 6e 64 6f 77 | 20 63 6f 72 72 65 73 70 |d window| corresp|
|000014f0| 6f 6e 64 69 6e 67 20 74 | 6f 20 73 63 72 65 65 6e |onding t|o screen|
|00001500| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 2e 0a 58 20 | coordin|ates..X |
|00001510| 61 6e 64 20 59 20 61 72 | 65 20 30 2d 62 61 73 65 |and Y ar|e 0-base|
|00001520| 64 20 63 68 61 72 61 63 | 74 65 72 20 70 6f 73 69 |d charac|ter posi|
|00001530| 74 69 6f 6e 73 20 6f 6e | 20 74 68 65 20 73 63 72 |tions on| the scr|
|00001540| 65 65 6e 2e 22 5d 29 0a | 28 62 79 74 65 2d 63 6f |een."]).|(byte-co|
|00001550| 64 65 20 22 c0 c1 4d 88 | c2 c3 4d 88 c4 0d 21 ac |de "..M.|..M...!.|
|00001560| 83 c6 20 15 c0 87 22 20 | 5b 62 67 2d 63 6f 6d 6d |.. ..." |[bg-comm|
|00001570| 61 6e 64 2d 65 78 65 63 | 75 74 65 20 23 5b 28 62 |and-exec|ute #[(b|
|00001580| 67 2d 63 6f 6d 6d 61 6e | 64 29 20 22 c0 09 21 ab |g-comman|d) "..!.|
|00001590| 84 c2 09 21 87 c3 20 87 | 22 20 5b 63 6f 6d 6d 61 |...!.. .|" [comma|
|000015a0| 6e 64 70 20 62 67 2d 63 | 6f 6d 6d 61 6e 64 20 63 |ndp bg-c|ommand c|
|000015b0| 6f 6d 6d 61 6e 64 2d 65 | 78 65 63 75 74 65 20 64 |ommand-e|xecute d|
|000015c0| 69 6e 67 5d 20 32 5d 20 | 62 67 2d 70 72 6f 67 72 |ing] 2] |bg-progr|
|000015d0| 61 6d 2d 6d 6f 75 73 65 | 20 23 5b 6e 69 6c 20 22 |am-mouse| #[nil "|
|000015e0| c0 c1 21 87 22 20 5b 73 | 65 6e 64 2d 73 74 72 69 |..!." [s|end-stri|
|000015f0| 6e 67 2d 74 6f 2d 74 65 | 72 6d 69 6e 61 6c 20 22 |ng-to-te|rminal "|
|00001600| 1b 3a 30 3b 37 3b 3b 3b | 33 36 30 3b 35 31 32 3b |.:0;7;;;|360;512;|
|00001610| 39 3b 31 36 3b 39 3b 31 | 36 63 22 5d 20 32 5d 20 |9;16;9;1|6c"] 2] |
|00001620| 6b 65 79 6d 61 70 70 20 | 6d 6f 75 73 65 2d 6d 61 |keymapp |mouse-ma|
|00001630| 70 20 6d 61 6b 65 2d 6b | 65 79 6d 61 70 5d 20 32 |p make-k|eymap] 2|
|00001640| 29 0a 28 66 73 65 74 20 | 27 62 69 6e 64 2d 62 67 |).(fset |'bind-bg|
|00001650| 2d 6d 6f 75 73 65 2d 63 | 6c 69 63 6b 20 23 5b 28 |-mouse-c|lick #[(|
|00001660| 63 6c 69 63 6b 2d 63 6f | 64 65 20 66 75 6e 63 74 |click-co|de funct|
|00001670| 69 6f 6e 29 20 22 c0 09 | c2 0b 21 0c 23 87 22 20 |ion) "..|..!.#." |
|00001680| 5b 64 65 66 69 6e 65 2d | 6b 65 79 20 6d 6f 75 73 |[define-|key mous|
|00001690| 65 2d 6d 61 70 20 63 68 | 61 72 2d 74 6f 2d 73 74 |e-map ch|ar-to-st|
|000016a0| 72 69 6e 67 20 63 6c 69 | 63 6b 2d 63 6f 64 65 20 |ring cli|ck-code |
|000016b0| 66 75 6e 63 74 69 6f 6e | 5d 20 34 20 22 5c 0a 42 |function|] 4 "\.B|
|000016c0| 69 6e 64 20 62 67 2d 6d | 6f 75 73 65 20 43 4c 49 |ind bg-m|ouse CLI|
|000016d0| 43 4b 2d 43 4f 44 45 20 | 74 6f 20 72 75 6e 20 46 |CK-CODE |to run F|
|000016e0| 55 4e 43 54 49 4f 4e 2e | 22 5d 29 0a 28 62 79 74 |UNCTION.|"]).(byt|
|000016f0| 65 2d 63 6f 64 65 20 22 | c0 09 c2 5c 22 88 c0 0b |e-code "|...\"...|
|00001700| c4 5c 22 88 c0 0d c6 5c | 22 88 c0 09 0b 5c 5c c7 |.\"....\|"....\\.|
|00001710| 5c 22 88 c0 09 0d 5c 5c | c8 5c 22 88 c0 0b 0d 5c |\"....\\|.\"....\|
|00001720| 5c c9 5c 22 88 c0 09 0b | 0d 5c 5c 5c 5c c9 5c 22 |\.\"....|.\\\\.\"|
|00001730| 88 c0 0e 5c 6e 09 5c 5c | cb 5c 22 88 c0 0e 5c 6e |...\n.\\|.\"...\n|
|00001740| 0b 5c 5c cc 5c 22 88 c0 | 0e 5c 6e 0d 5c 5c cd 5c |.\\.\"..|.\n.\\.\|
|00001750| 22 88 c0 0e 0e 09 5c 5c | cf 5c 22 88 c0 0e 0e 0b |".....\\|.\".....|
|00001760| 5c 5c d0 5c 22 88 c0 0e | 0e 0d 5c 5c d1 5c 22 88 |\\.\"...|..\\.\".|
|00001770| c0 0e 12 09 5c 5c d3 5c | 22 88 c0 0e 12 0b 5c 5c |....\\.\|".....\\|
|00001780| d4 5c 22 88 c0 0e 12 0d | 5c 5c d5 5c 22 87 22 20 |.\".....|\\.\"." |
|00001790| 5b 62 69 6e 64 2d 62 67 | 2d 6d 6f 75 73 65 2d 63 |[bind-bg|-mouse-c|
|000017a0| 6c 69 63 6b 20 62 67 2d | 62 75 74 74 6f 6e 2d 6c |lick bg-|button-l|
|000017b0| 20 62 67 2d 73 65 74 2d | 70 6f 69 6e 74 20 62 67 | bg-set-|point bg|
|000017c0| 2d 62 75 74 74 6f 6e 2d | 6d 20 62 67 2d 79 61 6e |-button-|m bg-yan|
|000017d0| 6b 20 62 67 2d 62 75 74 | 74 6f 6e 2d 72 20 62 67 |k bg-but|ton-r bg|
|000017e0| 2d 73 65 74 2d 6d 61 72 | 6b 20 79 61 6e 6b 2d 70 |-set-mar|k yank-p|
|000017f0| 6f 70 2d 31 20 62 67 2d | 6b 69 6c 6c 2d 72 65 67 |op-1 bg-|kill-reg|
|00001800| 69 6f 6e 20 75 6e 64 6f | 20 62 67 2d 69 6e 2d 6d |ion undo| bg-in-m|
|00001810| 6f 64 65 6c 69 6e 65 20 | 73 63 72 6f 6c 6c 2d 75 |odeline |scroll-u|
|00001820| 70 20 62 67 2d 6d 6f 76 | 65 2d 62 79 2d 70 65 72 |p bg-mov|e-by-per|
|00001830| 63 65 6e 74 61 67 65 20 | 73 63 72 6f 6c 6c 2d 64 |centage |scroll-d|
|00001840| 6f 77 6e 20 62 67 2d 69 | 6e 2d 73 63 72 6f 6c 6c |own bg-i|n-scroll|
|00001850| 62 61 72 20 62 67 2d 6d | 6f 75 73 65 2d 6c 69 6e |bar bg-m|ouse-lin|
|00001860| 65 2d 74 6f 2d 74 6f 70 | 20 62 67 2d 6d 6f 75 73 |e-to-top| bg-mous|
|00001870| 65 2d 6c 69 6e 65 2d 74 | 6f 2d 63 65 6e 74 65 72 |e-line-t|o-center|
|00001880| 20 62 67 2d 6d 6f 75 73 | 65 2d 6c 69 6e 65 2d 74 | bg-mous|e-line-t|
|00001890| 6f 2d 62 6f 74 74 6f 6d | 20 62 67 2d 69 6e 2d 6d |o-bottom| bg-in-m|
|000018a0| 69 6e 69 62 75 66 20 65 | 78 65 63 75 74 65 2d 65 |inibuf e|xecute-e|
|000018b0| 78 74 65 6e 64 65 64 2d | 63 6f 6d 6d 61 6e 64 20 |xtended-|command |
|000018c0| 73 75 73 70 65 6e 64 2d | 65 6d 61 63 73 20 65 76 |suspend-|emacs ev|
|000018d0| 61 6c 2d 65 78 70 72 65 | 73 73 69 6f 6e 5d 20 34 |al-expre|ssion] 4|
|000018e0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+