/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / prim / 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 6c 7a 40 61 73 68 |piled by| jlz@ash|
|00000020| 77 65 64 6e 65 73 64 61 | 79 20 6f 6e 20 57 65 64 |wednesda|y on Wed|
|00000030| 20 4d 61 72 20 32 34 20 | 31 37 3a 31 37 3a 32 39 | Mar 24 |17:17:29|
|00000040| 20 31 39 39 33 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1993.;;|; from f|
|00000050| 69 6c 65 20 2f 63 61 64 | 69 6c 6c 61 63 2d 61 77 |ile /cad|illac-aw|
|00000060| 32 2f 74 65 73 74 62 69 | 6e 2d 62 75 69 6c 64 73 |2/testbi|n-builds|
|00000070| 2f 6c 65 6d 61 63 73 2f | 6c 69 73 70 2f 70 72 69 |/lemacs/|lisp/pri|
|00000080| 6d 2f 6d 6f 75 73 65 2e | 65 6c 0a 3b 3b 3b 20 65 |m/mouse.|el.;;; e|
|00000090| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000a0| 36 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |6 Lucid.|.;;; byt|
|000000b0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000c0| 31 30 3b 20 31 36 2d 66 | 65 62 2d 39 33 2e 0a 3b |10; 16-f|eb-93..;|
|000000d0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000e0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000f0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000100| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000110| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 31 38 2e |xist in |Emacs18.|
|00000120| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000130| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000140| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000160| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000170| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000180| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000190| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 22 29 29 29 |-version| "19")))|
|000001a0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 54 68 69 |.    (er|ror "Thi|
|000001b0| 73 20 66 69 6c 65 20 77 | 61 73 20 63 6f 6d 70 69 |s file w|as compi|
|000001c0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 31 39 2e |led for |Emacs19.|
|000001d0| 22 29 29 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |"))..(by|te-code |
|000001e0| 22 c0 c1 21 88 c2 c3 21 | 88 c4 c5 c6 5c 22 88 c4 |"..!...!|....\"..|
|000001f0| c7 c8 5c 22 88 c4 c9 ca | 5c 22 88 c4 cb cc 5c 22 |..\"....|\"....\"|
|00000200| 87 22 20 5b 70 72 6f 76 | 69 64 65 20 6d 6f 75 73 |." [prov|ide mous|
|00000210| 65 20 72 65 71 75 69 72 | 65 20 6d 6f 64 65 2d 6d |e requir|e mode-m|
|00000220| 6f 74 69 6f 6e 20 67 6c | 6f 62 61 6c 2d 73 65 74 |otion gl|obal-set|
|00000230| 2d 6b 65 79 20 62 75 74 | 74 6f 6e 31 20 6d 6f 75 |-key but|ton1 mou|
|00000240| 73 65 2d 74 72 61 63 6b | 20 28 73 68 69 66 74 20 |se-track| (shift |
|00000250| 62 75 74 74 6f 6e 31 29 | 20 6d 6f 75 73 65 2d 74 |button1)| mouse-t|
|00000260| 72 61 63 6b 2d 61 64 6a | 75 73 74 20 28 63 6f 6e |rack-adj|ust (con|
|00000270| 74 72 6f 6c 20 62 75 74 | 74 6f 6e 31 29 20 6d 6f |trol but|ton1) mo|
|00000280| 75 73 65 2d 74 72 61 63 | 6b 2d 69 6e 73 65 72 74 |use-trac|k-insert|
|00000290| 20 28 63 6f 6e 74 72 6f | 6c 20 73 68 69 66 74 20 | (contro|l shift |
|000002a0| 62 75 74 74 6f 6e 31 29 | 20 6d 6f 75 73 65 2d 74 |button1)| mouse-t|
|000002b0| 72 61 63 6b 2d 64 65 6c | 65 74 65 2d 61 6e 64 2d |rack-del|ete-and-|
|000002c0| 69 6e 73 65 72 74 5d 20 | 33 29 0a 28 64 65 66 75 |insert] |3).(defu|
|000002d0| 6e 20 6d 6f 75 73 65 2d | 73 65 6c 65 63 74 20 6e |n mouse-|select n|
|000002e0| 69 6c 20 22 5c 0a 53 65 | 6c 65 63 74 20 45 6d 61 |il "\.Se|lect Ema|
|000002f0| 63 73 20 77 69 6e 64 6f | 77 20 74 68 65 20 6d 6f |cs windo|w the mo|
|00000300| 75 73 65 20 69 73 20 6f | 6e 2e 22 20 28 69 6e 74 |use is o|n." (int|
|00000310| 65 72 61 63 74 69 76 65 | 20 22 40 22 29 29 0a 28 |eractive| "@")).(|
|00000320| 66 73 65 74 20 27 6d 6f | 75 73 65 2d 64 65 6c 65 |fset 'mo|use-dele|
|00000330| 74 65 2d 77 69 6e 64 6f | 77 20 23 5b 6e 69 6c 20 |te-windo|w #[nil |
|00000340| 22 c0 20 87 22 20 5b 64 | 65 6c 65 74 65 2d 77 69 |". ." [d|elete-wi|
|00000350| 6e 64 6f 77 5d 20 31 20 | 22 5c 0a 44 65 6c 65 74 |ndow] 1 |"\.Delet|
|00000360| 65 20 74 68 65 20 45 6d | 61 63 73 20 77 69 6e 64 |e the Em|acs wind|
|00000370| 6f 77 20 74 68 65 20 6d | 6f 75 73 65 20 69 73 20 |ow the m|ouse is |
|00000380| 6f 6e 2e 22 20 22 40 22 | 5d 29 0a 28 66 73 65 74 |on." "@"|]).(fset|
|00000390| 20 27 6d 6f 75 73 65 2d | 6b 65 65 70 2d 6f 6e 65 | 'mouse-|keep-one|
|000003a0| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|000003b0| 20 87 22 20 5b 64 65 6c | 65 74 65 2d 6f 74 68 65 | ." [del|ete-othe|
|000003c0| 72 2d 77 69 6e 64 6f 77 | 73 5d 20 31 20 22 5c 0a |r-window|s] 1 "\.|
|000003d0| 53 65 6c 65 63 74 20 45 | 6d 61 63 73 20 77 69 6e |Select E|macs win|
|000003e0| 64 6f 77 20 6d 6f 75 73 | 65 20 69 73 20 6f 6e 2c |dow mous|e is on,|
|000003f0| 20 74 68 65 6e 20 6b 69 | 6c 6c 20 61 6c 6c 20 6f | then ki|ll all o|
|00000400| 74 68 65 72 20 45 6d 61 | 63 73 20 77 69 6e 64 6f |ther Ema|cs windo|
|00000410| 77 73 2e 22 20 22 40 22 | 5d 29 0a 28 66 73 65 74 |ws." "@"|]).(fset|
|00000420| 20 27 6d 6f 75 73 65 2d | 73 65 6c 65 63 74 2d 61 | 'mouse-|select-a|
|00000430| 6e 64 2d 73 70 6c 69 74 | 20 23 5b 6e 69 6c 20 22 |nd-split| #[nil "|
|00000440| c0 c1 21 87 22 20 5b 73 | 70 6c 69 74 2d 77 69 6e |..!." [s|plit-win|
|00000450| 64 6f 77 2d 76 65 72 74 | 69 63 61 6c 6c 79 20 6e |dow-vert|ically n|
|00000460| 69 6c 5d 20 32 20 22 5c | 0a 53 65 6c 65 63 74 20 |il] 2 "\|.Select |
|00000470| 45 6d 61 63 73 20 77 69 | 6e 64 6f 77 20 6d 6f 75 |Emacs wi|ndow mou|
|00000480| 73 65 20 69 73 20 6f 6e | 2c 20 74 68 65 6e 20 73 |se is on|, then s|
|00000490| 70 6c 69 74 20 69 74 20 | 76 65 72 74 69 63 61 6c |plit it |vertical|
|000004a0| 6c 79 20 69 6e 20 68 61 | 6c 66 2e 22 20 22 40 22 |ly in ha|lf." "@"|
|000004b0| 5d 29 0a 28 66 73 65 74 | 20 27 6d 6f 75 73 65 2d |]).(fset| 'mouse-|
|000004c0| 73 65 74 2d 70 6f 69 6e | 74 20 23 5b 28 65 76 65 |set-poin|t #[(eve|
|000004d0| 6e 74 29 20 22 c0 09 21 | c2 09 21 1b 89 1c ac 84 |nt) "..!|..!.....|
|000004e0| c5 c6 21 88 c7 0c 21 88 | 0b ab 89 0b c8 56 ab 84 |..!...!.|.....V..|
|000004f0| 0b 62 aa 9d c9 ca 09 21 | cb 0c 21 41 40 5a 21 c8 |.b.....!|..!A@Z!.|
|00000500| 56 ab 84 cc 7f aa 8a cd | ce 09 21 cb 0c 21 40 5a |V.......|..!..!@Z|
|00000510| 21 2a 87 22 20 5b 65 76 | 65 6e 74 2d 77 69 6e 64 |!*." [ev|ent-wind|
|00000520| 6f 77 20 65 76 65 6e 74 | 20 65 76 65 6e 74 2d 70 |ow event| event-p|
|00000530| 6f 69 6e 74 20 70 6f 73 | 20 77 69 6e 64 6f 77 20 |oint pos| window |
|00000540| 65 72 72 6f 72 20 22 6e | 6f 74 20 69 6e 20 61 20 |error "n|ot in a |
|00000550| 77 69 6e 64 6f 77 22 20 | 73 65 6c 65 63 74 2d 77 |window" |select-w|
|00000560| 69 6e 64 6f 77 20 30 20 | 6d 6f 76 65 2d 74 6f 2d |indow 0 |move-to-|
|00000570| 77 69 6e 64 6f 77 2d 6c | 69 6e 65 20 65 76 65 6e |window-l|ine even|
|00000580| 74 2d 79 20 77 69 6e 64 | 6f 77 2d 65 64 67 65 73 |t-y wind|ow-edges|
|00000590| 20 6e 69 6c 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c | nil mov|e-to-col|
|000005a0| 75 6d 6e 20 65 76 65 6e | 74 2d 78 5d 20 35 20 22 |umn even|t-x] 5 "|
|000005b0| 5c 0a 53 65 6c 65 63 74 | 20 45 6d 61 63 73 20 77 |\.Select| Emacs w|
|000005c0| 69 6e 64 6f 77 20 6d 6f | 75 73 65 20 69 73 20 6f |indow mo|use is o|
|000005d0| 6e 2c 20 61 6e 64 20 6d | 6f 76 65 20 70 6f 69 6e |n, and m|ove poin|
|000005e0| 74 20 74 6f 20 6d 6f 75 | 73 65 20 70 6f 73 69 74 |t to mou|se posit|
|000005f0| 69 6f 6e 2e 22 20 22 40 | 65 22 5d 29 0a 28 66 73 |ion." "@|e"]).(fs|
|00000600| 65 74 20 27 6d 6f 75 73 | 65 2d 65 76 61 6c 2d 6c |et 'mous|e-eval-l|
|00000610| 61 73 74 2d 73 65 78 70 | 72 20 23 5b 28 65 76 65 |ast-sexp|r #[(eve|
|00000620| 6e 74 29 20 22 8a c0 09 | 21 88 c2 c3 21 29 87 22 |nt) "...|!...!)."|
|00000630| 20 5b 6d 6f 75 73 65 2d | 73 65 74 2d 70 6f 69 6e | [mouse-|set-poin|
|00000640| 74 20 65 76 65 6e 74 20 | 65 76 61 6c 2d 6c 61 73 |t event |eval-las|
|00000650| 74 2d 73 65 78 70 20 6e | 69 6c 5d 20 32 20 6e 69 |t-sexp n|il] 2 ni|
|00000660| 6c 20 22 40 65 22 5d 29 | 0a 28 66 73 65 74 20 27 |l "@e"])|.(fset '|
|00000670| 6d 6f 75 73 65 2d 6c 69 | 6e 65 2d 6c 65 6e 67 74 |mouse-li|ne-lengt|
|00000680| 68 20 23 5b 28 65 76 65 | 6e 74 29 20 22 8a c0 09 |h #[(eve|nt) "...|
|00000690| 21 88 c2 c3 c4 7f 88 60 | c5 79 88 60 5a 5c 22 88 |!......`|.y.`Z\".|
|000006a0| 29 c6 c7 21 87 22 20 5b | 6d 6f 75 73 65 2d 73 65 |)..!." [|mouse-se|
|000006b0| 74 2d 70 6f 69 6e 74 20 | 65 76 65 6e 74 20 6d 65 |t-point |event me|
|000006c0| 73 73 61 67 65 20 22 4c | 69 6e 65 20 6c 65 6e 67 |ssage "L|ine leng|
|000006d0| 74 68 3a 20 25 64 22 20 | 6e 69 6c 20 30 20 73 6c |th: %d" |nil 0 sl|
|000006e0| 65 65 70 2d 66 6f 72 20 | 31 5d 20 34 20 22 5c 0a |eep-for |1] 4 "\.|
|000006f0| 50 72 69 6e 74 20 74 68 | 65 20 6c 65 6e 67 74 68 |Print th|e length|
|00000700| 20 6f 66 20 74 68 65 20 | 6c 69 6e 65 20 69 6e 64 | of the |line ind|
|00000710| 69 63 61 74 65 64 20 62 | 79 20 74 68 65 20 70 6f |icated b|y the po|
|00000720| 69 6e 74 65 72 2e 22 20 | 22 40 65 22 5d 29 0a 28 |inter." |"@e"]).(|
|00000730| 66 73 65 74 20 27 6d 6f | 75 73 65 2d 73 65 74 2d |fset 'mo|use-set-|
|00000740| 6d 61 72 6b 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |mark #[(|event) "|
|00000750| 60 18 c1 8e c2 0b 21 88 | c4 c5 c6 5c 22 88 c7 c8 |`.....!.|...\"...|
|00000760| 21 2a 87 22 20 5b 70 6f | 69 6e 74 2d 73 61 76 65 |!*." [po|int-save|
|00000770| 20 28 28 67 6f 74 6f 2d | 63 68 61 72 20 70 6f 69 | ((goto-|char poi|
|00000780| 6e 74 2d 73 61 76 65 29 | 29 20 6d 6f 75 73 65 2d |nt-save)|) mouse-|
|00000790| 73 65 74 2d 70 6f 69 6e | 74 20 65 76 65 6e 74 20 |set-poin|t event |
|000007a0| 70 75 73 68 2d 6d 61 72 | 6b 20 6e 69 6c 20 74 20 |push-mar|k nil t |
|000007b0| 73 69 74 2d 66 6f 72 20 | 31 5d 20 33 20 22 5c 0a |sit-for |1] 3 "\.|
|000007c0| 53 65 6c 65 63 74 20 45 | 6d 61 63 73 20 77 69 6e |Select E|macs win|
|000007d0| 64 6f 77 20 6d 6f 75 73 | 65 20 69 73 20 6f 6e 2c |dow mous|e is on,|
|000007e0| 20 61 6e 64 20 73 65 74 | 20 6d 61 72 6b 20 61 74 | and set| mark at|
|000007f0| 20 6d 6f 75 73 65 20 70 | 6f 73 69 74 69 6f 6e 2e | mouse p|osition.|
|00000800| 0a 44 69 73 70 6c 61 79 | 20 63 75 72 73 6f 72 20 |.Display| cursor |
|00000810| 61 74 20 74 68 61 74 20 | 70 6f 73 69 74 69 6f 6e |at that |position|
|00000820| 20 66 6f 72 20 61 20 73 | 65 63 6f 6e 64 2e 22 20 | for a s|econd." |
|00000830| 22 40 65 22 5d 29 0a 28 | 66 73 65 74 20 27 6d 6f |"@e"]).(|fset 'mo|
|00000840| 75 73 65 2d 73 63 72 6f | 6c 6c 20 23 5b 28 65 76 |use-scro|ll #[(ev|
|00000850| 65 6e 74 29 20 22 8a c0 | 09 21 88 c2 c3 21 88 c4 |ent) "..|.!...!..|
|00000860| c5 09 21 21 29 87 22 20 | 5b 6d 6f 75 73 65 2d 73 |..!!)." |[mouse-s|
|00000870| 65 74 2d 70 6f 69 6e 74 | 20 65 76 65 6e 74 20 72 |et-point| event r|
|00000880| 65 63 65 6e 74 65 72 20 | 30 20 73 63 72 6f 6c 6c |ecenter |0 scroll|
|00000890| 2d 72 69 67 68 74 20 65 | 76 65 6e 74 2d 78 5d 20 |-right e|vent-x] |
|000008a0| 33 20 22 5c 0a 53 63 72 | 6f 6c 6c 20 70 6f 69 6e |3 "\.Scr|oll poin|
|000008b0| 74 20 74 6f 20 74 68 65 | 20 6d 6f 75 73 65 20 70 |t to the| mouse p|
|000008c0| 6f 73 69 74 69 6f 6e 2e | 22 20 22 40 65 22 5d 29 |osition.|" "@e"])|
|000008d0| 0a 28 66 73 65 74 20 27 | 6d 6f 75 73 65 2d 64 65 |.(fset '|mouse-de|
|000008e0| 6c 2d 63 68 61 72 20 23 | 5b 28 65 76 65 6e 74 29 |l-char #|[(event)|
|000008f0| 20 22 8a c0 09 21 88 c2 | c3 c4 5c 22 29 87 22 20 | "...!..|..\")." |
|00000900| 5b 6d 6f 75 73 65 2d 73 | 65 74 2d 70 6f 69 6e 74 |[mouse-s|et-point|
|00000910| 20 65 76 65 6e 74 20 64 | 65 6c 65 74 65 2d 63 68 | event d|elete-ch|
|00000920| 61 72 20 31 20 6e 69 6c | 5d 20 33 20 22 5c 0a 44 |ar 1 nil|] 3 "\.D|
|00000930| 65 6c 65 74 65 20 74 68 | 65 20 63 68 61 72 20 70 |elete th|e char p|
|00000940| 6f 69 6e 74 65 64 20 74 | 6f 20 62 79 20 74 68 65 |ointed t|o by the|
|00000950| 20 6d 6f 75 73 65 2e 22 | 20 22 40 65 22 5d 29 0a | mouse."| "@e"]).|
|00000960| 28 66 73 65 74 20 27 6d | 6f 75 73 65 2d 6b 69 6c |(fset 'm|ouse-kil|
|00000970| 6c 2d 6c 69 6e 65 20 23 | 5b 28 65 76 65 6e 74 29 |l-line #|[(event)|
|00000980| 20 22 8a c0 09 21 88 c2 | c3 21 29 87 22 20 5b 6d | "...!..|.!)." [m|
|00000990| 6f 75 73 65 2d 73 65 74 | 2d 70 6f 69 6e 74 20 65 |ouse-set|-point e|
|000009a0| 76 65 6e 74 20 6b 69 6c | 6c 2d 6c 69 6e 65 20 6e |vent kil|l-line n|
|000009b0| 69 6c 5d 20 32 20 22 5c | 0a 4b 69 6c 6c 20 74 68 |il] 2 "\|.Kill th|
|000009c0| 65 20 6c 69 6e 65 20 70 | 6f 69 6e 74 65 64 20 74 |e line p|ointed t|
|000009d0| 6f 20 62 79 20 74 68 65 | 20 6d 6f 75 73 65 2e 22 |o by the| mouse."|
|000009e0| 20 22 40 65 22 5d 29 0a | 28 66 73 65 74 20 27 6e | "@e"]).|(fset 'n|
|000009f0| 61 72 72 6f 77 2d 77 69 | 6e 64 6f 77 2d 74 6f 2d |arrow-wi|ndow-to-|
|00000a00| 72 65 67 69 6f 6e 20 23 | 5b 28 6d 20 6e 29 20 22 |region #|[(m n) "|
|00000a10| 8a 8c c0 20 c1 20 3d ab | 83 c2 20 88 0b 62 88 c4 |... . =.|.. ..b..|
|00000a20| c5 21 88 c0 20 c6 20 c5 | 55 ad 82 c1 20 3d 3f ad |.!.. . .|U... =?.|
|00000a30| 8c c7 c8 20 c9 0b 0e 5c | 6e 5c 22 5a cb 5a 21 2a |... ...\|n\"Z.Z!*|
|00000a40| 87 22 20 5b 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |." [sele|cted-win|
|00000a50| 64 6f 77 20 6e 65 78 74 | 2d 77 69 6e 64 6f 77 20 |dow next|-window |
|00000a60| 73 70 6c 69 74 2d 77 69 | 6e 64 6f 77 20 6d 20 72 |split-wi|ndow m r|
|00000a70| 65 63 65 6e 74 65 72 20 | 30 20 6d 69 6e 69 62 75 |ecenter |0 minibu|
|00000a80| 66 66 65 72 2d 64 65 70 | 74 68 20 73 68 72 69 6e |ffer-dep|th shrin|
|00000a90| 6b 2d 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |k-window| window-|
|00000aa0| 68 65 69 67 68 74 20 63 | 6f 75 6e 74 2d 6c 69 6e |height c|ount-lin|
|00000ab0| 65 73 20 6e 20 31 5d 20 | 35 20 22 5c 0a 4e 61 72 |es n 1] |5 "\.Nar|
|00000ac0| 72 6f 77 20 77 69 6e 64 | 6f 77 20 74 6f 20 72 65 |row wind|ow to re|
|00000ad0| 67 69 6f 6e 20 62 65 74 | 77 65 65 6e 20 70 6f 69 |gion bet|ween poi|
|00000ae0| 6e 74 20 61 6e 64 20 6c | 61 73 74 20 6d 61 72 6b |nt and l|ast mark|
|00000af0| 22 20 22 72 22 5d 29 0a | 28 66 73 65 74 20 27 6d |" "r"]).|(fset 'm|
|00000b00| 6f 75 73 65 2d 77 69 6e | 64 6f 77 2d 74 6f 2d 72 |ouse-win|dow-to-r|
|00000b10| 65 67 69 6f 6e 20 23 5b | 28 65 76 65 6e 74 29 20 |egion #[|(event) |
|00000b20| 22 60 18 c1 8e c2 0b 21 | 88 c4 c5 c6 5c 22 88 c7 |"`.....!|....\"..|
|00000b30| c8 21 2a 87 22 20 5b 70 | 6f 69 6e 74 2d 73 61 76 |.!*." [p|oint-sav|
|00000b40| 65 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |e ((byte|-code ".|
|00000b50| 62 88 c1 c2 20 c3 20 5c | 22 87 22 20 5b 70 6f 69 |b... . \|"." [poi|
|00000b60| 6e 74 2d 73 61 76 65 20 | 6e 61 72 72 6f 77 2d 77 |nt-save |narrow-w|
|00000b70| 69 6e 64 6f 77 2d 74 6f | 2d 72 65 67 69 6f 6e 20 |indow-to|-region |
|00000b80| 72 65 67 69 6f 6e 2d 62 | 65 67 69 6e 6e 69 6e 67 |region-b|eginning|
|00000b90| 20 72 65 67 69 6f 6e 2d | 65 6e 64 5d 20 33 29 29 | region-|end] 3))|
|00000ba0| 20 6d 6f 75 73 65 2d 73 | 65 74 2d 70 6f 69 6e 74 | mouse-s|et-point|
|00000bb0| 20 65 76 65 6e 74 20 70 | 75 73 68 2d 6d 61 72 6b | event p|ush-mark|
|00000bc0| 20 6e 69 6c 20 74 20 73 | 69 74 2d 66 6f 72 20 31 | nil t s|it-for 1|
|00000bd0| 5d 20 33 20 22 5c 0a 4e | 61 72 72 6f 77 20 77 69 |] 3 "\.N|arrow wi|
|00000be0| 6e 64 6f 77 20 74 6f 20 | 72 65 67 69 6f 6e 20 62 |ndow to |region b|
|00000bf0| 65 74 77 65 65 6e 20 63 | 75 72 73 6f 72 20 61 6e |etween c|ursor an|
|00000c00| 64 20 6d 6f 75 73 65 20 | 70 6f 69 6e 74 65 72 2e |d mouse |pointer.|
|00000c10| 22 20 22 40 65 22 5d 29 | 0a 28 64 65 66 75 6e 20 |" "@e"])|.(defun |
|00000c20| 6d 6f 75 73 65 2d 69 67 | 6e 6f 72 65 20 6e 69 6c |mouse-ig|nore nil|
|00000c30| 20 22 5c 0a 44 6f 6e 27 | 74 20 64 6f 20 61 6e 79 | "\.Don'|t do any|
|00000c40| 74 68 69 6e 67 2e 22 20 | 28 69 6e 74 65 72 61 63 |thing." |(interac|
|00000c50| 74 69 76 65 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 |tive)).(|byte-cod|
|00000c60| 65 20 22 c0 c1 4d 88 c2 | c3 4d 88 c4 c5 4d 88 c6 |e "..M..|.M...M..|
|00000c70| c7 4d 88 c8 c9 4d 88 ca | cb 4d 88 cc cd 21 ac 83 |.M...M..|.M...!..|
|00000c80| ce 16 0d cc cf 21 ac 83 | d0 16 0f d1 d2 4d 88 d3 |.....!..|.....M..|
|00000c90| d4 4d 88 d5 d6 4d 88 d7 | d8 4d 88 d9 da 4d 88 db |.M...M..|.M...M..|
|00000ca0| dc 4d 88 dd de 4d 88 df | e0 4d 88 e1 e2 4d 88 e3 |.M...M..|.M...M..|
|00000cb0| e4 4d 88 cc e5 21 ac 83 | ce 16 25 cc e6 21 ac 83 |.M...!..|..%..!..|
|00000cc0| ce 16 26 cc e7 21 ac 83 | ce 16 27 cc e8 21 ac 83 |..&..!..|..'..!..|
|00000cd0| e9 16 28 cc ea 21 ac 83 | eb 16 2a cc ec 21 ac 83 |..(..!..|..*..!..|
|00000ce0| e9 16 2c cc ed 21 ac 8e | ee ef 21 ab 86 f0 f1 21 |..,..!..|..!....!|
|00000cf0| 40 aa 81 d0 16 2d f2 f3 | 4d 88 f4 f5 4d 88 f6 f7 |@....-..|M...M...|
|00000d00| 4d 88 f8 f9 4d 88 fa fb | 4d 88 fc fa fd fe 23 88 |M...M...|M.....#.|
|00000d10| ff 81 40 00 4d 88 81 41 | 00 81 42 00 4d 88 81 43 |..@.M..A|..B.M..C|
|00000d20| 00 81 44 00 4d 88 81 45 | 00 81 46 00 4d 88 81 47 |..D.M..E|..F.M..G|
|00000d30| 00 81 48 00 4d 88 81 49 | 00 81 4a 00 4d 88 81 4b |..H.M..I|..J.M..K|
|00000d40| 00 81 4c 00 4d 88 81 4d | 00 81 4e 00 4d 87 22 20 |..L.M..M|..N.M." |
|00000d50| 5b 6d 6f 75 73 65 2d 73 | 63 72 6f 6c 6c 2d 64 6f |[mouse-s|croll-do|
|00000d60| 77 6e 20 23 5b 28 6e 6c | 69 6e 65 73 29 20 22 c0 |wn #[(nl|ines) ".|
|00000d70| 09 21 87 22 20 5b 73 63 | 72 6f 6c 6c 2d 64 6f 77 |.!." [sc|roll-dow|
|00000d80| 6e 20 6e 6c 69 6e 65 73 | 5d 20 32 20 6e 69 6c 20 |n nlines|] 2 nil |
|00000d90| 22 40 70 22 5d 20 6d 6f | 75 73 65 2d 73 63 72 6f |"@p"] mo|use-scro|
|00000da0| 6c 6c 2d 75 70 20 23 5b | 28 6e 6c 69 6e 65 73 29 |ll-up #[|(nlines)|
|00000db0| 20 22 c0 09 21 87 22 20 | 5b 73 63 72 6f 6c 6c 2d | "..!." |[scroll-|
|00000dc0| 75 70 20 6e 6c 69 6e 65 | 73 5d 20 32 20 6e 69 6c |up nline|s] 2 nil|
|00000dd0| 20 22 40 70 22 5d 20 6d | 6f 75 73 65 2d 73 63 72 | "@p"] m|ouse-scr|
|00000de0| 6f 6c 6c 2d 64 6f 77 6e | 2d 66 75 6c 6c 20 23 5b |oll-down|-full #[|
|00000df0| 6e 69 6c 20 22 c0 c1 21 | 87 22 20 5b 73 63 72 6f |nil "..!|." [scro|
|00000e00| 6c 6c 2d 64 6f 77 6e 20 | 6e 69 6c 5d 20 32 20 6e |ll-down |nil] 2 n|
|00000e10| 69 6c 20 22 40 22 5d 20 | 6d 6f 75 73 65 2d 73 63 |il "@"] |mouse-sc|
|00000e20| 72 6f 6c 6c 2d 75 70 2d | 66 75 6c 6c 20 23 5b 6e |roll-up-|full #[n|
|00000e30| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 73 63 72 6f 6c |il "..!.|" [scrol|
|00000e40| 6c 2d 75 70 20 6e 69 6c | 5d 20 32 20 6e 69 6c 20 |l-up nil|] 2 nil |
|00000e50| 22 40 22 5d 20 6d 6f 75 | 73 65 2d 73 63 72 6f 6c |"@"] mou|se-scrol|
|00000e60| 6c 2d 6d 6f 76 65 2d 63 | 75 72 73 6f 72 20 23 5b |l-move-c|ursor #[|
|00000e70| 28 6e 6c 69 6e 65 73 29 | 20 22 c0 09 21 87 22 20 |(nlines)| "..!." |
|00000e80| 5b 6d 6f 76 65 2d 74 6f | 2d 77 69 6e 64 6f 77 2d |[move-to|-window-|
|00000e90| 6c 69 6e 65 20 6e 6c 69 | 6e 65 73 5d 20 32 20 6e |line nli|nes] 2 n|
|00000ea0| 69 6c 20 22 40 70 22 5d | 20 6d 6f 75 73 65 2d 73 |il "@p"]| mouse-s|
|00000eb0| 63 72 6f 6c 6c 2d 61 62 | 73 6f 6c 75 74 65 20 23 |croll-ab|solute #|
|00000ec0| 5b 28 65 76 65 6e 74 29 | 20 22 c0 09 21 1a c3 09 |[(event)| "..!...|
|00000ed0| 21 1c c5 20 1e 06 c7 c8 | 0e 06 a5 5d 1e 09 0e 06 |!.. ....|...]....|
|00000ee0| 0e 09 a5 5c 6e 5f 0c a5 | 0e 09 5f 89 1e 5c 6e 62 |...\n_..|.._..\nb|
|00000ef0| 88 cb cc 21 2d 87 22 20 | 5b 65 76 65 6e 74 2d 78 |...!-." |[event-x|
|00000f00| 20 65 76 65 6e 74 20 70 | 6f 73 69 74 69 6f 6e 20 | event p|osition |
|00000f10| 65 76 65 6e 74 2d 79 20 | 6c 65 6e 67 74 68 20 62 |event-y |length b|
|00000f20| 75 66 66 65 72 2d 73 69 | 7a 65 20 73 69 7a 65 20 |uffer-si|ze size |
|00000f30| 31 20 38 30 30 30 30 30 | 30 20 73 63 61 6c 65 2d |1 800000|0 scale-|
|00000f40| 66 61 63 74 6f 72 20 6e | 65 77 70 6f 73 20 72 65 |factor n|ewpos re|
|00000f50| 63 65 6e 74 65 72 20 28 | 34 29 5d 20 34 20 6e 69 |center (|4)] 4 ni|
|00000f60| 6c 20 22 40 65 22 5d 20 | 62 6f 75 6e 64 70 20 73 |l "@e"] |boundp s|
|00000f70| 63 72 6f 6c 6c 65 64 2d | 6c 69 6e 65 73 20 30 20 |crolled-|lines 0 |
|00000f80| 73 63 72 6f 6c 6c 2d 73 | 70 65 65 64 20 31 20 69 |scroll-s|peed 1 i|
|00000f90| 6e 63 72 2d 73 63 72 6f | 6c 6c 2d 64 6f 77 6e 20 |ncr-scro|ll-down |
|00000fa0| 23 5b 28 65 76 65 6e 74 | 29 20 22 c0 11 c2 0b 21 |#[(event|) "....!|
|00000fb0| 87 22 20 5b 30 20 73 63 | 72 6f 6c 6c 65 64 2d 6c |." [0 sc|rolled-l|
|00000fc0| 69 6e 65 73 20 69 6e 63 | 72 65 6d 65 6e 74 61 6c |ines inc|remental|
|00000fd0| 2d 73 63 72 6f 6c 6c 20 | 73 63 72 6f 6c 6c 2d 73 |-scroll |scroll-s|
|00000fe0| 70 65 65 64 5d 20 32 20 | 6e 69 6c 20 22 40 65 22 |peed] 2 |nil "@e"|
|00000ff0| 5d 20 69 6e 63 72 2d 73 | 63 72 6f 6c 6c 2d 75 70 |] incr-s|croll-up|
|00001000| 20 23 5b 28 65 76 65 6e | 74 29 20 22 c0 11 c2 0b | #[(even|t) "....|
|00001010| 5b 21 87 22 20 5b 30 20 | 73 63 72 6f 6c 6c 65 64 |[!." [0 |scrolled|
|00001020| 2d 6c 69 6e 65 73 20 69 | 6e 63 72 65 6d 65 6e 74 |-lines i|ncrement|
|00001030| 61 6c 2d 73 63 72 6f 6c | 6c 20 73 63 72 6f 6c 6c |al-scrol|l scroll|
|00001040| 2d 73 70 65 65 64 5d 20 | 32 20 6e 69 6c 20 22 40 |-speed] |2 nil "@|
|00001050| 65 22 5d 20 69 6e 63 72 | 65 6d 65 6e 74 61 6c 2d |e"] incr|emental-|
|00001060| 73 63 72 6f 6c 6c 20 23 | 5b 28 6e 29 20 22 c0 20 |scroll #|[(n) ". |
|00001070| c1 1a 1b 5c 6e ad ab c4 | 0d 21 88 c6 20 ab 94 c7 |...\n...|.!.. ...|
|00001080| 0b 21 88 c8 0b 21 ac 85 | c9 0b 21 ab 82 ca 12 cb |.!...!..|..!.....|
|00001090| 0b 21 88 0e 0c 0e 0d 5f | 54 16 0d ce 0e 0f 21 88 |.!....._|T.....!.|
|000010a0| aa 52 2a 87 22 20 5b 61 | 6c 6c 6f 63 61 74 65 2d |.R*." [a|llocate-|
|000010b0| 65 76 65 6e 74 20 74 20 | 64 6f 77 6e 20 65 76 65 |event t |down eve|
|000010c0| 6e 74 20 73 69 74 2d 66 | 6f 72 20 6d 6f 75 73 65 |nt sit-f|or mouse|
|000010d0| 2d 74 72 61 63 6b 2d 73 | 63 72 6f 6c 6c 2d 64 65 |-track-s|croll-de|
|000010e0| 6c 61 79 20 69 6e 70 75 | 74 2d 70 65 6e 64 69 6e |lay inpu|t-pendin|
|000010f0| 67 2d 70 20 6e 65 78 74 | 2d 65 76 65 6e 74 20 62 |g-p next|-event b|
|00001100| 75 74 74 6f 6e 2d 70 72 | 65 73 73 2d 65 76 65 6e |utton-pr|ess-even|
|00001110| 74 2d 70 20 62 75 74 74 | 6f 6e 2d 72 65 6c 65 61 |t-p butt|on-relea|
|00001120| 73 65 2d 65 76 65 6e 74 | 2d 70 20 6e 69 6c 20 64 |se-event|-p nil d|
|00001130| 69 73 70 61 74 63 68 2d | 65 76 65 6e 74 20 73 63 |ispatch-|event sc|
|00001140| 72 6f 6c 6c 2d 73 70 65 | 65 64 20 73 63 72 6f 6c |roll-spe|ed scrol|
|00001150| 6c 65 64 2d 6c 69 6e 65 | 73 20 73 63 72 6f 6c 6c |led-line|s scroll|
|00001160| 2d 64 6f 77 6e 20 6e 5d | 20 32 5d 20 69 6e 63 72 |-down n]| 2] incr|
|00001170| 2d 73 63 72 6f 6c 6c 2d | 73 74 6f 70 20 23 5b 28 |-scroll-|stop #[(|
|00001180| 65 76 65 6e 74 29 20 22 | c0 11 c2 c3 21 87 22 20 |event) "|....!." |
|00001190| 5b 30 20 73 63 72 6f 6c | 6c 65 64 2d 6c 69 6e 65 |[0 scrol|led-line|
|000011a0| 73 20 73 6c 65 65 70 2d | 66 6f 72 20 31 5d 20 32 |s sleep-|for 1] 2|
|000011b0| 20 6e 69 6c 20 22 40 65 | 22 5d 20 6d 6f 75 73 65 | nil "@e|"] mouse|
|000011c0| 2d 73 63 72 6f 6c 6c 2d | 6c 65 66 74 20 23 5b 28 |-scroll-|left #[(|
|000011d0| 6e 63 6f 6c 75 6d 6e 73 | 29 20 22 c0 09 21 87 22 |ncolumns|) "..!."|
|000011e0| 20 5b 73 63 72 6f 6c 6c | 2d 6c 65 66 74 20 6e 63 | [scroll|-left nc|
|000011f0| 6f 6c 75 6d 6e 73 5d 20 | 32 20 6e 69 6c 20 22 40 |olumns] |2 nil "@|
|00001200| 70 22 5d 20 6d 6f 75 73 | 65 2d 73 63 72 6f 6c 6c |p"] mous|e-scroll|
|00001210| 2d 72 69 67 68 74 20 23 | 5b 28 6e 63 6f 6c 75 6d |-right #|[(ncolum|
|00001220| 6e 73 29 20 22 c0 09 21 | 87 22 20 5b 73 63 72 6f |ns) "..!|." [scro|
|00001230| 6c 6c 2d 72 69 67 68 74 | 20 6e 63 6f 6c 75 6d 6e |ll-right| ncolumn|
|00001240| 73 5d 20 32 20 6e 69 6c | 20 22 40 70 22 5d 20 6d |s] 2 nil| "@p"] m|
|00001250| 6f 75 73 65 2d 73 63 72 | 6f 6c 6c 2d 6c 65 66 74 |ouse-scr|oll-left|
|00001260| 2d 66 75 6c 6c 20 23 5b | 6e 69 6c 20 22 c0 c1 21 |-full #[|nil "..!|
|00001270| 87 22 20 5b 73 63 72 6f | 6c 6c 2d 6c 65 66 74 20 |." [scro|ll-left |
|00001280| 6e 69 6c 5d 20 32 20 6e | 69 6c 20 22 40 22 5d 20 |nil] 2 n|il "@"] |
|00001290| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 72 69 67 |mouse-sc|roll-rig|
|000012a0| 68 74 2d 66 75 6c 6c 20 | 23 5b 6e 69 6c 20 22 c0 |ht-full |#[nil ".|
|000012b0| c1 21 87 22 20 5b 73 63 | 72 6f 6c 6c 2d 72 69 67 |.!." [sc|roll-rig|
|000012c0| 68 74 20 6e 69 6c 5d 20 | 32 20 6e 69 6c 20 22 40 |ht nil] |2 nil "@|
|000012d0| 22 5d 20 6d 6f 75 73 65 | 2d 73 63 72 6f 6c 6c 2d |"] mouse|-scroll-|
|000012e0| 6d 6f 76 65 2d 63 75 72 | 73 6f 72 2d 68 6f 72 69 |move-cur|sor-hori|
|000012f0| 7a 6f 6e 74 61 6c 6c 79 | 20 23 5b 28 6e 63 6f 6c |zontally| #[(ncol|
|00001300| 75 6d 6e 73 29 20 22 c0 | 09 21 87 22 20 5b 6d 6f |umns) ".|.!." [mo|
|00001310| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 6e 63 6f |ve-to-co|lumn nco|
|00001320| 6c 75 6d 6e 73 5d 20 32 | 20 6e 69 6c 20 22 40 70 |lumns] 2| nil "@p|
|00001330| 22 5d 20 6d 6f 75 73 65 | 2d 73 63 72 6f 6c 6c 2d |"] mouse|-scroll-|
|00001340| 61 62 73 6f 6c 75 74 65 | 2d 68 6f 72 69 7a 6f 6e |absolute|-horizon|
|00001350| 74 61 6c 6c 79 20 23 5b | 28 65 76 65 6e 74 29 20 |tally #[|(event) |
|00001360| 22 c0 09 21 1a c3 09 21 | 1c c5 c6 20 c7 5c 22 2a |"..!...!|... .\"*|
|00001370| 87 22 20 5b 65 76 65 6e | 74 2d 78 20 65 76 65 6e |." [even|t-x even|
|00001380| 74 20 70 6f 73 69 74 69 | 6f 6e 20 65 76 65 6e 74 |t positi|on event|
|00001390| 2d 79 20 6c 65 6e 67 74 | 68 20 73 65 74 2d 77 69 |-y lengt|h set-wi|
|000013a0| 6e 64 6f 77 2d 68 73 63 | 72 6f 6c 6c 20 73 65 6c |ndow-hsc|roll sel|
|000013b0| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 33 33 5d |ected-wi|ndow 33]|
|000013c0| 20 33 20 6e 69 6c 20 22 | 40 65 22 5d 20 6d 6f 75 | 3 nil "|@e"] mou|
|000013d0| 73 65 2d 74 72 61 63 6b | 2d 75 70 2d 74 69 6d 65 |se-track|-up-time|
|000013e0| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 75 70 2d | mouse-t|rack-up-|
|000013f0| 78 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 75 70 |x mouse-|track-up|
|00001400| 2d 79 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 74 |-y mouse|-track-t|
|00001410| 79 70 65 20 6e 69 6c 20 | 6d 6f 75 73 65 2d 74 72 |ype nil |mouse-tr|
|00001420| 61 63 6b 2d 6d 75 6c 74 | 69 63 6c 69 63 6b 2d 74 |ack-mult|iclick-t|
|00001430| 69 6d 65 20 34 30 30 20 | 6d 6f 75 73 65 2d 74 72 |ime 400 |mouse-tr|
|00001440| 61 63 6b 2d 74 69 6d 65 | 6f 75 74 2d 69 64 20 6d |ack-time|out-id m|
|00001450| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 73 63 72 6f 6c |ouse-tra|ck-scrol|
|00001460| 6c 2d 64 65 6c 61 79 20 | 66 65 61 74 75 72 65 70 |l-delay |featurep|
|00001470| 20 6c 69 73 70 2d 66 6c | 6f 61 74 2d 74 79 70 65 | lisp-fl|oat-type|
|00001480| 20 72 65 61 64 2d 66 72 | 6f 6d 2d 73 74 72 69 6e | read-fr|om-strin|
|00001490| 67 20 22 30 2e 33 22 20 | 6d 6f 75 73 65 2d 74 72 |g "0.3" |mouse-tr|
|000014a0| 61 63 6b 2d 73 65 74 2d | 70 6f 69 6e 74 2d 69 6e |ack-set-|point-in|
|000014b0| 2d 77 69 6e 64 6f 77 20 | 23 5b 28 65 76 65 6e 74 |-window |#[(event|
|000014c0| 20 77 69 6e 64 6f 77 29 | 20 22 c0 09 21 5c 6e 3d | window)| "..!\n=|
|000014d0| ad ac c3 09 21 89 1c ab | 85 0c 62 88 aa 9e c5 c6 |....!...|..b.....|
|000014e0| 09 21 c7 5c 6e 21 41 40 | 5a 21 88 c8 09 21 c9 ca |.!.\n!A@|Z!...!..|
|000014f0| 0e 0b 5c 22 41 ae 81 cc | 56 ab 83 cd 7f 88 29 ce |..\"A...|V.....).|
|00001500| 87 22 20 5b 65 76 65 6e | 74 2d 77 69 6e 64 6f 77 |." [even|t-window|
|00001510| 20 65 76 65 6e 74 20 77 | 69 6e 64 6f 77 20 65 76 | event w|indow ev|
|00001520| 65 6e 74 2d 70 6f 69 6e | 74 20 70 6f 69 6e 74 20 |ent-poin|t point |
|00001530| 6d 6f 76 65 2d 74 6f 2d | 77 69 6e 64 6f 77 2d 6c |move-to-|window-l|
|00001540| 69 6e 65 20 65 76 65 6e | 74 2d 79 20 77 69 6e 64 |ine even|t-y wind|
|00001550| 6f 77 2d 65 64 67 65 73 | 20 65 76 65 6e 74 2d 78 |ow-edges| event-x|
|00001560| 2d 70 69 78 65 6c 20 61 | 73 73 6f 63 20 69 6e 74 |-pixel a|ssoc int|
|00001570| 65 72 6e 61 6c 2d 62 6f | 72 64 65 72 2d 77 69 64 |ernal-bo|rder-wid|
|00001580| 74 68 20 78 2d 73 63 72 | 65 65 6e 2d 64 65 66 61 |th x-scr|een-defa|
|00001590| 75 6c 74 73 20 35 20 6e | 69 6c 20 74 5d 20 35 5d |ults 5 n|il t] 5]|
|000015a0| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 73 63 72 | mouse-t|rack-scr|
|000015b0| 6f 6c 6c 2d 61 6e 64 2d | 73 65 74 2d 70 6f 69 6e |oll-and-|set-poin|
|000015c0| 74 20 23 5b 28 65 76 65 | 6e 74 20 77 69 6e 64 6f |t #[(eve|nt windo|
|000015d0| 77 29 20 22 c0 09 21 c2 | 0b 21 c4 c5 20 21 c6 20 |w) "..!.|.!.. !. |
|000015e0| a5 a5 1e 07 1e 08 0e 07 | 0e 08 41 40 58 ab 94 0e |........|..A@X...|
|000015f0| 08 41 40 0e 07 5a 1e 09 | ca cb cc 8f 88 cd 20 62 |.A@..Z..|...... b|
|00001600| 29 aa ac 60 64 59 ae a7 | 0e 07 ce 0e 08 38 53 59 |)..`dY..|.....8SY|
|00001610| ad 9d 0e 07 cf 5c 5c ce | 0e 08 38 5a 1e 09 ca d0 |.....\\.|..8Z....|
|00001620| d1 8f 88 d2 20 62 88 d3 | 0e 09 21 88 d4 d5 21 29 |.... b..|..!...!)|
|00001630| 2a 87 22 20 5b 77 69 6e | 64 6f 77 2d 65 64 67 65 |*." [win|dow-edge|
|00001640| 73 20 77 69 6e 64 6f 77 | 20 65 76 65 6e 74 2d 79 |s window| event-y|
|00001650| 2d 70 69 78 65 6c 20 65 | 76 65 6e 74 20 78 2d 70 |-pixel e|vent x-p|
|00001660| 69 78 65 6c 2d 68 65 69 | 67 68 74 20 73 65 6c 65 |ixel-hei|ght sele|
|00001670| 63 74 65 64 2d 73 63 72 | 65 65 6e 20 73 63 72 65 |cted-scr|een scre|
|00001680| 65 6e 2d 68 65 69 67 68 | 74 20 72 6f 77 20 65 64 |en-heigh|t row ed|
|00001690| 67 65 73 20 64 65 6c 74 | 61 20 6e 69 6c 20 28 73 |ges delt|a nil (s|
|000016a0| 63 72 6f 6c 6c 2d 64 6f | 77 6e 20 64 65 6c 74 61 |croll-do|wn delta|
|000016b0| 29 20 28 28 65 72 72 6f | 72 29 29 20 77 69 6e 64 |) ((erro|r)) wind|
|000016c0| 6f 77 2d 73 74 61 72 74 | 20 33 20 32 20 28 73 63 |ow-start| 3 2 (sc|
|000016d0| 72 6f 6c 6c 2d 75 70 20 | 64 65 6c 74 61 29 20 28 |roll-up |delta) (|
|000016e0| 28 65 72 72 6f 72 29 29 | 20 77 69 6e 64 6f 77 2d |(error))| window-|
|000016f0| 65 6e 64 20 76 65 72 74 | 69 63 61 6c 2d 6d 6f 74 |end vert|ical-mot|
|00001700| 69 6f 6e 20 62 61 63 6b | 77 61 72 64 2d 63 68 61 |ion back|ward-cha|
|00001710| 72 20 31 5d 20 34 5d 20 | 6d 6f 75 73 65 2d 74 72 |r 1] 4] |mouse-tr|
|00001720| 61 63 6b 2d 73 65 74 2d | 70 6f 69 6e 74 2d 61 6e |ack-set-|point-an|
|00001730| 64 2d 74 69 6d 65 6f 75 | 74 20 23 5b 28 65 76 65 |d-timeou|t #[(eve|
|00001740| 6e 74 20 77 69 6e 64 6f | 77 29 20 22 c0 09 5c 6e |nt windo|w) "..\n|
|00001750| 5c 22 3f ad 8f 0b ac 88 | c4 0d c6 c7 09 21 23 13 |\"?.....|.....!#.|
|00001760| c8 09 5c 6e 5c 22 87 22 | 20 5b 6d 6f 75 73 65 2d |..\n\"."| [mouse-|
|00001770| 74 72 61 63 6b 2d 73 65 | 74 2d 70 6f 69 6e 74 2d |track-se|t-point-|
|00001780| 69 6e 2d 77 69 6e 64 6f | 77 20 65 76 65 6e 74 20 |in-windo|w event |
|00001790| 77 69 6e 64 6f 77 20 6d | 6f 75 73 65 2d 74 72 61 |window m|ouse-tra|
|000017a0| 63 6b 2d 74 69 6d 65 6f | 75 74 2d 69 64 20 61 64 |ck-timeo|ut-id ad|
|000017b0| 64 2d 74 69 6d 65 6f 75 | 74 20 6d 6f 75 73 65 2d |d-timeou|t mouse-|
|000017c0| 74 72 61 63 6b 2d 73 63 | 72 6f 6c 6c 2d 64 65 6c |track-sc|roll-del|
|000017d0| 61 79 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 73 |ay mouse|-track-s|
|000017e0| 63 72 6f 6c 6c 2d 75 6e | 64 65 66 69 6e 65 64 20 |croll-un|defined |
|000017f0| 63 6f 70 79 2d 65 76 65 | 6e 74 20 6d 6f 75 73 65 |copy-eve|nt mouse|
|00001800| 2d 74 72 61 63 6b 2d 73 | 63 72 6f 6c 6c 2d 61 6e |-track-s|croll-an|
|00001810| 64 2d 73 65 74 2d 70 6f | 69 6e 74 5d 20 35 5d 20 |d-set-po|int] 5] |
|00001820| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 63 6c 65 61 |mouse-tr|ack-clea|
|00001830| 6e 75 70 2d 74 69 6d 65 | 6f 75 74 20 23 5b 6e 69 |nup-time|out #[ni|
|00001840| 6c 20 22 08 ad 87 c1 08 | 21 88 c2 89 10 87 22 20 |l ".....|!....." |
|00001850| 5b 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 74 69 6d |[mouse-t|rack-tim|
|00001860| 65 6f 75 74 2d 69 64 20 | 64 69 73 61 62 6c 65 2d |eout-id |disable-|
|00001870| 74 69 6d 65 6f 75 74 20 | 6e 69 6c 5d 20 32 5d 20 |timeout |nil] 2] |
|00001880| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 62 65 67 69 |mouse-tr|ack-begi|
|00001890| 6e 6e 69 6e 67 2d 6f 66 | 2d 77 6f 72 64 20 23 5b |nning-of|-word #[|
|000018a0| 28 73 79 6d 62 6f 6c 70 | 29 20 22 08 c1 3d ab 83 |(symbolp|) "..=..|
|000018b0| c2 aa 87 08 ac 83 c3 aa | 81 c4 c5 1e 06 1e 07 6f |........|.......o|
|000018c0| ab 83 c8 aa bb c9 0e 07 | 21 ab 9f ca 20 88 6f ac |........|!... .o.|
|000018d0| 8b c9 0e 07 21 ab 85 ca | 20 88 aa 72 6f ab 87 c9 |....!...| ..ro...|
|000018e0| 0e 07 21 3f ad 9a c8 75 | aa 96 c9 0e 06 21 ad 90 |..!?...u|.....!..|
|000018f0| ca 20 88 c9 0e 06 21 ab | 85 ca 20 88 aa 75 c8 75 |. ....!.|.. ..u.u|
|00001900| 2a 87 22 20 5b 73 79 6d | 62 6f 6c 70 20 74 20 22 |*." [sym|bolp t "|
|00001910| 5c 5c 77 5c 5c 7c 5c 5c | 73 5f 5c 5c 7c 5c 5c 73 |\\w\\|\\|s_\\|\\s|
|00001920| 27 22 20 22 5c 5c 77 22 | 20 22 5b 5e 20 09 5c 6e |'" "\\w"| "[^ .\n|
|00001930| 5d 22 20 22 5b 20 09 5d | 22 20 77 68 69 74 65 2d |]" "[ .]|" white-|
|00001940| 73 70 61 63 65 20 77 6f | 72 64 2d 63 6f 6e 73 74 |space wo|rd-const|
|00001950| 69 74 75 65 6e 74 20 6e | 69 6c 20 6c 6f 6f 6b 69 |ituent n|il looki|
|00001960| 6e 67 2d 61 74 20 62 61 | 63 6b 77 61 72 64 2d 63 |ng-at ba|ckward-c|
|00001970| 68 61 72 5d 20 32 5d 20 | 70 75 74 20 62 79 74 65 |har] 2] |put byte|
|00001980| 2d 6f 70 74 69 6d 69 7a | 65 72 20 62 79 74 65 2d |-optimiz|er byte-|
|00001990| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000019a0| 78 70 61 6e 64 20 6d 6f | 75 73 65 2d 74 72 61 63 |xpand mo|use-trac|
|000019b0| 6b 2d 65 6e 64 2d 6f 66 | 2d 77 6f 72 64 20 23 5b |k-end-of|-word #[|
|000019c0| 28 73 79 6d 62 6f 6c 70 | 29 20 22 08 c1 3d ab 83 |(symbolp|) "..=..|
|000019d0| c2 aa 87 08 ac 83 c3 aa | 81 c4 c5 1e 06 1e 07 c8 |........|........|
|000019e0| 0e 07 21 ab 8b c8 0e 07 | 21 ad 96 c9 75 88 aa 75 |..!.....|!...u..u|
|000019f0| c8 0e 06 21 ad 8b c8 0e | 06 21 ad 85 c9 75 88 aa |...!....|.!...u..|
|00001a00| 75 2a 87 22 20 5b 73 79 | 6d 62 6f 6c 70 20 74 20 |u*." [sy|mbolp t |
|00001a10| 22 5c 5c 77 5c 5c 7c 5c | 5c 73 5f 5c 5c 7c 5c 5c |"\\w\\|\|\s_\\|\\|
|00001a20| 73 27 22 20 22 5c 5c 77 | 22 20 22 5b 5e 20 09 5c |s'" "\\w|" "[^ .\|
|00001a30| 6e 5d 22 20 22 5b 20 09 | 5d 22 20 77 68 69 74 65 |n]" "[ .|]" white|
|00001a40| 2d 73 70 61 63 65 20 77 | 6f 72 64 2d 63 6f 6e 73 |-space w|ord-cons|
|00001a50| 74 69 74 75 65 6e 74 20 | 6c 6f 6f 6b 69 6e 67 2d |tituent |looking-|
|00001a60| 61 74 20 6e 69 6c 5d 20 | 32 5d 20 6d 6f 75 73 65 |at nil] |2] mouse|
|00001a70| 2d 74 72 61 63 6b 2d 6e | 6f 72 6d 61 6c 69 7a 65 |-track-n|ormalize|
|00001a80| 2d 70 6f 69 6e 74 20 23 | 5b 28 74 79 70 65 20 66 |-point #|[(type f|
|00001a90| 6f 72 77 61 72 64 70 29 | 20 22 08 c1 3d ab 85 c2 |orwardp)| "..=...|
|00001aa0| c3 c4 8f 87 08 c5 3d ad | 8b 0e 06 ab 83 c2 7f 87 |......=.|........|
|00001ab0| c7 79 88 c2 87 22 20 5b | 74 79 70 65 20 77 6f 72 |.y..." [|type wor|
|00001ac0| 64 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |d nil (b|yte-code|
|00001ad0| 20 22 08 ab 84 c1 c2 21 | 87 c2 1b c2 89 3d ab 83 | ".....!|.....=..|
|00001ae0| c4 aa 87 0b ac 83 c5 aa | 81 c6 c7 1e 08 1e 09 6f |........|.......o|
|00001af0| ab 83 ca aa bb cb 0e 09 | 21 ab 9f cc 20 88 6f ac |........|!... .o.|
|00001b00| 8b cb 0e 09 21 ab 85 cc | 20 88 aa 72 6f ab 87 cb |....!...| ..ro...|
|00001b10| 0e 09 21 3f ad 9a ca 75 | aa 96 cb 0e 08 21 ad 90 |..!?...u|.....!..|
|00001b20| cc 20 88 cb 0e 08 21 ab | 85 cc 20 88 aa 75 ca 75 |. ....!.|.. ..u.u|
|00001b30| 2b 87 22 20 5b 66 6f 72 | 77 61 72 64 70 20 6d 6f |+." [for|wardp mo|
|00001b40| 75 73 65 2d 74 72 61 63 | 6b 2d 65 6e 64 2d 6f 66 |use-trac|k-end-of|
|00001b50| 2d 77 6f 72 64 20 74 20 | 73 79 6d 62 6f 6c 70 20 |-word t |symbolp |
|00001b60| 22 5c 5c 77 5c 5c 7c 5c | 5c 73 5f 5c 5c 7c 5c 5c |"\\w\\|\|\s_\\|\\|
|00001b70| 73 27 22 20 22 5c 5c 77 | 22 20 22 5b 5e 20 09 5c |s'" "\\w|" "[^ .\|
|00001b80| 6e 5d 22 20 22 5b 20 09 | 5d 22 20 77 68 69 74 65 |n]" "[ .|]" white|
|00001b90| 2d 73 70 61 63 65 20 77 | 6f 72 64 2d 63 6f 6e 73 |-space w|ord-cons|
|00001ba0| 74 69 74 75 65 6e 74 20 | 6e 69 6c 20 6c 6f 6f 6b |tituent |nil look|
|00001bb0| 69 6e 67 2d 61 74 20 62 | 61 63 6b 77 61 72 64 2d |ing-at b|ackward-|
|00001bc0| 63 68 61 72 5d 20 32 29 | 20 28 28 65 72 72 6f 72 |char] 2)| ((error|
|00001bd0| 29 29 20 6c 69 6e 65 20 | 66 6f 72 77 61 72 64 70 |)) line |forwardp|
|00001be0| 20 30 5d 20 33 5d 20 6d | 6f 75 73 65 2d 74 72 61 | 0] 3] m|ouse-tra|
|00001bf0| 63 6b 2d 6e 65 78 74 2d | 6d 6f 76 65 20 23 5b 28 |ck-next-|move #[(|
|00001c00| 6d 69 6e 2d 61 6e 63 68 | 6f 72 20 6d 61 78 2d 61 |min-anch|or max-a|
|00001c10| 6e 63 68 6f 72 20 65 78 | 74 65 6e 74 29 20 22 60 |nchor ex|tent) "`|
|00001c20| 08 58 ab 83 09 aa 81 08 | 1a c3 0c 60 5c 6e 56 5c |.X......|...`\nV\|
|00001c30| 22 88 5c 6e 60 58 ab 88 | c5 0e 06 5c 6e 60 23 aa |".\n`X..|...\n`#.|
|00001c40| 86 c5 0e 06 60 5c 6e 23 | 29 87 22 20 5b 6d 69 6e |....`\n#|)." [min|
|00001c50| 2d 61 6e 63 68 6f 72 20 | 6d 61 78 2d 61 6e 63 68 |-anchor |max-anch|
|00001c60| 6f 72 20 61 6e 63 68 6f | 72 20 6d 6f 75 73 65 2d |or ancho|r mouse-|
|00001c70| 74 72 61 63 6b 2d 6e 6f | 72 6d 61 6c 69 7a 65 2d |track-no|rmalize-|
|00001c80| 70 6f 69 6e 74 20 6d 6f | 75 73 65 2d 74 72 61 63 |point mo|use-trac|
|00001c90| 6b 2d 74 79 70 65 20 73 | 65 74 2d 65 78 74 65 6e |k-type s|et-exten|
|00001ca0| 74 2d 65 6e 64 70 6f 69 | 6e 74 73 20 65 78 74 65 |t-endpoi|nts exte|
|00001cb0| 6e 74 5d 20 34 5d 20 6d | 6f 75 73 65 2d 74 72 61 |nt] 4] m|ouse-tra|
|00001cc0| 63 6b 2d 68 61 73 2d 73 | 65 6c 65 63 74 69 6f 6e |ck-has-s|election|
|00001cd0| 2d 70 20 23 5b 28 62 75 | 66 66 65 72 29 20 22 08 |-p #[(bu|ffer) ".|
|00001ce0| c1 3d ab 84 c2 20 ad 8a | c3 0c 21 ad 85 0d c6 0c |.=... ..|..!.....|
|00001cf0| 21 3d 87 22 20 5b 77 69 | 6e 64 6f 77 2d 73 79 73 |!=." [wi|ndow-sys|
|00001d00| 74 65 6d 20 78 20 78 2d | 73 65 6c 65 63 74 69 6f |tem x x-|selectio|
|00001d10| 6e 2d 6f 77 6e 65 72 2d | 70 20 65 78 74 65 6e 74 |n-owner-|p extent|
|00001d20| 70 20 70 72 69 6d 61 72 | 79 2d 73 65 6c 65 63 74 |p primar|y-select|
|00001d30| 69 6f 6e 2d 65 78 74 65 | 6e 74 20 62 75 66 66 65 |ion-exte|nt buffe|
|00001d40| 72 20 65 78 74 65 6e 74 | 2d 62 75 66 66 65 72 5d |r extent|-buffer]|
|00001d50| 20 33 5d 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d | 3] mous|e-track-|
|00001d60| 61 6e 63 68 6f 72 20 23 | 5b 28 61 64 6a 75 73 74 |anchor #|[(adjust|
|00001d70| 20 70 72 65 76 69 6f 75 | 73 2d 70 6f 69 6e 74 29 | previou|s-point)|
|00001d80| 20 22 08 ab b4 c1 70 21 | ab ac c2 0b 21 c4 0b 21 | "....p!|....!..!|
|00001d90| 1d 1e 06 60 0e 06 57 ab | 83 0d aa 98 60 0d 56 ab |...`..W.|....`.V.|
|00001da0| 84 0e 06 aa 8f 60 0e 06 | 5a 0d 60 5a 56 ab 84 0e |.....`..|Z.`ZV...|
|00001db0| 06 aa 81 0d 2a 87 0e 07 | 87 60 87 22 20 5b 61 64 |....*...|.`." [ad|
|00001dc0| 6a 75 73 74 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |just mou|se-track|
|00001dd0| 2d 68 61 73 2d 73 65 6c | 65 63 74 69 6f 6e 2d 70 |-has-sel|ection-p|
|00001de0| 20 65 78 74 65 6e 74 2d | 73 74 61 72 74 2d 70 6f | extent-|start-po|
|00001df0| 73 69 74 69 6f 6e 20 70 | 72 69 6d 61 72 79 2d 73 |sition p|rimary-s|
|00001e00| 65 6c 65 63 74 69 6f 6e | 2d 65 78 74 65 6e 74 20 |election|-extent |
|00001e10| 65 78 74 65 6e 74 2d 65 | 6e 64 2d 70 6f 73 69 74 |extent-e|nd-posit|
|00001e20| 69 6f 6e 20 65 6e 64 20 | 73 74 61 72 74 20 70 72 |ion end |start pr|
|00001e30| 65 76 69 6f 75 73 2d 70 | 6f 69 6e 74 5d 20 33 5d |evious-p|oint] 3]|
|00001e40| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 6e 65 78 | mouse-t|rack-nex|
|00001e50| 74 2d 74 79 70 65 20 23 | 5b 28 74 79 70 65 29 20 |t-type #|[(type) |
|00001e60| 22 08 ac 82 c1 87 08 c1 | 3d ab 82 c2 87 08 c2 3d |".......|=......=|
|00001e70| ab 82 c3 87 08 c3 3d ad | 81 c1 87 22 20 5b 74 79 |......=.|..." [ty|
|00001e80| 70 65 20 63 68 61 72 20 | 77 6f 72 64 20 6c 69 6e |pe char |word lin|
|00001e90| 65 5d 20 32 5d 20 6d 6f | 75 73 65 2d 74 72 61 63 |e] 2] mo|use-trac|
|00001ea0| 6b 2d 73 65 6c 65 63 74 | 20 23 5b 28 65 76 65 6e |k-select| #[(even|
|00001eb0| 74 20 61 64 6a 75 73 74 | 20 66 61 63 65 29 20 22 |t adjust| face) "|
|00001ec0| c0 09 21 ac 85 c2 c3 0c | 5c 22 88 c5 09 21 1e 06 |..!.....|\"...!..|
|00001ed0| c7 c8 89 c9 0e 06 21 23 | 1e 5c 6e cb 1e 0c cd 1e |......!#|.\n.....|
|00001ee0| 0e cd 1e 0f cd 1e 10 cd | 1e 11 d2 0e 5c 6e 0e 13 |........|....\n..|
|00001ef0| 5c 22 88 d4 0e 5c 6e 0e | 15 54 5c 22 88 d6 09 21 |\"...\n.|.T\"...!|
|00001f00| 0e 17 5a 0e 18 57 ab 98 | d9 09 21 0e 1a 55 ab 90 |..Z..W..|..!..U..|
|00001f10| db 09 21 0e 1c 55 ab 88 | dd 0e 1e 21 16 1e aa 87 |..!..U..|...!....|
|00001f20| 0e 1f ac 83 e0 16 1e e1 | 0e 06 21 88 60 16 11 e2 |........|..!.`...|
|00001f30| 09 0e 06 5c 22 88 e3 0e | 1f 0e 11 5c 22 1e 24 8a |...\"...|...\".$.|
|00001f40| 0e 24 62 88 e5 0e 1e cd | 5c 22 88 60 29 16 0e 8a |.$b.....|\".`)...|
|00001f50| 0e 24 62 88 e5 0e 1e cb | 5c 22 88 60 29 16 0f 29 |.$b.....|\".`)..)|
|00001f60| 0e 26 ab 85 e7 20 88 aa | 89 0e 28 e9 3d ab 83 ea |.&... ..|..(.=...|
|00001f70| 20 88 eb 8e 0e 0c ab ed | ec 0e 0e 0e 0f 0e 5c 6e | .......|......\n|
|00001f80| 23 88 ed 09 21 88 ee 20 | 88 ef 09 21 ab 88 e2 09 |#...!.. |...!....|
|00001f90| 0e 06 5c 22 88 aa 5f f0 | 09 21 ab 91 f1 09 21 f2 |..\".._.|.!....!.|
|00001fa0| 3d ab 8a e2 f3 09 21 0e | 06 5c 22 88 aa 49 f4 09 |=.....!.|.\"..I..|
|00001fb0| 21 ab a4 d6 09 21 16 17 | d9 09 21 16 1a db 09 21 |!....!..|..!....!|
|00001fc0| 16 1c f5 09 0e 06 5c 22 | 88 ec 0e 0e 0e 0f 0e 5c |......\"|.......\|
|00001fd0| 6e 23 88 cd 89 16 0c aa | 5c 22 f6 09 21 ab 86 c2 |n#......|\"..!...|
|00001fe0| f7 21 88 aa 15 f8 09 21 | 88 aa 0f f9 0e 5c 6e 21 |.!.....!|.....\n!|
|00001ff0| fa 0e 5c 6e 21 42 16 10 | 0e 1e fb 3d ab a5 60 0e |..\n!B..|...=..`.|
|00002000| 10 41 55 1e 3c 0e 10 41 | 62 88 6d ac 87 0e 10 89 |.AU.<..A|b.m.....|
|00002010| 41 54 a1 88 0e 3c ab 85 | 0e 10 41 aa 83 0e 10 40 |AT...<..|..A....@|
|00002020| 62 88 29 29 0e 10 2e 07 | 87 22 20 5b 62 75 74 74 |b.))....|." [butt|
|00002030| 6f 6e 2d 70 72 65 73 73 | 2d 65 76 65 6e 74 2d 70 |on-press|-event-p|
|00002040| 20 65 76 65 6e 74 20 65 | 72 72 6f 72 20 22 25 73 | event e|rror "%s|
|00002050| 20 6d 75 73 74 20 62 65 | 20 69 6e 76 6f 6b 65 64 | must be| invoked|
|00002060| 20 62 79 20 61 20 6d 6f | 75 73 65 2d 70 72 65 73 | by a mo|use-pres|
|00002070| 73 22 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 20 |s" this-|command |
|00002080| 65 76 65 6e 74 2d 77 69 | 6e 64 6f 77 20 77 69 6e |event-wi|ndow win|
|00002090| 64 6f 77 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |dow make|-extent |
|000020a0| 31 20 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |1 window|-buffer |
|000020b0| 65 78 74 65 6e 74 20 74 | 20 6d 6f 75 73 65 2d 64 |extent t| mouse-d|
|000020c0| 6f 77 6e 20 6e 69 6c 20 | 6d 69 6e 2d 61 6e 63 68 |own nil |min-anch|
|000020d0| 6f 72 20 6d 61 78 2d 61 | 6e 63 68 6f 72 20 72 65 |or max-a|nchor re|
|000020e0| 73 75 6c 74 20 70 72 65 | 76 69 6f 75 73 2d 70 6f |sult pre|vious-po|
|000020f0| 69 6e 74 20 73 65 74 2d | 65 78 74 65 6e 74 2d 66 |int set-|extent-f|
|00002100| 61 63 65 20 66 61 63 65 | 20 73 65 74 2d 65 78 74 |ace face| set-ext|
|00002110| 65 6e 74 2d 70 72 69 6f | 72 69 74 79 20 6d 6f 75 |ent-prio|rity mou|
|00002120| 73 65 2d 68 69 67 68 6c | 69 67 68 74 2d 70 72 69 |se-highl|ight-pri|
|00002130| 6f 72 69 74 79 20 65 76 | 65 6e 74 2d 74 69 6d 65 |ority ev|ent-time|
|00002140| 73 74 61 6d 70 20 6d 6f | 75 73 65 2d 74 72 61 63 |stamp mo|use-trac|
|00002150| 6b 2d 75 70 2d 74 69 6d | 65 20 6d 6f 75 73 65 2d |k-up-tim|e mouse-|
|00002160| 74 72 61 63 6b 2d 6d 75 | 6c 74 69 63 6c 69 63 6b |track-mu|lticlick|
|00002170| 2d 74 69 6d 65 20 65 76 | 65 6e 74 2d 78 20 6d 6f |-time ev|ent-x mo|
|00002180| 75 73 65 2d 74 72 61 63 | 6b 2d 75 70 2d 78 20 65 |use-trac|k-up-x e|
|00002190| 76 65 6e 74 2d 79 20 6d | 6f 75 73 65 2d 74 72 61 |vent-y m|ouse-tra|
|000021a0| 63 6b 2d 75 70 2d 79 20 | 6d 6f 75 73 65 2d 74 72 |ck-up-y |mouse-tr|
|000021b0| 61 63 6b 2d 6e 65 78 74 | 2d 74 79 70 65 20 6d 6f |ack-next|-type mo|
|000021c0| 75 73 65 2d 74 72 61 63 | 6b 2d 74 79 70 65 20 61 |use-trac|k-type a|
|000021d0| 64 6a 75 73 74 20 63 68 | 61 72 20 73 65 6c 65 63 |djust ch|ar selec|
|000021e0| 74 2d 77 69 6e 64 6f 77 | 20 6d 6f 75 73 65 2d 74 |t-window| mouse-t|
|000021f0| 72 61 63 6b 2d 73 65 74 | 2d 70 6f 69 6e 74 2d 61 |rack-set|-point-a|
|00002200| 6e 64 2d 74 69 6d 65 6f | 75 74 20 6d 6f 75 73 65 |nd-timeo|ut mouse|
|00002210| 2d 74 72 61 63 6b 2d 61 | 6e 63 68 6f 72 20 61 6e |-track-a|nchor an|
|00002220| 63 68 6f 72 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |chor mou|se-track|
|00002230| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 2d 70 6f 69 6e 74 |-normali|ze-point|
|00002240| 20 7a 6d 61 63 73 2d 72 | 65 67 69 6f 6e 73 20 7a | zmacs-r|egions z|
|00002250| 6d 61 63 73 2d 64 65 61 | 63 74 69 76 61 74 65 2d |macs-dea|ctivate-|
|00002260| 72 65 67 69 6f 6e 20 77 | 69 6e 64 6f 77 2d 73 79 |region w|indow-sy|
|00002270| 73 74 65 6d 20 78 20 78 | 2d 64 69 73 6f 77 6e 2d |stem x x|-disown-|
|00002280| 73 65 6c 65 63 74 69 6f | 6e 20 28 28 62 79 74 65 |selectio|n ((byte|
|00002290| 2d 63 6f 64 65 20 22 c0 | 09 21 88 c2 20 87 22 20 |-code ".|.!.. ." |
|000022a0| 5b 64 65 6c 65 74 65 2d | 65 78 74 65 6e 74 20 65 |[delete-|extent e|
|000022b0| 78 74 65 6e 74 20 6d 6f | 75 73 65 2d 74 72 61 63 |xtent mo|use-trac|
|000022c0| 6b 2d 63 6c 65 61 6e 75 | 70 2d 74 69 6d 65 6f 75 |k-cleanu|p-timeou|
|000022d0| 74 5d 20 32 29 29 20 6d | 6f 75 73 65 2d 74 72 61 |t] 2)) m|ouse-tra|
|000022e0| 63 6b 2d 6e 65 78 74 2d | 6d 6f 76 65 20 6e 65 78 |ck-next-|move nex|
|000022f0| 74 2d 65 76 65 6e 74 20 | 6d 6f 75 73 65 2d 74 72 |t-event |mouse-tr|
|00002300| 61 63 6b 2d 63 6c 65 61 | 6e 75 70 2d 74 69 6d 65 |ack-clea|nup-time|
|00002310| 6f 75 74 20 6d 6f 74 69 | 6f 6e 2d 65 76 65 6e 74 |out moti|on-event|
|00002320| 2d 70 20 74 69 6d 65 6f | 75 74 2d 65 76 65 6e 74 |-p timeo|ut-event|
|00002330| 2d 70 20 65 76 65 6e 74 | 2d 66 75 6e 63 74 69 6f |-p event|-functio|
|00002340| 6e 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 73 63 |n mouse-|track-sc|
|00002350| 72 6f 6c 6c 2d 75 6e 64 | 65 66 69 6e 65 64 20 65 |roll-und|efined e|
|00002360| 76 65 6e 74 2d 6f 62 6a | 65 63 74 20 62 75 74 74 |vent-obj|ect butt|
|00002370| 6f 6e 2d 72 65 6c 65 61 | 73 65 2d 65 76 65 6e 74 |on-relea|se-event|
|00002380| 2d 70 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 73 |-p mouse|-track-s|
|00002390| 65 74 2d 70 6f 69 6e 74 | 2d 69 6e 2d 77 69 6e 64 |et-point|-in-wind|
|000023a0| 6f 77 20 6b 65 79 2d 70 | 72 65 73 73 2d 65 76 65 |ow key-p|ress-eve|
|000023b0| 6e 74 2d 70 20 22 53 65 | 6c 65 63 74 69 6f 6e 20 |nt-p "Se|lection |
|000023c0| 61 62 6f 72 74 65 64 22 | 20 64 69 73 70 61 74 63 |aborted"| dispatc|
|000023d0| 68 2d 65 76 65 6e 74 20 | 65 78 74 65 6e 74 2d 73 |h-event |extent-s|
|000023e0| 74 61 72 74 2d 70 6f 73 | 69 74 69 6f 6e 20 65 78 |tart-pos|ition ex|
|000023f0| 74 65 6e 74 2d 65 6e 64 | 2d 70 6f 73 69 74 69 6f |tent-end|-positio|
|00002400| 6e 20 6c 69 6e 65 20 65 | 6e 64 2d 70 5d 20 36 5d |n line e|nd-p] 6]|
|00002410| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 6d 61 79 | mouse-t|rack-may|
|00002420| 62 65 2d 6f 77 6e 2d 73 | 65 6c 65 63 74 69 6f 6e |be-own-s|election|
|00002430| 20 23 5b 28 70 61 69 72 | 20 74 79 70 65 29 20 22 | #[(pair| type) "|
|00002440| 08 40 08 41 19 89 1a 09 | 55 ac 8c c3 60 5c 6e 55 |.@.A....|U...`\nU|
|00002450| ab 83 09 aa 81 5c 6e 21 | 88 0c ab 8d 5c 6e 09 55 |.....\n!|....\n.U|
|00002460| ac aa c5 20 88 c6 16 07 | aa a2 0e 08 c9 3d ab 9c |... ....|.....=..|
|00002470| 5c 6e 09 55 ab 87 ca 0e | 0b 21 88 aa 90 cc cd 20 |\n.U....|.!..... |
|00002480| 5c 6e ce 93 cd 20 09 ce | 93 42 0e 0b 5c 22 88 0e |\n... ..|.B..\"..|
|00002490| 08 c9 3d ad 8b 5c 6e 09 | 55 3f ad 85 cf 5c 6e 09 |..=..\n.|U?...\n.|
|000024a0| 7b 21 2a 87 22 20 5b 70 | 61 69 72 20 65 6e 64 20 |{!*." [p|air end |
|000024b0| 73 74 61 72 74 20 70 75 | 73 68 2d 6d 61 72 6b 20 |start pu|sh-mark |
|000024c0| 7a 6d 61 63 73 2d 72 65 | 67 69 6f 6e 73 20 7a 6d |zmacs-re|gions zm|
|000024d0| 61 63 73 2d 61 63 74 69 | 76 61 74 65 2d 72 65 67 |acs-acti|vate-reg|
|000024e0| 69 6f 6e 20 74 20 7a 6d | 61 63 73 2d 72 65 67 69 |ion t zm|acs-regi|
|000024f0| 6f 6e 2d 73 74 61 79 73 | 20 77 69 6e 64 6f 77 2d |on-stays| window-|
|00002500| 73 79 73 74 65 6d 20 78 | 20 78 2d 64 69 73 6f 77 |system x| x-disow|
|00002510| 6e 2d 73 65 6c 65 63 74 | 69 6f 6e 20 74 79 70 65 |n-select|ion type|
|00002520| 20 78 2d 6f 77 6e 2d 73 | 65 6c 65 63 74 69 6f 6e | x-own-s|election|
|00002530| 20 6d 61 6b 65 2d 6d 61 | 72 6b 65 72 20 6e 69 6c | make-ma|rker nil|
|00002540| 20 78 2d 73 74 6f 72 65 | 2d 63 75 74 62 75 66 66 | x-store|-cutbuff|
|00002550| 65 72 5d 20 36 5d 5d 20 | 34 29 0a 28 66 73 65 74 |er] 6]] |4).(fset|
|00002560| 20 27 6d 6f 75 73 65 2d | 74 72 61 63 6b 20 23 5b | 'mouse-|track #[|
|00002570| 28 65 76 65 6e 74 29 20 | 22 c0 c1 c2 0b 21 21 21 |(event) |"....!!!|
|00002580| 88 60 70 c4 0b c5 c6 23 | 1e 07 1e 08 1e 09 0e 07 |.`p....#|........|
|00002590| 40 0e 07 41 9a ab 93 0e | 08 70 3d ab 8d 0e 09 0e |@..A....|.p=.....|
|000025a0| 07 40 9a ac 85 ca 0e 09 | 21 88 cb 0e 07 cc 5c 22 |.@......|!.....\"|
|000025b0| 2b 87 22 20 5b 73 65 6c | 65 63 74 2d 73 63 72 65 |+." [sel|ect-scre|
|000025c0| 65 6e 20 77 69 6e 64 6f | 77 2d 73 63 72 65 65 6e |en windo|w-screen|
|000025d0| 20 65 76 65 6e 74 2d 77 | 69 6e 64 6f 77 20 65 76 | event-w|indow ev|
|000025e0| 65 6e 74 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ent mous|e-track-|
|000025f0| 73 65 6c 65 63 74 20 6e | 69 6c 20 70 72 69 6d 61 |select n|il prima|
|00002600| 72 79 2d 73 65 6c 65 63 | 74 69 6f 6e 20 70 61 69 |ry-selec|tion pai|
|00002610| 72 20 62 20 70 20 70 75 | 73 68 2d 6d 61 72 6b 20 |r b p pu|sh-mark |
|00002620| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 6d 61 79 62 |mouse-tr|ack-mayb|
|00002630| 65 2d 6f 77 6e 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |e-own-se|lection |
|00002640| 50 52 49 4d 41 52 59 5d | 20 36 20 22 5c 0a 4d 61 |PRIMARY]| 6 "\.Ma|
|00002650| 6b 65 20 61 20 73 65 6c | 65 63 74 69 6f 6e 20 77 |ke a sel|ection w|
|00002660| 69 74 68 20 74 68 65 20 | 6d 6f 75 73 65 2e 20 20 |ith the |mouse.  |
|00002670| 54 68 69 73 20 73 68 6f | 75 6c 64 20 62 65 20 62 |This sho|uld be b|
|00002680| 6f 75 6e 64 20 74 6f 20 | 61 20 6d 6f 75 73 65 20 |ound to |a mouse |
|00002690| 62 75 74 74 6f 6e 2e 0a | 49 66 20 79 6f 75 20 63 |button..|If you c|
|000026a0| 6c 69 63 6b 2d 61 6e 64 | 2d 64 72 61 67 2c 20 74 |lick-and|-drag, t|
|000026b0| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 77 69 6c |he selec|tion wil|
|000026c0| 6c 20 62 65 20 73 65 74 | 20 74 6f 20 74 68 65 20 |l be set| to the |
|000026d0| 72 65 67 69 6f 6e 20 62 | 65 74 77 65 65 6e 20 74 |region b|etween t|
|000026e0| 68 65 0a 70 6f 69 6e 74 | 20 6f 66 20 74 68 65 20 |he.point| of the |
|000026f0| 69 6e 69 74 69 61 6c 20 | 63 6c 69 63 6b 20 61 6e |initial |click an|
|00002700| 64 20 74 68 65 20 70 6f | 69 6e 74 20 61 74 20 77 |d the po|int at w|
|00002710| 68 69 63 68 20 79 6f 75 | 20 72 65 6c 65 61 73 65 |hich you| release|
|00002720| 20 74 68 65 20 62 75 74 | 74 6f 6e 2e 0a 54 68 65 | the but|ton..The|
|00002730| 73 65 20 70 6f 73 69 74 | 69 6f 6e 73 20 6e 65 65 |se posit|ions nee|
|00002740| 64 20 6e 6f 74 20 62 65 | 20 6f 72 64 65 72 65 64 |d not be| ordered|
|00002750| 2e 0a 0a 49 66 20 79 6f | 75 20 63 6c 69 63 6b 2d |...If yo|u click-|
|00002760| 61 6e 64 2d 72 65 6c 65 | 61 73 65 20 77 69 74 68 |and-rele|ase with|
|00002770| 6f 75 74 20 6d 6f 76 69 | 6e 67 20 74 68 65 20 6d |out movi|ng the m|
|00002780| 6f 75 73 65 2c 20 74 68 | 65 6e 20 74 68 65 20 70 |ouse, th|en the p|
|00002790| 6f 69 6e 74 20 69 73 20 | 6d 6f 76 65 64 2c 0a 61 |oint is |moved,.a|
|000027a0| 6e 64 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |nd the s|election|
|000027b0| 20 69 73 20 64 69 73 6f | 77 6e 65 64 20 28 74 68 | is diso|wned (th|
|000027c0| 65 72 65 20 77 69 6c 6c | 20 62 65 20 6e 6f 20 73 |ere will| be no s|
|000027d0| 65 6c 65 63 74 69 6f 6e | 20 6f 77 6e 65 72 2e 29 |election| owner.)|
|000027e0| 20 20 54 68 65 20 6d 61 | 72 6b 0a 77 69 6c 6c 20 |  The ma|rk.will |
|000027f0| 62 65 20 73 65 74 20 74 | 6f 20 74 68 65 20 70 72 |be set t|o the pr|
|00002800| 65 76 69 6f 75 73 20 70 | 6f 73 69 74 69 6f 6e 20 |evious p|osition |
|00002810| 6f 66 20 70 6f 69 6e 74 | 2e 0a 0a 49 66 20 79 6f |of point|...If yo|
|00002820| 75 20 64 6f 75 62 6c 65 | 2d 63 6c 69 63 6b 2c 20 |u double|-click, |
|00002830| 74 68 65 20 73 65 6c 65 | 63 74 69 6f 6e 20 77 69 |the sele|ction wi|
|00002840| 6c 6c 20 65 78 74 65 6e | 64 20 62 79 20 73 79 6d |ll exten|d by sym|
|00002850| 62 6f 6c 73 20 69 6e 73 | 74 65 61 64 20 6f 66 20 |bols ins|tead of |
|00002860| 62 79 0a 63 68 61 72 61 | 63 74 65 72 73 2e 20 20 |by.chara|cters.  |
|00002870| 49 66 20 79 6f 75 20 74 | 72 69 70 6c 65 2d 63 6c |If you t|riple-cl|
|00002880| 69 63 6b 2c 20 74 68 65 | 20 73 65 6c 65 63 74 69 |ick, the| selecti|
|00002890| 6f 6e 20 77 69 6c 6c 20 | 65 78 74 65 6e 64 20 62 |on will |extend b|
|000028a0| 79 20 6c 69 6e 65 73 2e | 0a 0a 49 66 20 79 6f 75 |y lines.|..If you|
|000028b0| 20 64 72 61 67 20 74 68 | 65 20 6d 6f 75 73 65 20 | drag th|e mouse |
|000028c0| 6f 66 66 20 74 68 65 20 | 74 6f 70 20 6f 72 20 62 |off the |top or b|
|000028d0| 6f 74 74 6f 6d 20 6f 66 | 20 74 68 65 20 77 69 6e |ottom of| the win|
|000028e0| 64 6f 77 2c 20 79 6f 75 | 20 63 61 6e 20 73 65 6c |dow, you| can sel|
|000028f0| 65 63 74 0a 70 69 65 63 | 65 73 20 6f 66 20 74 65 |ect.piec|es of te|
|00002900| 78 74 20 77 68 69 63 68 | 20 61 72 65 20 6c 61 72 |xt which| are lar|
|00002910| 67 65 72 20 74 68 61 6e | 20 74 68 65 20 76 69 73 |ger than| the vis|
|00002920| 69 62 6c 65 20 70 61 72 | 74 20 6f 66 20 74 68 65 |ible par|t of the|
|00002930| 20 62 75 66 66 65 72 3b | 20 74 68 65 20 0a 62 75 | buffer;| the .bu|
|00002940| 66 66 65 72 20 77 69 6c | 6c 20 73 63 72 6f 6c 6c |ffer wil|l scroll|
|00002950| 20 61 73 20 6e 65 63 65 | 73 73 61 72 79 2e 0a 0a | as nece|ssary...|
|00002960| 54 68 65 20 73 65 6c 65 | 63 74 65 64 20 74 65 78 |The sele|cted tex|
|00002970| 74 20 62 65 63 6f 6d 65 | 73 20 74 68 65 20 63 75 |t become|s the cu|
|00002980| 72 72 65 6e 74 20 58 20 | 53 65 6c 65 63 74 69 6f |rrent X |Selectio|
|00002990| 6e 2c 20 61 6e 64 20 69 | 73 20 61 6c 73 6f 20 63 |n, and i|s also c|
|000029a0| 6f 70 69 65 64 20 74 6f | 20 74 68 65 0a 74 6f 70 |opied to| the.top|
|000029b0| 20 6f 66 20 74 68 65 20 | 6b 69 6c 6c 20 72 69 6e | of the |kill rin|
|000029c0| 67 2e 20 20 54 68 65 20 | 70 6f 69 6e 74 20 77 69 |g.  The |point wi|
|000029d0| 6c 6c 20 62 65 20 6c 65 | 66 74 20 61 74 20 74 68 |ll be le|ft at th|
|000029e0| 65 20 70 6f 73 69 74 69 | 6f 6e 20 61 74 20 77 68 |e positi|on at wh|
|000029f0| 69 63 68 20 79 6f 75 0a | 72 65 6c 65 61 73 65 64 |ich you.|released|
|00002a00| 20 74 68 65 20 62 75 74 | 74 6f 6e 2c 20 61 6e 64 | the but|ton, and|
|00002a10| 20 74 68 65 20 6d 61 72 | 6b 20 77 69 6c 6c 20 62 | the mar|k will b|
|00002a20| 65 20 6c 65 66 74 20 61 | 74 20 74 68 65 20 69 6e |e left a|t the in|
|00002a30| 69 74 69 61 6c 20 63 6c | 69 63 6b 20 70 6f 73 69 |itial cl|ick posi|
|00002a40| 74 69 6f 6e 2e 0a 0a 53 | 65 65 20 61 6c 73 6f 20 |tion...S|ee also |
|00002a50| 74 68 65 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |the `mou|se-track|
|00002a60| 2d 61 64 6a 75 73 74 27 | 20 63 6f 6d 6d 61 6e 64 |-adjust'| command|
|00002a70| 2c 20 6f 6e 20 5c 5c 5b | 6d 6f 75 73 65 2d 74 72 |, on \\[|mouse-tr|
|00002a80| 61 63 6b 2d 61 64 6a 75 | 73 74 5d 2e 22 20 22 65 |ack-adju|st]." "e|
|00002a90| 22 5d 29 0a 28 66 73 65 | 74 20 27 6d 6f 75 73 65 |"]).(fse|t 'mouse|
|00002aa0| 2d 74 72 61 63 6b 2d 61 | 64 6a 75 73 74 20 23 5b |-track-a|djust #[|
|00002ab0| 28 65 76 65 6e 74 29 20 | 22 c0 c1 c2 0b 21 21 21 |(event) |"....!!!|
|00002ac0| 88 c4 c5 0b c6 c7 23 c8 | 5c 22 87 22 20 5b 73 65 |......#.|\"." [se|
|00002ad0| 6c 65 63 74 2d 73 63 72 | 65 65 6e 20 77 69 6e 64 |lect-scr|een wind|
|00002ae0| 6f 77 2d 73 63 72 65 65 | 6e 20 65 76 65 6e 74 2d |ow-scree|n event-|
|00002af0| 77 69 6e 64 6f 77 20 65 | 76 65 6e 74 20 6d 6f 75 |window e|vent mou|
|00002b00| 73 65 2d 74 72 61 63 6b | 2d 6d 61 79 62 65 2d 6f |se-track|-maybe-o|
|00002b10| 77 6e 2d 73 65 6c 65 63 | 74 69 6f 6e 20 6d 6f 75 |wn-selec|tion mou|
|00002b20| 73 65 2d 74 72 61 63 6b | 2d 73 65 6c 65 63 74 20 |se-track|-select |
|00002b30| 74 20 70 72 69 6d 61 72 | 79 2d 73 65 6c 65 63 74 |t primar|y-select|
|00002b40| 69 6f 6e 20 50 52 49 4d | 41 52 59 5d 20 35 20 22 |ion PRIM|ARY] 5 "|
|00002b50| 5c 0a 45 78 74 65 6e 64 | 20 74 68 65 20 65 78 69 |\.Extend| the exi|
|00002b60| 73 74 69 6e 67 20 73 65 | 6c 65 63 74 69 6f 6e 2e |sting se|lection.|
|00002b70| 20 20 54 68 69 73 20 73 | 68 6f 75 6c 64 20 62 65 |  This s|hould be|
|00002b80| 20 62 6f 75 6e 64 20 74 | 6f 20 61 20 6d 6f 75 73 | bound t|o a mous|
|00002b90| 65 20 62 75 74 74 6f 6e | 2e 0a 54 68 65 20 73 65 |e button|..The se|
|00002ba0| 6c 65 63 74 69 6f 6e 20 | 77 69 6c 6c 20 62 65 20 |lection |will be |
|00002bb0| 65 6e 6c 61 72 67 65 64 | 20 6f 72 20 73 68 72 75 |enlarged| or shru|
|00002bc0| 6e 6b 20 73 6f 20 74 68 | 61 74 20 74 68 65 20 70 |nk so th|at the p|
|00002bd0| 6f 69 6e 74 20 6f 66 20 | 74 68 65 20 6d 6f 75 73 |oint of |the mous|
|00002be0| 65 0a 63 6c 69 63 6b 20 | 69 73 20 6f 6e 65 20 6f |e.click |is one o|
|00002bf0| 66 20 69 74 73 20 65 6e | 64 70 6f 69 6e 74 73 2e |f its en|dpoints.|
|00002c00| 20 20 54 68 69 73 20 69 | 73 20 6f 6e 6c 79 20 72 |  This i|s only r|
|00002c10| 65 61 6c 6c 79 20 6d 65 | 61 6e 69 6e 67 66 75 6c |eally me|aningful|
|00002c20| 20 61 66 74 65 72 20 74 | 68 65 0a 60 6d 6f 75 73 | after t|he.`mous|
|00002c30| 65 2d 74 72 61 63 6b 27 | 20 63 6f 6d 6d 61 6e 64 |e-track'| command|
|00002c40| 20 28 5c 5c 5b 6d 6f 75 | 73 65 2d 74 72 61 63 6b | (\\[mou|se-track|
|00002c50| 5d 29 20 68 61 73 20 62 | 65 65 6e 20 65 78 65 63 |]) has b|een exec|
|00002c60| 75 74 65 64 2e 22 20 22 | 65 22 5d 29 0a 28 66 73 |uted." "|e"]).(fs|
|00002c70| 65 74 20 27 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |et 'mous|e-track-|
|00002c80| 69 6e 73 65 72 74 20 23 | 5b 28 65 76 65 6e 74 20 |insert #|[(event |
|00002c90| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 65 6c 65 74 65 |&optiona|l delete|
|00002ca0| 29 20 22 8a c0 8b 29 89 | 19 c2 9a ae 82 09 63 29 |) "...).|......c)|
|00002cb0| 87 22 20 5b 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |." [((by|te-code |
|00002cc0| 22 c0 09 c2 c3 23 89 1c | 40 0c 41 7b 0d ab 87 c6 |"....#..|@.A{....|
|00002cd0| 0c 40 0c 41 5c 22 88 29 | 87 22 20 5b 6d 6f 75 73 |.@.A\".)|." [mous|
|00002ce0| 65 2d 74 72 61 63 6b 2d | 73 65 6c 65 63 74 20 65 |e-track-|select e|
|00002cf0| 76 65 6e 74 20 6e 69 6c | 20 70 72 69 6d 61 72 79 |vent nil| primary|
|00002d00| 2d 73 65 6c 65 63 74 69 | 6f 6e 20 70 61 69 72 20 |-selecti|on pair |
|00002d10| 64 65 6c 65 74 65 20 6b | 69 6c 6c 2d 72 65 67 69 |delete k|ill-regi|
|00002d20| 6f 6e 5d 20 35 29 29 20 | 73 20 22 22 5d 20 33 20 |on] 5)) |s ""] 3 |
|00002d30| 22 5c 0a 4d 61 6b 65 20 | 61 20 73 65 6c 65 63 74 |"\.Make |a select|
|00002d40| 69 6f 6e 20 77 69 74 68 | 20 74 68 65 20 6d 6f 75 |ion with| the mou|
|00002d50| 73 65 20 61 6e 64 20 69 | 6e 73 65 72 74 20 69 74 |se and i|nsert it|
|00002d60| 20 61 74 20 70 6f 69 6e | 74 2e 0a 54 68 69 73 20 | at poin|t..This |
|00002d70| 69 73 20 65 78 61 63 74 | 6c 79 20 74 68 65 20 73 |is exact|ly the s|
|00002d80| 61 6d 65 20 61 73 20 74 | 68 65 20 60 6d 6f 75 73 |ame as t|he `mous|
|00002d90| 65 2d 74 72 61 63 6b 27 | 20 63 6f 6d 6d 61 6e 64 |e-track'| command|
|00002da0| 20 6f 6e 20 5c 5c 5b 6d | 6f 75 73 65 2d 74 72 61 | on \\[m|ouse-tra|
|00002db0| 63 6b 5d 2c 20 0a 65 78 | 63 65 70 74 20 74 68 61 |ck], .ex|cept tha|
|00002dc0| 74 20 70 6f 69 6e 74 20 | 69 73 20 6e 6f 74 20 6d |t point |is not m|
|00002dd0| 6f 76 65 64 3b 20 74 68 | 65 20 73 65 6c 65 63 74 |oved; th|e select|
|00002de0| 65 64 20 74 65 78 74 20 | 69 73 20 69 6d 6d 65 64 |ed text |is immed|
|00002df0| 69 61 74 65 6c 79 20 69 | 6e 73 65 72 74 65 64 0a |iately i|nserted.|
|00002e00| 61 66 74 65 72 20 62 65 | 69 6e 67 20 73 65 6c 65 |after be|ing sele|
|00002e10| 63 74 65 64 3b 20 61 6e | 64 20 74 68 65 20 73 65 |cted; an|d the se|
|00002e20| 6c 65 63 74 69 6f 6e 20 | 69 73 20 69 6d 6d 65 64 |lection |is immed|
|00002e30| 69 61 74 65 6c 79 20 64 | 69 73 6f 77 6e 65 64 20 |iately d|isowned |
|00002e40| 61 66 74 65 72 77 61 72 | 64 73 2e 22 20 22 2a 65 |afterwar|ds." "*e|
|00002e50| 22 5d 29 0a 28 66 73 65 | 74 20 27 6d 6f 75 73 65 |"]).(fse|t 'mouse|
|00002e60| 2d 74 72 61 63 6b 2d 64 | 65 6c 65 74 65 2d 61 6e |-track-d|elete-an|
|00002e70| 64 2d 69 6e 73 65 72 74 | 20 23 5b 28 65 76 65 6e |d-insert| #[(even|
|00002e80| 74 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 6d 6f 75 |t) "...\|"." [mou|
|00002e90| 73 65 2d 74 72 61 63 6b | 2d 69 6e 73 65 72 74 20 |se-track|-insert |
|00002ea0| 65 76 65 6e 74 20 74 5d | 20 33 20 22 5c 0a 4d 61 |event t]| 3 "\.Ma|
|00002eb0| 6b 65 20 61 20 73 65 6c | 65 63 74 69 6f 6e 20 77 |ke a sel|ection w|
|00002ec0| 69 74 68 20 74 68 65 20 | 6d 6f 75 73 65 20 61 6e |ith the |mouse an|
|00002ed0| 64 20 69 6e 73 65 72 74 | 20 69 74 20 61 74 20 70 |d insert| it at p|
|00002ee0| 6f 69 6e 74 2e 0a 54 68 | 69 73 20 69 73 20 65 78 |oint..Th|is is ex|
|00002ef0| 61 63 74 6c 79 20 74 68 | 65 20 73 61 6d 65 20 61 |actly th|e same a|
|00002f00| 73 20 74 68 65 20 60 6d | 6f 75 73 65 2d 74 72 61 |s the `m|ouse-tra|
|00002f10| 63 6b 27 20 63 6f 6d 6d | 61 6e 64 20 6f 6e 20 5c |ck' comm|and on \|
|00002f20| 5c 5b 6d 6f 75 73 65 2d | 74 72 61 63 6b 5d 2c 20 |\[mouse-|track], |
|00002f30| 0a 65 78 63 65 70 74 20 | 74 68 61 74 20 70 6f 69 |.except |that poi|
|00002f40| 6e 74 20 69 73 20 6e 6f | 74 20 6d 6f 76 65 64 3b |nt is no|t moved;|
|00002f50| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 74 65 | the sel|ected te|
|00002f60| 78 74 20 69 73 20 69 6d | 6d 65 64 69 61 74 65 6c |xt is im|mediatel|
|00002f70| 79 20 69 6e 73 65 72 74 | 65 64 0a 61 66 74 65 72 |y insert|ed.after|
|00002f80| 20 62 65 69 6e 67 20 73 | 65 6c 65 63 74 65 64 3b | being s|elected;|
|00002f90| 20 61 6e 64 20 74 68 65 | 20 74 65 78 74 20 6f 66 | and the| text of|
|00002fa0| 20 74 68 65 20 73 65 6c | 65 63 74 69 6f 6e 20 69 | the sel|ection i|
|00002fb0| 73 20 64 65 6c 65 74 65 | 64 2e 22 20 22 2a 65 22 |s delete|d." "*e"|
|00002fc0| 5d 29 0a                |                         |]).     |        |
+--------+-------------------------+-------------------------+--------+--------+