|
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: 3036 (0xbdc)
Names: »sup-mouse.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/sup-mouse.elc«
0x000…020 0a 28 64 65 66 76 61 72 20 73 75 70 2d 6d 6f 75 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 ┆ (defvar sup-mouse-fast-select-w┆ 0x020…040 69 6e 64 6f 77 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 66 6f 72 20 6d 6f 75 73 65 20 ┆indow nil "\ *Non-nil for mouse ┆ 0x040…060 68 69 74 73 20 74 6f 20 73 65 6c 65 63 74 20 6e 65 77 20 77 69 6e 64 6f 77 2c 20 74 68 65 6e 20 ┆hits to select new window, then ┆ 0x060…080 65 78 65 63 75 74 65 3b 20 65 6c 73 65 20 6a 75 73 74 20 73 65 6c 65 63 74 2e 22 29 0a 0a 28 64 ┆execute; else just select.") (d┆ 0x080…0a0 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 6c 65 66 74 20 30 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆efconst mouse-left 0) (defconst┆ 0x0a0…0c0 20 6d 6f 75 73 65 2d 63 65 6e 74 65 72 20 31 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 ┆ mouse-center 1) (defconst mous┆ 0x0c0…0e0 65 2d 72 69 67 68 74 20 32 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 6c 65 66 ┆e-right 2) (defconst mouse-2lef┆ 0x0e0…100 74 20 34 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 63 65 6e 74 65 72 20 35 29 ┆t 4) (defconst mouse-2center 5)┆ 0x100…120 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 32 72 69 67 68 74 20 36 29 0a 0a 28 64 65 ┆ (defconst mouse-2right 6) (de┆ 0x120…140 66 63 6f 6e 73 74 20 6d 6f 75 73 65 2d 33 6c 65 66 74 20 38 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆fconst mouse-3left 8) (defconst┆ 0x140…160 20 6d 6f 75 73 65 2d 33 63 65 6e 74 65 72 20 39 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 6f 75 ┆ mouse-3center 9) (defconst mou┆ 0x160…180 73 65 2d 33 72 69 67 68 74 20 31 30 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 6d 6f 75 73 65 2d ┆se-3right 10) (defun sup-mouse-┆ 0x180…1a0 72 65 70 6f 72 74 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 ┆report nil "\ This function is c┆ 0x1a0…1c0 61 6c 6c 65 64 20 64 69 72 65 63 74 6c 79 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2c 20 69 74 20 ┆alled directly by the mouse, it ┆ 0x1c0…1e0 70 61 72 73 65 73 20 61 6e 64 0a 65 78 65 63 75 74 65 73 20 74 68 65 20 6d 6f 75 73 65 20 63 6f ┆parses and executes the mouse co┆ 0x1e0…200 6d 6d 61 6e 64 73 2e 0a 0a 20 4c 20 6d 6f 76 65 20 70 6f 69 6e 74 20 20 20 20 20 20 20 20 20 20 ┆mmands. L move point ┆ 0x200…220 2a 20 20 7c 2d 2d 2d 2d 20 54 68 65 73 65 20 61 70 70 6c 79 20 66 6f 72 20 6d 6f 75 73 65 20 63 ┆* |---- These apply for mouse c┆ 0x220…240 6c 69 63 6b 20 69 6e 20 61 20 77 69 6e 64 6f 77 2e 0a 32 4c 20 64 65 6c 65 74 65 20 77 6f 72 64 ┆lick in a window. 2L delete word┆ 0x240…260 20 20 20 20 20 20 20 20 20 20 20 20 7c 0a 33 4c 20 63 6f 70 79 20 77 6f 72 64 09 09 20 20 7c 20 ┆ | 3L copy word | ┆ 0x260…280 49 66 20 73 75 70 2d 6d 6f 75 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 ┆If sup-mouse-fast-select-window ┆ 0x280…2a0 69 73 20 6e 69 6c 2c 0a 20 43 20 6d 6f 76 65 20 70 6f 69 6e 74 20 61 6e 64 20 79 61 6e 6b 20 2a ┆is nil, C move point and yank *┆ 0x2a0…2c0 20 20 7c 20 6a 75 73 74 20 73 65 6c 65 63 74 73 20 74 68 61 74 20 77 69 6e 64 6f 77 2e 0a 32 43 ┆ | just selects that window. 2C┆ 0x2c0…2e0 20 79 61 6e 6b 20 70 6f 70 09 09 20 20 7c 0a 20 52 20 73 65 74 20 6d 61 72 6b 20 20 20 20 20 20 ┆ yank pop | R set mark ┆ 0x2e0…300 20 20 20 20 20 20 2a 20 20 7c 0a 32 52 20 64 65 6c 65 74 65 20 72 65 67 69 6f 6e 09 20 20 7c 0a ┆ * | 2R delete region | ┆ 0x300…320 33 52 20 63 6f 70 79 20 72 65 67 69 6f 6e 09 09 20 20 7c 0a 0a 6f 6e 20 6d 6f 64 65 6c 69 6e 65 ┆3R copy region | on modeline┆ 0x320…340 09 09 20 20 20 20 6f 6e 20 5c 22 73 63 72 6f 6c 6c 20 62 61 72 5c 22 09 69 6e 20 6d 69 6e 69 62 ┆ on \"scroll bar\" in minib┆ 0x340…360 75 66 66 65 72 0a 20 4c 20 73 63 72 6f 6c 6c 2d 75 70 09 09 20 20 20 20 6c 69 6e 65 20 74 6f 20 ┆uffer L scroll-up line to ┆ 0x360…380 74 6f 70 09 09 65 78 65 63 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 0a 20 43 ┆top execute-extended-command C┆ 0x380…3a0 20 70 72 6f 70 6f 72 74 69 6f 6e 61 6c 20 67 6f 74 6f 2d 63 68 61 72 20 20 20 6c 69 6e 65 20 74 ┆ proportional goto-char line t┆ 0x3a0…3c0 6f 20 6d 69 64 64 6c 65 09 6d 6f 75 73 65 2d 68 65 6c 70 0a 20 52 20 73 63 72 6f 6c 6c 2d 64 6f ┆o middle mouse-help R scroll-do┆ 0x3c0…3e0 77 6e 09 09 20 20 20 20 6c 69 6e 65 20 74 6f 20 62 6f 74 74 6f 6d 09 65 76 61 6c 2d 65 78 70 72 ┆wn line to bottom eval-expr┆ 0x3e0…400 65 73 73 69 6f 6e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ession" (interactive) (byte-code┆ 0x400…420 20 22 d5 88 d6 d7 21 18 d6 d7 21 19 d6 d8 21 1a d9 09 0a 5c 22 1b da 0b 21 1c db 20 1d 0a dc 20 ┆ " ! ! ! \" ! ┆ 0x420…440 53 3d 1e 06 0e 06 3f 85 2a 00 0b 0d 3d 1e 07 0a dd 0c 38 53 3d 1e 08 09 de 0c 38 53 59 1e 09 09 ┆S= ? * = 8S= 8SY ┆ 0x440…460 df 0c 38 5a 89 11 88 0a e0 0c 38 5a 89 12 88 0e 08 83 8d 00 e1 0b 21 88 08 0e 0a 55 83 61 00 e2 ┆ 8Z 8Z ! U a ┆ 0x460…480 20 82 86 00 08 0e 0b 55 83 6d 00 e3 20 82 86 00 08 0e 0c 55 85 86 00 e4 e5 09 64 65 5a 5c 22 e6 ┆ U m U deZ\" ┆ 0x480…4a0 20 53 5c 22 62 88 e7 20 88 e8 20 88 e1 0d 21 82 f0 01 0e 09 83 d4 00 e1 0b 21 88 e2 08 0e 0a 55 ┆ S\"b ! ! U┆ 0x4a0…4c0 83 a2 00 0a 82 cc 00 08 0e 0b 55 83 b2 00 0a de e9 20 5a 5c 5c 82 cc 00 08 0e 0c 55 83 c7 00 e4 ┆ U Z\\ U ┆ 0x4c0…4e0 ea de 0a 0a e9 20 5b 24 de 5c 22 82 cc 00 cd 85 cc 00 df 21 88 e1 0d 21 82 f0 01 0e 07 83 81 01 ┆ [$ \" ! ! ┆ 0x4e0…500 08 0e 0a 55 83 e7 00 eb 09 0a 5c 22 82 7e 01 08 0e 0e 55 83 f9 00 eb 09 0a 5c 22 88 ec e0 21 82 ┆ U \" ~ U \" ! ┆ 0x500…520 7e 01 08 0e 0f 55 83 17 01 eb 09 0a 5c 22 88 8a ed 60 ee e0 21 88 60 5c 22 29 88 ef 89 16 10 82 ┆~ U \" ` ! `\") ┆ 0x520…540 7e 01 08 0e 0b 55 83 2b 01 f0 20 88 eb 09 0a 5c 22 88 f1 20 82 7e 01 08 0e 11 55 83 42 01 f0 20 ┆~ U + \" ~ U B ┆ 0x540…560 88 eb 09 0a 5c 22 88 f2 f3 20 60 5c 22 82 7e 01 08 0e 12 55 83 5e 01 f0 20 88 eb 09 0a 5c 22 88 ┆ \" `\" ~ U ^ \" ┆ 0x560…580 ed f3 20 60 5c 22 88 ef 89 16 10 82 7e 01 08 0e 0c 55 83 74 01 eb 09 0a 5c 22 88 ef 89 16 10 88 ┆ `\" ~ U t \" ┆ 0x580…5a0 ef 20 82 7e 01 08 0e 13 55 85 7e 01 f4 e0 21 82 f0 01 0e 06 83 ad 01 08 0e 0b 55 83 93 01 f5 f6 ┆ ~ U ~ ! U ┆ 0x5a0…5c0 21 82 aa 01 08 0e 0a 55 83 a0 01 f5 f7 21 82 aa 01 08 0e 0c 55 85 aa 01 f8 f9 21 82 f0 01 cd 85 ┆! U ! U ! ┆ 0x5c0…5e0 f0 01 e1 0b 21 88 0e 14 3f 86 f0 01 08 0e 0a 55 83 c9 01 eb 09 0a 5c 22 82 f0 01 08 0e 0b 55 83 ┆ ! ? U \" U ┆ 0x5e0…600 dd 01 f0 20 88 eb 09 0a 5c 22 88 f1 20 82 f0 01 08 0e 0c 55 85 f0 01 eb 09 0a 5c 22 88 ef 89 16 ┆ \" U \" ┆ 0x600…620 10 88 ef 20 2e 0a 87 22 20 5b 62 75 74 74 6f 6e 73 20 78 20 79 20 77 69 6e 64 6f 77 20 65 64 67 ┆ . " [buttons x y window edg┆ 0x620…640 65 73 20 6f 6c 64 2d 77 69 6e 64 6f 77 20 69 6e 2d 6d 69 6e 69 62 75 66 2d 70 20 73 61 6d 65 2d ┆es old-window in-minibuf-p same-┆ 0x640…660 77 69 6e 64 6f 77 2d 70 20 69 6e 2d 6d 6f 64 65 6c 69 6e 65 2d 70 20 69 6e 2d 73 63 72 6f 6c 6c ┆window-p in-modeline-p in-scroll┆ 0x660…680 62 61 72 2d 70 20 6d 6f 75 73 65 2d 6c 65 66 74 20 6d 6f 75 73 65 2d 72 69 67 68 74 20 6d 6f 75 ┆bar-p mouse-left mouse-right mou┆ 0x680…6a0 73 65 2d 63 65 6e 74 65 72 20 74 20 6d 6f 75 73 65 2d 32 6c 65 66 74 20 6d 6f 75 73 65 2d 33 6c ┆se-center t mouse-2left mouse-3l┆ 0x6a0…6c0 65 66 74 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 6d 6f 75 73 65 2d 32 72 69 67 68 74 20 6d 6f ┆eft this-command mouse-2right mo┆ 0x6c0…6e0 75 73 65 2d 33 72 69 67 68 74 20 6d 6f 75 73 65 2d 32 63 65 6e 74 65 72 20 73 75 70 2d 6d 6f 75 ┆use-3right mouse-2center sup-mou┆ 0x6e0…700 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 73 75 70 2d 67 65 ┆se-fast-select-window nil sup-ge┆ 0x700…720 74 2d 74 74 79 2d 6e 75 6d 20 35 39 20 39 39 20 73 75 70 2d 70 6f 73 2d 74 6f 2d 77 69 6e 64 6f ┆t-tty-num 59 99 sup-pos-to-windo┆ 0x720…740 77 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 73 ┆w window-edges selected-window s┆ 0x740…760 63 72 65 65 6e 2d 68 65 69 67 68 74 20 33 20 32 20 30 20 31 20 73 65 6c 65 63 74 2d 77 69 6e 64 ┆creen-height 3 2 0 1 select-wind┆ 0x760…780 6f 77 20 73 63 72 6f 6c 6c 2d 75 70 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 20 2f 20 2a 20 77 69 6e ┆ow scroll-up scroll-down / * win┆ 0x780…7a0 64 6f 77 2d 77 69 64 74 68 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 77 68 61 74 ┆dow-width beginning-of-line what┆ 0x7a0…7c0 2d 63 75 72 73 6f 72 2d 70 6f 73 69 74 69 6f 6e 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2b ┆-cursor-position window-height +┆ 0x7c0…7e0 20 73 75 70 2d 6d 6f 76 65 2d 70 6f 69 6e 74 2d 74 6f 2d 78 2d 79 20 6b 69 6c 6c 2d 77 6f 72 64 ┆ sup-move-point-to-x-y kill-word┆ 0x7e0…800 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 20 66 6f 72 77 61 72 64 2d 77 6f 72 ┆ copy-region-as-kill forward-wor┆ 0x800…820 64 20 79 61 6e 6b 20 70 75 73 68 2d 6d 61 72 6b 20 65 78 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d ┆d yank push-mark exchange-point-┆ 0x820…840 61 6e 64 2d 6d 61 72 6b 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 20 79 61 6e 6b 2d 70 ┆and-mark kill-region mark yank-p┆ 0x840…860 6f 70 20 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 65 76 61 6c 2d 65 78 70 72 65 ┆op call-interactively eval-expre┆ 0x860…880 73 73 69 6f 6e 20 65 78 65 63 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 20 64 ┆ssion execute-extended-command d┆ 0x880…8a0 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 73 75 70 2d 6d 6f 75 73 65 2d 72 65 70 6f 72 ┆escribe-function sup-mouse-repor┆ 0x8a0…8c0 74 5d 20 35 34 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 67 65 74 2d 74 74 79 2d 6e 75 6d 20 ┆t] 54)) (defun sup-get-tty-num ┆ 0x8c0…8e0 28 74 65 72 6d 2d 63 68 61 72 29 20 22 5c 0a 52 65 61 64 20 66 72 6f 6d 20 74 65 72 6d 69 6e 61 ┆(term-char) "\ Read from termina┆ 0x8e0…900 6c 20 75 6e 74 69 6c 20 54 45 52 4d 2d 43 48 41 52 20 69 73 20 72 65 61 64 2c 20 61 6e 64 20 72 ┆l until TERM-CHAR is read, and r┆ 0x900…920 65 74 75 72 6e 20 69 6e 74 65 72 76 65 6e 69 6e 67 20 6e 75 6d 62 65 72 2e 0a 55 70 6f 6e 20 6e ┆eturn intervening number. Upon n┆ 0x920…940 6f 6e 2d 6e 75 6d 65 72 69 63 20 6e 6f 74 20 6d 61 74 63 68 69 6e 67 20 54 45 52 4d 2d 43 48 41 ┆on-numeric not matching TERM-CHA┆ 0x940…960 52 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆R signal an error." (byte-code "┆ 0x960…980 c3 72 19 18 09 c4 59 85 0d 00 09 c5 58 85 5c 22 00 c6 08 c7 5c 22 09 c4 5a 5c 5c 89 10 88 72 89 ┆ r Y X \" \" Z\\ r ┆ 0x980…9a0 11 88 82 04 00 88 0a 09 3d 86 2c 00 c8 c9 21 88 08 2a 87 22 20 5b 6e 75 6d 20 63 68 61 72 20 74 ┆ = , ! * " [num char t┆ 0x9a0…9c0 65 72 6d 2d 63 68 61 72 20 30 20 34 38 20 35 37 20 2a 20 31 30 20 65 72 72 6f 72 20 22 49 6e 76 ┆erm-char 0 48 57 * 10 error "Inv┆ 0x9c0…9e0 61 6c 69 64 20 64 61 74 61 20 66 6f 72 6d 61 74 20 69 6e 20 6d 6f 75 73 65 20 63 6f 6d 6d 61 6e ┆alid data format in mouse comman┆ 0x9e0…a00 64 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 6d 6f 76 65 2d 70 6f 69 6e 74 2d 74 ┆d"] 5)) (defun sup-move-point-t┆ 0xa00…a20 6f 2d 78 2d 79 20 28 78 20 79 29 20 22 5c 0a 50 6f 73 69 74 69 6f 6e 20 63 75 72 73 6f 72 20 69 ┆o-x-y (x y) "\ Position cursor i┆ 0xa20…a40 6e 20 77 69 6e 64 6f 77 20 63 6f 6f 72 64 69 6e 61 74 65 73 2e 0a 58 20 61 6e 64 20 59 20 61 72 ┆n window coordinates. X and Y ar┆ 0xa40…a60 65 20 30 2d 62 61 73 65 64 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 69 6e ┆e 0-based character positions in┆ 0xa60…a80 20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 88 c3 09 ┆ the window." (byte-code " ! ┆ 0xa80…aa0 21 87 22 20 5b 79 20 78 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 6f 77 2d 6c 69 6e 65 20 6d 6f 76 ┆! " [y x move-to-window-line mov┆ 0xaa0…ac0 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 75 70 2d 70 6f 73 ┆e-to-column] 3)) (defun sup-pos┆ 0xac0…ae0 2d 74 6f 2d 77 69 6e 64 6f 77 20 28 78 20 79 29 20 22 5c 0a 46 69 6e 64 20 77 69 6e 64 6f 77 20 ┆-to-window (x y) "\ Find window ┆ 0xae0…b00 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 73 63 72 65 65 6e 20 63 6f 6f 72 64 69 6e 61 ┆corresponding to screen coordina┆ 0xb00…b20 74 65 73 2e 0a 58 20 61 6e 64 20 59 20 61 72 65 20 30 2d 62 61 73 65 64 20 63 68 61 72 61 63 74 ┆tes. X and Y are 0-based charact┆ 0xb20…b40 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 73 63 72 65 65 6e 2e 22 20 28 62 79 ┆er positions on the screen." (by┆ 0xb40…b60 74 65 2d 63 6f 64 65 20 22 c5 20 c2 19 18 09 c6 20 3d 3f 85 2a 00 0b c7 08 38 57 86 2a 00 0b c8 ┆te-code " =? * 8W * ┆ 0xb60…b80 08 38 59 86 2a 00 0c c9 08 38 57 86 2a 00 0c ca 08 38 59 85 3c 00 cb 09 21 89 11 88 c5 09 21 89 ┆ 8Y * 8W * 8Y < ! ! ┆ 0xb80…ba0 10 88 82 05 00 88 09 86 43 00 c6 20 2a 87 22 20 5b 65 64 67 65 73 20 77 69 6e 64 6f 77 20 6e 69 ┆ C * " [edges window ni┆ 0xba0…bc0 6c 20 79 20 78 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 ┆l y x window-edges selected-wind┆ 0xbc0…bdc 6f 77 20 31 20 33 20 30 20 32 20 6e 65 78 74 2d 77 69 6e 64 6f 77 5d 20 37 29 29 0a ┆ow 1 3 0 2 next-window] 7)) ┆