home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 30.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 31 3a 33 | 38 20 31 39 39 35 0a 3b | 14:21:3|8 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 72 | 69 6d 2f 6d 6f 75 73 65 |/lisp/pr|im/mouse|
|00000090| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000a0| 72 73 69 6f 6e 20 31 39 | 2e 31 33 20 58 45 6d 61 |rsion 19|.13 XEma|
|000000b0| 63 73 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |cs Lucid|..;;; by|
|000000c0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000d0| 2e 32 35 3b 20 31 2d 53 | 65 70 2d 39 34 2e 0a 3b |.25; 1-S|ep-94..;|
|000000e0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000f0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000100| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000110| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000120| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000130| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000140| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000150| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000160| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000170| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000180| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|. (s|
|00000190| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001a0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001b0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |). (e|rror "Th|
|000001c0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001d0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001e0| 39 2e 22 29 29 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |9."))..(|byte-cod|
|000001f0| 65 20 22 c0 c1 21 88 c2 | c3 21 88 c4 c5 c6 5c 22 |e "..!..|.!....\"|
|00000200| 88 c4 c7 c8 5c 22 88 c4 | c9 ca 5c 22 88 c4 cb cc |....\"..|..\"....|
|00000210| 5c 22 88 c4 cd ce 5c 22 | 88 c4 cf d0 5c 22 88 d1 |\"....\"|....\"..|
|00000220| 0e 12 c5 d3 23 88 d1 0e | 12 d4 d5 23 88 d1 0e 16 |....#...|...#....|
|00000230| d7 d8 23 88 d1 0e 19 c5 | da 23 88 d1 0e 19 d7 db |..#.....|.#......|
|00000240| 23 88 dc dd 21 ac 83 de | 16 1d dc df 21 ac 83 de |#...!...|....!...|
|00000250| 16 1f de 87 22 20 5b 70 | 72 6f 76 69 64 65 20 6d |...." [p|rovide m|
|00000260| 6f 75 73 65 20 72 65 71 | 75 69 72 65 20 6d 6f 64 |ouse req|uire mod|
|00000270| 65 2d 6d 6f 74 69 6f 6e | 20 67 6c 6f 62 61 6c 2d |e-motion| global-|
|00000280| 73 65 74 2d 6b 65 79 20 | 62 75 74 74 6f 6e 31 20 |set-key |button1 |
|00000290| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 20 28 73 68 69 |mouse-tr|ack (shi|
|000002a0| 66 74 20 62 75 74 74 6f | 6e 31 29 20 6d 6f 75 73 |ft butto|n1) mous|
|000002b0| 65 2d 74 72 61 63 6b 2d | 61 64 6a 75 73 74 20 28 |e-track-|adjust (|
|000002c0| 63 6f 6e 74 72 6f 6c 20 | 62 75 74 74 6f 6e 31 29 |control |button1)|
|000002d0| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 69 6e 73 | mouse-t|rack-ins|
|000002e0| 65 72 74 20 28 63 6f 6e | 74 72 6f 6c 20 73 68 69 |ert (con|trol shi|
|000002f0| 66 74 20 62 75 74 74 6f | 6e 31 29 20 6d 6f 75 73 |ft butto|n1) mous|
|00000300| 65 2d 74 72 61 63 6b 2d | 64 65 6c 65 74 65 2d 61 |e-track-|delete-a|
|00000310| 6e 64 2d 69 6e 73 65 72 | 74 20 28 6d 65 74 61 20 |nd-inser|t (meta |
|00000320| 62 75 74 74 6f 6e 31 29 | 20 6d 6f 75 73 65 2d 74 |button1)| mouse-t|
|00000330| 72 61 63 6b 2d 64 6f 2d | 72 65 63 74 61 6e 67 6c |rack-do-|rectangl|
|00000340| 65 20 62 75 74 74 6f 6e | 32 20 6d 6f 75 73 65 2d |e button|2 mouse-|
|00000350| 79 61 6e 6b 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |yank def|ine-key |
|00000360| 6d 6f 64 65 6c 69 6e 65 | 2d 6d 61 70 20 6d 6f 75 |modeline|-map mou|
|00000370| 73 65 2d 64 72 61 67 2d | 6d 6f 64 65 6c 69 6e 65 |se-drag-|modeline|
|00000380| 20 62 75 74 74 6f 6e 33 | 20 6d 6f 64 65 6c 69 6e | button3| modelin|
|00000390| 65 2d 6d 65 6e 75 20 67 | 6c 6f 62 61 6c 2d 6d 61 |e-menu g|lobal-ma|
|000003a0| 70 20 62 75 74 74 6f 6e | 31 75 70 20 72 65 6c 65 |p button|1up rele|
|000003b0| 61 73 65 2d 74 6f 6f 6c | 62 61 72 2d 62 75 74 74 |ase-tool|bar-butt|
|000003c0| 6f 6e 20 74 6f 6f 6c 62 | 61 72 2d 6d 61 70 20 70 |on toolb|ar-map p|
|000003d0| 72 65 73 73 2d 74 6f 6f | 6c 62 61 72 2d 62 75 74 |ress-too|lbar-but|
|000003e0| 74 6f 6e 20 72 65 6c 65 | 61 73 65 2d 61 6e 64 2d |ton rele|ase-and-|
|000003f0| 61 63 74 69 76 61 74 65 | 2d 74 6f 6f 6c 62 61 72 |activate|-toolbar|
|00000400| 2d 62 75 74 74 6f 6e 20 | 62 6f 75 6e 64 70 20 6c |-button |boundp l|
|00000410| 61 73 74 2d 70 72 65 73 | 73 65 64 2d 74 6f 6f 6c |ast-pres|sed-tool|
|00000420| 62 61 72 2d 62 75 74 74 | 6f 6e 20 6e 69 6c 20 74 |bar-butt|on nil t|
|00000430| 6f 6f 6c 62 61 72 2d 61 | 63 74 69 76 65 5d 20 34 |oolbar-a|ctive] 4|
|00000440| 29 0a 28 64 65 66 76 61 | 72 20 6d 6f 75 73 65 2d |).(defva|r mouse-|
|00000450| 74 72 61 63 6b 2d 72 65 | 63 74 61 6e 67 6c 65 2d |track-re|ctangle-|
|00000460| 70 20 6e 69 6c 20 22 5c | 0a 2a 49 66 20 74 72 75 |p nil "\|.*If tru|
|00000470| 65 2c 20 74 68 65 6e 20 | 64 72 61 67 67 69 6e 67 |e, then |dragging|
|00000480| 20 6f 75 74 20 61 20 72 | 65 67 69 6f 6e 20 77 69 | out a r|egion wi|
|00000490| 74 68 20 74 68 65 20 6d | 6f 75 73 65 20 73 65 6c |th the m|ouse sel|
|000004a0| 65 63 74 73 20 72 65 63 | 74 61 6e 67 6c 65 73 0a |ects rec|tangles.|
|000004b0| 69 6e 73 74 65 61 64 20 | 6f 66 20 73 69 6d 70 6c |instead |of simpl|
|000004c0| 65 20 73 74 61 72 74 2f | 65 6e 64 20 72 65 67 69 |e start/|end regi|
|000004d0| 6f 6e 73 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6d |ons.").(|defvar m|
|000004e0| 6f 75 73 65 2d 79 61 6e | 6b 2d 61 74 2d 70 6f 69 |ouse-yan|k-at-poi|
|000004f0| 6e 74 20 6e 69 6c 20 22 | 5c 0a 2a 49 66 20 6e 6f |nt nil "|\.*If no|
|00000500| 6e 2d 6e 69 6c 2c 20 74 | 68 65 20 66 75 6e 63 74 |n-nil, t|he funct|
|00000510| 69 6f 6e 20 60 6d 6f 75 | 73 65 2d 79 61 6e 6b 27 |ion `mou|se-yank'|
|00000520| 20 77 69 6c 6c 20 79 61 | 6e 6b 20 74 65 78 74 20 | will ya|nk text |
|00000530| 61 74 20 74 68 65 20 63 | 75 72 73 6f 72 20 6c 6f |at the c|ursor lo|
|00000540| 63 61 74 69 6f 6e 2e 0a | 4f 74 68 65 72 77 69 73 |cation..|Otherwis|
|00000550| 65 2c 20 74 68 65 20 63 | 75 72 73 6f 72 20 77 69 |e, the c|ursor wi|
|00000560| 6c 6c 20 62 65 20 6d 6f | 76 65 64 20 74 6f 20 74 |ll be mo|ved to t|
|00000570| 68 65 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 74 |he locat|ion of t|
|00000580| 68 65 20 70 6f 69 6e 74 | 65 72 20 63 6c 69 63 6b |he point|er click|
|00000590| 20 62 65 66 6f 72 65 0a | 74 65 78 74 20 69 73 20 | before.|text is |
|000005a0| 69 6e 73 65 72 74 65 64 | 2e 22 29 0a 28 64 65 66 |inserted|.").(def|
|000005b0| 76 61 72 20 6d 6f 75 73 | 65 2d 79 61 6e 6b 2d 66 |var mous|e-yank-f|
|000005c0| 75 6e 63 74 69 6f 6e 20 | 27 79 61 6e 6b 20 22 5c |unction |'yank "\|
|000005d0| 0a 46 75 6e 63 74 69 6f | 6e 20 74 68 61 74 20 69 |.Functio|n that i|
|000005e0| 73 20 63 61 6c 6c 65 64 | 20 75 70 6f 6e 20 62 79 |s called| upon by|
|000005f0| 20 60 6d 6f 75 73 65 2d | 79 61 6e 6b 27 20 74 6f | `mouse-|yank' to|
|00000600| 20 61 63 74 75 61 6c 6c | 79 20 69 6e 73 65 72 74 | actuall|y insert|
|00000610| 20 74 65 78 74 2e 22 29 | 0a 28 64 65 66 75 6e 20 | text.")|.(defun |
|00000620| 6d 6f 75 73 65 2d 73 65 | 6c 65 63 74 20 6e 69 6c |mouse-se|lect nil|
|00000630| 20 22 5c 0a 53 65 6c 65 | 63 74 20 45 6d 61 63 73 | "\.Sele|ct Emacs|
|00000640| 20 77 69 6e 64 6f 77 20 | 74 68 65 20 6d 6f 75 73 | window |the mous|
|00000650| 65 20 69 73 20 6f 6e 2e | 22 20 28 69 6e 74 65 72 |e is on.|" (inter|
|00000660| 61 63 74 69 76 65 20 22 | 40 22 29 29 0a 28 66 73 |active "|@")).(fs|
|00000670| 65 74 20 27 6d 6f 75 73 | 65 2d 64 65 6c 65 74 65 |et 'mous|e-delete|
|00000680| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|00000690| 20 87 22 20 5b 64 65 6c | 65 74 65 2d 77 69 6e 64 | ." [del|ete-wind|
|000006a0| 6f 77 5d 20 31 20 22 5c | 0a 44 65 6c 65 74 65 20 |ow] 1 "\|.Delete |
|000006b0| 74 68 65 20 45 6d 61 63 | 73 20 77 69 6e 64 6f 77 |the Emac|s window|
|000006c0| 20 74 68 65 20 6d 6f 75 | 73 65 20 69 73 20 6f 6e | the mou|se is on|
|000006d0| 2e 22 20 22 40 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "@"])|.(fset '|
|000006e0| 6d 6f 75 73 65 2d 6b 65 | 65 70 2d 6f 6e 65 2d 77 |mouse-ke|ep-one-w|
|000006f0| 69 6e 64 6f 77 20 23 5b | 6e 69 6c 20 22 c0 20 87 |indow #[|nil ". .|
|00000700| 22 20 5b 64 65 6c 65 74 | 65 2d 6f 74 68 65 72 2d |" [delet|e-other-|
|00000710| 77 69 6e 64 6f 77 73 5d | 20 31 20 22 5c 0a 53 65 |windows]| 1 "\.Se|
|00000720| 6c 65 63 74 20 45 6d 61 | 63 73 20 77 69 6e 64 6f |lect Ema|cs windo|
|00000730| 77 20 6d 6f 75 73 65 20 | 69 73 20 6f 6e 2c 20 74 |w mouse |is on, t|
|00000740| 68 65 6e 20 6b 69 6c 6c | 20 61 6c 6c 20 6f 74 68 |hen kill| all oth|
|00000750| 65 72 20 45 6d 61 63 73 | 20 77 69 6e 64 6f 77 73 |er Emacs| windows|
|00000760| 2e 22 20 22 40 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "@"])|.(fset '|
|00000770| 6d 6f 75 73 65 2d 73 65 | 6c 65 63 74 2d 61 6e 64 |mouse-se|lect-and|
|00000780| 2d 73 70 6c 69 74 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-split #|[nil "..|
|00000790| 21 87 22 20 5b 73 70 6c | 69 74 2d 77 69 6e 64 6f |!." [spl|it-windo|
|000007a0| 77 2d 76 65 72 74 69 63 | 61 6c 6c 79 20 6e 69 6c |w-vertic|ally nil|
|000007b0| 5d 20 32 20 22 5c 0a 53 | 65 6c 65 63 74 20 45 6d |] 2 "\.S|elect Em|
|000007c0| 61 63 73 20 77 69 6e 64 | 6f 77 20 6d 6f 75 73 65 |acs wind|ow mouse|
|000007d0| 20 69 73 20 6f 6e 2c 20 | 74 68 65 6e 20 73 70 6c | is on, |then spl|
|000007e0| 69 74 20 69 74 20 76 65 | 72 74 69 63 61 6c 6c 79 |it it ve|rtically|
|000007f0| 20 69 6e 20 68 61 6c 66 | 2e 22 20 22 40 22 5d 29 | in half|." "@"])|
|00000800| 0a 28 66 73 65 74 20 27 | 6d 6f 75 73 65 2d 73 65 |.(fset '|mouse-se|
|00000810| 74 2d 70 6f 69 6e 74 20 | 23 5b 28 65 76 65 6e 74 |t-point |#[(event|
|00000820| 29 20 22 c0 09 21 c2 09 | 21 c3 09 21 1c 1d 89 1e |) "..!..|!..!....|
|00000830| 06 ac 84 c7 c8 21 88 c9 | 0e 06 21 88 0d ab 8d 0d |.....!..|..!.....|
|00000840| ca 56 ab 88 0d 64 5e 65 | 5d 62 aa 8e 0c ad 8b 0c |.V...d^e|]b......|
|00000850| ca 56 ad 86 0c 64 5e 65 | 5d 62 2b 87 22 20 5b 65 |.V...d^e|]b+." [e|
|00000860| 76 65 6e 74 2d 77 69 6e | 64 6f 77 20 65 76 65 6e |vent-win|dow even|
|00000870| 74 20 65 76 65 6e 74 2d | 70 6f 69 6e 74 20 65 76 |t event-|point ev|
|00000880| 65 6e 74 2d 63 6c 6f 73 | 65 73 74 2d 70 6f 69 6e |ent-clos|est-poin|
|00000890| 74 20 63 6c 6f 73 65 2d | 70 6f 73 20 70 6f 73 20 |t close-|pos pos |
|000008a0| 77 69 6e 64 6f 77 20 65 | 72 72 6f 72 20 22 6e 6f |window e|rror "no|
|000008b0| 74 20 69 6e 20 61 20 77 | 69 6e 64 6f 77 22 20 73 |t in a w|indow" s|
|000008c0| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 20 30 5d 20 |elect-wi|ndow 0] |
|000008d0| 35 20 22 5c 0a 53 65 6c | 65 63 74 20 45 6d 61 63 |5 "\.Sel|ect Emac|
|000008e0| 73 20 77 69 6e 64 6f 77 | 20 6d 6f 75 73 65 20 69 |s window| mouse i|
|000008f0| 73 20 6f 6e 2c 20 61 6e | 64 20 6d 6f 76 65 20 70 |s on, an|d move p|
|00000900| 6f 69 6e 74 20 74 6f 20 | 6d 6f 75 73 65 20 70 6f |oint to |mouse po|
|00000910| 73 69 74 69 6f 6e 2e 22 | 20 22 40 65 22 5d 29 0a |sition."| "@e"]).|
|00000920| 28 66 73 65 74 20 27 6d | 6f 75 73 65 2d 79 61 6e |(fset 'm|ouse-yan|
|00000930| 6b 20 23 5b 28 65 76 65 | 6e 74 29 20 22 08 ac 84 |k #[(eve|nt) "...|
|00000940| c1 5c 6e 21 88 0b 20 87 | 22 20 5b 6d 6f 75 73 65 |.\n!.. .|" [mouse|
|00000950| 2d 79 61 6e 6b 2d 61 74 | 2d 70 6f 69 6e 74 20 6d |-yank-at|-point m|
|00000960| 6f 75 73 65 2d 73 65 74 | 2d 70 6f 69 6e 74 20 65 |ouse-set|-point e|
|00000970| 76 65 6e 74 20 6d 6f 75 | 73 65 2d 79 61 6e 6b 2d |vent mou|se-yank-|
|00000980| 66 75 6e 63 74 69 6f 6e | 5d 20 32 20 22 5c 0a 50 |function|] 2 "\.P|
|00000990| 61 73 74 65 20 74 65 78 | 74 20 77 69 74 68 20 74 |aste tex|t with t|
|000009a0| 68 65 20 6d 6f 75 73 65 | 2e 0a 49 66 20 74 68 65 |he mouse|..If the|
|000009b0| 20 76 61 72 69 61 62 6c | 65 20 60 6d 6f 75 73 65 | variabl|e `mouse|
|000009c0| 2d 79 61 6e 6b 2d 61 74 | 2d 70 6f 69 6e 74 27 20 |-yank-at|-point' |
|000009d0| 69 73 20 6e 69 6c 2c 20 | 74 68 65 6e 20 70 61 73 |is nil, |then pas|
|000009e0| 74 69 6e 67 20 6f 63 63 | 75 72 73 20 61 74 20 74 |ting occ|urs at t|
|000009f0| 68 65 0a 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 74 |he.locat|ion of t|
|00000a00| 68 65 20 63 6c 69 63 6b | 3b 20 6f 74 68 65 72 77 |he click|; otherw|
|00000a10| 69 73 65 2c 20 70 61 73 | 74 69 6e 67 20 6f 63 63 |ise, pas|ting occ|
|00000a20| 75 72 73 20 61 74 20 74 | 68 65 20 63 75 72 72 65 |urs at t|he curre|
|00000a30| 6e 74 20 63 75 72 73 6f | 72 20 6c 6f 63 61 74 69 |nt curso|r locati|
|00000a40| 6f 6e 2e 22 20 22 65 22 | 5d 29 0a 28 66 73 65 74 |on." "e"|]).(fset|
|00000a50| 20 27 63 6c 69 63 6b 2d | 69 6e 73 69 64 65 2d 65 | 'click-|inside-e|
|00000a60| 78 74 65 6e 74 2d 70 20 | 23 5b 28 63 6c 69 63 6b |xtent-p |#[(click|
|00000a70| 20 65 78 74 65 6e 74 29 | 20 22 c0 09 21 c2 09 21 | extent)| "..!..!|
|00000a80| 1b 89 1c ad a0 0b ad 9d | 0d ad 9a c6 0c 21 c7 0d |........|.....!..|
|00000a90| 21 3d ad 91 c8 0d 21 ad | 8c 0b c8 0d 21 56 ad 85 |!=....!.|....!V..|
|00000aa0| c9 0d 21 0b 56 2a 87 22 | 20 5b 65 76 65 6e 74 2d |..!.V*."| [event-|
|00000ab0| 77 69 6e 64 6f 77 20 63 | 6c 69 63 6b 20 65 76 65 |window c|lick eve|
|00000ac0| 6e 74 2d 70 6f 69 6e 74 | 20 65 70 6e 74 20 65 77 |nt-point| epnt ew|
|00000ad0| 69 6e 20 65 78 74 65 6e | 74 20 77 69 6e 64 6f 77 |in exten|t window|
|00000ae0| 2d 62 75 66 66 65 72 20 | 65 78 74 65 6e 74 2d 62 |-buffer |extent-b|
|00000af0| 75 66 66 65 72 20 65 78 | 74 65 6e 74 2d 73 74 61 |uffer ex|tent-sta|
|00000b00| 72 74 2d 70 6f 73 69 74 | 69 6f 6e 20 65 78 74 65 |rt-posit|ion exte|
|00000b10| 6e 74 2d 65 6e 64 2d 70 | 6f 73 69 74 69 6f 6e 5d |nt-end-p|osition]|
|00000b20| 20 34 20 22 5c 0a 52 65 | 74 75 72 6e 73 20 6e 6f | 4 "\.Re|turns no|
|00000b30| 6e 2d 6e 69 6c 20 69 66 | 20 74 68 65 20 62 75 74 |n-nil if| the but|
|00000b40| 74 6f 6e 20 65 76 65 6e | 74 20 69 73 20 77 69 74 |ton even|t is wit|
|00000b50| 68 69 6e 20 74 68 65 20 | 62 6f 75 6e 64 73 20 6f |hin the |bounds o|
|00000b60| 66 20 74 68 65 20 70 72 | 69 6d 61 72 79 0a 73 65 |f the pr|imary.se|
|00000b70| 6c 65 63 74 69 6f 6e 2d | 65 78 74 65 6e 74 2c 20 |lection-|extent, |
|00000b80| 6e 69 6c 20 6f 74 68 65 | 72 77 69 73 65 2e 22 5d |nil othe|rwise."]|
|00000b90| 29 0a 28 66 73 65 74 20 | 27 63 6c 69 63 6b 2d 69 |).(fset |'click-i|
|00000ba0| 6e 73 69 64 65 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |nside-se|lection-|
|00000bb0| 70 20 23 5b 28 63 6c 69 | 63 6b 29 20 22 c0 09 5c |p #[(cli|ck) "..\|
|00000bc0| 6e 5c 22 ae 84 c0 09 0b | 5c 22 87 22 20 5b 63 6c |n\".....|\"." [cl|
|00000bd0| 69 63 6b 2d 69 6e 73 69 | 64 65 2d 65 78 74 65 6e |ick-insi|de-exten|
|00000be0| 74 2d 70 20 63 6c 69 63 | 6b 20 70 72 69 6d 61 72 |t-p clic|k primar|
|00000bf0| 79 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 65 78 74 65 |y-select|ion-exte|
|00000c00| 6e 74 20 7a 6d 61 63 73 | 2d 72 65 67 69 6f 6e 2d |nt zmacs|-region-|
|00000c10| 65 78 74 65 6e 74 5d 20 | 33 5d 29 0a 28 66 73 65 |extent] |3]).(fse|
|00000c20| 74 20 27 70 6f 69 6e 74 | 2d 69 6e 73 69 64 65 2d |t 'point|-inside-|
|00000c30| 65 78 74 65 6e 74 2d 70 | 20 23 5b 28 65 78 74 65 |extent-p| #[(exte|
|00000c40| 6e 74 29 20 22 08 ad 93 | 70 c1 08 21 3d ad 8c 60 |nt) "...|p..!=..`|
|00000c50| c2 08 21 56 ad 85 c3 08 | 21 60 59 87 22 20 5b 65 |..!V....|!`Y." [e|
|00000c60| 78 74 65 6e 74 20 65 78 | 74 65 6e 74 2d 62 75 66 |xtent ex|tent-buf|
|00000c70| 66 65 72 20 65 78 74 65 | 6e 74 2d 73 74 61 72 74 |fer exte|nt-start|
|00000c80| 2d 70 6f 73 69 74 69 6f | 6e 20 65 78 74 65 6e 74 |-positio|n extent|
|00000c90| 2d 65 6e 64 2d 70 6f 73 | 69 74 69 6f 6e 5d 20 33 |-end-pos|ition] 3|
|00000ca0| 20 22 5c 0a 52 65 74 75 | 72 6e 73 20 6e 6f 6e 2d | "\.Retu|rns non-|
|00000cb0| 6e 69 6c 20 69 66 20 74 | 68 65 20 70 6f 69 6e 74 |nil if t|he point|
|00000cc0| 20 69 73 20 77 69 74 68 | 69 6e 20 6f 72 20 6a 75 | is with|in or ju|
|00000cd0| 73 74 20 61 66 74 65 72 | 20 74 68 65 20 62 6f 75 |st after| the bou|
|00000ce0| 6e 64 73 20 6f 66 20 74 | 68 65 0a 70 72 69 6d 61 |nds of t|he.prima|
|00000cf0| 72 79 20 73 65 6c 65 63 | 74 69 6f 6e 2d 65 78 74 |ry selec|tion-ext|
|00000d00| 65 6e 74 2c 20 6e 69 6c | 20 6f 74 68 65 72 77 69 |ent, nil| otherwi|
|00000d10| 73 65 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 70 6f |se."]).(|fset 'po|
|00000d20| 69 6e 74 2d 69 6e 73 69 | 64 65 2d 73 65 6c 65 63 |int-insi|de-selec|
|00000d30| 74 69 6f 6e 2d 70 20 23 | 5b 6e 69 6c 20 22 c0 09 |tion-p #|[nil "..|
|00000d40| 21 ae 83 c0 5c 6e 21 87 | 22 20 5b 70 6f 69 6e 74 |!...\n!.|" [point|
|00000d50| 2d 69 6e 73 69 64 65 2d | 65 78 74 65 6e 74 2d 70 |-inside-|extent-p|
|00000d60| 20 70 72 69 6d 61 72 79 | 2d 73 65 6c 65 63 74 69 | primary|-selecti|
|00000d70| 6f 6e 2d 65 78 74 65 6e | 74 20 7a 6d 61 63 73 2d |on-exten|t zmacs-|
|00000d80| 72 65 67 69 6f 6e 2d 65 | 78 74 65 6e 74 5d 20 32 |region-e|xtent] 2|
|00000d90| 5d 29 0a 28 66 73 65 74 | 20 27 6d 6f 75 73 65 2d |]).(fset| 'mouse-|
|00000da0| 65 76 61 6c 2d 73 65 78 | 70 20 23 5b 28 63 6c 69 |eval-sex|p #[(cli|
|00000db0| 63 6b 20 66 6f 72 63 65 | 2d 77 69 6e 64 6f 77 29 |ck force|-window)|
|00000dc0| 20 22 c0 89 89 19 1a 1b | c4 8b 89 13 3b ab b5 c5 | "......|....;...|
|00000dd0| 0b c0 c6 23 89 12 ab a0 | c7 c8 94 c8 95 5c 22 1e |...#....|.....\".|
|00000de0| 09 ca 0e 09 cb 5c 22 88 | cc 0e 09 cd 5c 22 88 ce |.....\".|....\"..|
|00000df0| 20 16 0f d0 0e 09 21 88 | 29 aa 9a d1 d2 0b 5c 22 | .....!.|).....\"|
|00000e00| 88 d3 c0 d4 5c 22 88 aa | 8e d5 d6 21 ab 85 d6 0b |....\"..|...!....|
|00000e10| 21 aa 83 d7 0b 21 12 d8 | 5c 6e 21 11 0e 19 ac 8f |!....!..|\n!.....|
|00000e20| 09 47 da db 20 21 58 ab | 86 d1 dc 09 5c 22 aa 87 |.G.. !X.|....\"..|
|00000e30| dd 90 c0 de df 8f 91 2b | 87 22 20 5b 6e 69 6c 20 |.......+|." [nil |
|00000e40| 72 65 73 75 6c 74 2d 73 | 74 72 20 76 61 6c 20 65 |result-s|tr val e|
|00000e50| 78 70 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |xp ((byt|e-code "|
|00000e60| 8a c0 09 21 88 8a c2 c3 | 21 ac 84 c4 c5 21 88 c6 |...!....|!....!..|
|00000e70| c7 20 21 2a 87 22 20 5b | 6d 6f 75 73 65 2d 73 65 |. !*." [|mouse-se|
|00000e80| 74 2d 70 6f 69 6e 74 20 | 63 6c 69 63 6b 20 6c 6f |t-point |click lo|
|00000e90| 6f 6b 69 6e 67 2d 61 74 | 20 22 28 22 20 66 6f 72 |oking-at| "(" for|
|00000ea0| 77 61 72 64 2d 73 65 78 | 70 20 2d 31 20 72 65 61 |ward-sex|p -1 rea|
|00000eb0| 64 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 5d 20 |d point-|marker] |
|00000ec0| 32 29 29 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |2)) re-s|earch-fo|
|00000ed0| 72 77 61 72 64 20 74 20 | 6d 61 6b 65 2d 65 78 74 |rward t |make-ext|
|00000ee0| 65 6e 74 20 30 20 6f 6f | 20 73 65 74 2d 65 78 74 |ent 0 oo| set-ext|
|00000ef0| 65 6e 74 2d 66 61 63 65 | 20 68 69 67 68 6c 69 67 |ent-face| highlig|
|00000f00| 68 74 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 70 72 |ht set-e|xtent-pr|
|00000f10| 69 6f 72 69 74 79 20 31 | 30 30 30 20 6e 65 78 74 |iority 1|000 next|
|00000f20| 2d 63 6f 6d 6d 61 6e 64 | 2d 65 76 65 6e 74 20 75 |-command|-event u|
|00000f30| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |nread-co|mmand-ev|
|00000f40| 65 6e 74 20 64 65 6c 65 | 74 65 2d 65 78 74 65 6e |ent dele|te-exten|
|00000f50| 74 20 6d 65 73 73 61 67 | 65 20 22 52 65 67 65 78 |t messag|e "Regex|
|00000f60| 20 5c 22 25 73 5c 22 20 | 6e 6f 74 20 66 6f 75 6e | \"%s\" |not foun|
|00000f70| 64 22 20 64 69 6e 67 20 | 71 75 69 65 74 20 66 62 |d" ding |quiet fb|
|00000f80| 6f 75 6e 64 70 20 65 76 | 61 6c 2d 69 6e 74 65 72 |oundp ev|al-inter|
|00000f90| 61 63 74 69 76 65 20 65 | 76 61 6c 20 70 72 69 6e |active e|val prin|
|00000fa0| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 66 6f 72 63 |1-to-str|ing forc|
|00000fb0| 65 2d 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |e-window| window-|
|00000fc0| 77 69 64 74 68 20 73 65 | 6c 65 63 74 65 64 2d 77 |width se|lected-w|
|00000fd0| 69 6e 64 6f 77 20 22 25 | 73 22 20 22 2a 4d 6f 75 |indow "%|s" "*Mou|
|00000fe0| 73 65 2d 45 76 61 6c 2a | 22 20 28 70 70 72 69 6e |se-Eval*|" (pprin|
|00000ff0| 74 20 76 61 6c 29 20 28 | 28 65 72 72 6f 72 20 28 |t val) (|(error (|
|00001000| 70 72 69 6e 31 20 76 61 | 6c 29 29 29 5d 20 35 20 |prin1 va|l)))] 5 |
|00001010| 22 5c 0a 45 76 61 6c 75 | 61 74 65 20 74 68 65 20 |"\.Evalu|ate the |
|00001020| 73 65 78 70 20 75 6e 64 | 65 72 20 74 68 65 20 6d |sexp und|er the m|
|00001030| 6f 75 73 65 2e 20 20 55 | 73 75 61 6c 6c 79 2c 20 |ouse. U|sually, |
|00001040| 74 68 69 73 20 69 73 20 | 74 68 65 20 6c 61 73 74 |this is |the last|
|00001050| 20 73 65 78 70 20 62 65 | 66 6f 72 65 0a 74 68 65 | sexp be|fore.the|
|00001060| 20 63 6c 69 63 6b 2c 20 | 62 75 74 20 69 66 20 79 | click, |but if y|
|00001070| 6f 75 20 63 6c 69 63 6b | 20 6f 6e 20 61 20 6c 65 |ou click| on a le|
|00001080| 66 74 20 70 61 72 65 6e | 2c 20 74 68 65 6e 20 69 |ft paren|, then i|
|00001090| 74 20 69 73 20 74 68 65 | 20 73 65 78 70 20 62 65 |t is the| sexp be|
|000010a0| 67 69 6e 6e 69 6e 67 0a | 77 69 74 68 20 74 68 65 |ginning.|with the|
|000010b0| 20 70 61 72 65 6e 20 74 | 68 61 74 20 69 73 20 65 | paren t|hat is e|
|000010c0| 76 61 6c 75 61 74 65 64 | 2e 20 20 41 6c 73 6f 2c |valuated|. Also,|
|000010d0| 20 73 69 6e 63 65 20 73 | 74 72 69 6e 67 73 20 65 | since s|trings e|
|000010e0| 76 61 6c 75 61 74 65 20 | 74 6f 20 74 68 65 6d 73 |valuate |to thems|
|000010f0| 65 6c 76 65 73 2c 0a 74 | 68 65 79 27 72 65 20 66 |elves,.t|hey're f|
|00001100| 65 64 20 74 6f 20 72 65 | 2d 73 65 61 72 63 68 2d |ed to re|-search-|
|00001110| 66 6f 72 77 61 72 64 20 | 61 6e 64 20 74 68 65 20 |forward |and the |
|00001120| 6d 61 74 63 68 65 64 20 | 72 65 67 69 6f 6e 20 69 |matched |region i|
|00001130| 73 20 68 69 67 68 6c 69 | 67 68 74 65 64 20 75 6e |s highli|ghted un|
|00001140| 74 69 6c 0a 74 68 65 20 | 6d 6f 75 73 65 20 62 75 |til.the |mouse bu|
|00001150| 74 74 6f 6e 20 69 73 20 | 72 65 6c 65 61 73 65 64 |tton is |released|
|00001160| 2e 0a 0a 50 65 72 68 61 | 70 73 20 74 68 65 20 6d |...Perha|ps the m|
|00001170| 6f 73 74 20 75 73 65 66 | 75 6c 20 74 68 69 6e 67 |ost usef|ul thing|
|00001180| 20 61 62 6f 75 74 20 74 | 68 69 73 20 66 75 6e 63 | about t|his func|
|00001190| 74 69 6f 6e 20 69 73 20 | 74 68 61 74 20 74 68 65 |tion is |that the|
|000011a0| 20 65 76 61 6c 75 61 74 | 69 6f 6e 20 6f 66 0a 74 | evaluat|ion of.t|
|000011b0| 68 65 20 65 78 70 72 65 | 73 73 69 6f 6e 20 77 68 |he expre|ssion wh|
|000011c0| 69 63 68 20 69 73 20 63 | 6c 69 63 6b 65 64 20 75 |ich is c|licked u|
|000011d0| 70 6f 6e 20 69 73 20 72 | 65 6c 61 74 69 76 65 20 |pon is r|elative |
|000011e0| 6e 6f 74 20 74 6f 20 74 | 68 65 20 77 69 6e 64 6f |not to t|he windo|
|000011f0| 77 20 77 68 65 72 65 20 | 79 6f 75 0a 63 6c 69 63 |w where |you.clic|
|00001200| 6b 2c 20 62 75 74 20 74 | 6f 20 74 68 65 20 63 75 |k, but t|o the cu|
|00001210| 72 72 65 6e 74 20 77 69 | 6e 64 6f 77 20 61 6e 64 |rrent wi|ndow and|
|00001220| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 70 6f 73 | the cur|rent pos|
|00001230| 69 74 69 6f 6e 20 6f 66 | 20 70 6f 69 6e 74 2e 20 |ition of| point. |
|00001240| 20 54 68 75 73 2c 0a 79 | 6f 75 20 63 61 6e 20 75 | Thus,.y|ou can u|
|00001250| 73 65 20 60 6d 6f 75 73 | 65 2d 65 76 61 6c 2d 73 |se `mous|e-eval-s|
|00001260| 65 78 70 27 20 74 6f 20 | 69 6e 74 65 72 61 63 74 |exp' to |interact|
|00001270| 69 76 65 6c 79 20 74 65 | 73 74 20 63 6f 64 65 20 |ively te|st code |
|00001280| 74 68 61 74 20 61 63 74 | 73 20 75 70 6f 6e 20 61 |that act|s upon a|
|00001290| 0a 62 75 66 66 65 72 2e | 2e 2e 73 6f 6d 65 74 68 |.buffer.|..someth|
|000012a0| 69 6e 67 20 79 6f 75 20 | 63 61 6e 6e 6f 74 20 64 |ing you |cannot d|
|000012b0| 6f 20 77 69 74 68 20 74 | 68 65 20 73 74 61 6e 64 |o with t|he stand|
|000012c0| 61 72 64 20 60 65 76 61 | 6c 2d 6c 61 73 74 2d 73 |ard `eva|l-last-s|
|000012d0| 65 78 70 27 20 66 75 6e | 63 74 69 6f 6e 2e 0a 49 |exp' fun|ction..I|
|000012e0| 74 27 73 20 61 6c 73 6f | 20 66 61 6e 74 61 73 74 |t's also| fantast|
|000012f0| 69 63 20 66 6f 72 20 64 | 65 62 75 67 67 69 6e 67 |ic for d|ebugging|
|00001300| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|00001310| 69 6f 6e 73 2e 22 20 22 | 65 5c 6e 50 22 5d 29 0a |ions." "|e\nP"]).|
|00001320| 28 66 73 65 74 20 27 6d | 6f 75 73 65 2d 6c 69 6e |(fset 'm|ouse-lin|
|00001330| 65 2d 6c 65 6e 67 74 68 | 20 23 5b 28 65 76 65 6e |e-length| #[(even|
|00001340| 74 29 20 22 8a c0 09 21 | 88 c2 c3 c4 7f 88 60 c5 |t) "...!|......`.|
|00001350| 79 88 60 5a 5c 22 88 29 | c6 c7 21 87 22 20 5b 6d |y.`Z\".)|..!." [m|
|00001360| 6f 75 73 65 2d 73 65 74 | 2d 70 6f 69 6e 74 20 65 |ouse-set|-point e|
|00001370| 76 65 6e 74 20 6d 65 73 | 73 61 67 65 20 22 4c 69 |vent mes|sage "Li|
|00001380| 6e 65 20 6c 65 6e 67 74 | 68 3a 20 25 64 22 20 6e |ne lengt|h: %d" n|
|00001390| 69 6c 20 30 20 73 6c 65 | 65 70 2d 66 6f 72 20 31 |il 0 sle|ep-for 1|
|000013a0| 5d 20 34 20 22 5c 0a 50 | 72 69 6e 74 20 74 68 65 |] 4 "\.P|rint the|
|000013b0| 20 6c 65 6e 67 74 68 20 | 6f 66 20 74 68 65 20 6c | length |of the l|
|000013c0| 69 6e 65 20 69 6e 64 69 | 63 61 74 65 64 20 62 79 |ine indi|cated by|
|000013d0| 20 74 68 65 20 70 6f 69 | 6e 74 65 72 2e 22 20 22 | the poi|nter." "|
|000013e0| 40 65 22 5d 29 0a 28 66 | 73 65 74 20 27 6d 6f 75 |@e"]).(f|set 'mou|
|000013f0| 73 65 2d 73 65 74 2d 6d | 61 72 6b 20 23 5b 28 65 |se-set-m|ark #[(e|
|00001400| 76 65 6e 74 29 20 22 60 | 18 c1 8e c2 0b 21 88 c4 |vent) "`|.....!..|
|00001410| c5 c6 5c 22 88 c7 c8 21 | 2a 87 22 20 5b 70 6f 69 |..\"...!|*." [poi|
|00001420| 6e 74 2d 73 61 76 65 20 | 28 28 67 6f 74 6f 2d 63 |nt-save |((goto-c|
|00001430| 68 61 72 20 70 6f 69 6e | 74 2d 73 61 76 65 29 29 |har poin|t-save))|
|00001440| 20 6d 6f 75 73 65 2d 73 | 65 74 2d 70 6f 69 6e 74 | mouse-s|et-point|
|00001450| 20 65 76 65 6e 74 20 70 | 75 73 68 2d 6d 61 72 6b | event p|ush-mark|
|00001460| 20 6e 69 6c 20 74 20 73 | 69 74 2d 66 6f 72 20 31 | nil t s|it-for 1|
|00001470| 5d 20 33 20 22 5c 0a 53 | 65 6c 65 63 74 20 45 6d |] 3 "\.S|elect Em|
|00001480| 61 63 73 20 77 69 6e 64 | 6f 77 20 6d 6f 75 73 65 |acs wind|ow mouse|
|00001490| 20 69 73 20 6f 6e 2c 20 | 61 6e 64 20 73 65 74 20 | is on, |and set |
|000014a0| 6d 61 72 6b 20 61 74 20 | 6d 6f 75 73 65 20 70 6f |mark at |mouse po|
|000014b0| 73 69 74 69 6f 6e 2e 0a | 44 69 73 70 6c 61 79 20 |sition..|Display |
|000014c0| 63 75 72 73 6f 72 20 61 | 74 20 74 68 61 74 20 70 |cursor a|t that p|
|000014d0| 6f 73 69 74 69 6f 6e 20 | 66 6f 72 20 61 20 73 65 |osition |for a se|
|000014e0| 63 6f 6e 64 2e 22 20 22 | 40 65 22 5d 29 0a 28 66 |cond." "|@e"]).(f|
|000014f0| 73 65 74 20 27 6d 6f 75 | 73 65 2d 73 63 72 6f 6c |set 'mou|se-scrol|
|00001500| 6c 20 23 5b 28 65 76 65 | 6e 74 29 20 22 8a c0 09 |l #[(eve|nt) "...|
|00001510| 21 88 c2 c3 21 88 c4 c5 | 09 21 21 29 87 22 20 5b |!...!...|.!!)." [|
|00001520| 6d 6f 75 73 65 2d 73 65 | 74 2d 70 6f 69 6e 74 20 |mouse-se|t-point |
|00001530| 65 76 65 6e 74 20 72 65 | 63 65 6e 74 65 72 20 30 |event re|center 0|
|00001540| 20 73 63 72 6f 6c 6c 2d | 72 69 67 68 74 20 65 76 | scroll-|right ev|
|00001550| 65 6e 74 2d 78 5d 20 33 | 20 22 5c 0a 53 63 72 6f |ent-x] 3| "\.Scro|
|00001560| 6c 6c 20 70 6f 69 6e 74 | 20 74 6f 20 74 68 65 20 |ll point| to the |
|00001570| 6d 6f 75 73 65 20 70 6f | 73 69 74 69 6f 6e 2e 22 |mouse po|sition."|
|00001580| 20 22 40 65 22 5d 29 0a | 28 66 73 65 74 20 27 6d | "@e"]).|(fset 'm|
|00001590| 6f 75 73 65 2d 64 65 6c | 2d 63 68 61 72 20 23 5b |ouse-del|-char #[|
|000015a0| 28 65 76 65 6e 74 29 20 | 22 8a c0 09 21 88 c2 c3 |(event) |"...!...|
|000015b0| c4 5c 22 29 87 22 20 5b | 6d 6f 75 73 65 2d 73 65 |.\")." [|mouse-se|
|000015c0| 74 2d 70 6f 69 6e 74 20 | 65 76 65 6e 74 20 64 65 |t-point |event de|
|000015d0| 6c 65 74 65 2d 63 68 61 | 72 20 31 20 6e 69 6c 5d |lete-cha|r 1 nil]|
|000015e0| 20 33 20 22 5c 0a 44 65 | 6c 65 74 65 20 74 68 65 | 3 "\.De|lete the|
|000015f0| 20 63 68 61 72 20 70 6f | 69 6e 74 65 64 20 74 6f | char po|inted to|
|00001600| 20 62 79 20 74 68 65 20 | 6d 6f 75 73 65 2e 22 20 | by the |mouse." |
|00001610| 22 40 65 22 5d 29 0a 28 | 66 73 65 74 20 27 6d 6f |"@e"]).(|fset 'mo|
|00001620| 75 73 65 2d 6b 69 6c 6c | 2d 6c 69 6e 65 20 23 5b |use-kill|-line #[|
|00001630| 28 65 76 65 6e 74 29 20 | 22 8a c0 09 21 88 c2 c3 |(event) |"...!...|
|00001640| 21 29 87 22 20 5b 6d 6f | 75 73 65 2d 73 65 74 2d |!)." [mo|use-set-|
|00001650| 70 6f 69 6e 74 20 65 76 | 65 6e 74 20 6b 69 6c 6c |point ev|ent kill|
|00001660| 2d 6c 69 6e 65 20 6e 69 | 6c 5d 20 32 20 22 5c 0a |-line ni|l] 2 "\.|
|00001670| 4b 69 6c 6c 20 74 68 65 | 20 6c 69 6e 65 20 70 6f |Kill the| line po|
|00001680| 69 6e 74 65 64 20 74 6f | 20 62 79 20 74 68 65 20 |inted to| by the |
|00001690| 6d 6f 75 73 65 2e 22 20 | 22 40 65 22 5d 29 0a 28 |mouse." |"@e"]).(|
|000016a0| 66 73 65 74 20 27 6e 61 | 72 72 6f 77 2d 77 69 6e |fset 'na|rrow-win|
|000016b0| 64 6f 77 2d 74 6f 2d 72 | 65 67 69 6f 6e 20 23 5b |dow-to-r|egion #[|
|000016c0| 28 6d 20 6e 29 20 22 8a | 8c c0 20 c1 20 3d ab 83 |(m n) ".|.. . =..|
|000016d0| c2 20 88 0b 62 88 c4 c5 | 21 88 c0 20 c6 20 c5 55 |. ..b...|!.. . .U|
|000016e0| ad 82 c1 20 3d 3f ad 8c | c7 c8 20 c9 0b 0e 5c 6e |... =?..|.. ...\n|
|000016f0| 5c 22 5a cb 5a 21 2a 87 | 22 20 5b 73 65 6c 65 63 |\"Z.Z!*.|" [selec|
|00001700| 74 65 64 2d 77 69 6e 64 | 6f 77 20 6e 65 78 74 2d |ted-wind|ow next-|
|00001710| 77 69 6e 64 6f 77 20 73 | 70 6c 69 74 2d 77 69 6e |window s|plit-win|
|00001720| 64 6f 77 20 6d 20 72 65 | 63 65 6e 74 65 72 20 30 |dow m re|center 0|
|00001730| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 64 65 70 74 | minibuf|fer-dept|
|00001740| 68 20 73 68 72 69 6e 6b | 2d 77 69 6e 64 6f 77 20 |h shrink|-window |
|00001750| 77 69 6e 64 6f 77 2d 68 | 65 69 67 68 74 20 63 6f |window-h|eight co|
|00001760| 75 6e 74 2d 6c 69 6e 65 | 73 20 6e 20 31 5d 20 35 |unt-line|s n 1] 5|
|00001770| 20 22 5c 0a 4e 61 72 72 | 6f 77 20 77 69 6e 64 6f | "\.Narr|ow windo|
|00001780| 77 20 74 6f 20 72 65 67 | 69 6f 6e 20 62 65 74 77 |w to reg|ion betw|
|00001790| 65 65 6e 20 70 6f 69 6e | 74 20 61 6e 64 20 6c 61 |een poin|t and la|
|000017a0| 73 74 20 6d 61 72 6b 22 | 20 22 72 22 5d 29 0a 28 |st mark"| "r"]).(|
|000017b0| 66 73 65 74 20 27 6d 6f | 75 73 65 2d 77 69 6e 64 |fset 'mo|use-wind|
|000017c0| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |ow-to-re|gion #[(|
|000017d0| 65 76 65 6e 74 29 20 22 | 60 18 c1 8e c2 0b 21 88 |event) "|`.....!.|
|000017e0| c4 c5 c6 5c 22 88 c7 c8 | 21 2a 87 22 20 5b 70 6f |...\"...|!*." [po|
|000017f0| 69 6e 74 2d 73 61 76 65 | 20 28 28 62 79 74 65 2d |int-save| ((byte-|
|00001800| 63 6f 64 65 20 22 08 62 | 88 c1 c2 20 c3 20 5c 22 |code ".b|... . \"|
|00001810| 87 22 20 5b 70 6f 69 6e | 74 2d 73 61 76 65 20 6e |." [poin|t-save n|
|00001820| 61 72 72 6f 77 2d 77 69 | 6e 64 6f 77 2d 74 6f 2d |arrow-wi|ndow-to-|
|00001830| 72 65 67 69 6f 6e 20 72 | 65 67 69 6f 6e 2d 62 65 |region r|egion-be|
|00001840| 67 69 6e 6e 69 6e 67 20 | 72 65 67 69 6f 6e 2d 65 |ginning |region-e|
|00001850| 6e 64 5d 20 33 29 29 20 | 6d 6f 75 73 65 2d 73 65 |nd] 3)) |mouse-se|
|00001860| 74 2d 70 6f 69 6e 74 20 | 65 76 65 6e 74 20 70 75 |t-point |event pu|
|00001870| 73 68 2d 6d 61 72 6b 20 | 6e 69 6c 20 74 20 73 69 |sh-mark |nil t si|
|00001880| 74 2d 66 6f 72 20 31 5d | 20 33 20 22 5c 0a 4e 61 |t-for 1]| 3 "\.Na|
|00001890| 72 72 6f 77 20 77 69 6e | 64 6f 77 20 74 6f 20 72 |rrow win|dow to r|
|000018a0| 65 67 69 6f 6e 20 62 65 | 74 77 65 65 6e 20 63 75 |egion be|tween cu|
|000018b0| 72 73 6f 72 20 61 6e 64 | 20 6d 6f 75 73 65 20 70 |rsor and| mouse p|
|000018c0| 6f 69 6e 74 65 72 2e 22 | 20 22 40 65 22 5d 29 0a |ointer."| "@e"]).|
|000018d0| 28 64 65 66 75 6e 20 6d | 6f 75 73 65 2d 69 67 6e |(defun m|ouse-ign|
|000018e0| 6f 72 65 20 6e 69 6c 20 | 22 5c 0a 44 6f 6e 27 74 |ore nil |"\.Don't|
|000018f0| 20 64 6f 20 61 6e 79 74 | 68 69 6e 67 2e 22 20 28 | do anyt|hing." (|
|00001900| 69 6e 74 65 72 61 63 74 | 69 76 65 29 29 0a 28 62 |interact|ive)).(b|
|00001910| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4d 88 c2 c3 |yte-code| "..M...|
|00001920| 4d 88 c4 c5 4d 88 c6 c7 | 4d 88 c8 c9 4d 88 ca cb |M...M...|M...M...|
|00001930| 4d 88 cc cd 21 ac 83 ce | 16 0d cc cf 21 ac 83 d0 |M...!...|....!...|
|00001940| 16 0f d1 d2 4d 88 d3 d4 | 4d 88 d5 d6 4d 88 d7 d8 |....M...|M...M...|
|00001950| 4d 88 d9 da 4d 88 db dc | 4d 88 dd de 4d 88 df e0 |M...M...|M...M...|
|00001960| 4d 88 e1 e2 4d 88 e3 e4 | 4d 87 22 20 5b 6d 6f 75 |M...M...|M." [mou|
|00001970| 73 65 2d 73 63 72 6f 6c | 6c 2d 64 6f 77 6e 20 23 |se-scrol|l-down #|
|00001980| 5b 28 6e 6c 69 6e 65 73 | 29 20 22 c0 09 21 87 22 |[(nlines|) "..!."|
|00001990| 20 5b 73 63 72 6f 6c 6c | 2d 64 6f 77 6e 20 6e 6c | [scroll|-down nl|
|000019a0| 69 6e 65 73 5d 20 32 20 | 6e 69 6c 20 22 40 70 22 |ines] 2 |nil "@p"|
|000019b0| 5d 20 6d 6f 75 73 65 2d | 73 63 72 6f 6c 6c 2d 75 |] mouse-|scroll-u|
|000019c0| 70 20 23 5b 28 6e 6c 69 | 6e 65 73 29 20 22 c0 09 |p #[(nli|nes) "..|
|000019d0| 21 87 22 20 5b 73 63 72 | 6f 6c 6c 2d 75 70 20 6e |!." [scr|oll-up n|
|000019e0| 6c 69 6e 65 73 5d 20 32 | 20 6e 69 6c 20 22 40 70 |lines] 2| nil "@p|
|000019f0| 22 5d 20 6d 6f 75 73 65 | 2d 73 63 72 6f 6c 6c 2d |"] mouse|-scroll-|
|00001a00| 64 6f 77 6e 2d 66 75 6c | 6c 20 23 5b 6e 69 6c 20 |down-ful|l #[nil |
|00001a10| 22 c0 c1 21 87 22 20 5b | 73 63 72 6f 6c 6c 2d 64 |"..!." [|scroll-d|
|00001a20| 6f 77 6e 20 6e 69 6c 5d | 20 32 20 6e 69 6c 20 22 |own nil]| 2 nil "|
|00001a30| 40 22 5d 20 6d 6f 75 73 | 65 2d 73 63 72 6f 6c 6c |@"] mous|e-scroll|
|00001a40| 2d 75 70 2d 66 75 6c 6c | 20 23 5b 6e 69 6c 20 22 |-up-full| #[nil "|
|00001a50| c0 c1 21 87 22 20 5b 73 | 63 72 6f 6c 6c 2d 75 70 |..!." [s|croll-up|
|00001a60| 20 6e 69 6c 5d 20 32 20 | 6e 69 6c 20 22 40 22 5d | nil] 2 |nil "@"]|
|00001a70| 20 6d 6f 75 73 65 2d 73 | 63 72 6f 6c 6c 2d 6d 6f | mouse-s|croll-mo|
|00001a80| 76 65 2d 63 75 72 73 6f | 72 20 23 5b 28 6e 6c 69 |ve-curso|r #[(nli|
|00001a90| 6e 65 73 29 20 22 c0 09 | 21 87 22 20 5b 6d 6f 76 |nes) "..|!." [mov|
|00001aa0| 65 2d 74 6f 2d 77 69 6e | 64 6f 77 2d 6c 69 6e 65 |e-to-win|dow-line|
|00001ab0| 20 6e 6c 69 6e 65 73 5d | 20 32 20 6e 69 6c 20 22 | nlines]| 2 nil "|
|00001ac0| 40 70 22 5d 20 6d 6f 75 | 73 65 2d 73 63 72 6f 6c |@p"] mou|se-scrol|
|00001ad0| 6c 2d 61 62 73 6f 6c 75 | 74 65 20 23 5b 28 65 76 |l-absolu|te #[(ev|
|00001ae0| 65 6e 74 29 20 22 c0 09 | 21 1a c3 09 21 1c c5 20 |ent) "..|!...!.. |
|00001af0| 1e 06 c7 c8 0e 06 a5 5d | 1e 09 0e 06 0e 09 a5 5c |.......]|.......\|
|00001b00| 6e 5f 0c a5 0e 09 5f 89 | 1e 5c 6e 62 88 cb cc 21 |n_...._.|.\nb...!|
|00001b10| 2d 87 22 20 5b 65 76 65 | 6e 74 2d 78 20 65 76 65 |-." [eve|nt-x eve|
|00001b20| 6e 74 20 70 6f 73 69 74 | 69 6f 6e 20 65 76 65 6e |nt posit|ion even|
|00001b30| 74 2d 79 20 6c 65 6e 67 | 74 68 20 62 75 66 66 65 |t-y leng|th buffe|
|00001b40| 72 2d 73 69 7a 65 20 73 | 69 7a 65 20 31 20 38 30 |r-size s|ize 1 80|
|00001b50| 30 30 30 30 30 20 73 63 | 61 6c 65 2d 66 61 63 74 |00000 sc|ale-fact|
|00001b60| 6f 72 20 6e 65 77 70 6f | 73 20 72 65 63 65 6e 74 |or newpo|s recent|
|00001b70| 65 72 20 28 34 29 5d 20 | 34 20 6e 69 6c 20 22 40 |er (4)] |4 nil "@|
|00001b80| 65 22 5d 20 62 6f 75 6e | 64 70 20 73 63 72 6f 6c |e"] boun|dp scrol|
|00001b90| 6c 65 64 2d 6c 69 6e 65 | 73 20 30 20 73 63 72 6f |led-line|s 0 scro|
|00001ba0| 6c 6c 2d 73 70 65 65 64 | 20 31 20 69 6e 63 72 2d |ll-speed| 1 incr-|
|00001bb0| 73 63 72 6f 6c 6c 2d 64 | 6f 77 6e 20 23 5b 28 65 |scroll-d|own #[(e|
|00001bc0| 76 65 6e 74 29 20 22 c0 | 11 c2 0b 21 87 22 20 5b |vent) ".|...!." [|
|00001bd0| 30 20 73 63 72 6f 6c 6c | 65 64 2d 6c 69 6e 65 73 |0 scroll|ed-lines|
|00001be0| 20 69 6e 63 72 65 6d 65 | 6e 74 61 6c 2d 73 63 72 | increme|ntal-scr|
|00001bf0| 6f 6c 6c 20 73 63 72 6f | 6c 6c 2d 73 70 65 65 64 |oll scro|ll-speed|
|00001c00| 5d 20 32 20 6e 69 6c 20 | 22 40 65 22 5d 20 69 6e |] 2 nil |"@e"] in|
|00001c10| 63 72 2d 73 63 72 6f 6c | 6c 2d 75 70 20 23 5b 28 |cr-scrol|l-up #[(|
|00001c20| 65 76 65 6e 74 29 20 22 | c0 11 c2 0b 5b 21 87 22 |event) "|....[!."|
|00001c30| 20 5b 30 20 73 63 72 6f | 6c 6c 65 64 2d 6c 69 6e | [0 scro|lled-lin|
|00001c40| 65 73 20 69 6e 63 72 65 | 6d 65 6e 74 61 6c 2d 73 |es incre|mental-s|
|00001c50| 63 72 6f 6c 6c 20 73 63 | 72 6f 6c 6c 2d 73 70 65 |croll sc|roll-spe|
|00001c60| 65 64 5d 20 32 20 6e 69 | 6c 20 22 40 65 22 5d 20 |ed] 2 ni|l "@e"] |
|00001c70| 69 6e 63 72 65 6d 65 6e | 74 61 6c 2d 73 63 72 6f |incremen|tal-scro|
|00001c80| 6c 6c 20 23 5b 28 6e 29 | 20 22 c0 19 09 ad af c2 |ll #[(n)| "......|
|00001c90| 0b 21 88 c4 20 ab 98 c5 | 20 1e 06 c7 0e 06 21 ac |.!.. ...| .....!.|
|00001ca0| 86 c8 0e 06 21 ab 82 c9 | 11 ca 0e 06 21 88 29 0e |....!...|....!.).|
|00001cb0| 0b 0e 0c 5f 54 16 0c cd | 0e 0e 21 88 aa 4e 29 87 |..._T...|..!..N).|
|00001cc0| 22 20 5b 74 20 64 6f 77 | 6e 20 73 69 74 2d 66 6f |" [t dow|n sit-fo|
|00001cd0| 72 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 73 63 |r mouse-|track-sc|
|00001ce0| 72 6f 6c 6c 2d 64 65 6c | 61 79 20 69 6e 70 75 74 |roll-del|ay input|
|00001cf0| 2d 70 65 6e 64 69 6e 67 | 2d 70 20 6e 65 78 74 2d |-pending|-p next-|
|00001d00| 63 6f 6d 6d 61 6e 64 2d | 65 76 65 6e 74 20 65 76 |command-|event ev|
|00001d10| 65 6e 74 20 62 75 74 74 | 6f 6e 2d 70 72 65 73 73 |ent butt|on-press|
|00001d20| 2d 65 76 65 6e 74 2d 70 | 20 62 75 74 74 6f 6e 2d |-event-p| button-|
|00001d30| 72 65 6c 65 61 73 65 2d | 65 76 65 6e 74 2d 70 20 |release-|event-p |
|00001d40| 6e 69 6c 20 64 69 73 70 | 61 74 63 68 2d 65 76 65 |nil disp|atch-eve|
|00001d50| 6e 74 20 73 63 72 6f 6c | 6c 2d 73 70 65 65 64 20 |nt scrol|l-speed |
|00001d60| 73 63 72 6f 6c 6c 65 64 | 2d 6c 69 6e 65 73 20 73 |scrolled|-lines s|
|00001d70| 63 72 6f 6c 6c 2d 64 6f | 77 6e 20 6e 5d 20 32 5d |croll-do|wn n] 2]|
|00001d80| 20 69 6e 63 72 2d 73 63 | 72 6f 6c 6c 2d 73 74 6f | incr-sc|roll-sto|
|00001d90| 70 20 23 5b 28 65 76 65 | 6e 74 29 20 22 c0 11 c2 |p #[(eve|nt) "...|
|00001da0| c3 21 87 22 20 5b 30 20 | 73 63 72 6f 6c 6c 65 64 |.!." [0 |scrolled|
|00001db0| 2d 6c 69 6e 65 73 20 73 | 6c 65 65 70 2d 66 6f 72 |-lines s|leep-for|
|00001dc0| 20 31 5d 20 32 20 6e 69 | 6c 20 22 40 65 22 5d 20 | 1] 2 ni|l "@e"] |
|00001dd0| 6d 6f 75 73 65 2d 73 63 | 72 6f 6c 6c 2d 6c 65 66 |mouse-sc|roll-lef|
|00001de0| 74 20 23 5b 28 6e 63 6f | 6c 75 6d 6e 73 29 20 22 |t #[(nco|lumns) "|
|00001df0| c0 09 21 87 22 20 5b 73 | 63 72 6f 6c 6c 2d 6c 65 |..!." [s|croll-le|
|00001e00| 66 74 20 6e 63 6f 6c 75 | 6d 6e 73 5d 20 32 20 6e |ft ncolu|mns] 2 n|
|00001e10| 69 6c 20 22 40 70 22 5d | 20 6d 6f 75 73 65 2d 73 |il "@p"]| mouse-s|
|00001e20| 63 72 6f 6c 6c 2d 72 69 | 67 68 74 20 23 5b 28 6e |croll-ri|ght #[(n|
|00001e30| 63 6f 6c 75 6d 6e 73 29 | 20 22 c0 09 21 87 22 20 |columns)| "..!." |
|00001e40| 5b 73 63 72 6f 6c 6c 2d | 72 69 67 68 74 20 6e 63 |[scroll-|right nc|
|00001e50| 6f 6c 75 6d 6e 73 5d 20 | 32 20 6e 69 6c 20 22 40 |olumns] |2 nil "@|
|00001e60| 70 22 5d 20 6d 6f 75 73 | 65 2d 73 63 72 6f 6c 6c |p"] mous|e-scroll|
|00001e70| 2d 6c 65 66 74 2d 66 75 | 6c 6c 20 23 5b 6e 69 6c |-left-fu|ll #[nil|
|00001e80| 20 22 c0 c1 21 87 22 20 | 5b 73 63 72 6f 6c 6c 2d | "..!." |[scroll-|
|00001e90| 6c 65 66 74 20 6e 69 6c | 5d 20 32 20 6e 69 6c 20 |left nil|] 2 nil |
|00001ea0| 22 40 22 5d 20 6d 6f 75 | 73 65 2d 73 63 72 6f 6c |"@"] mou|se-scrol|
|00001eb0| 6c 2d 72 69 67 68 74 2d | 66 75 6c 6c 20 23 5b 6e |l-right-|full #[n|
|00001ec0| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 73 63 72 6f 6c |il "..!.|" [scrol|
|00001ed0| 6c 2d 72 69 67 68 74 20 | 6e 69 6c 5d 20 32 20 6e |l-right |nil] 2 n|
|00001ee0| 69 6c 20 22 40 22 5d 20 | 6d 6f 75 73 65 2d 73 63 |il "@"] |mouse-sc|
|00001ef0| 72 6f 6c 6c 2d 6d 6f 76 | 65 2d 63 75 72 73 6f 72 |roll-mov|e-cursor|
|00001f00| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 6c 79 20 23 5b |-horizon|tally #[|
|00001f10| 28 6e 63 6f 6c 75 6d 6e | 73 29 20 22 c0 09 21 87 |(ncolumn|s) "..!.|
|00001f20| 22 20 5b 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |" [move-|to-colum|
|00001f30| 6e 20 6e 63 6f 6c 75 6d | 6e 73 5d 20 32 20 6e 69 |n ncolum|ns] 2 ni|
|00001f40| 6c 20 22 40 70 22 5d 20 | 6d 6f 75 73 65 2d 73 63 |l "@p"] |mouse-sc|
|00001f50| 72 6f 6c 6c 2d 61 62 73 | 6f 6c 75 74 65 2d 68 6f |roll-abs|olute-ho|
|00001f60| 72 69 7a 6f 6e 74 61 6c | 6c 79 20 23 5b 28 65 76 |rizontal|ly #[(ev|
|00001f70| 65 6e 74 29 20 22 c0 c1 | 20 c2 5c 22 87 22 20 5b |ent) "..| .\"." [|
|00001f80| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 68 73 63 72 6f |set-wind|ow-hscro|
|00001f90| 6c 6c 20 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |ll selec|ted-wind|
|00001fa0| 6f 77 20 33 33 5d 20 33 | 20 6e 69 6c 20 22 40 65 |ow 33] 3| nil "@e|
|00001fb0| 22 5d 5d 20 32 29 0a 28 | 64 65 66 76 61 72 20 6d |"]] 2).(|defvar m|
|00001fc0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 6f 77 6e 2d |ouse-tra|ck-down-|
|00001fd0| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 46 75 6e 63 |hook nil| "\.Func|
|00001fe0| 74 69 6f 6e 20 6f 72 20 | 66 75 6e 63 74 69 6f 6e |tion or |function|
|00001ff0| 73 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 74 68 |s called| when th|
|00002000| 65 20 75 73 65 72 20 70 | 72 65 73 73 65 73 20 74 |e user p|resses t|
|00002010| 68 65 20 6d 6f 75 73 65 | 2e 0a 54 68 69 73 20 68 |he mouse|..This h|
|00002020| 6f 6f 6b 20 69 73 20 69 | 6e 76 6f 6b 65 64 20 62 |ook is i|nvoked b|
|00002030| 79 20 60 6d 6f 75 73 65 | 2d 74 72 61 63 6b 27 3b |y `mouse|-track';|
|00002040| 20 74 68 75 73 2c 20 69 | 74 20 77 69 6c 6c 20 6e | thus, i|t will n|
|00002050| 6f 74 20 62 65 20 63 61 | 6c 6c 65 64 0a 66 6f 72 |ot be ca|lled.for|
|00002060| 20 61 6e 79 20 62 75 74 | 74 6f 6e 73 20 77 69 74 | any but|tons wit|
|00002070| 68 20 61 20 64 69 66 66 | 65 72 65 6e 74 20 62 69 |h a diff|erent bi|
|00002080| 6e 64 69 6e 67 2e 20 20 | 54 68 65 20 66 75 6e 63 |nding. |The func|
|00002090| 74 69 6f 6e 73 20 77 69 | 6c 6c 20 62 65 0a 63 61 |tions wi|ll be.ca|
|000020a0| 6c 6c 65 64 20 77 69 74 | 68 20 74 77 6f 20 61 72 |lled wit|h two ar|
|000020b0| 67 75 6d 65 6e 74 73 3a | 20 74 68 65 20 62 75 74 |guments:| the but|
|000020c0| 74 6f 6e 2d 70 72 65 73 | 73 20 65 76 65 6e 74 20 |ton-pres|s event |
|000020d0| 61 6e 64 20 61 20 63 6c | 69 63 6b 0a 63 6f 75 6e |and a cl|ick.coun|
|000020e0| 74 20 28 73 65 65 20 60 | 6d 6f 75 73 65 2d 74 72 |t (see `|mouse-tr|
|000020f0| 61 63 6b 2d 63 6c 69 63 | 6b 2d 68 6f 6f 6b 27 29 |ack-clic|k-hook')|
|00002100| 2e 0a 0a 49 66 20 61 6e | 79 20 66 75 6e 63 74 69 |...If an|y functi|
|00002110| 6f 6e 20 72 65 74 75 72 | 6e 73 20 6e 6f 6e 2d 6e |on retur|ns non-n|
|00002120| 69 6c 2c 20 74 68 65 20 | 72 65 6d 61 69 6e 69 6e |il, the |remainin|
|00002130| 67 20 66 75 6e 63 74 69 | 6f 6e 73 20 77 69 6c 6c |g functi|ons will|
|00002140| 20 6e 6f 74 20 62 65 0a | 63 61 6c 6c 65 64 2e 0a | not be.|called..|
|00002150| 0a 4e 6f 74 65 20 74 68 | 61 74 20 6d 6f 73 74 20 |.Note th|at most |
|00002160| 61 70 70 6c 69 63 61 74 | 69 6f 6e 73 20 73 68 6f |applicat|ions sho|
|00002170| 75 6c 64 20 74 61 6b 65 | 20 61 63 74 69 6f 6e 20 |uld take| action |
|00002180| 77 68 65 6e 20 74 68 65 | 20 6d 6f 75 73 65 20 69 |when the| mouse i|
|00002190| 73 0a 72 65 6c 65 61 73 | 65 64 2c 20 6e 6f 74 20 |s.releas|ed, not |
|000021a0| 77 68 65 6e 20 69 74 20 | 69 73 20 70 72 65 73 73 |when it |is press|
|000021b0| 65 64 2e 27 22 29 0a 28 | 64 65 66 76 61 72 20 6d |ed.'").(|defvar m|
|000021c0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 72 61 67 2d |ouse-tra|ck-drag-|
|000021d0| 68 6f 6f 6b 20 6e 69 6c | 20 22 5c 0a 46 75 6e 63 |hook nil| "\.Func|
|000021e0| 74 69 6f 6e 20 6f 72 20 | 66 75 6e 63 74 69 6f 6e |tion or |function|
|000021f0| 73 20 63 61 6c 6c 65 64 | 20 77 68 65 6e 20 74 68 |s called| when th|
|00002200| 65 20 75 73 65 72 20 64 | 72 61 67 73 20 74 68 65 |e user d|rags the|
|00002210| 20 6d 6f 75 73 65 2e 0a | 54 68 69 73 20 68 6f 6f | mouse..|This hoo|
|00002220| 6b 20 69 73 20 69 6e 76 | 6f 6b 65 64 20 62 79 20 |k is inv|oked by |
|00002230| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 27 3b 20 74 |`mouse-t|rack'; t|
|00002240| 68 75 73 2c 20 69 74 20 | 77 69 6c 6c 20 6e 6f 74 |hus, it |will not|
|00002250| 20 62 65 20 63 61 6c 6c | 65 64 0a 66 6f 72 20 61 | be call|ed.for a|
|00002260| 6e 79 20 62 75 74 74 6f | 6e 73 20 77 69 74 68 20 |ny butto|ns with |
|00002270| 61 20 64 69 66 66 65 72 | 65 6e 74 20 62 69 6e 64 |a differ|ent bind|
|00002280| 69 6e 67 2e 20 20 54 68 | 65 20 66 75 6e 63 74 69 |ing. Th|e functi|
|00002290| 6f 6e 73 20 77 69 6c 6c | 20 62 65 0a 63 61 6c 6c |ons will| be.call|
|000022a0| 65 64 20 77 69 74 68 20 | 74 68 72 65 65 20 61 72 |ed with |three ar|
|000022b0| 67 75 6d 65 6e 74 73 3a | 20 74 68 65 20 6d 6f 75 |guments:| the mou|
|000022c0| 73 65 2d 6d 6f 74 69 6f | 6e 20 65 76 65 6e 74 2c |se-motio|n event,|
|000022d0| 20 61 20 63 6c 69 63 6b | 0a 63 6f 75 6e 74 20 28 | a click|.count (|
|000022e0| 73 65 65 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |see `mou|se-track|
|000022f0| 2d 63 6c 69 63 6b 2d 68 | 6f 6f 6b 27 29 2c 20 61 |-click-h|ook'), a|
|00002300| 6e 64 20 77 68 65 74 68 | 65 72 20 74 68 65 20 63 |nd wheth|er the c|
|00002310| 61 6c 6c 20 74 6f 0a 74 | 68 69 73 20 68 6f 6f 6b |all to.t|his hook|
|00002320| 20 6f 63 63 75 72 72 65 | 64 20 61 73 20 61 20 72 | occurre|d as a r|
|00002330| 65 73 75 6c 74 20 6f 66 | 20 61 20 64 72 61 67 20 |esult of| a drag |
|00002340| 74 69 6d 65 6f 75 74 20 | 28 73 65 65 0a 60 6d 6f |timeout |(see.`mo|
|00002350| 75 73 65 2d 74 72 61 63 | 6b 2d 73 63 72 6f 6c 6c |use-trac|k-scroll|
|00002360| 2d 64 65 6c 61 79 27 29 | 2e 0a 0a 49 66 20 61 6e |-delay')|...If an|
|00002370| 79 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |y functi|on retur|
|00002380| 6e 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 68 65 20 |ns non-n|il, the |
|00002390| 72 65 6d 61 69 6e 69 6e | 67 20 66 75 6e 63 74 69 |remainin|g functi|
|000023a0| 6f 6e 73 20 77 69 6c 6c | 20 6e 6f 74 20 62 65 0a |ons will| not be.|
|000023b0| 63 61 6c 6c 65 64 2e 0a | 0a 4e 6f 74 65 20 74 68 |called..|.Note th|
|000023c0| 61 74 20 6e 6f 20 63 61 | 6c 6c 73 20 74 6f 20 74 |at no ca|lls to t|
|000023d0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 77 69 6c |his func|tion wil|
|000023e0| 6c 20 62 65 20 6d 61 64 | 65 20 75 6e 74 69 6c 20 |l be mad|e until |
|000023f0| 74 68 65 20 75 73 65 72 | 0a 69 6e 69 74 69 61 74 |the user|.initiat|
|00002400| 65 73 20 61 20 64 72 61 | 67 20 28 69 2e 65 2e 20 |es a dra|g (i.e. |
|00002410| 6d 6f 76 65 73 20 74 68 | 65 20 6d 6f 75 73 65 20 |moves th|e mouse |
|00002420| 6d 6f 72 65 20 74 68 61 | 6e 20 61 20 63 65 72 74 |more tha|n a cert|
|00002430| 61 69 6e 0a 74 68 72 65 | 73 68 6f 6c 64 20 69 6e |ain.thre|shold in|
|00002440| 20 65 69 74 68 65 72 20 | 74 68 65 20 58 20 6f 72 | either |the X or|
|00002450| 20 74 68 65 20 59 20 64 | 69 72 65 63 74 69 6f 6e | the Y d|irection|
|00002460| 2c 20 61 73 20 64 65 66 | 69 6e 65 64 20 62 79 0a |, as def|ined by.|
|00002470| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 78 2d 74 |`mouse-t|rack-x-t|
|00002480| 68 72 65 73 68 6f 6c 64 | 27 20 61 6e 64 20 60 6d |hreshold|' and `m|
|00002490| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 79 2d 74 68 72 |ouse-tra|ck-y-thr|
|000024a0| 65 73 68 6f 6c 64 27 29 | 2e 0a 0a 53 65 65 20 61 |eshold')|...See a|
|000024b0| 6c 73 6f 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |lso `mou|se-track|
|000024c0| 2d 64 72 61 67 2d 75 70 | 2d 68 6f 6f 6b 27 2e 22 |-drag-up|-hook'."|
|000024d0| 29 0a 28 64 65 66 76 61 | 72 20 6d 6f 75 73 65 2d |).(defva|r mouse-|
|000024e0| 74 72 61 63 6b 2d 64 72 | 61 67 2d 75 70 2d 68 6f |track-dr|ag-up-ho|
|000024f0| 6f 6b 20 6e 69 6c 20 22 | 5c 0a 46 75 6e 63 74 69 |ok nil "|\.Functi|
|00002500| 6f 6e 20 6f 72 20 66 75 | 6e 63 74 69 6f 6e 73 20 |on or fu|nctions |
|00002510| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 74 68 65 20 |called w|hen the |
|00002520| 75 73 65 72 20 66 69 6e | 69 73 68 65 73 20 61 20 |user fin|ishes a |
|00002530| 64 72 61 67 2e 0a 54 68 | 69 73 20 68 6f 6f 6b 20 |drag..Th|is hook |
|00002540| 69 73 20 69 6e 76 6f 6b | 65 64 20 62 79 20 60 6d |is invok|ed by `m|
|00002550| 6f 75 73 65 2d 74 72 61 | 63 6b 27 3b 20 74 68 75 |ouse-tra|ck'; thu|
|00002560| 73 2c 20 69 74 20 77 69 | 6c 6c 20 6e 6f 74 20 62 |s, it wi|ll not b|
|00002570| 65 20 63 61 6c 6c 65 64 | 0a 66 6f 72 20 61 6e 79 |e called|.for any|
|00002580| 20 62 75 74 74 6f 6e 73 | 20 77 69 74 68 20 61 20 | buttons| with a |
|00002590| 64 69 66 66 65 72 65 6e | 74 20 62 69 6e 64 69 6e |differen|t bindin|
|000025a0| 67 2e 20 20 54 68 65 20 | 66 75 6e 63 74 69 6f 6e |g. The |function|
|000025b0| 73 20 77 69 6c 6c 20 62 | 65 0a 63 61 6c 6c 65 64 |s will b|e.called|
|000025c0| 20 77 69 74 68 20 74 77 | 6f 20 61 72 67 75 6d 65 | with tw|o argume|
|000025d0| 6e 74 73 3a 20 74 68 65 | 20 62 75 74 74 6f 6e 2d |nts: the| button-|
|000025e0| 70 72 65 73 73 20 65 76 | 65 6e 74 20 61 6e 64 20 |press ev|ent and |
|000025f0| 61 20 63 6c 69 63 6b 0a | 63 6f 75 6e 74 20 28 73 |a click.|count (s|
|00002600| 65 65 20 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ee `mous|e-track-|
|00002610| 63 6c 69 63 6b 2d 68 6f | 6f 6b 27 29 2e 0a 0a 49 |click-ho|ok')...I|
|00002620| 66 20 61 6e 79 20 66 75 | 6e 63 74 69 6f 6e 20 72 |f any fu|nction r|
|00002630| 65 74 75 72 6e 73 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |eturns n|on-nil, |
|00002640| 74 68 65 20 72 65 6d 61 | 69 6e 69 6e 67 20 66 75 |the rema|ining fu|
|00002650| 6e 63 74 69 6f 6e 73 20 | 77 69 6c 6c 20 6e 6f 74 |nctions |will not|
|00002660| 20 62 65 0a 63 61 6c 6c | 65 64 2e 0a 0a 4e 6f 74 | be.call|ed...Not|
|00002670| 65 20 74 68 61 74 20 74 | 68 69 73 20 68 6f 6f 6b |e that t|his hook|
|00002680| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 69 6e 76 | will no|t be inv|
|00002690| 6f 6b 65 64 20 75 6e 6c | 65 73 73 20 74 68 65 20 |oked unl|ess the |
|000026a0| 75 73 65 72 20 68 61 73 | 0a 69 6e 69 74 69 61 74 |user has|.initiat|
|000026b0| 65 64 20 61 20 64 72 61 | 67 2c 20 69 2e 65 2e 20 |ed a dra|g, i.e. |
|000026c0| 6d 6f 76 65 64 20 74 68 | 65 20 6d 6f 75 73 65 20 |moved th|e mouse |
|000026d0| 6d 6f 72 65 20 74 68 61 | 6e 20 61 20 63 65 72 74 |more tha|n a cert|
|000026e0| 61 69 6e 20 74 68 72 65 | 73 68 6f 6c 64 0a 28 73 |ain thre|shold.(s|
|000026f0| 65 65 20 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ee `mous|e-track-|
|00002700| 64 72 61 67 2d 68 6f 6f | 6b 27 29 2e 20 20 57 68 |drag-hoo|k'). Wh|
|00002710| 65 6e 20 74 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |en this |function|
|00002720| 20 69 73 20 69 6e 76 6f | 6b 65 64 2c 0a 60 6d 6f | is invo|ked,.`mo|
|00002730| 75 73 65 2d 74 72 61 63 | 6b 2d 64 72 61 67 2d 68 |use-trac|k-drag-h|
|00002740| 6f 6f 6b 27 20 77 69 6c | 6c 20 68 61 76 65 20 62 |ook' wil|l have b|
|00002750| 65 65 6e 20 69 6e 76 6f | 6b 65 64 20 61 74 20 6c |een invo|ked at l|
|00002760| 65 61 73 74 20 6f 6e 63 | 65 2e 0a 0a 53 65 65 20 |east onc|e...See |
|00002770| 61 6c 73 6f 20 60 6d 6f | 75 73 65 2d 74 72 61 63 |also `mo|use-trac|
|00002780| 6b 2d 63 6c 69 63 6b 2d | 68 6f 6f 6b 27 2e 22 29 |k-click-|hook'.")|
|00002790| 0a 28 64 65 66 76 61 72 | 20 6d 6f 75 73 65 2d 74 |.(defvar| mouse-t|
|000027a0| 72 61 63 6b 2d 63 6c 69 | 63 6b 2d 68 6f 6f 6b 20 |rack-cli|ck-hook |
|000027b0| 6e 69 6c 20 22 5c 0a 46 | 75 6e 63 74 69 6f 6e 20 |nil "\.F|unction |
|000027c0| 6f 72 20 66 75 6e 63 74 | 69 6f 6e 73 20 63 61 6c |or funct|ions cal|
|000027d0| 6c 65 64 20 77 68 65 6e | 20 74 68 65 20 75 73 65 |led when| the use|
|000027e0| 72 20 63 6c 69 63 6b 73 | 20 74 68 65 20 6d 6f 75 |r clicks| the mou|
|000027f0| 73 65 2e 0a 60 43 6c 69 | 63 6b 69 6e 67 27 20 6d |se..`Cli|cking' m|
|00002800| 65 61 6e 73 20 70 72 65 | 73 73 69 6e 67 20 61 6e |eans pre|ssing an|
|00002810| 64 20 72 65 6c 65 61 73 | 69 6e 67 20 74 68 65 20 |d releas|ing the |
|00002820| 6d 6f 75 73 65 20 77 69 | 74 68 6f 75 74 20 68 61 |mouse wi|thout ha|
|00002830| 76 69 6e 67 0a 69 6e 69 | 74 69 61 74 65 64 20 61 |ving.ini|tiated a|
|00002840| 20 64 72 61 67 20 28 69 | 2e 65 2e 20 77 69 74 68 | drag (i|.e. with|
|00002850| 6f 75 74 20 68 61 76 69 | 6e 67 20 6d 6f 76 65 64 |out havi|ng moved|
|00002860| 20 6d 6f 72 65 20 74 68 | 61 6e 20 61 20 63 65 72 | more th|an a cer|
|00002870| 74 61 69 6e 0a 74 68 72 | 65 73 68 6f 6c 64 20 2d |tain.thr|eshold -|
|00002880| 2d 20 73 65 65 20 60 6d | 6f 75 73 65 2d 74 72 61 |- see `m|ouse-tra|
|00002890| 63 6b 2d 64 72 61 67 2d | 68 6f 6f 6b 27 29 2e 0a |ck-drag-|hook')..|
|000028a0| 0a 54 68 69 73 20 68 6f | 6f 6b 20 69 73 20 69 6e |.This ho|ok is in|
|000028b0| 76 6f 6b 65 64 20 62 79 | 20 60 6d 6f 75 73 65 2d |voked by| `mouse-|
|000028c0| 74 72 61 63 6b 27 3b 20 | 74 68 75 73 2c 20 69 74 |track'; |thus, it|
|000028d0| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 63 61 6c | will no|t be cal|
|000028e0| 6c 65 64 0a 66 6f 72 20 | 61 6e 79 20 62 75 74 74 |led.for |any butt|
|000028f0| 6f 6e 73 20 77 69 74 68 | 20 61 20 64 69 66 66 65 |ons with| a diffe|
|00002900| 72 65 6e 74 20 62 69 6e | 64 69 6e 67 2e 20 20 54 |rent bin|ding. T|
|00002910| 68 65 20 66 75 6e 63 74 | 69 6f 6e 73 20 77 69 6c |he funct|ions wil|
|00002920| 6c 20 62 65 0a 63 61 6c | 6c 65 64 20 77 69 74 68 |l be.cal|led with|
|00002930| 20 74 77 6f 20 61 72 67 | 75 6d 65 6e 74 73 3a 20 | two arg|uments: |
|00002940| 74 68 65 20 62 75 74 74 | 6f 6e 2d 72 65 6c 65 61 |the butt|on-relea|
|00002950| 73 65 20 65 76 65 6e 74 | 20 61 6e 64 20 61 20 63 |se event| and a c|
|00002960| 6c 69 63 6b 0a 63 6f 75 | 6e 74 2c 20 77 68 69 63 |lick.cou|nt, whic|
|00002970| 68 20 73 70 65 63 69 66 | 69 65 73 20 74 68 65 20 |h specif|ies the |
|00002980| 6e 75 6d 62 65 72 20 6f | 66 20 74 69 6d 65 73 20 |number o|f times |
|00002990| 74 68 61 74 20 74 68 65 | 20 6d 6f 75 73 65 20 68 |that the| mouse h|
|000029a0| 61 73 20 62 65 65 6e 0a | 63 6c 69 63 6b 65 64 20 |as been.|clicked |
|000029b0| 69 6e 20 61 20 73 65 72 | 69 65 73 20 6f 66 20 63 |in a ser|ies of c|
|000029c0| 6c 69 63 6b 73 2c 20 65 | 61 63 68 20 6f 66 20 77 |licks, e|ach of w|
|000029d0| 68 69 63 68 20 69 73 20 | 73 65 70 61 72 61 74 65 |hich is |separate|
|000029e0| 64 20 62 79 20 61 74 20 | 6d 6f 73 74 0a 60 6d 6f |d by at |most.`mo|
|000029f0| 75 73 65 2d 74 72 61 63 | 6b 2d 6d 75 6c 74 69 2d |use-trac|k-multi-|
|00002a00| 63 6c 69 63 6b 2d 74 69 | 6d 65 27 2e 20 20 54 68 |click-ti|me'. Th|
|00002a10| 69 73 20 63 61 6e 20 62 | 65 20 75 73 65 64 20 74 |is can b|e used t|
|00002a20| 6f 20 69 6d 70 6c 65 6d | 65 6e 74 20 61 63 74 69 |o implem|ent acti|
|00002a30| 6f 6e 73 0a 74 68 61 74 | 20 61 72 65 20 63 61 6c |ons.that| are cal|
|00002a40| 6c 65 64 20 6f 6e 20 64 | 6f 75 62 6c 65 20 63 6c |led on d|ouble cl|
|00002a50| 69 63 6b 73 2c 20 74 72 | 69 70 6c 65 20 63 6c 69 |icks, tr|iple cli|
|00002a60| 63 6b 73 2c 20 65 74 63 | 2e 0a 0a 49 66 20 61 6e |cks, etc|...If an|
|00002a70| 79 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |y functi|on retur|
|00002a80| 6e 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 74 68 65 20 |ns non-n|il, the |
|00002a90| 72 65 6d 61 69 6e 69 6e | 67 20 66 75 6e 63 74 69 |remainin|g functi|
|00002aa0| 6f 6e 73 20 77 69 6c 6c | 20 6e 6f 74 20 62 65 0a |ons will| not be.|
|00002ab0| 63 61 6c 6c 65 64 2e 0a | 0a 53 65 65 20 61 6c 73 |called..|.See als|
|00002ac0| 6f 20 60 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 64 |o `mouse|-track-d|
|00002ad0| 72 61 67 2d 75 70 2d 68 | 6f 6f 6b 2e 22 29 0a 28 |rag-up-h|ook.").(|
|00002ae0| 64 65 66 76 61 72 20 6d | 6f 75 73 65 2d 74 72 61 |defvar m|ouse-tra|
|00002af0| 63 6b 2d 75 70 2d 68 6f | 6f 6b 20 6e 69 6c 20 22 |ck-up-ho|ok nil "|
|00002b00| 5c 0a 46 75 6e 63 74 69 | 6f 6e 20 6f 72 20 66 75 |\.Functi|on or fu|
|00002b10| 6e 63 74 69 6f 6e 73 20 | 63 61 6c 6c 65 64 20 77 |nctions |called w|
|00002b20| 68 65 6e 20 74 68 65 20 | 75 73 65 72 20 72 65 6c |hen the |user rel|
|00002b30| 65 61 73 65 73 20 74 68 | 65 20 6d 6f 75 73 65 2e |eases th|e mouse.|
|00002b40| 0a 54 68 69 73 20 68 6f | 6f 6b 20 69 73 20 69 6e |.This ho|ok is in|
|00002b50| 76 6f 6b 65 64 20 62 79 | 20 60 6d 6f 75 73 65 2d |voked by| `mouse-|
|00002b60| 74 72 61 63 6b 27 3b 20 | 74 68 75 73 2c 20 69 74 |track'; |thus, it|
|00002b70| 20 77 69 6c 6c 20 6e 6f | 74 20 62 65 20 63 61 6c | will no|t be cal|
|00002b80| 6c 65 64 0a 66 6f 72 20 | 61 6e 79 20 62 75 74 74 |led.for |any butt|
|00002b90| 6f 6e 73 20 77 69 74 68 | 20 61 20 64 69 66 66 65 |ons with| a diffe|
|00002ba0| 72 65 6e 74 20 62 69 6e | 64 69 6e 67 2e 20 20 54 |rent bin|ding. T|
|00002bb0| 68 65 20 66 75 6e 63 74 | 69 6f 6e 73 20 77 69 6c |he funct|ions wil|
|00002bc0| 6c 20 62 65 0a 63 61 6c | 6c 65 64 20 77 69 74 68 |l be.cal|led with|
|00002bd0| 20 74 77 6f 20 61 72 67 | 75 6d 65 6e 74 73 3a 20 | two arg|uments: |
|00002be0| 74 68 65 20 62 75 74 74 | 6f 6e 2d 72 65 6c 65 61 |the butt|on-relea|
|00002bf0| 73 65 20 65 76 65 6e 74 | 20 61 6e 64 20 61 20 63 |se event| and a c|
|00002c00| 6c 69 63 6b 0a 63 6f 75 | 6e 74 20 28 73 65 65 20 |lick.cou|nt (see |
|00002c10| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 63 6c 69 |`mouse-t|rack-cli|
|00002c20| 63 6b 2d 68 6f 6f 6b 27 | 29 2e 0a 0a 46 6f 72 20 |ck-hook'|)...For |
|00002c30| 6d 61 6e 79 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |many app|lication|
|00002c40| 73 2c 20 69 74 20 69 73 | 20 6d 6f 72 65 20 61 70 |s, it is| more ap|
|00002c50| 70 72 6f 70 72 69 61 74 | 65 20 74 6f 20 75 73 65 |propriat|e to use|
|00002c60| 20 6f 6e 65 20 6f 72 20 | 62 6f 74 68 0a 6f 66 20 | one or |both.of |
|00002c70| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 63 6c 69 |`mouse-t|rack-cli|
|00002c80| 63 6b 2d 68 6f 6f 6b 27 | 20 61 6e 64 20 60 6d 6f |ck-hook'| and `mo|
|00002c90| 75 73 65 2d 74 72 61 63 | 6b 2d 64 72 61 67 2d 75 |use-trac|k-drag-u|
|00002ca0| 70 2d 68 6f 6f 6b 27 2e | 22 29 0a 28 64 65 66 76 |p-hook'.|").(defv|
|00002cb0| 61 72 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 63 |ar mouse|-track-c|
|00002cc0| 6c 65 61 6e 75 70 2d 68 | 6f 6f 6b 20 6e 69 6c 20 |leanup-h|ook nil |
|00002cd0| 22 5c 0a 46 75 6e 63 74 | 69 6f 6e 20 6f 72 20 66 |"\.Funct|ion or f|
|00002ce0| 75 6e 63 74 69 6f 6e 73 | 20 63 61 6c 6c 65 64 20 |unctions| called |
|00002cf0| 77 68 65 6e 20 60 6d 6f | 75 73 65 2d 74 72 61 63 |when `mo|use-trac|
|00002d00| 6b 27 20 74 65 72 6d 69 | 6e 61 74 65 73 2e 0a 54 |k' termi|nates..T|
|00002d10| 68 69 73 20 68 6f 6f 6b | 20 77 69 6c 6c 20 62 65 |his hook| will be|
|00002d20| 20 63 61 6c 6c 65 64 20 | 69 6e 20 61 6c 6c 20 63 | called |in all c|
|00002d30| 69 72 63 75 6d 73 74 61 | 6e 63 65 73 2c 20 65 76 |ircumsta|nces, ev|
|00002d40| 65 6e 20 75 70 6f 6e 20 | 61 0a 6e 6f 6e 2d 6c 6f |en upon |a.non-lo|
|00002d50| 63 61 6c 20 65 78 69 74 | 20 6f 75 74 20 6f 66 20 |cal exit| out of |
|00002d60| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 27 2c 20 61 |`mouse-t|rack', a|
|00002d70| 6e 64 20 73 6f 20 69 73 | 20 75 73 65 66 75 6c 20 |nd so is| useful |
|00002d80| 66 6f 72 0a 64 6f 69 6e | 67 20 63 6c 65 61 6e 75 |for.doin|g cleanu|
|00002d90| 70 20 77 6f 72 6b 20 73 | 75 63 68 20 61 73 20 72 |p work s|uch as r|
|00002da0| 65 6d 6f 76 69 6e 67 20 | 65 78 74 65 6e 74 73 20 |emoving |extents |
|00002db0| 74 68 61 74 20 6d 61 79 | 20 68 61 76 65 0a 62 65 |that may| have.be|
|00002dc0| 65 6e 20 63 72 65 61 74 | 65 64 20 64 75 72 69 6e |en creat|ed durin|
|00002dd0| 67 20 74 68 65 20 6f 70 | 65 72 61 74 69 6f 6e 20 |g the op|eration |
|00002de0| 6f 66 20 60 6d 6f 75 73 | 65 2d 74 72 61 63 6b 27 |of `mous|e-track'|
|00002df0| 2e 0a 0a 55 6e 6c 69 6b | 65 20 61 6c 6c 20 6f 66 |...Unlik|e all of|
|00002e00| 20 74 68 65 20 6f 74 68 | 65 72 20 6d 6f 75 73 65 | the oth|er mouse|
|00002e10| 2d 74 72 61 63 6b 20 68 | 6f 6f 6b 73 2c 20 74 68 |-track h|ooks, th|
|00002e20| 69 73 20 69 73 20 61 20 | 5c 22 6e 6f 72 6d 61 6c |is is a |\"normal|
|00002e30| 5c 22 0a 68 6f 6f 6b 3a | 20 74 68 65 20 68 6f 6f |\".hook:| the hoo|
|00002e40| 6b 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 72 65 20 |k functi|ons are |
|00002e50| 63 61 6c 6c 65 64 20 77 | 69 74 68 20 6e 6f 20 61 |called w|ith no a|
|00002e60| 72 67 75 6d 65 6e 74 73 | 2c 20 61 6e 64 0a 61 6c |rguments|, and.al|
|00002e70| 6c 20 68 6f 6f 6b 20 66 | 75 6e 63 74 69 6f 6e 73 |l hook f|unctions|
|00002e80| 20 61 72 65 20 63 61 6c | 6c 65 64 20 72 65 67 61 | are cal|led rega|
|00002e90| 72 64 6c 65 73 73 20 6f | 66 20 74 68 65 69 72 20 |rdless o|f their |
|00002ea0| 72 65 74 75 72 6e 0a 76 | 61 6c 75 65 73 2e 22 29 |return.v|alues.")|
|00002eb0| 0a 28 64 65 66 76 61 72 | 20 6d 6f 75 73 65 2d 74 |.(defvar| mouse-t|
|00002ec0| 72 61 63 6b 2d 6d 75 6c | 74 69 2d 63 6c 69 63 6b |rack-mul|ti-click|
|00002ed0| 2d 74 69 6d 65 20 34 30 | 30 20 22 5c 0a 4d 61 78 |-time 40|0 "\.Max|
|00002ee0| 69 6d 75 6d 20 6e 75 6d | 62 65 72 20 6f 66 20 6d |imum num|ber of m|
|00002ef0| 69 6c 6c 69 73 65 63 6f | 6e 64 73 20 61 6c 6c 6f |illiseco|nds allo|
|00002f00| 77 65 64 20 62 65 74 77 | 65 65 6e 20 63 6c 69 63 |wed betw|een clic|
|00002f10| 6b 73 20 66 6f 72 20 61 | 20 6d 75 6c 74 69 2d 63 |ks for a| multi-c|
|00002f20| 6c 69 63 6b 2e 0a 53 65 | 65 20 60 6d 6f 75 73 65 |lick..Se|e `mouse|
|00002f30| 2d 74 72 61 63 6b 2d 63 | 6c 69 63 6b 2d 68 6f 6f |-track-c|lick-hoo|
|00002f40| 6b 27 2e 22 29 0a 28 64 | 65 66 76 61 72 20 6d 6f |k'.").(d|efvar mo|
|00002f50| 75 73 65 2d 74 72 61 63 | 6b 2d 73 63 72 6f 6c 6c |use-trac|k-scroll|
|00002f60| 2d 64 65 6c 61 79 20 31 | 30 30 20 22 5c 0a 4d 61 |-delay 1|00 "\.Ma|
|00002f70| 78 69 6d 75 6d 20 6f 66 | 20 6d 69 6c 6c 69 73 65 |ximum of| millise|
|00002f80| 63 6f 6e 64 73 20 62 65 | 74 77 65 65 6e 20 63 61 |conds be|tween ca|
|00002f90| 6c 6c 73 20 74 6f 20 60 | 6d 6f 75 73 65 2d 74 72 |lls to `|mouse-tr|
|00002fa0| 61 63 6b 2d 64 72 61 67 | 2d 68 6f 6f 6b 27 2e 0a |ack-drag|-hook'..|
|00002fb0| 49 66 20 74 68 65 20 75 | 73 65 72 20 69 73 20 64 |If the u|ser is d|
|00002fc0| 72 61 67 67 69 6e 67 20 | 74 68 65 20 6d 6f 75 73 |ragging |the mous|
|00002fd0| 65 20 28 69 2e 65 2e 20 | 74 68 65 20 62 75 74 74 |e (i.e. |the butt|
|00002fe0| 6f 6e 20 69 73 20 68 65 | 6c 64 20 64 6f 77 6e 20 |on is he|ld down |
|00002ff0| 61 6e 64 0a 61 20 64 72 | 61 67 20 68 61 73 20 62 |and.a dr|ag has b|
|00003000| 65 65 6e 20 69 6e 69 74 | 69 61 74 65 64 29 20 61 |een init|iated) a|
|00003010| 6e 64 20 64 6f 65 73 20 | 6e 6f 74 20 6d 6f 76 65 |nd does |not move|
|00003020| 20 74 68 65 20 6d 6f 75 | 73 65 20 66 6f 72 20 74 | the mou|se for t|
|00003030| 68 69 73 20 6d 61 6e 79 | 0a 6d 69 6c 6c 69 73 65 |his many|.millise|
|00003040| 63 6f 6e 64 73 2c 20 74 | 68 65 20 68 6f 6f 6b 20 |conds, t|he hook |
|00003050| 77 69 6c 6c 20 62 65 20 | 63 61 6c 6c 65 64 20 77 |will be |called w|
|00003060| 69 74 68 20 74 20 61 73 | 20 74 68 65 20 76 61 6c |ith t as| the val|
|00003070| 75 65 20 6f 66 20 74 68 | 65 0a 57 41 53 2d 54 49 |ue of th|e.WAS-TI|
|00003080| 4d 45 4f 55 54 20 70 61 | 72 61 6d 65 74 65 72 2e |MEOUT pa|rameter.|
|00003090| 20 20 54 68 69 73 20 63 | 61 6e 20 62 65 20 75 73 | This c|an be us|
|000030a0| 65 64 20 74 6f 20 69 6d | 70 6c 65 6d 65 6e 74 20 |ed to im|plement |
|000030b0| 73 63 72 6f 6c 6c 69 6e | 67 0a 69 6e 20 61 20 73 |scrollin|g.in a s|
|000030c0| 65 6c 65 63 74 69 6f 6e | 20 77 68 65 6e 20 74 68 |election| when th|
|000030d0| 65 20 75 73 65 72 20 64 | 72 61 67 73 20 74 68 65 |e user d|rags the|
|000030e0| 20 6d 6f 75 73 65 20 6f | 75 74 20 74 68 65 20 77 | mouse o|ut the w|
|000030f0| 69 6e 64 6f 77 20 69 74 | 0a 77 61 73 20 69 6e 2e |indow it|.was in.|
|00003100| 0a 0a 41 20 76 61 6c 75 | 65 20 6f 66 20 6e 69 6c |..A valu|e of nil|
|00003110| 20 64 69 73 61 62 6c 65 | 73 20 74 68 65 20 74 69 | disable|s the ti|
|00003120| 6d 65 6f 75 74 20 66 65 | 61 74 75 72 65 2e 22 29 |meout fe|ature.")|
|00003130| 0a 28 64 65 66 76 61 72 | 20 6d 6f 75 73 65 2d 74 |.(defvar| mouse-t|
|00003140| 72 61 63 6b 2d 78 2d 74 | 68 72 65 73 68 6f 6c 64 |rack-x-t|hreshold|
|00003150| 20 27 28 66 61 63 65 2d | 77 69 64 74 68 20 27 64 | '(face-|width 'd|
|00003160| 65 66 61 75 6c 74 29 20 | 22 5c 0a 4d 69 6e 69 6d |efault) |"\.Minim|
|00003170| 75 6d 20 6e 75 6d 62 65 | 72 20 6f 66 20 70 69 78 |um numbe|r of pix|
|00003180| 65 6c 73 20 69 6e 20 74 | 68 65 20 58 20 64 69 72 |els in t|he X dir|
|00003190| 65 63 74 69 6f 6e 20 66 | 6f 72 20 61 20 64 72 61 |ection f|or a dra|
|000031a0| 67 20 74 6f 20 62 65 20 | 69 6e 69 74 69 61 74 65 |g to be |initiate|
|000031b0| 64 2e 0a 49 66 20 74 68 | 65 20 6d 6f 75 73 65 20 |d..If th|e mouse |
|000031c0| 69 73 20 6d 6f 76 65 64 | 20 6d 6f 72 65 20 74 68 |is moved| more th|
|000031d0| 61 6e 20 65 69 74 68 65 | 72 20 74 68 65 20 58 20 |an eithe|r the X |
|000031e0| 6f 72 20 59 20 74 68 72 | 65 73 68 6f 6c 64 20 77 |or Y thr|eshold w|
|000031f0| 68 69 6c 65 20 74 68 65 | 0a 62 75 74 74 6f 6e 20 |hile the|.button |
|00003200| 69 73 20 68 65 6c 64 20 | 64 6f 77 6e 20 28 73 65 |is held |down (se|
|00003210| 65 20 61 6c 73 6f 20 60 | 6d 6f 75 73 65 2d 74 72 |e also `|mouse-tr|
|00003220| 61 63 6b 2d 79 2d 74 68 | 72 65 73 68 6f 6c 64 27 |ack-y-th|reshold'|
|00003230| 29 2c 20 74 68 65 6e 20 | 61 20 64 72 61 67 0a 69 |), then |a drag.i|
|00003240| 73 20 69 6e 69 74 69 61 | 74 65 64 3b 20 6f 74 68 |s initia|ted; oth|
|00003250| 65 72 77 69 73 65 20 74 | 68 65 20 67 65 73 74 75 |erwise t|he gestu|
|00003260| 72 65 20 69 73 20 63 6f | 6e 73 69 64 65 72 65 64 |re is co|nsidered|
|00003270| 20 74 6f 20 62 65 20 61 | 20 63 6c 69 63 6b 2e 0a | to be a| click..|
|00003280| 53 65 65 20 60 6d 6f 75 | 73 65 2d 74 72 61 63 6b |See `mou|se-track|
|00003290| 27 2e 0a 0a 54 68 65 20 | 76 61 6c 75 65 20 73 68 |'...The |value sh|
|000032a0| 6f 75 6c 64 20 62 65 20 | 65 69 74 68 65 72 20 61 |ould be |either a|
|000032b0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 61 20 66 6f 72 | number |of a for|
|000032c0| 6d 20 74 6f 20 62 65 20 | 65 76 61 6c 75 61 74 65 |m to be |evaluate|
|000032d0| 64 20 74 6f 0a 70 72 6f | 64 75 63 65 20 61 20 6e |d to.pro|duce a n|
|000032e0| 75 6d 62 65 72 2e 22 29 | 0a 28 64 65 66 76 61 72 |umber.")|.(defvar|
|000032f0| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 79 2d 74 | mouse-t|rack-y-t|
|00003300| 68 72 65 73 68 6f 6c 64 | 20 27 28 66 61 63 65 2d |hreshold| '(face-|
|00003310| 68 65 69 67 68 74 20 27 | 64 65 66 61 75 6c 74 29 |height '|default)|
|00003320| 20 22 5c 0a 4d 69 6e 69 | 6d 75 6d 20 6e 75 6d 62 | "\.Mini|mum numb|
|00003330| 65 72 20 6f 66 20 70 69 | 78 65 6c 73 20 69 6e 20 |er of pi|xels in |
|00003340| 74 68 65 20 59 20 64 69 | 72 65 63 74 69 6f 6e 20 |the Y di|rection |
|00003350| 66 6f 72 20 61 20 64 72 | 61 67 20 74 6f 20 62 65 |for a dr|ag to be|
|00003360| 20 69 6e 69 74 69 61 74 | 65 64 2e 0a 49 66 20 74 | initiat|ed..If t|
|00003370| 68 65 20 6d 6f 75 73 65 | 20 69 73 20 6d 6f 76 65 |he mouse| is move|
|00003380| 64 20 6d 6f 72 65 20 74 | 68 61 6e 20 65 69 74 68 |d more t|han eith|
|00003390| 65 72 20 74 68 65 20 58 | 20 6f 72 20 59 20 74 68 |er the X| or Y th|
|000033a0| 72 65 73 68 6f 6c 64 20 | 77 68 69 6c 65 20 74 68 |reshold |while th|
|000033b0| 65 0a 62 75 74 74 6f 6e | 20 69 73 20 68 65 6c 64 |e.button| is held|
|000033c0| 20 64 6f 77 6e 20 28 73 | 65 65 20 61 6c 73 6f 20 | down (s|ee also |
|000033d0| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 78 2d 74 |`mouse-t|rack-x-t|
|000033e0| 68 72 65 73 68 6f 6c 64 | 27 29 2c 20 74 68 65 6e |hreshold|'), then|
|000033f0| 20 61 20 64 72 61 67 0a | 69 73 20 69 6e 69 74 69 | a drag.|is initi|
|00003400| 61 74 65 64 3b 20 6f 74 | 68 65 72 77 69 73 65 20 |ated; ot|herwise |
|00003410| 74 68 65 20 67 65 73 74 | 75 72 65 20 69 73 20 63 |the gest|ure is c|
|00003420| 6f 6e 73 69 64 65 72 65 | 64 20 74 6f 20 62 65 20 |onsidere|d to be |
|00003430| 61 20 63 6c 69 63 6b 2e | 0a 53 65 65 20 60 6d 6f |a click.|.See `mo|
|00003440| 75 73 65 2d 74 72 61 63 | 6b 27 2e 0a 0a 54 68 65 |use-trac|k'...The|
|00003450| 20 76 61 6c 75 65 20 73 | 68 6f 75 6c 64 20 62 65 | value s|hould be|
|00003460| 20 65 69 74 68 65 72 20 | 61 20 6e 75 6d 62 65 72 | either |a number|
|00003470| 20 6f 66 20 61 20 66 6f | 72 6d 20 74 6f 20 62 65 | of a fo|rm to be|
|00003480| 20 65 76 61 6c 75 61 74 | 65 64 20 74 6f 0a 70 72 | evaluat|ed to.pr|
|00003490| 6f 64 75 63 65 20 61 20 | 6e 75 6d 62 65 72 2e 22 |oduce a |number."|
|000034a0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|000034b0| 21 ac 82 c2 11 c0 c3 21 | ac 82 c2 13 c0 c4 21 ac |!......!|......!.|
|000034c0| 82 c2 14 c0 c5 21 ac 82 | c2 15 c0 c6 21 ac 83 c2 |.....!..|....!...|
|000034d0| 16 06 c7 c8 4d 88 c9 ca | 4d 88 cb cc 4d 87 22 20 |....M...|M...M." |
|000034e0| 5b 62 6f 75 6e 64 70 20 | 6d 6f 75 73 65 2d 74 72 |[boundp |mouse-tr|
|000034f0| 61 63 6b 2d 75 70 2d 74 | 69 6d 65 20 6e 69 6c 20 |ack-up-t|ime nil |
|00003500| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 75 70 2d 78 |mouse-tr|ack-up-x|
|00003510| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 75 70 2d | mouse-t|rack-up-|
|00003520| 79 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 74 69 |y mouse-|track-ti|
|00003530| 6d 65 6f 75 74 2d 69 64 | 20 6d 6f 75 73 65 2d 74 |meout-id| mouse-t|
|00003540| 72 61 63 6b 2d 63 6c 69 | 63 6b 2d 63 6f 75 6e 74 |rack-cli|ck-count|
|00003550| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 73 65 74 | mouse-t|rack-set|
|00003560| 2d 74 69 6d 65 6f 75 74 | 20 23 5b 28 65 76 65 6e |-timeout| #[(even|
|00003570| 74 29 20 22 08 ab 84 c1 | 08 21 88 5c 6e ad 8c c3 |t) "....|.!.\n...|
|00003580| 5c 6e c4 a5 c5 c6 0e 07 | 21 23 89 10 87 22 20 5b |\n......|!#..." [|
|00003590| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 74 69 6d 65 |mouse-tr|ack-time|
|000035a0| 6f 75 74 2d 69 64 20 64 | 69 73 61 62 6c 65 2d 74 |out-id d|isable-t|
|000035b0| 69 6d 65 6f 75 74 20 6d | 6f 75 73 65 2d 74 72 61 |imeout m|ouse-tra|
|000035c0| 63 6b 2d 73 63 72 6f 6c | 6c 2d 64 65 6c 61 79 20 |ck-scrol|l-delay |
|000035d0| 61 64 64 2d 74 69 6d 65 | 6f 75 74 20 31 30 30 30 |add-time|out 1000|
|000035e0| 2e 30 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 73 |.0 mouse|-track-s|
|000035f0| 63 72 6f 6c 6c 2d 75 6e | 64 65 66 69 6e 65 64 20 |croll-un|defined |
|00003600| 63 6f 70 79 2d 65 76 65 | 6e 74 20 65 76 65 6e 74 |copy-eve|nt event|
|00003610| 5d 20 35 5d 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |] 5] mou|se-track|
|00003620| 2d 72 75 6e 2d 68 6f 6f | 6b 20 23 5b 28 68 6f 6f |-run-hoo|k #[(hoo|
|00003630| 6b 20 65 76 65 6e 74 20 | 26 72 65 73 74 20 61 72 |k event |&rest ar|
|00003640| 67 73 29 20 22 c0 09 21 | 1a 0b ab 82 0b 12 5c 6e |gs) "..!|......\n|
|00003650| ad bb c4 0d 5c 6e c6 23 | 89 1e 07 3c ab a8 0e 07 |....\n.#|...<....|
|00003660| 40 c8 3d ac a1 c6 1e 09 | 0e 07 ab 95 ca 0e 07 40 |@.=.....|.......@|
|00003670| 09 0e 0b 23 89 16 09 ac | 88 0e 07 41 89 16 07 ac |...#....|...A....|
|00003680| 6b 0e 09 29 aa 87 ca 0e | 07 09 0e 0b 23 29 29 87 |k..)....|....#)).|
|00003690| 22 20 5b 65 76 65 6e 74 | 2d 62 75 66 66 65 72 20 |" [event|-buffer |
|000036a0| 65 76 65 6e 74 20 62 75 | 66 66 65 72 20 6d 6f 75 |event bu|ffer mou|
|000036b0| 73 65 2d 67 72 61 62 62 | 65 64 2d 62 75 66 66 65 |se-grabb|ed-buffe|
|000036c0| 72 20 73 79 6d 62 6f 6c | 2d 76 61 6c 75 65 2d 69 |r symbol|-value-i|
|000036d0| 6e 2d 62 75 66 66 65 72 | 20 68 6f 6f 6b 20 6e 69 |n-buffer| hook ni|
|000036e0| 6c 20 76 61 6c 75 65 20 | 6c 61 6d 62 64 61 20 72 |l value |lambda r|
|000036f0| 65 74 76 61 6c 20 61 70 | 70 6c 79 20 61 72 67 73 |etval ap|ply args|
|00003700| 5d 20 35 5d 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |] 5] mou|se-track|
|00003710| 2d 73 63 72 6f 6c 6c 2d | 75 6e 64 65 66 69 6e 65 |-scroll-|undefine|
|00003720| 64 20 28 6c 61 6d 62 64 | 61 20 28 72 61 6e 64 6f |d (lambd|a (rando|
|00003730| 6d 29 29 5d 20 32 29 0a | 28 66 73 65 74 20 27 6d |m))] 2).|(fset 'm|
|00003740| 6f 75 73 65 2d 74 72 61 | 63 6b 20 23 5b 28 65 76 |ouse-tra|ck #[(ev|
|00003750| 65 6e 74 29 20 22 c0 c1 | 5c 6e 21 c1 0b 21 c4 0d |ent) "..|\n!..!..|
|00003760| 21 c6 0d 21 c7 0d 21 c7 | 0d 21 c8 1e 09 1e 5c 6e |!..!..!.|.!....\n|
|00003770| 1e 0b 1e 0c 1e 0d 1e 0e | 1e 0f 1e 10 0e 11 ab ab |........|........|
|00003780| 0e 12 ab a7 0e 13 ab a3 | d4 0d 21 0e 13 5a 0e 15 |........|..!..Z..|
|00003790| 56 ac 98 d6 0e 11 0e 0d | 5a 21 0e 0f 56 ac 8c d6 |V.......|Z!..V...|
|000037a0| 0e 12 0e 0c 5a 21 0e 0e | 56 ab 85 d7 16 18 aa 85 |....Z!..|V.......|
|000037b0| 0e 18 54 16 18 d9 0d 21 | ac 84 da db 21 88 dc dd |..T....!|....!...|
|000037c0| 0d 0e 18 23 88 de 8e 0e | 10 85 1b 01 df 0d 21 15 |...#....|......!.|
|000037d0| e0 0d 21 ab b3 0e 09 ac | 9d d6 c4 0d 21 0e 0d 5a |..!.....|....!..Z|
|000037e0| 21 0e 0f 56 ac 8d d6 c6 | 0d 21 0e 0c 5a 21 0e 0e |!..V....|.!..Z!..|
|000037f0| 56 ab 83 c0 16 09 0e 09 | ab 88 dc e1 0d 0e 18 c8 |V.......|........|
|00003800| 24 88 e2 0d 21 88 aa 3f | e3 0d 21 ab 9d e4 0d 21 |$...!..?|..!....!|
|00003810| e5 3d ab 96 0e 09 ab 8a | dc e1 e6 0d 21 0e 18 c0 |.=......|....!...|
|00003820| 24 88 e2 e6 0d 21 21 88 | aa 1d e7 0d 21 ab b1 d4 |$....!!.|....!...|
|00003830| 0d 21 16 13 c4 0d 21 16 | 11 c6 0d 21 16 12 c8 16 |.!....!.|...!....|
|00003840| 10 dc e8 0d 0e 18 23 88 | 0e 09 ab 8a dc e9 0d 0e |......#.|........|
|00003850| 18 23 88 82 6f 00 dc ea | 0d 0e 18 23 88 82 6f 00 |.#..o...|...#..o.|
|00003860| eb 0d 21 ab 87 da ec 21 | 88 82 6f 00 ed 0d 21 88 |..!....!|..o...!.|
|00003870| 82 6f 00 2e 09 87 22 20 | 5b 74 20 65 76 61 6c 20 |.o...." |[t eval |
|00003880| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 78 2d 74 68 |mouse-tr|ack-x-th|
|00003890| 72 65 73 68 6f 6c 64 20 | 6d 6f 75 73 65 2d 74 72 |reshold |mouse-tr|
|000038a0| 61 63 6b 2d 79 2d 74 68 | 72 65 73 68 6f 6c 64 20 |ack-y-th|reshold |
|000038b0| 65 76 65 6e 74 2d 78 2d | 70 69 78 65 6c 20 65 76 |event-x-|pixel ev|
|000038c0| 65 6e 74 20 65 76 65 6e | 74 2d 79 2d 70 69 78 65 |ent even|t-y-pixe|
|000038d0| 6c 20 65 76 65 6e 74 2d | 62 75 66 66 65 72 20 6e |l event-|buffer n|
|000038e0| 69 6c 20 6d 6f 75 73 65 | 2d 6d 6f 76 65 64 20 6d |il mouse|-moved m|
|000038f0| 6f 75 73 65 2d 67 72 61 | 62 62 65 64 2d 62 75 66 |ouse-gra|bbed-buf|
|00003900| 66 65 72 20 62 75 66 66 | 65 72 20 6f 72 69 67 2d |fer buff|er orig-|
|00003910| 79 20 6f 72 69 67 2d 78 | 20 79 74 68 72 65 73 68 |y orig-x| ythresh|
|00003920| 20 78 74 68 72 65 73 68 | 20 6d 6f 75 73 65 2d 64 | xthresh| mouse-d|
|00003930| 6f 77 6e 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |own mous|e-track-|
|00003940| 75 70 2d 78 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |up-x mou|se-track|
|00003950| 2d 75 70 2d 79 20 6d 6f | 75 73 65 2d 74 72 61 63 |-up-y mo|use-trac|
|00003960| 6b 2d 75 70 2d 74 69 6d | 65 20 65 76 65 6e 74 2d |k-up-tim|e event-|
|00003970| 74 69 6d 65 73 74 61 6d | 70 20 6d 6f 75 73 65 2d |timestam|p mouse-|
|00003980| 74 72 61 63 6b 2d 6d 75 | 6c 74 69 2d 63 6c 69 63 |track-mu|lti-clic|
|00003990| 6b 2d 74 69 6d 65 20 61 | 62 73 20 31 20 6d 6f 75 |k-time a|bs 1 mou|
|000039a0| 73 65 2d 74 72 61 63 6b | 2d 63 6c 69 63 6b 2d 63 |se-track|-click-c|
|000039b0| 6f 75 6e 74 20 65 76 65 | 6e 74 2d 77 69 6e 64 6f |ount eve|nt-windo|
|000039c0| 77 20 65 72 72 6f 72 20 | 22 4e 6f 74 20 6f 76 65 |w error |"Not ove|
|000039d0| 72 20 61 20 77 69 6e 64 | 6f 77 2e 22 20 6d 6f 75 |r a wind|ow." mou|
|000039e0| 73 65 2d 74 72 61 63 6b | 2d 72 75 6e 2d 68 6f 6f |se-track|-run-hoo|
|000039f0| 6b 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 64 6f |k mouse-|track-do|
|00003a00| 77 6e 2d 68 6f 6f 6b 20 | 28 28 62 79 74 65 2d 63 |wn-hook |((byte-c|
|00003a10| 6f 64 65 20 22 08 ab 84 | c1 08 21 88 c2 10 0b ab |ode "...|..!.....|
|00003a20| 89 8a 0b 71 88 c4 c5 21 | 88 29 c2 87 22 20 5b 6d |...q...!|.).." [m|
|00003a30| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 74 69 6d 65 6f |ouse-tra|ck-timeo|
|00003a40| 75 74 2d 69 64 20 64 69 | 73 61 62 6c 65 2d 74 69 |ut-id di|sable-ti|
|00003a50| 6d 65 6f 75 74 20 6e 69 | 6c 20 62 75 66 66 65 72 |meout ni|l buffer|
|00003a60| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 6d 6f 75 73 65 | run-hoo|ks mouse|
|00003a70| 2d 74 72 61 63 6b 2d 63 | 6c 65 61 6e 75 70 2d 68 |-track-c|leanup-h|
|00003a80| 6f 6f 6b 5d 20 32 29 29 | 20 6e 65 78 74 2d 65 76 |ook] 2))| next-ev|
|00003a90| 65 6e 74 20 6d 6f 74 69 | 6f 6e 2d 65 76 65 6e 74 |ent moti|on-event|
|00003aa0| 2d 70 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 64 |-p mouse|-track-d|
|00003ab0| 72 61 67 2d 68 6f 6f 6b | 20 6d 6f 75 73 65 2d 74 |rag-hook| mouse-t|
|00003ac0| 72 61 63 6b 2d 73 65 74 | 2d 74 69 6d 65 6f 75 74 |rack-set|-timeout|
|00003ad0| 20 74 69 6d 65 6f 75 74 | 2d 65 76 65 6e 74 2d 70 | timeout|-event-p|
|00003ae0| 20 65 76 65 6e 74 2d 66 | 75 6e 63 74 69 6f 6e 20 | event-f|unction |
|00003af0| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 73 63 72 6f |mouse-tr|ack-scro|
|00003b00| 6c 6c 2d 75 6e 64 65 66 | 69 6e 65 64 20 65 76 65 |ll-undef|ined eve|
|00003b10| 6e 74 2d 6f 62 6a 65 63 | 74 20 62 75 74 74 6f 6e |nt-objec|t button|
|00003b20| 2d 72 65 6c 65 61 73 65 | 2d 65 76 65 6e 74 2d 70 |-release|-event-p|
|00003b30| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 75 70 2d | mouse-t|rack-up-|
|00003b40| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00003b50| 2d 64 72 61 67 2d 75 70 | 2d 68 6f 6f 6b 20 6d 6f |-drag-up|-hook mo|
|00003b60| 75 73 65 2d 74 72 61 63 | 6b 2d 63 6c 69 63 6b 2d |use-trac|k-click-|
|00003b70| 68 6f 6f 6b 20 6b 65 79 | 2d 70 72 65 73 73 2d 65 |hook key|-press-e|
|00003b80| 76 65 6e 74 2d 70 20 22 | 53 65 6c 65 63 74 69 6f |vent-p "|Selectio|
|00003b90| 6e 20 61 62 6f 72 74 65 | 64 22 20 64 69 73 70 61 |n aborte|d" dispa|
|00003ba0| 74 63 68 2d 65 76 65 6e | 74 5d 20 38 20 22 5c 0a |tch-even|t] 8 "\.|
|00003bb0| 4d 61 6b 65 20 61 20 73 | 65 6c 65 63 74 69 6f 6e |Make a s|election|
|00003bc0| 20 77 69 74 68 20 74 68 | 65 20 6d 6f 75 73 65 2e | with th|e mouse.|
|00003bd0| 20 20 54 68 69 73 20 73 | 68 6f 75 6c 64 20 62 65 | This s|hould be|
|00003be0| 20 62 6f 75 6e 64 20 74 | 6f 20 61 20 6d 6f 75 73 | bound t|o a mous|
|00003bf0| 65 20 62 75 74 74 6f 6e | 2e 0a 54 68 65 20 62 65 |e button|..The be|
|00003c00| 68 61 76 69 6f 72 20 6f | 66 20 58 45 6d 61 63 73 |havior o|f XEmacs|
|00003c10| 20 64 75 72 69 6e 67 20 | 6d 6f 75 73 65 20 73 65 | during |mouse se|
|00003c20| 6c 65 63 74 69 6f 6e 20 | 69 73 20 63 75 73 74 6f |lection |is custo|
|00003c30| 6d 69 7a 61 62 6c 65 20 | 75 73 69 6e 67 20 76 61 |mizable |using va|
|00003c40| 72 69 6f 75 73 0a 68 6f | 6f 6b 73 20 61 6e 64 20 |rious.ho|oks and |
|00003c50| 76 61 72 69 61 62 6c 65 | 73 3a 20 73 65 65 20 60 |variable|s: see `|
|00003c60| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 63 6c 69 63 |mouse-tr|ack-clic|
|00003c70| 6b 2d 68 6f 6f 6b 27 2c | 20 60 6d 6f 75 73 65 2d |k-hook',| `mouse-|
|00003c80| 74 72 61 63 6b 2d 64 72 | 61 67 2d 68 6f 6f 6b 27 |track-dr|ag-hook'|
|00003c90| 2c 0a 60 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 64 |,.`mouse|-track-d|
|00003ca0| 72 61 67 2d 75 70 2d 68 | 6f 6f 6b 27 2c 20 60 6d |rag-up-h|ook', `m|
|00003cb0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 6f 77 6e 2d |ouse-tra|ck-down-|
|00003cc0| 68 6f 6f 6b 27 2c 20 60 | 6d 6f 75 73 65 2d 74 72 |hook', `|mouse-tr|
|00003cd0| 61 63 6b 2d 75 70 2d 68 | 6f 6f 6b 27 2c 0a 60 6d |ack-up-h|ook',.`m|
|00003ce0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 63 6c 65 61 6e |ouse-tra|ck-clean|
|00003cf0| 75 70 2d 68 6f 6f 6b 27 | 2c 20 60 6d 6f 75 73 65 |up-hook'|, `mouse|
|00003d00| 2d 74 72 61 63 6b 2d 6d | 75 6c 74 69 2d 63 6c 69 |-track-m|ulti-cli|
|00003d10| 63 6b 2d 74 69 6d 65 27 | 2c 0a 60 6d 6f 75 73 65 |ck-time'|,.`mouse|
|00003d20| 2d 74 72 61 63 6b 2d 73 | 63 72 6f 6c 6c 2d 64 65 |-track-s|croll-de|
|00003d30| 6c 61 79 27 2c 20 60 6d | 6f 75 73 65 2d 74 72 61 |lay', `m|ouse-tra|
|00003d40| 63 6b 2d 78 2d 74 68 72 | 65 73 68 6f 6c 64 27 2c |ck-x-thr|eshold',|
|00003d50| 20 61 6e 64 0a 60 6d 6f | 75 73 65 2d 74 72 61 63 | and.`mo|use-trac|
|00003d60| 6b 2d 79 2d 74 68 72 65 | 73 68 6f 6c 64 27 2e 0a |k-y-thre|shold'..|
|00003d70| 0a 44 65 66 61 75 6c 74 | 20 68 61 6e 64 6c 65 72 |.Default| handler|
|00003d80| 73 20 61 72 65 20 70 72 | 6f 76 69 64 65 64 20 74 |s are pr|ovided t|
|00003d90| 6f 20 69 6d 70 6c 65 6d | 65 6e 74 20 73 74 61 6e |o implem|ent stan|
|00003da0| 64 61 72 64 20 73 65 6c | 65 63 74 69 6e 67 2f 70 |dard sel|ecting/p|
|00003db0| 6f 73 69 74 69 6f 6e 69 | 6e 67 0a 62 65 68 61 76 |ositioni|ng.behav|
|00003dc0| 69 6f 72 2e 20 20 59 6f | 75 20 63 61 6e 20 65 78 |ior. Yo|u can ex|
|00003dd0| 70 6c 69 63 69 74 6c 79 | 20 72 65 71 75 65 73 74 |plicitly| request|
|00003de0| 20 74 68 69 73 20 64 65 | 66 61 75 6c 74 20 62 65 | this de|fault be|
|00003df0| 68 61 76 69 6f 72 2c 20 | 61 6e 64 20 6f 76 65 72 |havior, |and over|
|00003e00| 72 69 64 65 0a 61 6e 79 | 20 63 75 73 74 6f 6d 2d |ride.any| custom-|
|00003e10| 73 75 70 70 6c 69 65 64 | 20 68 61 6e 64 6c 65 72 |supplied| handler|
|00003e20| 73 2c 20 62 79 20 75 73 | 69 6e 67 20 74 68 65 20 |s, by us|ing the |
|00003e30| 66 75 6e 63 74 69 6f 6e | 20 60 6d 6f 75 73 65 2d |function| `mouse-|
|00003e40| 74 72 61 63 6b 2d 64 65 | 66 61 75 6c 74 27 0a 69 |track-de|fault'.i|
|00003e50| 6e 73 74 65 61 64 20 6f | 66 20 60 6d 6f 75 73 65 |nstead o|f `mouse|
|00003e60| 2d 74 72 61 63 6b 27 2e | 0a 0a 44 65 66 61 75 6c |-track'.|..Defaul|
|00003e70| 74 20 62 65 68 61 76 69 | 6f 72 20 69 73 20 61 73 |t behavi|or is as|
|00003e80| 20 66 6f 6c 6c 6f 77 73 | 3a 20 0a 0a 49 66 20 79 | follows|: ..If y|
|00003e90| 6f 75 20 63 6c 69 63 6b | 2d 61 6e 64 2d 64 72 61 |ou click|-and-dra|
|00003ea0| 67 2c 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |g, the s|election|
|00003eb0| 20 77 69 6c 6c 20 62 65 | 20 73 65 74 20 74 6f 20 | will be| set to |
|00003ec0| 74 68 65 20 72 65 67 69 | 6f 6e 20 62 65 74 77 65 |the regi|on betwe|
|00003ed0| 65 6e 20 74 68 65 0a 70 | 6f 69 6e 74 20 6f 66 20 |en the.p|oint of |
|00003ee0| 74 68 65 20 69 6e 69 74 | 69 61 6c 20 63 6c 69 63 |the init|ial clic|
|00003ef0| 6b 20 61 6e 64 20 74 68 | 65 20 70 6f 69 6e 74 20 |k and th|e point |
|00003f00| 61 74 20 77 68 69 63 68 | 20 79 6f 75 20 72 65 6c |at which| you rel|
|00003f10| 65 61 73 65 20 74 68 65 | 20 62 75 74 74 6f 6e 2e |ease the| button.|
|00003f20| 0a 54 68 65 73 65 20 70 | 6f 73 69 74 69 6f 6e 73 |.These p|ositions|
|00003f30| 20 6e 65 65 64 20 6e 6f | 74 20 62 65 20 6f 72 64 | need no|t be ord|
|00003f40| 65 72 65 64 2e 0a 0a 49 | 66 20 79 6f 75 20 63 6c |ered...I|f you cl|
|00003f50| 69 63 6b 2d 61 6e 64 2d | 72 65 6c 65 61 73 65 20 |ick-and-|release |
|00003f60| 77 69 74 68 6f 75 74 20 | 6d 6f 76 69 6e 67 20 74 |without |moving t|
|00003f70| 68 65 20 6d 6f 75 73 65 | 2c 20 74 68 65 6e 20 74 |he mouse|, then t|
|00003f80| 68 65 20 70 6f 69 6e 74 | 20 69 73 20 6d 6f 76 65 |he point| is move|
|00003f90| 64 0a 61 6e 64 20 74 68 | 65 20 73 65 6c 65 63 74 |d.and th|e select|
|00003fa0| 69 6f 6e 20 69 73 20 64 | 69 73 6f 77 6e 65 64 20 |ion is d|isowned |
|00003fb0| 28 74 68 65 72 65 20 77 | 69 6c 6c 20 62 65 20 6e |(there w|ill be n|
|00003fc0| 6f 20 73 65 6c 65 63 74 | 69 6f 6e 20 6f 77 6e 65 |o select|ion owne|
|00003fd0| 72 29 2e 20 20 54 68 65 | 20 6d 61 72 6b 0a 77 69 |r). The| mark.wi|
|00003fe0| 6c 6c 20 62 65 20 73 65 | 74 20 74 6f 20 74 68 65 |ll be se|t to the|
|00003ff0| 20 70 72 65 76 69 6f 75 | 73 20 70 6f 73 69 74 69 | previou|s positi|
|00004000| 6f 6e 20 6f 66 20 70 6f | 69 6e 74 2e 0a 0a 49 66 |on of po|int...If|
|00004010| 20 79 6f 75 20 64 6f 75 | 62 6c 65 2d 63 6c 69 63 | you dou|ble-clic|
|00004020| 6b 2c 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |k, the s|election|
|00004030| 20 77 69 6c 6c 20 65 78 | 74 65 6e 64 20 62 79 20 | will ex|tend by |
|00004040| 73 79 6d 62 6f 6c 73 20 | 69 6e 73 74 65 61 64 20 |symbols |instead |
|00004050| 6f 66 20 62 79 0a 63 68 | 61 72 61 63 74 65 72 73 |of by.ch|aracters|
|00004060| 2e 20 20 49 66 20 79 6f | 75 20 74 72 69 70 6c 65 |. If yo|u triple|
|00004070| 2d 63 6c 69 63 6b 2c 20 | 74 68 65 20 73 65 6c 65 |-click, |the sele|
|00004080| 63 74 69 6f 6e 20 77 69 | 6c 6c 20 65 78 74 65 6e |ction wi|ll exten|
|00004090| 64 20 62 79 20 6c 69 6e | 65 73 2e 0a 0a 49 66 20 |d by lin|es...If |
|000040a0| 79 6f 75 20 64 72 61 67 | 20 74 68 65 20 6d 6f 75 |you drag| the mou|
|000040b0| 73 65 20 6f 66 66 20 74 | 68 65 20 74 6f 70 20 6f |se off t|he top o|
|000040c0| 72 20 62 6f 74 74 6f 6d | 20 6f 66 20 74 68 65 20 |r bottom| of the |
|000040d0| 77 69 6e 64 6f 77 2c 20 | 79 6f 75 20 63 61 6e 20 |window, |you can |
|000040e0| 73 65 6c 65 63 74 0a 70 | 69 65 63 65 73 20 6f 66 |select.p|ieces of|
|000040f0| 20 74 65 78 74 20 77 68 | 69 63 68 20 61 72 65 20 | text wh|ich are |
|00004100| 6c 61 72 67 65 72 20 74 | 68 61 6e 20 74 68 65 20 |larger t|han the |
|00004110| 76 69 73 69 62 6c 65 20 | 70 61 72 74 20 6f 66 20 |visible |part of |
|00004120| 74 68 65 20 62 75 66 66 | 65 72 3b 20 74 68 65 0a |the buff|er; the.|
|00004130| 62 75 66 66 65 72 20 77 | 69 6c 6c 20 73 63 72 6f |buffer w|ill scro|
|00004140| 6c 6c 20 61 73 20 6e 65 | 63 65 73 73 61 72 79 2e |ll as ne|cessary.|
|00004150| 0a 0a 54 68 65 20 73 65 | 6c 65 63 74 65 64 20 74 |..The se|lected t|
|00004160| 65 78 74 20 62 65 63 6f | 6d 65 73 20 74 68 65 20 |ext beco|mes the |
|00004170| 63 75 72 72 65 6e 74 20 | 58 20 53 65 6c 65 63 74 |current |X Select|
|00004180| 69 6f 6e 2c 20 61 6e 64 | 20 69 73 20 61 6c 73 6f |ion, and| is also|
|00004190| 20 63 6f 70 69 65 64 20 | 74 6f 20 74 68 65 0a 74 | copied |to the.t|
|000041a0| 6f 70 20 6f 66 20 74 68 | 65 20 6b 69 6c 6c 20 72 |op of th|e kill r|
|000041b0| 69 6e 67 2e 20 20 54 68 | 65 20 70 6f 69 6e 74 20 |ing. Th|e point |
|000041c0| 77 69 6c 6c 20 62 65 20 | 6c 65 66 74 20 61 74 20 |will be |left at |
|000041d0| 74 68 65 20 70 6f 73 69 | 74 69 6f 6e 20 61 74 20 |the posi|tion at |
|000041e0| 77 68 69 63 68 20 79 6f | 75 0a 72 65 6c 65 61 73 |which yo|u.releas|
|000041f0| 65 64 20 74 68 65 20 62 | 75 74 74 6f 6e 2c 20 61 |ed the b|utton, a|
|00004200| 6e 64 20 74 68 65 20 6d | 61 72 6b 20 77 69 6c 6c |nd the m|ark will|
|00004210| 20 62 65 20 6c 65 66 74 | 20 61 74 20 74 68 65 20 | be left| at the |
|00004220| 69 6e 69 74 69 61 6c 20 | 63 6c 69 63 6b 20 70 6f |initial |click po|
|00004230| 73 69 74 69 6f 6e 2e 22 | 20 22 65 22 5d 29 0a 28 |sition."| "e"]).(|
|00004240| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|00004250| c2 11 c0 c3 21 ac 82 c4 | 13 c0 c5 21 ac 82 c2 15 |....!...|...!....|
|00004260| c0 c6 21 ac 83 c2 16 06 | c0 c7 21 ac 83 c2 16 07 |..!.....|..!.....|
|00004270| c0 c8 21 ac 83 c2 16 08 | c0 c9 21 ac 83 c2 16 09 |..!.....|..!.....|
|00004280| c0 ca 21 ac 83 c2 16 5c | 6e c0 cb 21 ac 83 c2 16 |..!....\|n..!....|
|00004290| 0b cc cd 4d 88 ce cf 4d | 88 c0 d0 21 ac 83 c2 16 |...M...M|...!....|
|000042a0| 10 d1 d2 4d 88 d3 d4 4d | 88 d3 d5 4e d6 3e ac 85 |...M...M|...N.>..|
|000042b0| d7 d8 d3 5c 22 88 d9 d3 | d5 da 23 88 db dc 4d 88 |...\"...|..#...M.|
|000042c0| dd de 4d 88 df e0 4d 88 | e1 e2 4d 88 e3 e4 4d 88 |..M...M.|..M...M.|
|000042d0| e5 e6 4d 88 e7 e8 4d 88 | e9 ea 4d 88 eb ec 4d 88 |..M...M.|..M...M.|
|000042e0| ed ee 4d 88 ef f0 4d 88 | f1 f2 4d 88 f3 f4 4d 88 |..M...M.|..M...M.|
|000042f0| f5 f6 4d 88 f7 f8 4d 88 | f9 fa eb 5c 22 88 f9 fb |..M...M.|...\"...|
|00004300| f1 5c 22 88 f9 fc f5 5c | 22 88 f9 fd f7 5c 22 88 |.\"....\|"....\".|
|00004310| f9 fe ed 5c 22 87 22 20 | 5b 62 6f 75 6e 64 70 20 |...\"." |[boundp |
|00004320| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00004330| 61 63 6b 2d 74 79 70 65 | 20 6e 69 6c 20 64 65 66 |ack-type| nil def|
|00004340| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|00004350| 2d 74 79 70 65 2d 6c 69 | 73 74 20 28 63 68 61 72 |-type-li|st (char|
|00004360| 20 77 6f 72 64 20 6c 69 | 6e 65 29 20 64 65 66 61 | word li|ne) defa|
|00004370| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00004380| 77 69 6e 64 6f 77 20 64 | 65 66 61 75 6c 74 2d 6d |window d|efault-m|
|00004390| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 65 78 74 65 6e |ouse-tra|ck-exten|
|000043a0| 74 20 64 65 66 61 75 6c | 74 2d 6d 6f 75 73 65 2d |t defaul|t-mouse-|
|000043b0| 74 72 61 63 6b 2d 61 64 | 6a 75 73 74 20 64 65 66 |track-ad|just def|
|000043c0| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|000043d0| 2d 6d 69 6e 2d 61 6e 63 | 68 6f 72 20 64 65 66 61 |-min-anc|hor defa|
|000043e0| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|000043f0| 6d 61 78 2d 61 6e 63 68 | 6f 72 20 64 65 66 61 75 |max-anch|or defau|
|00004400| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 72 |lt-mouse|-track-r|
|00004410| 65 73 75 6c 74 20 64 65 | 66 61 75 6c 74 2d 6d 6f |esult de|fault-mo|
|00004420| 75 73 65 2d 74 72 61 63 | 6b 2d 64 6f 77 6e 2d 65 |use-trac|k-down-e|
|00004430| 76 65 6e 74 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |vent def|ault-mou|
|00004440| 73 65 2d 74 72 61 63 6b | 2d 73 65 74 2d 70 6f 69 |se-track|-set-poi|
|00004450| 6e 74 2d 69 6e 2d 77 69 | 6e 64 6f 77 20 23 5b 28 |nt-in-wi|ndow #[(|
|00004460| 65 76 65 6e 74 20 77 69 | 6e 64 6f 77 29 20 22 c0 |event wi|ndow) ".|
|00004470| 09 21 3f ad 93 c2 09 21 | 0b 3d ad 8c c4 09 21 89 |.!?....!|.=....!.|
|00004480| 1d ad 84 c6 0d 0b 5c 22 | 29 3f 3f ad 85 c7 09 21 |......\"|)??....!|
|00004490| 88 c8 87 22 20 5b 65 76 | 65 6e 74 2d 6f 76 65 72 |..." [ev|ent-over|
|000044a0| 2d 6d 6f 64 65 6c 69 6e | 65 2d 70 20 65 76 65 6e |-modelin|e-p even|
|000044b0| 74 20 65 76 65 6e 74 2d | 77 69 6e 64 6f 77 20 77 |t event-|window w|
|000044c0| 69 6e 64 6f 77 20 65 76 | 65 6e 74 2d 63 6c 6f 73 |indow ev|ent-clos|
|000044d0| 65 73 74 2d 70 6f 69 6e | 74 20 70 20 70 6f 73 2d |est-poin|t p pos-|
|000044e0| 76 69 73 69 62 6c 65 2d | 69 6e 2d 77 69 6e 64 6f |visible-|in-windo|
|000044f0| 77 2d 70 20 6d 6f 75 73 | 65 2d 73 65 74 2d 70 6f |w-p mous|e-set-po|
|00004500| 69 6e 74 20 74 5d 20 34 | 5d 20 64 65 66 61 75 6c |int t] 4|] defaul|
|00004510| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 73 63 |t-mouse-|track-sc|
|00004520| 72 6f 6c 6c 2d 61 6e 64 | 2d 73 65 74 2d 70 6f 69 |roll-and|-set-poi|
|00004530| 6e 74 20 23 5b 28 65 76 | 65 6e 74 20 77 69 6e 64 |nt #[(ev|ent wind|
|00004540| 6f 77 29 20 22 c0 09 21 | 88 c2 09 21 c3 0c 21 c5 |ow) "..!|...!..!.|
|00004550| c6 21 1e 07 1e 08 1e 09 | ca 0e 08 0e 09 41 40 5a |.!......|.....A@Z|
|00004560| 21 ca 0e 08 cb 0e 09 38 | 5a 21 57 ab 99 cc 0e 09 |!......8|Z!W.....|
|00004570| 41 40 0e 08 5a 0e 07 a5 | 5d 1e 0d ce cf d0 8f 88 |A@..Z...|].......|
|00004580| d1 20 62 29 aa d7 60 64 | 59 ae d2 d2 0c 21 ac 89 |. b)..`d|Y....!..|
|00004590| 0e 08 cb 0e 09 38 57 ab | 83 cc aa 8c 0e 08 cb 0e |.....8W.|........|
|000045a0| 09 38 5a 0e 07 a5 cc 5c | 5c d3 0c 21 1e 14 1e 0d |.8Z....\|\..!....|
|000045b0| ce d5 d6 8f 88 0e 14 ab | 8b d7 0e 14 21 ab 85 0e |........|....!...|
|000045c0| 14 62 aa 99 d8 20 62 88 | d9 0e 0d 21 88 d7 60 53 |.b... b.|...!..`S|
|000045d0| 65 5d 21 ac 84 d9 da 21 | 88 ce db dc 8f 2a 2b 87 |e]!....!|.....*+.|
|000045e0| 22 20 5b 73 65 6c 65 63 | 74 2d 77 69 6e 64 6f 77 |" [selec|t-window|
|000045f0| 20 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 70 | window |window-p|
|00004600| 69 78 65 6c 2d 65 64 67 | 65 73 20 65 76 65 6e 74 |ixel-edg|es event|
|00004610| 2d 79 2d 70 69 78 65 6c | 20 65 76 65 6e 74 20 66 |-y-pixel| event f|
|00004620| 61 63 65 2d 68 65 69 67 | 68 74 20 64 65 66 61 75 |ace-heig|ht defau|
|00004630| 6c 74 20 68 65 69 67 68 | 74 20 72 6f 77 20 65 64 |lt heigh|t row ed|
|00004640| 67 65 73 20 61 62 73 20 | 33 20 31 20 64 65 6c 74 |ges abs |3 1 delt|
|00004650| 61 20 6e 69 6c 20 28 73 | 63 72 6f 6c 6c 2d 64 6f |a nil (s|croll-do|
|00004660| 77 6e 20 64 65 6c 74 61 | 29 20 28 28 65 72 72 6f |wn delta|) ((erro|
|00004670| 72 29 29 20 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |r)) wind|ow-start|
|00004680| 20 65 76 65 6e 74 2d 6f | 76 65 72 2d 6d 6f 64 65 | event-o|ver-mode|
|00004690| 6c 69 6e 65 2d 70 20 65 | 76 65 6e 74 2d 63 6c 6f |line-p e|vent-clo|
|000046a0| 73 65 73 74 2d 70 6f 69 | 6e 74 20 63 6c 6f 73 65 |sest-poi|nt close|
|000046b0| 2d 70 6f 73 20 28 73 63 | 72 6f 6c 6c 2d 75 70 20 |-pos (sc|roll-up |
|000046c0| 64 65 6c 74 61 29 20 28 | 28 65 72 72 6f 72 29 29 |delta) (|(error))|
|000046d0| 20 70 6f 73 2d 76 69 73 | 69 62 6c 65 2d 69 6e 2d | pos-vis|ible-in-|
|000046e0| 77 69 6e 64 6f 77 2d 70 | 20 77 69 6e 64 6f 77 2d |window-p| window-|
|000046f0| 65 6e 64 20 76 65 72 74 | 69 63 61 6c 2d 6d 6f 74 |end vert|ical-mot|
|00004700| 69 6f 6e 20 2d 31 20 28 | 62 61 63 6b 77 61 72 64 |ion -1 (|backward|
|00004710| 2d 63 68 61 72 20 31 29 | 20 28 28 65 72 72 6f 72 |-char 1)| ((error|
|00004720| 20 28 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 20 6e 69 | (end-of|-line ni|
|00004730| 6c 29 29 29 5d 20 35 5d | 20 64 65 66 61 75 6c 74 |l)))] 5]| default|
|00004740| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 70 72 65 |-mouse-t|rack-pre|
|00004750| 76 69 6f 75 73 2d 70 6f | 69 6e 74 20 64 65 66 61 |vious-po|int defa|
|00004760| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00004770| 73 65 74 2d 70 6f 69 6e | 74 20 23 5b 28 65 76 65 |set-poin|t #[(eve|
|00004780| 6e 74 20 77 69 6e 64 6f | 77 29 20 22 c0 09 5c 6e |nt windo|w) "..\n|
|00004790| 5c 22 3f ad 84 c3 09 5c | 6e 5c 22 87 22 20 5b 64 |\"?....\|n\"." [d|
|000047a0| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|000047b0| 63 6b 2d 73 65 74 2d 70 | 6f 69 6e 74 2d 69 6e 2d |ck-set-p|oint-in-|
|000047c0| 77 69 6e 64 6f 77 20 65 | 76 65 6e 74 20 77 69 6e |window e|vent win|
|000047d0| 64 6f 77 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 |dow defa|ult-mous|
|000047e0| 65 2d 74 72 61 63 6b 2d | 73 63 72 6f 6c 6c 2d 61 |e-track-|scroll-a|
|000047f0| 6e 64 2d 73 65 74 2d 70 | 6f 69 6e 74 5d 20 33 5d |nd-set-p|oint] 3]|
|00004800| 20 64 65 66 61 75 6c 74 | 2d 6d 6f 75 73 65 2d 74 | default|-mouse-t|
|00004810| 72 61 63 6b 2d 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |rack-beg|inning-o|
|00004820| 66 2d 77 6f 72 64 20 23 | 5b 28 73 79 6d 62 6f 6c |f-word #|[(symbol|
|00004830| 70 29 20 22 08 c1 3d ab | 83 c2 aa 87 08 ac 83 c3 |p) "..=.|........|
|00004840| aa 81 c4 c5 1e 06 1e 07 | 6f ab 83 c8 aa bb c9 0e |........|o.......|
|00004850| 07 21 ab 9f ca 20 88 6f | ac 8b c9 0e 07 21 ab 85 |.!... .o|.....!..|
|00004860| ca 20 88 aa 72 6f ab 87 | c9 0e 07 21 3f ad 9a c8 |. ..ro..|...!?...|
|00004870| 75 aa 96 c9 0e 06 21 ad | 90 ca 20 88 c9 0e 06 21 |u.....!.|.. ....!|
|00004880| ab 85 ca 20 88 aa 75 c8 | 75 2a 87 22 20 5b 73 79 |... ..u.|u*." [sy|
|00004890| 6d 62 6f 6c 70 20 74 20 | 22 5c 5c 77 5c 5c 7c 5c |mbolp t |"\\w\\|\|
|000048a0| 5c 73 5f 5c 5c 7c 5c 5c | 73 27 22 20 22 5c 5c 77 |\s_\\|\\|s'" "\\w|
|000048b0| 22 20 22 5b 5e 20 09 5c | 6e 5d 22 20 22 5b 20 09 |" "[^ .\|n]" "[ .|
|000048c0| 5d 22 20 77 68 69 74 65 | 2d 73 70 61 63 65 20 77 |]" white|-space w|
|000048d0| 6f 72 64 2d 63 6f 6e 73 | 74 69 74 75 65 6e 74 20 |ord-cons|tituent |
|000048e0| 6e 69 6c 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 62 |nil look|ing-at b|
|000048f0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 5d 20 32 5d |ackward-|char] 2]|
|00004900| 20 62 79 74 65 2d 6f 70 | 74 69 6d 69 7a 65 72 20 | byte-op|timizer |
|00004910| 28 6e 69 6c 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |(nil byt|e-compil|
|00004920| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 29 |e-inline|-expand)|
|00004930| 20 65 72 72 6f 72 20 22 | 25 73 20 61 6c 72 65 61 | error "|%s alrea|
|00004940| 64 79 20 68 61 73 20 61 | 20 62 79 74 65 2d 6f 70 |dy has a| byte-op|
|00004950| 74 69 6d 69 7a 65 72 2c | 20 63 61 6e 27 74 20 6d |timizer,| can't m|
|00004960| 61 6b 65 20 69 74 20 69 | 6e 6c 69 6e 65 22 20 70 |ake it i|nline" p|
|00004970| 75 74 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ut byte-|compile-|
|00004980| 69 6e 6c 69 6e 65 2d 65 | 78 70 61 6e 64 20 64 65 |inline-e|xpand de|
|00004990| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|000049a0| 6b 2d 65 6e 64 2d 6f 66 | 2d 77 6f 72 64 20 23 5b |k-end-of|-word #[|
|000049b0| 28 73 79 6d 62 6f 6c 70 | 29 20 22 08 c1 3d ab 83 |(symbolp|) "..=..|
|000049c0| c2 aa 87 08 ac 83 c3 aa | 81 c4 c5 1e 06 1e 07 c8 |........|........|
|000049d0| 0e 07 21 ab 8b c8 0e 07 | 21 ad 96 c9 75 88 aa 75 |..!.....|!...u..u|
|000049e0| c8 0e 06 21 ad 8b c8 0e | 06 21 ad 85 c9 75 88 aa |...!....|.!...u..|
|000049f0| 75 2a 87 22 20 5b 73 79 | 6d 62 6f 6c 70 20 74 20 |u*." [sy|mbolp t |
|00004a00| 22 5c 5c 77 5c 5c 7c 5c | 5c 73 5f 5c 5c 7c 5c 5c |"\\w\\|\|\s_\\|\\|
|00004a10| 73 27 22 20 22 5c 5c 77 | 22 20 22 5b 5e 20 09 5c |s'" "\\w|" "[^ .\|
|00004a20| 6e 5d 22 20 22 5b 20 09 | 5d 22 20 77 68 69 74 65 |n]" "[ .|]" white|
|00004a30| 2d 73 70 61 63 65 20 77 | 6f 72 64 2d 63 6f 6e 73 |-space w|ord-cons|
|00004a40| 74 69 74 75 65 6e 74 20 | 6c 6f 6f 6b 69 6e 67 2d |tituent |looking-|
|00004a50| 61 74 20 6e 69 6c 5d 20 | 32 5d 20 64 65 66 61 75 |at nil] |2] defau|
|00004a60| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 6e |lt-mouse|-track-n|
|00004a70| 6f 72 6d 61 6c 69 7a 65 | 2d 70 6f 69 6e 74 20 23 |ormalize|-point #|
|00004a80| 5b 28 74 79 70 65 20 66 | 6f 72 77 61 72 64 70 29 |[(type f|orwardp)|
|00004a90| 20 22 08 c1 3d ab 85 c2 | c3 c4 8f 87 08 c5 3d ab | "..=...|......=.|
|00004aa0| 8c 0e 06 ab 83 c2 7f 87 | c7 79 88 c2 87 08 c8 3d |........|.y.....=|
|00004ab0| ad 89 0e 06 ab 83 c9 20 | 87 ca 20 87 22 20 5b 74 |....... |.. ." [t|
|00004ac0| 79 70 65 20 77 6f 72 64 | 20 6e 69 6c 20 28 62 79 |ype word| nil (by|
|00004ad0| 74 65 2d 63 6f 64 65 20 | 22 08 ab 84 c1 c2 21 87 |te-code |".....!.|
|00004ae0| c2 1b c2 89 3d ab 83 c4 | aa 87 0b ac 83 c5 aa 81 |....=...|........|
|00004af0| c6 c7 1e 08 1e 09 6f ab | 83 ca aa bb cb 0e 09 21 |......o.|.......!|
|00004b00| ab 9f cc 20 88 6f ac 8b | cb 0e 09 21 ab 85 cc 20 |... .o..|...!... |
|00004b10| 88 aa 72 6f ab 87 cb 0e | 09 21 3f ad 9a ca 75 aa |..ro....|.!?...u.|
|00004b20| 96 cb 0e 08 21 ad 90 cc | 20 88 cb 0e 08 21 ab 85 |....!...| ....!..|
|00004b30| cc 20 88 aa 75 ca 75 2b | 87 22 20 5b 66 6f 72 77 |. ..u.u+|." [forw|
|00004b40| 61 72 64 70 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |ardp def|ault-mou|
|00004b50| 73 65 2d 74 72 61 63 6b | 2d 65 6e 64 2d 6f 66 2d |se-track|-end-of-|
|00004b60| 77 6f 72 64 20 74 20 73 | 79 6d 62 6f 6c 70 20 22 |word t s|ymbolp "|
|00004b70| 5c 5c 77 5c 5c 7c 5c 5c | 73 5f 5c 5c 7c 5c 5c 73 |\\w\\|\\|s_\\|\\s|
|00004b80| 27 22 20 22 5c 5c 77 22 | 20 22 5b 5e 20 09 5c 6e |'" "\\w"| "[^ .\n|
|00004b90| 5d 22 20 22 5b 20 09 5d | 22 20 77 68 69 74 65 2d |]" "[ .]|" white-|
|00004ba0| 73 70 61 63 65 20 77 6f | 72 64 2d 63 6f 6e 73 74 |space wo|rd-const|
|00004bb0| 69 74 75 65 6e 74 20 6e | 69 6c 20 6c 6f 6f 6b 69 |ituent n|il looki|
|00004bc0| 6e 67 2d 61 74 20 62 61 | 63 6b 77 61 72 64 2d 63 |ng-at ba|ckward-c|
|00004bd0| 68 61 72 5d 20 32 29 20 | 28 28 65 72 72 6f 72 29 |har] 2) |((error)|
|00004be0| 29 20 6c 69 6e 65 20 66 | 6f 72 77 61 72 64 70 20 |) line f|orwardp |
|00004bf0| 30 20 62 75 66 66 65 72 | 20 65 6e 64 2d 6f 66 2d |0 buffer| end-of-|
|00004c00| 62 75 66 66 65 72 20 62 | 65 67 69 6e 6e 69 6e 67 |buffer b|eginning|
|00004c10| 2d 6f 66 2d 62 75 66 66 | 65 72 5d 20 33 5d 20 64 |-of-buff|er] 3] d|
|00004c20| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|00004c30| 63 6b 2d 6e 65 78 74 2d | 6d 6f 76 65 20 23 5b 28 |ck-next-|move #[(|
|00004c40| 6d 69 6e 2d 61 6e 63 68 | 6f 72 20 6d 61 78 2d 61 |min-anch|or max-a|
|00004c50| 6e 63 68 6f 72 20 65 78 | 74 65 6e 74 29 20 22 60 |nchor ex|tent) "`|
|00004c60| 08 58 ab 83 09 aa 81 08 | 1a c3 0c 60 5c 6e 56 5c |.X......|...`\nV\|
|00004c70| 22 88 0d 3a ab 87 c6 5c | 6e 60 0d 23 aa 94 0d ad |"..:...\|n`.#....|
|00004c80| 91 5c 6e 60 58 ab 87 c7 | 0d 5c 6e 60 23 aa 85 c7 |.\n`X...|.\n`#...|
|00004c90| 0d 60 5c 6e 23 29 87 22 | 20 5b 6d 69 6e 2d 61 6e |.`\n#)."| [min-an|
|00004ca0| 63 68 6f 72 20 6d 61 78 | 2d 61 6e 63 68 6f 72 20 |chor max|-anchor |
|00004cb0| 61 6e 63 68 6f 72 20 64 | 65 66 61 75 6c 74 2d 6d |anchor d|efault-m|
|00004cc0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 6e 6f 72 6d 61 |ouse-tra|ck-norma|
|00004cd0| 6c 69 7a 65 2d 70 6f 69 | 6e 74 20 64 65 66 61 75 |lize-poi|nt defau|
|00004ce0| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 74 |lt-mouse|-track-t|
|00004cf0| 79 70 65 20 65 78 74 65 | 6e 74 20 64 65 66 61 75 |ype exte|nt defau|
|00004d00| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 6e |lt-mouse|-track-n|
|00004d10| 65 78 74 2d 6d 6f 76 65 | 2d 72 65 63 74 20 73 65 |ext-move|-rect se|
|00004d20| 74 2d 65 78 74 65 6e 74 | 2d 65 6e 64 70 6f 69 6e |t-extent|-endpoin|
|00004d30| 74 73 5d 20 34 5d 20 64 | 65 66 61 75 6c 74 2d 6d |ts] 4] d|efault-m|
|00004d40| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 6e 65 78 74 2d |ouse-tra|ck-next-|
|00004d50| 6d 6f 76 65 2d 72 65 63 | 74 20 23 5b 28 73 74 61 |move-rec|t #[(sta|
|00004d60| 72 74 20 65 6e 64 20 65 | 78 74 65 6e 74 73 20 26 |rt end e|xtents &|
|00004d70| 6f 70 74 69 6f 6e 61 6c | 20 70 61 64 2d 70 29 20 |optional| pad-p) |
|00004d80| 22 08 09 57 ab 87 09 1a | 08 11 5c 6e 10 29 09 08 |"..W....|..\n.)..|
|00004d90| 55 ab 91 c3 c4 0d 41 5c | 22 88 0d c6 a1 88 c7 0d |U.....A\|".......|
|00004da0| 40 09 89 23 87 c6 0d c6 | 89 89 89 1e 08 1e 09 1e |@..#....|........|
|00004db0| 5c 6e 1e 0b 1e 0c 1e 0d | 8a 8c 08 62 88 69 16 5c |\n......|...b.i.\|
|00004dc0| 6e 09 62 88 69 16 0b 0e | 5c 6e 0e 0b 57 ab 9b 0e |n.b.i...|\n..W...|
|00004dd0| 0b 1a 0e 5c 6e 16 0b 5c | 6e 16 5c 6e 09 0e 5c 6e |...\n..\|n.\n..\n|
|00004de0| 0e 0b 5a 5a 11 08 0e 5c | 6e 0e 0b 5a 5c 5c 10 29 |..ZZ...\|n..Z\\.)|
|00004df0| 08 64 5e 10 ce 79 88 60 | 08 7d 88 09 62 88 0e 0c |.d^..y.`|.}..b...|
|00004e00| ab af 6d ac ac 60 16 08 | cf 0e 5c 6e 0e 10 5c 22 |..m..`..|..\n..\"|
|00004e10| 88 c7 0e 0c 40 0e 08 60 | 23 88 d1 79 88 6d ac 87 |....@..`|#..y.m..|
|00004e20| cf 0e 0b 0e 10 5c 22 88 | 0e 0c 16 09 0e 0c 41 89 |.....\".|......A.|
|00004e30| 16 0c ac 51 0e 0c ab 8c | c3 c4 0e 0c 5c 22 88 0e |...Q....|....\"..|
|00004e40| 09 c6 a1 aa c8 6d 3f ad | c4 6d 3f ad c0 60 16 08 |.....m?.|.m?..`..|
|00004e50| cf 0e 5c 6e 0e 10 5c 22 | 88 d2 0e 08 60 5c 22 1e |..\n..\"|....`\".|
|00004e60| 13 d4 0e 13 d5 0d 40 21 | 5c 22 88 d6 0e 13 d7 0d |......@!|\"......|
|00004e70| 40 21 5c 22 88 0e 09 0e | 13 c6 42 a1 88 0e 09 41 |@!\"....|..B....A|
|00004e80| 16 09 29 d1 79 88 6d ac | 45 cf 0e 0b 0e 10 5c 22 |..).y.m.|E.....\"|
|00004e90| 88 aa 3c 2e 08 87 22 20 | 5b 65 6e 64 20 73 74 61 |..<..." |[end sta|
|00004ea0| 72 74 20 74 6d 70 20 6d | 61 70 63 61 72 20 64 65 |rt tmp m|apcar de|
|00004eb0| 6c 65 74 65 2d 65 78 74 | 65 6e 74 20 65 78 74 65 |lete-ext|ent exte|
|00004ec0| 6e 74 73 20 6e 69 6c 20 | 73 65 74 2d 65 78 74 65 |nts nil |set-exte|
|00004ed0| 6e 74 2d 65 6e 64 70 6f | 69 6e 74 73 20 70 20 6c |nt-endpo|ints p l|
|00004ee0| 61 73 74 20 72 69 67 68 | 74 20 6c 65 66 74 20 72 |ast righ|t left r|
|00004ef0| 65 73 74 20 69 6e 64 65 | 6e 74 2d 74 61 62 73 2d |est inde|nt-tabs-|
|00004f00| 6d 6f 64 65 20 30 20 6d | 6f 76 65 2d 74 6f 2d 63 |mode 0 m|ove-to-c|
|00004f10| 6f 6c 75 6d 6e 20 70 61 | 64 2d 70 20 31 20 6d 61 |olumn pa|d-p 1 ma|
|00004f20| 6b 65 2d 65 78 74 65 6e | 74 20 65 20 73 65 74 2d |ke-exten|t e set-|
|00004f30| 65 78 74 65 6e 74 2d 66 | 61 63 65 20 65 78 74 65 |extent-f|ace exte|
|00004f40| 6e 74 2d 66 61 63 65 20 | 73 65 74 2d 65 78 74 65 |nt-face |set-exte|
|00004f50| 6e 74 2d 70 72 69 6f 72 | 69 74 79 20 65 78 74 65 |nt-prior|ity exte|
|00004f60| 6e 74 2d 70 72 69 6f 72 | 69 74 79 5d 20 37 5d 20 |nt-prior|ity] 7] |
|00004f70| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00004f80| 61 63 6b 2d 68 61 73 2d | 73 65 6c 65 63 74 69 6f |ack-has-|selectio|
|00004f90| 6e 2d 70 20 23 5b 28 62 | 75 66 66 65 72 29 20 22 |n-p #[(b|uffer) "|
|00004fa0| c0 c1 20 21 c2 3d ab 84 | c3 20 ad 8b c4 0d 21 ad |.. !.=..|. ....!.|
|00004fb0| 86 0e 06 c7 0d 21 3d 87 | 22 20 5b 64 65 76 69 63 |.....!=.|" [devic|
|00004fc0| 65 2d 74 79 70 65 20 73 | 65 6c 65 63 74 65 64 2d |e-type s|elected-|
|00004fd0| 64 65 76 69 63 65 20 78 | 20 78 2d 73 65 6c 65 63 |device x| x-selec|
|00004fe0| 74 69 6f 6e 2d 6f 77 6e | 65 72 2d 70 20 65 78 74 |tion-own|er-p ext|
|00004ff0| 65 6e 74 70 20 70 72 69 | 6d 61 72 79 2d 73 65 6c |entp pri|mary-sel|
|00005000| 65 63 74 69 6f 6e 2d 65 | 78 74 65 6e 74 20 62 75 |ection-e|xtent bu|
|00005010| 66 66 65 72 20 65 78 74 | 65 6e 74 2d 62 75 66 66 |ffer ext|ent-buff|
|00005020| 65 72 5d 20 33 5d 20 64 | 65 66 61 75 6c 74 2d 6d |er] 3] d|efault-m|
|00005030| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 61 6e 63 68 6f |ouse-tra|ck-ancho|
|00005040| 72 20 23 5b 28 61 64 6a | 75 73 74 20 70 72 65 76 |r #[(adj|ust prev|
|00005050| 69 6f 75 73 2d 70 6f 69 | 6e 74 29 20 22 08 ab b4 |ious-poi|nt) "...|
|00005060| c1 70 21 ab ac c2 0b 21 | c4 0b 21 1d 1e 06 60 0e |.p!....!|..!...`.|
|00005070| 06 57 ab 83 0d aa 98 60 | 0d 56 ab 84 0e 06 aa 8f |.W.....`|.V......|
|00005080| 60 0e 06 5a 0d 60 5a 56 | ab 84 0e 06 aa 81 0d 2a |`..Z.`ZV|.......*|
|00005090| 87 0e 07 87 60 87 22 20 | 5b 61 64 6a 75 73 74 20 |....`." |[adjust |
|000050a0| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|000050b0| 61 63 6b 2d 68 61 73 2d | 73 65 6c 65 63 74 69 6f |ack-has-|selectio|
|000050c0| 6e 2d 70 20 65 78 74 65 | 6e 74 2d 73 74 61 72 74 |n-p exte|nt-start|
|000050d0| 2d 70 6f 73 69 74 69 6f | 6e 20 70 72 69 6d 61 72 |-positio|n primar|
|000050e0| 79 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 65 78 74 65 |y-select|ion-exte|
|000050f0| 6e 74 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 70 6f |nt exten|t-end-po|
|00005100| 73 69 74 69 6f 6e 20 65 | 6e 64 20 73 74 61 72 74 |sition e|nd start|
|00005110| 20 70 72 65 76 69 6f 75 | 73 2d 70 6f 69 6e 74 5d | previou|s-point]|
|00005120| 20 33 5d 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 | 3] defa|ult-mous|
|00005130| 65 2d 74 72 61 63 6b 2d | 6d 61 79 62 65 2d 6f 77 |e-track-|maybe-ow|
|00005140| 6e 2d 73 65 6c 65 63 74 | 69 6f 6e 20 23 5b 28 70 |n-select|ion #[(p|
|00005150| 61 69 72 20 74 79 70 65 | 29 20 22 08 40 08 41 19 |air type|) ".@.A.|
|00005160| 89 1a 09 55 ac 8c c3 60 | 5c 6e 55 ab 83 09 aa 81 |...U...`|\nU.....|
|00005170| 5c 6e 21 88 0c ab 8f 5c | 6e 09 55 ac ae c5 c6 c7 |\n!....\|n.U.....|
|00005180| 5c 22 88 c8 20 88 aa a4 | c9 ca 20 21 cb 3d ab 9c |\".. ...|.. !.=..|
|00005190| 5c 6e 09 55 ab 87 cc 0e | 0d 21 88 aa 90 ce cf 20 |\n.U....|.!..... |
|000051a0| 5c 6e d0 93 cf 20 09 d0 | 93 42 0e 0d 5c 22 88 c9 |\n... ..|.B..\"..|
|000051b0| ca 20 21 cb 3d ad 8b 5c | 6e 09 55 3f ad 85 d1 5c |. !.=..\|n.U?...\|
|000051c0| 6e 09 7b 21 2a 87 22 20 | 5b 70 61 69 72 20 65 6e |n.{!*." |[pair en|
|000051d0| 64 20 73 74 61 72 74 20 | 70 75 73 68 2d 6d 61 72 |d start |push-mar|
|000051e0| 6b 20 7a 6d 61 63 73 2d | 72 65 67 69 6f 6e 73 20 |k zmacs-|regions |
|000051f0| 73 69 74 2d 66 6f 72 20 | 30 2e 31 35 20 74 20 7a |sit-for |0.15 t z|
|00005200| 6d 61 63 73 2d 61 63 74 | 69 76 61 74 65 2d 72 65 |macs-act|ivate-re|
|00005210| 67 69 6f 6e 20 64 65 76 | 69 63 65 2d 74 79 70 65 |gion dev|ice-type|
|00005220| 20 73 65 6c 65 63 74 65 | 64 2d 64 65 76 69 63 65 | selecte|d-device|
|00005230| 20 78 20 78 2d 64 69 73 | 6f 77 6e 2d 73 65 6c 65 | x x-dis|own-sele|
|00005240| 63 74 69 6f 6e 20 74 79 | 70 65 20 78 2d 6f 77 6e |ction ty|pe x-own|
|00005250| 2d 73 65 6c 65 63 74 69 | 6f 6e 20 6d 61 6b 65 2d |-selecti|on make-|
|00005260| 6d 61 72 6b 65 72 20 6e | 69 6c 20 78 2d 73 74 6f |marker n|il x-sto|
|00005270| 72 65 2d 63 75 74 62 75 | 66 66 65 72 5d 20 36 5d |re-cutbu|ffer] 6]|
|00005280| 20 64 65 66 61 75 6c 74 | 2d 6d 6f 75 73 65 2d 74 | default|-mouse-t|
|00005290| 72 61 63 6b 2d 64 65 61 | 6c 2d 77 69 74 68 2d 64 |rack-dea|l-with-d|
|000052a0| 6f 77 6e 2d 65 76 65 6e | 74 20 23 5b 28 63 6c 69 |own-even|t #[(cli|
|000052b0| 63 6b 2d 63 6f 75 6e 74 | 29 20 22 08 89 19 3f 3f |ck-count|) "...??|
|000052c0| 85 e7 00 c2 c3 09 21 21 | 88 0c 8a c5 09 21 71 88 |......!!|.....!q.|
|000052d0| c6 09 21 89 1e 07 ad 86 | 0e 07 65 5d 64 5e 2a c8 |..!.....|..e]d^*.|
|000052e0| 89 1e 09 1e 5c 6e 1e 0b | 1e 0c cd 09 21 ac 84 ce |....\n..|....!...|
|000052f0| cf 21 88 d0 0e 11 53 0e | 12 47 5c 22 0e 12 38 16 |.!....S.|.G\"..8.|
|00005300| 13 cd 09 21 16 14 d5 0e | 0b 89 c5 09 21 23 89 16 |...!....|....!#..|
|00005310| 16 16 5c 6e d7 0e 5c 6e | d8 5c 22 88 d9 0e 5c 6e |..\n..\n|.\"...\n|
|00005320| 0e 1a 54 5c 22 88 0e 1b | ab 85 0e 16 43 16 16 0e |..T\"...|....C...|
|00005330| 0c ab 94 dc 0e 1d 21 ab | 8e 70 de 0e 1d 21 3d ab |......!.|.p...!=.|
|00005340| 86 df 0e 1d 21 aa 81 60 | 16 09 e0 09 0e 14 5c 22 |....!..`|......\"|
|00005350| 88 0e 0c ac 92 dc 0e 1d | 21 ab 88 0e 1d 60 c8 93 |........|!....`..|
|00005360| 88 aa 84 e1 20 16 1d e2 | 0e 0c 0e 09 5c 22 1e 23 |.... ...|....\".#|
|00005370| 8a 0e 23 62 88 e4 0e 13 | c8 5c 22 88 60 29 16 25 |..#b....|.\".`).%|
|00005380| 8a 0e 23 62 88 e4 0e 13 | e6 5c 22 88 60 29 16 27 |..#b....|.\".`).'|
|00005390| 29 0e 0c ac 94 0e 28 ab | 85 e9 20 88 aa 8b ea eb |).....(.|.. .....|
|000053a0| 20 21 ec 3d ab 83 ed 20 | 88 2c c8 89 10 29 87 22 | !.=... |.,...)."|
|000053b0| 20 5b 64 65 66 61 75 6c | 74 2d 6d 6f 75 73 65 2d | [defaul|t-mouse-|
|000053c0| 74 72 61 63 6b 2d 64 6f | 77 6e 2d 65 76 65 6e 74 |track-do|wn-event|
|000053d0| 20 65 76 65 6e 74 20 73 | 65 6c 65 63 74 2d 66 72 | event s|elect-fr|
|000053e0| 61 6d 65 20 65 76 65 6e | 74 2d 66 72 61 6d 65 20 |ame even|t-frame |
|000053f0| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00005400| 61 63 6b 2d 61 64 6a 75 | 73 74 20 65 76 65 6e 74 |ack-adju|st event|
|00005410| 2d 62 75 66 66 65 72 20 | 65 76 65 6e 74 2d 63 6c |-buffer |event-cl|
|00005420| 6f 73 65 73 74 2d 70 6f | 69 6e 74 20 70 20 6e 69 |osest-po|int p ni|
|00005430| 6c 20 70 72 65 76 69 6f | 75 73 2d 70 6f 69 6e 74 |l previo|us-point|
|00005440| 20 65 78 74 65 6e 74 20 | 63 6c 6f 73 65 2d 70 6f | extent |close-po|
|00005450| 73 20 61 64 6a 75 73 74 | 20 65 76 65 6e 74 2d 77 |s adjust| event-w|
|00005460| 69 6e 64 6f 77 20 65 72 | 72 6f 72 20 22 6e 6f 74 |indow er|ror "not|
|00005470| 20 6f 76 65 72 20 77 69 | 6e 64 6f 77 3f 22 20 6d | over wi|ndow?" m|
|00005480| 6f 64 20 63 6c 69 63 6b | 2d 63 6f 75 6e 74 20 64 |od click|-count d|
|00005490| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|000054a0| 63 6b 2d 74 79 70 65 2d | 6c 69 73 74 20 64 65 66 |ck-type-|list def|
|000054b0| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|000054c0| 2d 74 79 70 65 20 64 65 | 66 61 75 6c 74 2d 6d 6f |-type de|fault-mo|
|000054d0| 75 73 65 2d 74 72 61 63 | 6b 2d 77 69 6e 64 6f 77 |use-trac|k-window|
|000054e0| 20 6d 61 6b 65 2d 65 78 | 74 65 6e 74 20 64 65 66 | make-ex|tent def|
|000054f0| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|00005500| 2d 65 78 74 65 6e 74 20 | 73 65 74 2d 65 78 74 65 |-extent |set-exte|
|00005510| 6e 74 2d 66 61 63 65 20 | 7a 6d 61 63 73 2d 72 65 |nt-face |zmacs-re|
|00005520| 67 69 6f 6e 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |gion set|-extent-|
|00005530| 70 72 69 6f 72 69 74 79 | 20 6d 6f 75 73 65 2d 68 |priority| mouse-h|
|00005540| 69 67 68 6c 69 67 68 74 | 2d 70 72 69 6f 72 69 74 |ighlight|-priorit|
|00005550| 79 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 72 65 |y mouse-|track-re|
|00005560| 63 74 61 6e 67 6c 65 2d | 70 20 6d 61 72 6b 65 72 |ctangle-|p marker|
|00005570| 70 20 64 65 66 61 75 6c | 74 2d 6d 6f 75 73 65 2d |p defaul|t-mouse-|
|00005580| 74 72 61 63 6b 2d 70 72 | 65 76 69 6f 75 73 2d 70 |track-pr|evious-p|
|00005590| 6f 69 6e 74 20 6d 61 72 | 6b 65 72 2d 62 75 66 66 |oint mar|ker-buff|
|000055a0| 65 72 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 |er marke|r-positi|
|000055b0| 6f 6e 20 64 65 66 61 75 | 6c 74 2d 6d 6f 75 73 65 |on defau|lt-mouse|
|000055c0| 2d 74 72 61 63 6b 2d 73 | 65 74 2d 70 6f 69 6e 74 |-track-s|et-point|
|000055d0| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 64 65 | point-m|arker de|
|000055e0| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|000055f0| 6b 2d 61 6e 63 68 6f 72 | 20 61 6e 63 68 6f 72 20 |k-anchor| anchor |
|00005600| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00005610| 61 63 6b 2d 6e 6f 72 6d | 61 6c 69 7a 65 2d 70 6f |ack-norm|alize-po|
|00005620| 69 6e 74 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 |int defa|ult-mous|
|00005630| 65 2d 74 72 61 63 6b 2d | 6d 69 6e 2d 61 6e 63 68 |e-track-|min-anch|
|00005640| 6f 72 20 74 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |or t def|ault-mou|
|00005650| 73 65 2d 74 72 61 63 6b | 2d 6d 61 78 2d 61 6e 63 |se-track|-max-anc|
|00005660| 68 6f 72 20 7a 6d 61 63 | 73 2d 72 65 67 69 6f 6e |hor zmac|s-region|
|00005670| 73 20 7a 6d 61 63 73 2d | 64 65 61 63 74 69 76 61 |s zmacs-|deactiva|
|00005680| 74 65 2d 72 65 67 69 6f | 6e 20 64 65 76 69 63 65 |te-regio|n device|
|00005690| 2d 74 79 70 65 20 73 65 | 6c 65 63 74 65 64 2d 64 |-type se|lected-d|
|000056a0| 65 76 69 63 65 20 78 20 | 78 2d 64 69 73 6f 77 6e |evice x |x-disown|
|000056b0| 2d 73 65 6c 65 63 74 69 | 6f 6e 5d 20 36 5d 20 64 |-selecti|on] 6] d|
|000056c0| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|000056d0| 63 6b 2d 64 6f 77 6e 2d | 68 6f 6f 6b 20 23 5b 28 |ck-down-|hook #[(|
|000056e0| 65 76 65 6e 74 20 63 6c | 69 63 6b 2d 63 6f 75 6e |event cl|ick-coun|
|000056f0| 74 29 20 22 c0 09 21 12 | c3 87 22 20 5b 63 6f 70 |t) "..!.|.." [cop|
|00005700| 79 2d 65 76 65 6e 74 20 | 65 76 65 6e 74 20 64 65 |y-event |event de|
|00005710| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005720| 6b 2d 64 6f 77 6e 2d 65 | 76 65 6e 74 20 6e 69 6c |k-down-e|vent nil|
|00005730| 5d 20 32 5d 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |] 2] def|ault-mou|
|00005740| 73 65 2d 74 72 61 63 6b | 2d 63 6c 65 61 6e 75 70 |se-track|-cleanup|
|00005750| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 08 89 19 |-hook #[|nil "...|
|00005760| 3a ab 86 c2 c3 09 5c 22 | aa 86 09 ad 83 c3 09 21 |:.....\"|.......!|
|00005770| 29 87 22 20 5b 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |)." [def|ault-mou|
|00005780| 73 65 2d 74 72 61 63 6b | 2d 65 78 74 65 6e 74 20 |se-track|-extent |
|00005790| 65 78 74 65 6e 74 20 6d | 61 70 63 61 72 20 64 65 |extent m|apcar de|
|000057a0| 6c 65 74 65 2d 65 78 74 | 65 6e 74 5d 20 34 5d 20 |lete-ext|ent] 4] |
|000057b0| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|000057c0| 61 63 6b 2d 63 6c 65 61 | 6e 75 70 2d 65 78 74 65 |ack-clea|nup-exte|
|000057d0| 6e 74 20 23 5b 6e 69 6c | 20 22 c0 09 1a 1b 5c 6e |nt #[nil| "....\n|
|000057e0| 3a ab 96 c4 0b 5c 6e 5c | 22 ad 98 c5 1e 06 c7 c8 |:....\n\|".......|
|000057f0| 5c 6e 5c 22 88 0e 06 9f | 89 11 29 aa 88 0b 5c 6e |\n\"....|..)...\n|
|00005800| 21 ad 83 c5 89 11 2a 87 | 22 20 5b 23 5b 28 78 29 |!.....*.|" [#[(x)|
|00005810| 20 22 c0 09 21 3f ae 83 | c2 09 21 87 22 20 5b 65 | "..!?..|..!." [e|
|00005820| 78 74 65 6e 74 2d 6c 69 | 76 65 2d 70 20 78 20 65 |xtent-li|ve-p x e|
|00005830| 78 74 65 6e 74 2d 64 65 | 74 61 63 68 65 64 2d 70 |xtent-de|tached-p|
|00005840| 5d 20 32 5d 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |] 2] def|ault-mou|
|00005850| 73 65 2d 74 72 61 63 6b | 2d 65 78 74 65 6e 74 20 |se-track|-extent |
|00005860| 65 78 74 65 6e 74 20 64 | 65 61 64 2d 66 75 6e 63 |extent d|ead-func|
|00005870| 20 73 6f 6d 65 20 6e 69 | 6c 20 6e 65 77 76 61 6c | some ni|l newval|
|00005880| 20 6d 61 70 63 61 72 20 | 23 5b 28 78 29 20 22 08 | mapcar |#[(x) ".|
|00005890| 09 21 3f ad 85 09 5c 6e | 42 89 12 87 22 20 5b 64 |.!?...\n|B..." [d|
|000058a0| 65 61 64 2d 66 75 6e 63 | 20 78 20 6e 65 77 76 61 |ead-func| x newva|
|000058b0| 6c 5d 20 32 5d 5d 20 33 | 5d 20 64 65 66 61 75 6c |l] 2]] 3|] defaul|
|000058c0| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 64 72 |t-mouse-|track-dr|
|000058d0| 61 67 2d 68 6f 6f 6b 20 | 23 5b 28 65 76 65 6e 74 |ag-hook |#[(event|
|000058e0| 20 63 6c 69 63 6b 2d 63 | 6f 75 6e 74 20 77 61 73 | click-c|ount was|
|000058f0| 2d 74 69 6d 65 6f 75 74 | 29 20 22 c0 09 21 88 c2 |-timeout|) "..!..|
|00005900| 0b 0c 5c 22 88 c5 20 88 | c6 0e 07 0e 08 0e 09 23 |..\".. .|.......#|
|00005910| 88 ca 87 22 20 5b 64 65 | 66 61 75 6c 74 2d 6d 6f |..." [de|fault-mo|
|00005920| 75 73 65 2d 74 72 61 63 | 6b 2d 64 65 61 6c 2d 77 |use-trac|k-deal-w|
|00005930| 69 74 68 2d 64 6f 77 6e | 2d 65 76 65 6e 74 20 63 |ith-down|-event c|
|00005940| 6c 69 63 6b 2d 63 6f 75 | 6e 74 20 64 65 66 61 75 |lick-cou|nt defau|
|00005950| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 73 |lt-mouse|-track-s|
|00005960| 65 74 2d 70 6f 69 6e 74 | 20 65 76 65 6e 74 20 64 |et-point| event d|
|00005970| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|00005980| 63 6b 2d 77 69 6e 64 6f | 77 20 64 65 66 61 75 6c |ck-windo|w defaul|
|00005990| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c |t-mouse-|track-cl|
|000059a0| 65 61 6e 75 70 2d 65 78 | 74 65 6e 74 20 64 65 66 |eanup-ex|tent def|
|000059b0| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|000059c0| 2d 6e 65 78 74 2d 6d 6f | 76 65 20 64 65 66 61 75 |-next-mo|ve defau|
|000059d0| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 6d |lt-mouse|-track-m|
|000059e0| 69 6e 2d 61 6e 63 68 6f | 72 20 64 65 66 61 75 6c |in-ancho|r defaul|
|000059f0| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 6d 61 |t-mouse-|track-ma|
|00005a00| 78 2d 61 6e 63 68 6f 72 | 20 64 65 66 61 75 6c 74 |x-anchor| default|
|00005a10| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 65 78 74 |-mouse-t|rack-ext|
|00005a20| 65 6e 74 20 74 5d 20 34 | 5d 20 64 65 66 61 75 6c |ent t] 4|] defaul|
|00005a30| 74 2d 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 72 65 |t-mouse-|track-re|
|00005a40| 74 75 72 6e 2d 64 72 61 | 67 67 65 64 2d 73 65 6c |turn-dra|gged-sel|
|00005a50| 65 63 74 69 6f 6e 20 23 | 5b 28 65 76 65 6e 74 29 |ection #|[(event)|
|00005a60| 20 22 c0 20 88 09 c2 1b | 1c c5 0e 06 0e 07 5c 22 | ". ....|......\"|
|00005a70| 88 c8 0e 09 0e 5c 6e 0c | 23 88 0c 3a ab b6 0c 40 |.....\n.|#..:...@|
|00005a80| 0c 9f 89 14 40 1e 0b 1e | 0c 0c 11 cd 0e 0c 21 ce |....@...|......!.|
|00005a90| 0e 0b 21 42 13 60 cd 0e | 0c 21 55 ac 94 60 ce 0e |..!B.`..|.!U..`..|
|00005aa0| 0b 21 55 ac 8c 60 ce 0e | 0c 21 55 ab 84 0b 40 62 |.!U..`..|.!U...@b|
|00005ab0| 88 2a aa 8b 0c ab 88 cd | 0c 21 ce 0c 21 42 13 0b |.*......|.!..!B..|
|00005ac0| ab a6 0e 0f d0 3d ab a0 | 60 0b 41 55 1e 11 0b 41 |.....=..|`.AU...A|
|00005ad0| 62 88 6d ac 86 0b 89 41 | 54 a1 88 0e 11 ab 84 0b |b.m....A|T.......|
|00005ae0| 41 aa 82 0b 40 62 88 29 | 0b 2a 87 22 20 5b 64 65 |A...@b.)|.*." [de|
|00005af0| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005b00| 6b 2d 63 6c 65 61 6e 75 | 70 2d 65 78 74 65 6e 74 |k-cleanu|p-extent|
|00005b10| 20 64 65 66 61 75 6c 74 | 2d 6d 6f 75 73 65 2d 74 | default|-mouse-t|
|00005b20| 72 61 63 6b 2d 65 78 74 | 65 6e 74 20 6e 69 6c 20 |rack-ext|ent nil |
|00005b30| 72 65 73 75 6c 74 20 65 | 78 74 65 6e 74 20 64 65 |result e|xtent de|
|00005b40| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00005b50| 6b 2d 73 65 74 2d 70 6f | 69 6e 74 2d 69 6e 2d 77 |k-set-po|int-in-w|
|00005b60| 69 6e 64 6f 77 20 65 76 | 65 6e 74 20 64 65 66 61 |indow ev|ent defa|
|00005b70| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005b80| 77 69 6e 64 6f 77 20 64 | 65 66 61 75 6c 74 2d 6d |window d|efault-m|
|00005b90| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 6e 65 78 74 2d |ouse-tra|ck-next-|
|00005ba0| 6d 6f 76 65 20 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |move def|ault-mou|
|00005bb0| 73 65 2d 74 72 61 63 6b | 2d 6d 69 6e 2d 61 6e 63 |se-track|-min-anc|
|00005bc0| 68 6f 72 20 64 65 66 61 | 75 6c 74 2d 6d 6f 75 73 |hor defa|ult-mous|
|00005bd0| 65 2d 74 72 61 63 6b 2d | 6d 61 78 2d 61 6e 63 68 |e-track-|max-anch|
|00005be0| 6f 72 20 6c 61 73 74 20 | 66 69 72 73 74 20 65 78 |or last |first ex|
|00005bf0| 74 65 6e 74 2d 73 74 61 | 72 74 2d 70 6f 73 69 74 |tent-sta|rt-posit|
|00005c00| 69 6f 6e 20 65 78 74 65 | 6e 74 2d 65 6e 64 2d 70 |ion exte|nt-end-p|
|00005c10| 6f 73 69 74 69 6f 6e 20 | 64 65 66 61 75 6c 74 2d |osition |default-|
|00005c20| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 74 79 70 65 |mouse-tr|ack-type|
|00005c30| 20 6c 69 6e 65 20 65 6e | 64 2d 70 5d 20 34 5d 20 | line en|d-p] 4] |
|00005c40| 64 65 66 61 75 6c 74 2d | 6d 6f 75 73 65 2d 74 72 |default-|mouse-tr|
|00005c50| 61 63 6b 2d 64 72 61 67 | 2d 75 70 2d 68 6f 6f 6b |ack-drag|-up-hook|
|00005c60| 20 23 5b 28 65 76 65 6e | 74 20 63 6c 69 63 6b 2d | #[(even|t click-|
|00005c70| 63 6f 75 6e 74 29 20 22 | c0 09 21 89 1a ab 85 c3 |count) "|..!.....|
|00005c80| 5c 6e c4 5c 22 88 29 c5 | 87 22 20 5b 64 65 66 61 |\n.\".).|." [defa|
|00005c90| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005ca0| 72 65 74 75 72 6e 2d 64 | 72 61 67 67 65 64 2d 73 |return-d|ragged-s|
|00005cb0| 65 6c 65 63 74 69 6f 6e | 20 65 76 65 6e 74 20 72 |election| event r|
|00005cc0| 65 73 75 6c 74 20 64 65 | 66 61 75 6c 74 2d 6d 6f |esult de|fault-mo|
|00005cd0| 75 73 65 2d 74 72 61 63 | 6b 2d 6d 61 79 62 65 2d |use-trac|k-maybe-|
|00005ce0| 6f 77 6e 2d 73 65 6c 65 | 63 74 69 6f 6e 20 50 52 |own-sele|ction PR|
|00005cf0| 49 4d 41 52 59 20 74 5d | 20 34 5d 20 64 65 66 61 |IMARY t]| 4] defa|
|00005d00| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005d10| 63 6c 69 63 6b 2d 68 6f | 6f 6b 20 23 5b 28 65 76 |click-ho|ok #[(ev|
|00005d20| 65 6e 74 20 63 6c 69 63 | 6b 2d 63 6f 75 6e 74 29 |ent clic|k-count)|
|00005d30| 20 22 c0 09 5c 6e c3 23 | 88 c4 09 5c 6e 5c 22 88 | "..\n.#|...\n\".|
|00005d40| c5 87 22 20 5b 64 65 66 | 61 75 6c 74 2d 6d 6f 75 |.." [def|ault-mou|
|00005d50| 73 65 2d 74 72 61 63 6b | 2d 64 72 61 67 2d 68 6f |se-track|-drag-ho|
|00005d60| 6f 6b 20 65 76 65 6e 74 | 20 63 6c 69 63 6b 2d 63 |ok event| click-c|
|00005d70| 6f 75 6e 74 20 6e 69 6c | 20 64 65 66 61 75 6c 74 |ount nil| default|
|00005d80| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 64 72 61 |-mouse-t|rack-dra|
|00005d90| 67 2d 75 70 2d 68 6f 6f | 6b 20 74 5d 20 34 5d 20 |g-up-hoo|k t] 4] |
|00005da0| 61 64 64 2d 68 6f 6f 6b | 20 6d 6f 75 73 65 2d 74 |add-hook| mouse-t|
|00005db0| 72 61 63 6b 2d 64 6f 77 | 6e 2d 68 6f 6f 6b 20 6d |rack-dow|n-hook m|
|00005dc0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 72 61 67 2d |ouse-tra|ck-drag-|
|00005dd0| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00005de0| 2d 64 72 61 67 2d 75 70 | 2d 68 6f 6f 6b 20 6d 6f |-drag-up|-hook mo|
|00005df0| 75 73 65 2d 74 72 61 63 | 6b 2d 63 6c 69 63 6b 2d |use-trac|k-click-|
|00005e00| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00005e10| 2d 63 6c 65 61 6e 75 70 | 2d 68 6f 6f 6b 5d 20 34 |-cleanup|-hook] 4|
|00005e20| 29 0a 28 66 73 65 74 20 | 27 6d 6f 75 73 65 2d 74 |).(fset |'mouse-t|
|00005e30| 72 61 63 6b 2d 64 65 66 | 61 75 6c 74 20 23 5b 28 |rack-def|ault #[(|
|00005e40| 65 76 65 6e 74 29 20 22 | c0 c1 c2 c3 c4 1d 1e 06 |event) "|........|
|00005e50| 1e 07 1e 08 1e 09 ca 0e | 0b 21 2d 87 22 20 5b 64 |........|.!-." [d|
|00005e60| 65 66 61 75 6c 74 2d 6d | 6f 75 73 65 2d 74 72 61 |efault-m|ouse-tra|
|00005e70| 63 6b 2d 64 6f 77 6e 2d | 68 6f 6f 6b 20 64 65 66 |ck-down-|hook def|
|00005e80| 61 75 6c 74 2d 6d 6f 75 | 73 65 2d 74 72 61 63 6b |ault-mou|se-track|
|00005e90| 2d 64 72 61 67 2d 68 6f | 6f 6b 20 64 65 66 61 75 |-drag-ho|ok defau|
|00005ea0| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 64 |lt-mouse|-track-d|
|00005eb0| 72 61 67 2d 75 70 2d 68 | 6f 6f 6b 20 64 65 66 61 |rag-up-h|ook defa|
|00005ec0| 75 6c 74 2d 6d 6f 75 73 | 65 2d 74 72 61 63 6b 2d |ult-mous|e-track-|
|00005ed0| 63 6c 69 63 6b 2d 68 6f | 6f 6b 20 64 65 66 61 75 |click-ho|ok defau|
|00005ee0| 6c 74 2d 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 63 |lt-mouse|-track-c|
|00005ef0| 6c 65 61 6e 75 70 2d 68 | 6f 6f 6b 20 6d 6f 75 73 |leanup-h|ook mous|
|00005f00| 65 2d 74 72 61 63 6b 2d | 63 6c 65 61 6e 75 70 2d |e-track-|cleanup-|
|00005f10| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00005f20| 2d 63 6c 69 63 6b 2d 68 | 6f 6f 6b 20 6d 6f 75 73 |-click-h|ook mous|
|00005f30| 65 2d 74 72 61 63 6b 2d | 64 72 61 67 2d 75 70 2d |e-track-|drag-up-|
|00005f40| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|00005f50| 2d 64 72 61 67 2d 68 6f | 6f 6b 20 6d 6f 75 73 65 |-drag-ho|ok mouse|
|00005f60| 2d 74 72 61 63 6b 2d 64 | 6f 77 6e 2d 68 6f 6f 6b |-track-d|own-hook|
|00005f70| 20 6d 6f 75 73 65 2d 74 | 72 61 63 6b 20 65 76 65 | mouse-t|rack eve|
|00005f80| 6e 74 5d 20 35 20 22 5c | 0a 49 6e 76 6f 6b 65 20 |nt] 5 "\|.Invoke |
|00005f90| 60 6d 6f 75 73 65 2d 74 | 72 61 63 6b 27 20 77 69 |`mouse-t|rack' wi|
|00005fa0| 74 68 20 6f 6e 6c 79 20 | 74 68 65 20 64 65 66 61 |th only |the defa|
|00005fb0| 75 6c 74 20 68 61 6e 64 | 6c 65 72 73 20 61 63 74 |ult hand|lers act|
|00005fc0| 69 76 65 2e 22 20 22 65 | 22 5d 29 0a 28 66 73 65 |ive." "e|"]).(fse|
|00005fd0| 74 20 27 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 64 |t 'mouse|-track-d|
|00005fe0| 6f 2d 72 65 63 74 61 6e | 67 6c 65 20 23 5b 28 65 |o-rectan|gle #[(e|
|00005ff0| 76 65 6e 74 29 20 22 c0 | 19 c2 0b 21 29 87 22 20 |vent) ".|...!)." |
|00006000| 5b 74 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 72 |[t mouse|-track-r|
|00006010| 65 63 74 61 6e 67 6c 65 | 2d 70 20 6d 6f 75 73 65 |ectangle|-p mouse|
|00006020| 2d 74 72 61 63 6b 20 65 | 76 65 6e 74 5d 20 32 20 |-track e|vent] 2 |
|00006030| 22 5c 0a 4c 69 6b 65 20 | 60 6d 6f 75 73 65 2d 74 |"\.Like |`mouse-t|
|00006040| 72 61 63 6b 27 20 62 75 | 74 20 73 65 6c 65 63 74 |rack' bu|t select|
|00006050| 73 20 72 65 63 74 61 6e | 67 6c 65 73 20 69 6e 73 |s rectan|gles ins|
|00006060| 74 65 61 64 20 6f 66 20 | 72 65 67 69 6f 6e 73 2e |tead of |regions.|
|00006070| 22 20 22 65 22 5d 29 0a | 28 66 73 65 74 20 27 6d |" "e"]).|(fset 'm|
|00006080| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 61 64 6a 75 73 |ouse-tra|ck-adjus|
|00006090| 74 20 23 5b 28 65 76 65 | 6e 74 29 20 22 c0 19 c2 |t #[(eve|nt) "...|
|000060a0| 0b 21 29 87 22 20 5b 74 | 20 64 65 66 61 75 6c 74 |.!)." [t| default|
|000060b0| 2d 6d 6f 75 73 65 2d 74 | 72 61 63 6b 2d 61 64 6a |-mouse-t|rack-adj|
|000060c0| 75 73 74 20 6d 6f 75 73 | 65 2d 74 72 61 63 6b 20 |ust mous|e-track |
|000060d0| 65 76 65 6e 74 5d 20 32 | 20 22 5c 0a 45 78 74 65 |event] 2| "\.Exte|
|000060e0| 6e 64 20 74 68 65 20 65 | 78 69 73 74 69 6e 67 20 |nd the e|xisting |
|000060f0| 73 65 6c 65 63 74 69 6f | 6e 2e 20 20 54 68 69 73 |selectio|n. This|
|00006100| 20 73 68 6f 75 6c 64 20 | 62 65 20 62 6f 75 6e 64 | should |be bound|
|00006110| 20 74 6f 20 61 20 6d 6f | 75 73 65 20 62 75 74 74 | to a mo|use butt|
|00006120| 6f 6e 2e 0a 54 68 65 20 | 73 65 6c 65 63 74 69 6f |on..The |selectio|
|00006130| 6e 20 77 69 6c 6c 20 62 | 65 20 65 6e 6c 61 72 67 |n will b|e enlarg|
|00006140| 65 64 20 6f 72 20 73 68 | 72 75 6e 6b 20 73 6f 20 |ed or sh|runk so |
|00006150| 74 68 61 74 20 74 68 65 | 20 70 6f 69 6e 74 20 6f |that the| point o|
|00006160| 66 20 74 68 65 20 6d 6f | 75 73 65 0a 63 6c 69 63 |f the mo|use.clic|
|00006170| 6b 20 69 73 20 6f 6e 65 | 20 6f 66 20 69 74 73 20 |k is one| of its |
|00006180| 65 6e 64 70 6f 69 6e 74 | 73 2e 20 20 54 68 69 73 |endpoint|s. This|
|00006190| 20 66 75 6e 63 74 69 6f | 6e 20 69 6e 20 66 61 63 | functio|n in fac|
|000061a0| 74 20 62 65 68 61 76 65 | 73 20 66 61 69 72 6c 79 |t behave|s fairly|
|000061b0| 0a 73 69 6d 69 6c 61 72 | 6c 79 20 74 6f 20 60 6d |.similar|ly to `m|
|000061c0| 6f 75 73 65 2d 74 72 61 | 63 6b 27 2c 20 62 75 74 |ouse-tra|ck', but|
|000061d0| 20 62 65 67 69 6e 73 20 | 62 79 20 65 78 74 65 6e | begins |by exten|
|000061e0| 64 69 6e 67 20 74 68 65 | 20 65 78 69 73 74 69 6e |ding the| existin|
|000061f0| 67 20 73 65 6c 65 63 74 | 69 6f 6e 0a 28 6f 72 20 |g select|ion.(or |
|00006200| 63 72 65 61 74 69 6e 67 | 20 61 20 6e 65 77 20 73 |creating| a new s|
|00006210| 65 6c 65 63 74 69 6f 6e | 20 66 72 6f 6d 20 74 68 |election| from th|
|00006220| 65 20 70 72 65 76 69 6f | 75 73 20 74 65 78 74 20 |e previo|us text |
|00006230| 63 75 72 73 6f 72 20 70 | 6f 73 69 74 69 6f 6e 20 |cursor p|osition |
|00006240| 74 6f 0a 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |to.the c|urrent m|
|00006250| 6f 75 73 65 20 70 6f 73 | 69 74 69 6f 6e 29 20 69 |ouse pos|ition) i|
|00006260| 6e 73 74 65 61 64 20 6f | 66 20 63 72 65 61 74 69 |nstead o|f creati|
|00006270| 6e 67 20 61 20 6e 65 77 | 2c 20 65 6d 70 74 79 20 |ng a new|, empty |
|00006280| 73 65 6c 65 63 74 69 6f | 6e 2e 0a 0a 54 68 65 20 |selectio|n...The |
|00006290| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 20 68 61 6e 64 |mouse-tr|ack hand|
|000062a0| 6c 65 72 73 20 61 72 65 | 20 72 75 6e 20 66 72 6f |lers are| run fro|
|000062b0| 6d 20 74 68 69 73 20 63 | 6f 6d 6d 61 6e 64 20 6a |m this c|ommand j|
|000062c0| 75 73 74 20 6c 69 6b 65 | 20 66 72 6f 6d 0a 60 6d |ust like| from.`m|
|000062d0| 6f 75 73 65 2d 74 72 61 | 63 6b 27 2e 20 20 54 68 |ouse-tra|ck'. Th|
|000062e0| 65 72 65 66 6f 72 65 2c | 20 64 6f 20 6e 6f 74 20 |erefore,| do not |
|000062f0| 63 61 6c 6c 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e |call thi|s comman|
|00006300| 64 20 66 72 6f 6d 20 61 | 20 6d 6f 75 73 65 2d 74 |d from a| mouse-t|
|00006310| 72 61 63 6b 0a 68 61 6e | 64 6c 65 72 21 22 20 22 |rack.han|dler!" "|
|00006320| 65 22 5d 29 0a 28 66 73 | 65 74 20 27 6d 6f 75 73 |e"]).(fs|et 'mous|
|00006330| 65 2d 74 72 61 63 6b 2d | 61 64 6a 75 73 74 2d 64 |e-track-|adjust-d|
|00006340| 65 66 61 75 6c 74 20 23 | 5b 28 65 76 65 6e 74 29 |efault #|[(event)|
|00006350| 20 22 c0 19 c2 0b 21 29 | 87 22 20 5b 74 20 64 65 | "....!)|." [t de|
|00006360| 66 61 75 6c 74 2d 6d 6f | 75 73 65 2d 74 72 61 63 |fault-mo|use-trac|
|00006370| 6b 2d 61 64 6a 75 73 74 | 20 6d 6f 75 73 65 2d 74 |k-adjust| mouse-t|
|00006380| 72 61 63 6b 2d 64 65 66 | 61 75 6c 74 20 65 76 65 |rack-def|ault eve|
|00006390| 6e 74 5d 20 32 20 22 5c | 0a 45 78 74 65 6e 64 20 |nt] 2 "\|.Extend |
|000063a0| 74 68 65 20 65 78 69 73 | 74 69 6e 67 20 73 65 6c |the exis|ting sel|
|000063b0| 65 63 74 69 6f 6e 2c 20 | 75 73 69 6e 67 20 6f 6e |ection, |using on|
|000063c0| 6c 79 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 68 |ly the d|efault h|
|000063d0| 61 6e 64 6c 65 72 73 2e | 0a 54 68 69 73 20 69 73 |andlers.|.This is|
|000063e0| 20 6a 75 73 74 20 6c 69 | 6b 65 20 60 6d 6f 75 73 | just li|ke `mous|
|000063f0| 65 2d 74 72 61 63 6b 2d | 61 64 6a 75 73 74 27 20 |e-track-|adjust' |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
