|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ s ┃
Length: 17111 (0x42d7)
Names: »sun-mouse.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/sun-mouse.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 75 6e 2d 6d 6f 75 73 65 29 29 0a 0a 28 64 ┆ (provide (quote sun-mouse)) (d┆ 0x0020…0040 65 66 76 61 72 20 65 78 74 72 61 2d 63 6c 69 63 6b 2d 77 61 69 74 20 31 35 30 20 22 5c 0a 2a 4e ┆efvar extra-click-wait 150 "\ *N┆ 0x0040…0060 75 6d 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 66 6f ┆umber of milliseconds to wait fo┆ 0x0060…0080 72 20 61 6e 20 65 78 74 72 61 20 63 6c 69 63 6b 2e 0a 53 65 74 20 74 68 69 73 20 74 6f 20 7a 65 ┆r an extra click. Set this to ze┆ 0x0080…00a0 72 6f 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 63 68 6f 72 64 73 20 6f 72 20 64 ┆ro if you don't want chords or d┆ 0x00a0…00c0 6f 75 62 6c 65 20 63 6c 69 63 6b 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 72 6f 6c 6c 62 ┆ouble clicks.") (defvar scrollb┆ 0x00c0…00e0 61 72 2d 77 69 64 74 68 20 35 20 22 5c 0a 2a 54 68 65 20 63 68 61 72 61 63 74 65 72 20 77 69 64 ┆ar-width 5 "\ *The character wid┆ 0x00e0…0100 74 68 20 6f 66 20 74 68 65 20 73 63 72 6f 6c 6c 62 61 72 2e 0a 54 68 65 20 63 75 72 73 6f 72 20 ┆th of the scrollbar. The cursor ┆ 0x0100…0120 69 73 20 64 65 65 6d 65 64 20 74 6f 20 62 65 20 69 6e 20 74 68 65 20 72 69 67 68 74 20 65 64 67 ┆is deemed to be in the right edg┆ 0x0120…0140 65 20 73 63 72 6f 6c 6c 62 61 72 20 69 66 20 69 74 20 69 73 20 74 68 69 73 20 6e 65 61 72 20 74 ┆e scrollbar if it is this near t┆ 0x0140…0160 68 65 0a 72 69 67 68 74 20 65 64 67 65 2c 20 61 6e 64 20 6d 6f 72 65 20 74 68 61 6e 20 74 77 6f ┆he right edge, and more than two┆ 0x0160…0180 20 63 68 61 72 73 20 70 61 73 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 69 6e 64 69 63 ┆ chars past the end of the indic┆ 0x0180…01a0 61 74 65 64 20 6c 69 6e 65 2e 0a 53 65 74 74 69 6e 67 20 74 6f 20 6e 69 6c 20 6c 69 6d 69 74 73 ┆ated line. Setting to nil limits┆ 0x01a0…01c0 20 74 68 65 20 73 63 72 6f 6c 6c 62 61 72 20 74 6f 20 74 68 65 20 65 64 67 65 20 6f 72 20 76 65 ┆ the scrollbar to the edge or ve┆ 0x01c0…01e0 72 74 69 63 61 6c 20 64 69 76 69 64 69 6e 67 20 62 61 72 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d ┆rtical dividing bar.") (defun m┆ 0x01e0…0200 61 6b 65 2d 6d 6f 75 73 65 6d 61 70 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 73 20 61 20 6e 65 ┆ake-mousemap nil "\ Returns a ne┆ 0x0200…0220 77 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c0 42 87 22 20 5b ┆w mousemap." (byte-code " B " [┆ 0x0220…0240 6e 69 6c 20 6d 6f 75 73 65 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 70 79 2d 6d ┆nil mousemap] 2)) (defun copy-m┆ 0x0240…0260 6f 75 73 65 6d 61 70 20 28 6d 6f 75 73 65 6d 61 70 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 63 ┆ousemap (mousemap) "\ Return a c┆ 0x0260…0280 6f 70 79 20 6f 66 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 ┆opy of mousemap." (byte-code " ┆ 0x0280…02a0 21 87 22 20 5b 6d 6f 75 73 65 6d 61 70 20 63 6f 70 79 2d 61 6c 69 73 74 5d 20 32 29 29 0a 0a 28 ┆! " [mousemap copy-alist] 2)) (┆ 0x02a0…02c0 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 20 28 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 ┆defun define-mouse (mousemap mou┆ 0x02c0…02e0 73 65 2d 6c 69 73 74 20 64 65 66 29 20 22 5c 0a 41 72 67 73 20 4d 4f 55 53 45 4d 41 50 2c 20 4d ┆se-list def) "\ Args MOUSEMAP, M┆ 0x02e0…0300 4f 55 53 45 2d 4c 49 53 54 2c 20 44 45 46 2e 20 20 44 65 66 69 6e 65 20 4d 4f 55 53 45 2d 4c 49 ┆OUSE-LIST, DEF. Define MOUSE-LI┆ 0x0300…0320 53 54 20 69 6e 20 4d 4f 55 53 45 4d 41 50 20 61 73 20 44 45 46 2e 0a 4d 4f 55 53 45 2d 4c 49 53 ┆ST in MOUSEMAP as DEF. MOUSE-LIS┆ 0x0320…0340 54 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 61 74 6f 6d 73 20 73 70 65 63 69 66 69 6e 67 20 61 ┆T is a list of atoms specifing a┆ 0x0340…0360 20 6d 6f 75 73 65 20 68 69 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 73 65 20 72 75 ┆ mouse hit according to these ru┆ 0x0360…0380 6c 65 73 3a 0a 20 20 2a 20 4f 6e 65 20 6f 66 20 74 68 65 73 65 20 61 74 6f 6d 73 20 73 70 65 63 ┆les: * One of these atoms spec┆ 0x0380…03a0 69 66 69 65 73 20 74 68 65 20 61 63 74 69 76 65 20 72 65 67 69 6f 6e 20 6f 66 20 74 68 65 20 64 ┆ifies the active region of the d┆ 0x03a0…03c0 65 66 69 6e 69 74 69 6f 6e 2e 0a 09 74 65 78 74 2c 20 73 63 72 6f 6c 6c 62 61 72 2c 20 6d 6f 64 ┆efinition. text, scrollbar, mod┆ 0x03c0…03e0 65 6c 69 6e 65 2c 20 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 2a 20 4f 6e 65 20 6f 72 20 74 77 6f ┆eline, minibuffer * One or two┆ 0x03e0…0400 20 6f 72 20 74 68 65 73 65 20 61 74 6f 6d 73 20 73 70 65 63 69 66 79 20 74 68 65 20 62 75 74 74 ┆ or these atoms specify the butt┆ 0x0400…0420 6f 6e 20 6f 72 20 62 75 74 74 6f 6e 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 ┆on or button combination. ┆ 0x0420…0440 20 20 6c 65 66 74 2c 20 6d 69 64 64 6c 65 2c 20 72 69 67 68 74 2c 20 64 6f 75 62 6c 65 0a 20 20 ┆ left, middle, right, double ┆ 0x0440…0460 2a 20 41 6e 79 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 73 65 20 61 74 6f 6d 73 ┆* Any combination of these atoms┆ 0x0460…0480 20 73 70 65 63 69 66 79 20 74 68 65 20 61 63 74 69 76 65 20 73 68 69 66 74 20 6b 65 79 73 2e 0a ┆ specify the active shift keys. ┆ 0x0480…04a0 20 20 20 20 20 20 20 20 63 6f 6e 74 72 6f 6c 2c 20 73 68 69 66 74 2c 20 6d 65 74 61 0a 20 20 2a ┆ control, shift, meta *┆ 0x04a0…04c0 20 57 69 74 68 20 61 20 73 69 6e 67 6c 65 20 75 6e 73 68 69 66 74 65 64 20 62 75 74 74 6f 6e 2c ┆ With a single unshifted button,┆ 0x04c0…04e0 20 79 6f 75 20 63 61 6e 20 61 64 64 0a 09 75 70 0a 20 20 20 20 74 6f 20 69 6e 64 69 63 61 74 65 ┆ you can add up to indicate┆ 0x04e0…0500 20 61 6e 20 75 70 2d 63 6c 69 63 6b 2e 0a 54 68 65 20 61 74 6f 6d 20 60 64 6f 75 62 6c 65 27 20 ┆ an up-click. The atom `double' ┆ 0x0500…0520 69 73 20 75 73 65 64 20 77 69 74 68 20 61 20 62 75 74 74 6f 6e 20 64 65 73 69 67 6e 61 74 6f 72 ┆is used with a button designator┆ 0x0520…0540 20 74 6f 20 64 65 6e 6f 74 65 20 61 20 64 6f 75 62 6c 65 20 63 6c 69 63 6b 2e 0a 54 77 6f 20 62 ┆ to denote a double click. Two b┆ 0x0540…0560 75 74 74 6f 6e 20 63 68 6f 72 64 73 20 61 72 65 20 64 65 6e 6f 74 65 64 20 62 79 20 6c 69 73 74 ┆utton chords are denoted by list┆ 0x0560…0580 69 6e 67 20 74 68 65 20 74 77 6f 20 62 75 74 74 6f 6e 73 2e 0a 53 65 65 20 73 75 6e 2d 6d 6f 75 ┆ing the two buttons. See sun-mou┆ 0x0580…05a0 73 65 2d 68 61 6e 64 6c 65 72 20 66 6f 72 20 74 68 65 20 74 72 65 61 74 6d 65 6e 74 20 6f 66 20 ┆se-handler for the treatment of ┆ 0x05a0…05c0 74 68 65 20 66 6f 72 6d 20 44 45 46 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08 21 09 ┆the form DEF." (byte-code " ! ┆ 0x05c0…05e0 0a 23 87 22 20 5b 6d 6f 75 73 65 2d 6c 69 73 74 20 6d 6f 75 73 65 6d 61 70 20 64 65 66 20 6d 6f ┆ # " [mouse-list mousemap def mo┆ 0x05e0…0600 75 73 65 6d 61 70 2d 73 65 74 20 6d 6f 75 73 65 2d 6c 69 73 74 2d 74 6f 2d 6d 6f 75 73 65 2d 63 ┆usemap-set mouse-list-to-mouse-c┆ 0x0600…0620 6f 64 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 67 6c 6f 62 61 6c 2d 73 65 74 2d 6d 6f 75 73 ┆ode] 5)) (defun global-set-mous┆ 0x0620…0640 65 20 28 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65 66 29 20 22 5c 0a 47 69 76 65 20 4d 4f 55 53 45 ┆e (mouse-list def) "\ Give MOUSE┆ 0x0640…0660 2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f ┆-EVENT-LIST a local definition o┆ 0x0660…0680 66 20 44 45 46 2e 0a 53 65 65 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 20 66 6f 72 20 61 20 64 65 ┆f DEF. See define-mouse for a de┆ 0x0680…06a0 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 6e ┆scription of MOUSE-EVENT-LIST an┆ 0x06a0…06c0 64 20 44 45 46 2e 0a 4e 6f 74 65 20 74 68 61 74 20 69 66 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d ┆d DEF. Note that if MOUSE-EVENT-┆ 0x06c0…06e0 4c 49 53 54 20 68 61 73 20 61 20 6c 6f 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 69 6e 20 74 ┆LIST has a local definition in t┆ 0x06e0…0700 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2c 0a 74 68 61 74 20 6c 6f 63 61 6c 20 64 65 ┆he current buffer, that local de┆ 0x0700…0720 66 69 6e 69 74 69 6f 6e 20 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 73 68 61 64 6f 77 ┆finition will continue to shadow┆ 0x0720…0740 20 61 6e 79 20 67 6c 6f 62 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 2e 22 20 28 69 6e 74 65 72 61 ┆ any global definition." (intera┆ 0x0740…0760 63 74 69 76 65 20 22 78 4d 6f 75 73 65 20 65 76 65 6e 74 3a 20 0a 78 44 65 66 69 6e 69 74 69 6f ┆ctive "xMouse event: xDefinitio┆ 0x0760…0780 6e 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 87 22 20 5b 63 75 72 ┆n: ") (byte-code " # " [cur┆ 0x0780…07a0 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 2d 6c 69 73 74 20 ┆rent-global-mousemap mouse-list ┆ 0x07a0…07c0 64 65 66 20 6e 69 6c 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 ┆def nil define-mouse] 4)) (defu┆ 0x07c0…07e0 6e 20 6c 6f 63 61 6c 2d 73 65 74 2d 6d 6f 75 73 65 20 28 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65 ┆n local-set-mouse (mouse-list de┆ 0x07e0…0800 66 29 20 22 5c 0a 47 69 76 65 20 4d 4f 55 53 45 2d 45 56 45 4e 54 2d 4c 49 53 54 20 61 20 6c 6f ┆f) "\ Give MOUSE-EVENT-LIST a lo┆ 0x0800…0820 63 61 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 44 45 46 2e 0a 53 65 65 20 64 65 66 69 6e ┆cal definition of DEF. See defin┆ 0x0820…0840 65 2d 6d 6f 75 73 65 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 ┆e-mouse for a description of the┆ 0x0840…0860 20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 67 6f 65 73 20 ┆ arguments. The definition goes ┆ 0x0860…0880 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 6c 6f 63 61 6c 20 6d 6f ┆in the current buffer's local mo┆ 0x0880…08a0 75 73 65 6d 61 70 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 62 75 66 66 65 72 73 20 69 6e 20 74 68 65 20 ┆usemap. Normally buffers in the ┆ 0x08a0…08c0 73 61 6d 65 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 73 68 61 72 65 20 61 20 6c 6f 63 61 6c 20 6d 6f ┆same major mode share a local mo┆ 0x08c0…08e0 75 73 65 6d 61 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 78 4d 6f 75 73 65 20 65 76 ┆usemap." (interactive "xMouse ev┆ 0x08e0…0900 65 6e 74 3a 20 0a 78 44 65 66 69 6e 69 74 69 6f 6e 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ent: xDefinition: ") (byte-code┆ 0x0900…0920 20 22 c3 88 08 3f 85 0b 00 c4 20 89 10 88 c5 08 09 0a 23 87 22 20 5b 63 75 72 72 65 6e 74 2d 6c ┆ " ? # " [current-l┆ 0x0920…0940 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 2d 6c 69 73 74 20 64 65 66 20 6e 69 6c ┆ocal-mousemap mouse-list def nil┆ 0x0940…0960 20 6d 61 6b 65 2d 6d 6f 75 73 65 6d 61 70 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 5d 20 35 29 29 ┆ make-mousemap define-mouse] 5))┆ 0x0960…0980 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 28 6d 6f ┆ (defun use-global-mousemap (mo┆ 0x0980…09a0 75 73 65 6d 61 70 29 20 22 5c 0a 53 65 6c 65 63 74 73 20 4d 4f 55 53 45 4d 41 50 20 61 73 20 74 ┆usemap) "\ Selects MOUSEMAP as t┆ 0x09a0…09c0 68 65 20 67 6c 6f 62 61 6c 20 6d 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆he global mousemap." (byte-code ┆ 0x09c0…09e0 22 09 89 10 87 22 20 5b 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 ┆" " [current-global-mousemap ┆ 0x09e0…0a00 6d 6f 75 73 65 6d 61 70 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 75 73 65 2d 6c 6f 63 61 6c 2d ┆mousemap] 2)) (defun use-local-┆ 0x0a00…0a20 6d 6f 75 73 65 6d 61 70 20 28 6d 6f 75 73 65 6d 61 70 29 20 22 5c 0a 53 65 6c 65 63 74 73 20 4d ┆mousemap (mousemap) "\ Selects M┆ 0x0a20…0a40 4f 55 53 45 4d 41 50 20 61 73 20 74 68 65 20 6c 6f 63 61 6c 20 6d 6f 75 73 65 6d 61 70 2e 0a 6e ┆OUSEMAP as the local mousemap. n┆ 0x0a40…0a60 69 6c 20 66 6f 72 20 4d 4f 55 53 45 4d 41 50 20 6d 65 61 6e 73 20 6e 6f 20 6c 6f 63 61 6c 20 6d ┆il for MOUSEMAP means no local m┆ 0x0a60…0a80 6f 75 73 65 6d 61 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 87 22 20 5b 63 75 72 ┆ousemap." (byte-code " " [cur┆ 0x0a80…0aa0 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 6f 75 73 65 6d 61 70 20 6d 6f 75 73 65 6d 61 70 5d 20 32 29 ┆rent-local-mousemap mousemap] 2)┆ 0x0aa0…0ac0 29 0a 0a 28 64 65 66 75 6e 20 6c 6f 67 74 65 73 74 20 28 78 20 79 29 20 22 5c 0a 54 72 75 65 20 ┆) (defun logtest (x y) "\ True ┆ 0x0ac0…0ae0 69 66 20 61 6e 79 20 62 69 74 73 20 73 65 74 20 69 6e 20 58 20 61 72 65 20 61 6c 73 6f 20 73 65 ┆if any bits set in X are also se┆ 0x0ae0…0b00 74 20 69 6e 20 59 2e 0a 4a 75 73 74 20 6c 69 6b 65 20 74 68 65 20 43 6f 6d 6d 6f 6e 20 4c 69 73 ┆t in Y. Just like the Common Lis┆ 0x0b00…0b20 70 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e 22 20 28 62 ┆p function of the same name." (b┆ 0x0b20…0b40 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 09 5c 22 21 3f 87 22 20 5b 78 20 79 20 7a 65 72 6f 70 20 ┆yte-code " \"!? " [x y zerop ┆ 0x0b40…0b60 6c 6f 67 61 6e 64 5d 20 34 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 42 75 74 74 6f ┆logand] 4)) (defconst sm::Butto┆ 0x0b60…0b80 6e 42 69 74 73 20 37 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 53 68 69 66 74 6d 61 73 ┆nBits 7) (defconst sm::Shiftmas┆ 0x0b80…0ba0 6b 42 69 74 73 20 35 36 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 44 6f 75 62 6c 65 42 ┆kBits 56) (defconst sm::DoubleB┆ 0x0ba0…0bc0 69 74 73 20 36 34 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 6d 3a 3a 55 70 42 69 74 73 20 31 32 ┆its 64) (defconst sm::UpBits 12┆ 0x0bc0…0be0 38 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 63 6f 64 65 20 28 68 69 74 29 ┆8) (defmacro sm::hit-code (hit)┆ 0x0be0…0c00 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 68 69 74 20 6e 74 68 20 30 5d 20 ┆ (byte-code " E " [hit nth 0] ┆ 0x0c00…0c20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 62 75 74 74 6f 6e 20 28 68 ┆3)) (defmacro sm::hit-button (h┆ 0x0c20…0c40 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c ┆it) (byte-code " EE " [hit l┆ 0x0c40…0c60 6f 67 61 6e 64 20 73 6d 3a 3a 42 75 74 74 6f 6e 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a ┆ogand sm::ButtonBits nth 0] 5)) ┆ 0x0c60…0c80 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 73 68 69 66 74 6d 61 73 6b 20 28 68 69 ┆ (defmacro sm::hit-shiftmask (hi┆ 0x0c80…0ca0 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f ┆t) (byte-code " EE " [hit lo┆ 0x0ca0…0cc0 67 61 6e 64 20 73 6d 3a 3a 53 68 69 66 74 6d 61 73 6b 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 ┆gand sm::ShiftmaskBits nth 0] 5)┆ 0x0cc0…0ce0 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 64 6f 75 62 6c 65 20 28 68 69 74 ┆) (defmacro sm::hit-double (hit┆ 0x0ce0…0d00 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f 67 ┆) (byte-code " EE " [hit log┆ 0x0d00…0d20 61 6e 64 20 73 6d 3a 3a 44 6f 75 62 6c 65 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a 0a 28 ┆and sm::DoubleBits nth 0] 5)) (┆ 0x0d20…0d40 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 2d 75 70 20 28 68 69 74 29 20 28 62 79 74 65 2d ┆defmacro sm::hit-up (hit) (byte-┆ 0x0d40…0d60 63 6f 64 65 20 22 c1 c2 c3 c4 08 45 45 87 22 20 5b 68 69 74 20 6c 6f 67 61 6e 64 20 73 6d 3a 3a ┆code " EE " [hit logand sm::┆ 0x0d60…0d80 55 70 42 69 74 73 20 6e 74 68 20 30 5d 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a ┆UpBits nth 0] 5)) (defmacro sm:┆ 0x0d80…0da0 3a 68 69 74 2d 78 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 ┆:hit-x (hit) (byte-code " E " ┆ 0x0da0…0dc0 5b 68 69 74 20 6e 74 68 20 31 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 ┆[hit nth 1] 3)) (defmacro sm::h┆ 0x0dc0…0de0 69 74 2d 79 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 68 ┆it-y (hit) (byte-code " E " [h┆ 0x0de0…0e00 69 74 20 6e 74 68 20 32 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 69 74 ┆it nth 2] 3)) (defmacro sm::hit┆ 0x0e00…0e20 2d 64 65 6c 74 61 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 ┆-delta (hit) (byte-code " E " ┆ 0x0e20…0e40 5b 68 69 74 20 6e 74 68 20 33 5d 20 33 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 68 ┆[hit nth 3] 3)) (defmacro sm::h┆ 0x0e40…0e60 69 74 2d 75 70 2d 70 20 28 68 69 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 08 44 44 ┆it-up-p (hit) (byte-code " DD┆ 0x0e60…0e80 44 87 22 20 5b 68 69 74 20 6e 6f 74 20 7a 65 72 6f 70 20 73 6d 3a 3a 68 69 74 2d 75 70 5d 20 34 ┆D " [hit not zerop sm::hit-up] 4┆ 0x0e80…0ea0 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 77 20 28 6c 6f 63 29 20 28 62 ┆)) (defmacro sm::loc-w (loc) (b┆ 0x0ea0…0ec0 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 30 5d 20 33 29 29 ┆yte-code " E " [loc nth 0] 3))┆ 0x0ec0…0ee0 0a 0a 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 78 20 28 6c 6f 63 29 20 28 62 79 74 ┆ (defmacro sm::loc-x (loc) (byt┆ 0x0ee0…0f00 65 2d 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 31 5d 20 33 29 29 0a 0a ┆e-code " E " [loc nth 1] 3)) ┆ 0x0f00…0f20 28 64 65 66 6d 61 63 72 6f 20 73 6d 3a 3a 6c 6f 63 2d 79 20 28 6c 6f 63 29 20 28 62 79 74 65 2d ┆(defmacro sm::loc-y (loc) (byte-┆ 0x0f20…0f40 63 6f 64 65 20 22 c1 c2 08 45 87 22 20 5b 6c 6f 63 20 6e 74 68 20 32 5d 20 33 29 29 0a 0a 28 64 ┆code " E " [loc nth 2] 3)) (d┆ 0x0f40…0f60 65 66 6d 61 63 72 6f 20 65 76 61 6c 2d 69 6e 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 20 26 ┆efmacro eval-in-buffer (buffer &┆ 0x0f60…0f80 72 65 73 74 20 66 6f 72 6d 73 29 20 22 4d 61 63 72 6f 20 74 6f 20 73 77 69 74 63 68 65 73 20 74 ┆rest forms) "Macro to switches t┆ 0x0f80…0fa0 6f 20 42 55 46 46 45 52 2c 20 65 76 61 6c 75 61 74 65 73 20 46 4f 52 4d 53 2c 20 72 65 74 75 72 ┆o BUFFER, evaluates FORMS, retur┆ 0x0fa0…0fc0 6e 73 20 74 6f 20 6f 72 69 67 69 6e 61 6c 20 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d 63 6f ┆ns to original buffer." (byte-co┆ 0x0fc0…0fe0 64 65 20 22 c2 c3 c4 c5 c6 c7 08 44 44 09 5c 22 c8 45 45 87 22 20 5b 62 75 66 66 65 72 20 66 6f ┆de " DD \" EE " [buffer fo┆ 0x0fe0…1000 72 6d 73 20 6c 65 74 20 28 28 53 74 61 72 74 42 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 ┆rms let ((StartBuffer (current-b┆ 0x1000…1020 75 66 66 65 72 29 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 61 70 70 65 6e 64 20 70 ┆uffer))) unwind-protect append p┆ 0x1020…1040 72 6f 67 6e 20 73 65 74 2d 62 75 66 66 65 72 20 28 73 65 74 2d 62 75 66 66 65 72 20 53 74 61 72 ┆rogn set-buffer (set-buffer Star┆ 0x1040…1060 74 42 75 66 66 65 72 29 5d 20 37 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 65 76 61 6c 2d ┆tBuffer)] 7)) (put (quote eval-┆ 0x1060…1080 69 6e 2d 62 75 66 66 65 72 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f ┆in-buffer) (quote lisp-indent-ho┆ 0x1080…10a0 6f 6b 29 20 31 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 65 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77 ┆ok) 1) (defmacro eval-in-window┆ 0x10a0…10c0 20 28 77 69 6e 64 6f 77 20 26 72 65 73 74 20 66 6f 72 6d 73 29 20 22 53 77 69 74 63 68 20 74 6f ┆ (window &rest forms) "Switch to┆ 0x10c0…10e0 20 57 49 4e 44 4f 57 2c 20 65 76 61 6c 75 61 74 65 20 46 4f 52 4d 53 2c 20 72 65 74 75 72 6e 20 ┆ WINDOW, evaluate FORMS, return ┆ 0x10e0…1100 74 6f 20 6f 72 69 67 69 6e 61 6c 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆to original window." (byte-code ┆ 0x1100…1120 22 c2 c3 c4 c5 c6 c7 08 44 44 09 5c 22 c8 45 45 87 22 20 5b 77 69 6e 64 6f 77 20 66 6f 72 6d 73 ┆" DD \" EE " [window forms┆ 0x1120…1140 20 6c 65 74 20 28 28 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 ┆ let ((OriginallySelectedWindow ┆ 0x1140…1160 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 ┆(selected-window))) unwind-prote┆ 0x1160…1180 63 74 20 61 70 70 65 6e 64 20 70 72 6f 67 6e 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 73 ┆ct append progn select-window (s┆ 0x1180…11a0 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 ┆elect-window OriginallySelectedW┆ 0x11a0…11c0 69 6e 64 6f 77 29 5d 20 37 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 65 76 61 6c 2d 69 6e ┆indow)] 7)) (put (quote eval-in┆ 0x11c0…11e0 2d 77 69 6e 64 6f 77 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b ┆-window) (quote lisp-indent-hook┆ 0x11e0…1200 29 20 31 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 65 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77 73 20 ┆) 1) (defmacro eval-in-windows ┆ 0x1200…1220 28 66 6f 72 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 79 65 73 6d 69 6e 69 29 20 22 53 77 69 74 63 68 ┆(form &optional yesmini) "Switch┆ 0x1220…1240 65 73 20 74 6f 20 65 61 63 68 20 77 69 6e 64 6f 77 20 61 6e 64 20 65 76 61 6c 75 61 74 65 73 20 ┆es to each window and evaluates ┆ 0x1240…1260 46 4f 52 4d 2e 20 20 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 0a 59 45 53 4d 49 4e 49 ┆FORM. Optional argument YESMINI┆ 0x1260…1280 20 73 61 79 73 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 ┆ says to include the minibuffer ┆ 0x1280…12a0 61 73 20 61 20 77 69 6e 64 6f 77 2e 0a 54 68 69 73 20 69 73 20 61 20 6d 61 63 72 6f 2c 20 61 6e ┆as a window. This is a macro, an┆ 0x12a0…12c0 64 20 64 6f 65 73 20 6e 6f 74 20 65 76 61 6c 75 61 74 65 20 69 74 73 20 61 72 67 75 6d 65 6e 74 ┆d does not evaluate its argument┆ 0x12c0…12e0 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 c5 c6 08 c7 c8 c9 ca cb cc 09 45 44 45 ┆s." (byte-code " EDE┆ 0x12e0…1300 44 45 44 cd 45 45 87 22 20 5b 66 6f 72 6d 20 79 65 73 6d 69 6e 69 20 6c 65 74 20 28 28 4f 72 69 ┆DED EE " [form yesmini let ((Ori┆ 0x1300…1320 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d ┆ginallySelectedWindow (selected-┆ 0x1320…1340 77 69 6e 64 6f 77 29 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 77 68 69 6c 65 20 70 ┆window))) unwind-protect while p┆ 0x1340…1360 72 6f 67 6e 20 6e 6f 74 20 65 71 20 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 ┆rogn not eq OriginallySelectedWi┆ 0x1360…1380 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6e 65 78 74 2d 77 69 6e 64 6f 77 20 6e ┆ndow select-window next-window n┆ 0x1380…13a0 69 6c 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 ┆il (select-window OriginallySele┆ 0x13a0…13c0 63 74 65 64 57 69 6e 64 6f 77 29 5d 20 31 33 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 65 ┆ctedWindow)] 13)) (put (quote e┆ 0x13c0…13e0 76 61 6c 2d 69 6e 2d 77 69 6e 64 6f 77 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e ┆val-in-window) (quote lisp-inden┆ 0x13e0…1400 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 76 65 2d 74 6f 2d 6c 6f 63 20 28 ┆t-hook) 0) (defun move-to-loc (┆ 0x1400…1420 78 20 79 29 20 22 5c 0a 4d 6f 76 65 20 63 75 72 73 6f 72 20 74 6f 20 77 69 6e 64 6f 77 20 6c 6f ┆x y) "\ Move cursor to window lo┆ 0x1420…1440 63 61 74 69 6f 6e 20 58 2c 20 59 2e 0a 48 61 6e 64 6c 65 73 20 77 72 61 70 70 65 64 20 61 6e 64 ┆cation X, Y. Handles wrapped and┆ 0x1440…1460 20 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 73 63 72 6f 6c 6c 65 64 20 6c 69 6e 65 73 20 63 6f 72 ┆ horizontally scrolled lines cor┆ 0x1460…1480 72 65 63 74 6c 79 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 21 88 69 c5 c6 c7 20 21 83 ┆rectly." (byte-code " ! i ! ┆ 0x1480…14a0 18 00 69 c8 20 c9 5a 0b 5e 5c 5c 82 5c 22 00 ca c7 20 cb c8 20 53 0b 5e 23 21 1a 19 0a 09 5a 2a ┆ i Z ^\\ \" S ^#! Z*┆ 0x14a0…14c0 87 22 20 5b 79 20 63 63 20 6e 63 20 78 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e ┆ " [y cc nc x move-to-window-lin┆ 0x14c0…14e0 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 7a 65 72 6f 70 20 77 69 6e 64 6f 77 2d 68 73 ┆e move-to-column zerop window-hs┆ 0x14e0…1500 63 72 6f 6c 6c 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 32 20 2b 20 2d 31 5d 20 31 33 29 29 0a ┆croll window-width 2 + -1] 13)) ┆ 0x1500…1520 0a 28 64 65 66 75 6e 20 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 2d 70 20 28 77 69 6e ┆ (defun minibuffer-window-p (win┆ 0x1520…1540 64 6f 77 29 20 22 5c 0a 54 72 75 65 20 69 66 66 20 74 68 69 73 20 57 49 4e 44 4f 57 20 69 73 20 ┆dow) "\ True iff this WINDOW is ┆ 0x1540…1560 6d 69 6e 69 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 c2 c3 08 21 38 ┆minibuffer." (byte-code " !8┆ 0x1560…1580 55 87 22 20 5b 77 69 6e 64 6f 77 20 73 63 72 65 65 6e 2d 68 65 69 67 68 74 20 33 20 77 69 6e 64 ┆U " [window screen-height 3 wind┆ 0x1580…15a0 6f 77 2d 65 64 67 65 73 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 6e 2d 6d 6f 75 73 65 2d ┆ow-edges] 5)) (defun sun-mouse-┆ 0x15a0…15c0 68 61 6e 64 6c 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 68 69 74 29 20 22 5c 0a 45 76 61 6c 75 ┆handler (&optional hit) "\ Evalu┆ 0x15c0…15e0 61 74 65 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 6c 69 73 74 20 61 73 73 6f 63 69 ┆ates the function or list associ┆ 0x15e0…1600 61 74 65 64 20 77 69 74 68 20 61 20 6d 6f 75 73 65 20 68 69 74 2e 0a 45 78 70 65 63 74 69 6e 67 ┆ated with a mouse hit. Expecting┆ 0x1600…1620 20 74 6f 20 72 65 61 64 20 61 20 68 69 74 2c 20 77 68 69 63 68 20 69 73 20 61 20 6c 69 73 74 3a ┆ to read a hit, which is a list:┆ 0x1620…1640 20 28 62 75 74 74 6f 6e 20 78 20 79 20 64 65 6c 74 61 29 2e 20 20 0a 41 20 66 6f 72 6d 20 62 6f ┆ (button x y delta). A form bo┆ 0x1640…1660 75 6e 64 20 74 6f 20 62 75 74 74 6f 6e 20 62 79 20 64 65 66 69 6e 65 2d 6d 6f 75 73 65 20 69 73 ┆und to button by define-mouse is┆ 0x1660…1680 20 66 6f 75 6e 64 20 62 79 20 6d 6f 75 73 65 2d 6c 6f 6f 6b 75 70 2e 20 0a 54 68 65 20 76 61 72 ┆ found by mouse-lookup. The var┆ 0x1680…16a0 69 61 62 6c 65 73 3a 20 2a 6d 6f 75 73 65 2d 77 69 6e 64 6f 77 2a 2c 20 2a 6d 6f 75 73 65 2d 78 ┆iables: *mouse-window*, *mouse-x┆ 0x16a0…16c0 2a 2c 20 2a 6d 6f 75 73 65 2d 79 2a 20 61 72 65 20 62 6f 75 6e 64 2e 20 20 0a 49 66 20 74 68 65 ┆*, *mouse-y* are bound. If the┆ 0x16c0…16e0 20 66 6f 72 6d 20 69 73 20 61 20 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 70 29 2c 20 69 74 20 ┆ form is a symbol (symbolp), it ┆ 0x16e0…1700 69 73 20 66 75 6e 63 61 6c 6c 27 65 64 20 77 69 74 68 20 2a 6d 6f 75 73 65 2d 77 69 6e 64 6f 77 ┆is funcall'ed with *mouse-window┆ 0x1700…1720 2a 2c 0a 2a 6d 6f 75 73 65 2d 78 2a 2c 20 61 6e 64 20 2a 6d 6f 75 73 65 2d 79 2a 20 61 73 20 61 ┆*, *mouse-x*, and *mouse-y* as a┆ 0x1720…1740 72 67 75 6d 65 6e 74 73 3b 20 69 66 20 74 68 65 20 66 6f 72 6d 20 69 73 20 61 20 6c 69 73 74 20 ┆rguments; if the form is a list ┆ 0x1740…1760 28 6c 69 73 74 70 29 2c 0a 74 68 65 20 66 6f 72 6d 20 69 73 20 65 76 61 6c 27 65 64 3b 20 69 66 ┆(listp), the form is eval'ed; if┆ 0x1760…1780 20 74 68 65 20 66 6f 72 6d 20 69 73 20 6e 65 69 74 68 65 72 20 6f 66 20 74 68 65 73 65 2c 20 69 ┆ the form is neither of these, i┆ 0x1780…17a0 74 20 69 73 20 61 6e 20 65 72 72 6f 72 2e 0a 52 65 74 75 72 6e 73 20 6e 69 6c 2e 22 20 28 69 6e ┆t is an error. Returns nil." (in┆ 0x17a0…17c0 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cc 88 08 3f 85 0b 00 cd 20 ┆teractive) (byte-code " ? ┆ 0x17c0…17e0 89 10 88 ce cf 08 38 d0 08 38 5c 22 19 d1 09 38 cf 09 38 d0 09 38 d2 08 09 5c 22 1d 1c 1b 1a 70 ┆ 8 8\" 8 8 8 \" p┆ 0x17e0…1800 1e 07 d3 8e d4 0a 21 71 88 d5 0d 21 29 29 1e 06 0e 06 3f 83 56 00 d6 d7 0e 08 d1 08 38 5c 22 21 ┆ !q !)) ? V 8\"!┆ 0x1800…1820 3f 3f 85 53 00 d8 d9 da db 0d 21 21 5c 22 82 85 00 0e 06 39 83 6c 00 0e 06 89 16 09 88 dc 0e 06 ┆?? S !!\" 9 l ┆ 0x1820…1840 0a 0b 0c 24 82 85 00 0e 06 3c 83 80 00 0e 06 40 89 16 09 88 dd 0e 06 21 82 85 00 d8 de 0e 06 5c ┆ $ < @ ! \┆ 0x1840…1860 22 29 2c 29 88 0e 09 df 3d 85 95 00 0e 0b 89 16 09 88 cc 87 22 20 5b 68 69 74 20 6c 6f 63 20 2a ┆"),) = " [hit loc *┆ 0x1860…1880 6d 6f 75 73 65 2d 77 69 6e 64 6f 77 2a 20 2a 6d 6f 75 73 65 2d 78 2a 20 2a 6d 6f 75 73 65 2d 79 ┆mouse-window* *mouse-x* *mouse-y┆ 0x1880…18a0 2a 20 6d 6f 75 73 65 2d 63 6f 64 65 20 66 6f 72 6d 20 53 74 61 72 74 42 75 66 66 65 72 20 73 6d ┆* mouse-code form StartBuffer sm┆ 0x18a0…18c0 3a 3a 55 70 42 69 74 73 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 74 20 6c 61 73 74 2d 63 6f 6d ┆::UpBits this-command t last-com┆ 0x18c0…18e0 6d 61 6e 64 20 6e 69 6c 20 73 6d 3a 3a 63 6f 6d 62 69 6e 65 64 2d 68 69 74 73 20 73 6d 3a 3a 77 ┆mand nil sm::combined-hits sm::w┆ 0x18e0…1900 69 6e 64 6f 77 2d 78 79 20 31 20 32 20 30 20 6d 6f 75 73 65 2d 65 76 65 6e 74 2d 63 6f 64 65 20 ┆indow-xy 1 2 0 mouse-event-code ┆ 0x1900…1920 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 71 87 22 20 5b 53 74 61 72 74 42 75 66 66 65 72 5d 20 ┆((byte-code " q " [StartBuffer] ┆ […truncated at 200 lines…]