|
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: ┃ b ┃
Length: 2832 (0xb10)
Names: »bg-mouse.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/bg-mouse.elc«
0x000…020 0a 28 64 65 66 76 61 72 20 62 67 2d 6d 6f 75 73 65 2d 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 ┆ (defvar bg-mouse-fast-select-wi┆ 0x020…040 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 68 ┆ndow nil "\ *Non-nil for mouse h┆ 0x040…060 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 65 ┆its to select new window, then e┆ 0x060…080 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 65 ┆xecute; else just select.") (de┆ 0x080…0a0 66 75 6e 20 62 67 2d 6d 6f 75 73 65 2d 72 65 70 6f 72 74 20 6e 69 6c 20 22 5c 0a 52 65 61 64 20 ┆fun bg-mouse-report nil "\ Read ┆ 0x0a0…0c0 61 6e 64 20 70 61 72 73 65 20 42 42 4e 20 42 69 74 47 72 61 70 68 20 6d 6f 75 73 65 20 72 65 70 ┆and parse BBN BitGraph mouse rep┆ 0x0c0…0e0 6f 72 74 2c 20 61 6e 64 20 64 6f 20 77 68 61 74 20 69 74 20 61 73 6b 73 2e 0a 0a 4c 2d 2d 20 6d ┆ort, and do what it asks. L-- m┆ 0x0e0…100 6f 76 65 20 70 6f 69 6e 74 20 20 20 20 20 20 20 20 20 20 2a 20 20 7c 2d 2d 2d 2d 20 54 68 65 73 ┆ove point * |---- Thes┆ 0x100…120 65 20 61 70 70 6c 79 20 66 6f 72 20 6d 6f 75 73 65 20 63 6c 69 63 6b 20 69 6e 20 61 20 77 69 6e ┆e apply for mouse click in a win┆ 0x120…140 64 6f 77 2e 0a 2d 2d 52 20 73 65 74 20 6d 61 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 ┆dow. --R set mark * ┆ 0x140…160 7c 20 49 66 20 62 67 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 ┆| If bg-mouse-fast-select-window┆ 0x160…180 20 69 73 20 6e 69 6c 2c 0a 4c 2d 52 20 6b 69 6c 6c 20 72 65 67 69 6f 6e 20 20 20 20 20 20 20 20 ┆ is nil, L-R kill region ┆ 0x180…1a0 20 20 20 20 7c 20 61 20 73 74 61 72 72 65 64 20 63 6f 6d 6d 61 6e 64 20 6f 6e 20 61 20 6e 6f 6e ┆ | a starred command on a non┆ 0x1a0…1c0 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 0a 2d 43 2d 20 6d 6f 76 65 20 70 6f 69 6e 74 20 61 ┆selected window -C- move point a┆ 0x1c0…1e0 6e 64 20 79 61 6e 6b 20 2a 20 20 7c 20 6a 75 73 74 20 73 65 6c 65 63 74 73 20 74 68 61 74 20 77 ┆nd yank * | just selects that w┆ 0x1e0…200 69 6e 64 6f 77 2e 0a 4c 43 2d 20 79 61 6e 6b 2d 70 6f 70 0a 2d 43 52 20 6f 72 20 4c 43 52 20 75 ┆indow. LC- yank-pop -CR or LCR u┆ 0x200…220 6e 64 6f 09 09 20 20 20 7c 20 5c 22 53 63 72 6f 6c 6c 20 62 61 72 5c 22 20 69 73 20 72 69 67 68 ┆ndo | \"Scroll bar\" is righ┆ 0x220…240 74 2d 68 61 6e 64 20 77 69 6e 64 6f 77 20 63 6f 6c 75 6d 6e 2e 0a 0a 6f 6e 20 6d 6f 64 65 6c 69 ┆t-hand window column. on modeli┆ 0x240…260 6e 65 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 ┆ne on \"scroll bar\" in min┆ 0x260…280 69 62 75 66 66 65 72 0a 4c 2d 2d 20 73 63 72 6f 6c 6c 2d 75 70 09 09 20 20 20 20 6c 69 6e 65 20 ┆ibuffer L-- scroll-up line ┆ 0x280…2a0 74 6f 20 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 ┆to top execute-extended-command┆ 0x2a0…2c0 0a 2d 2d 52 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 09 09 20 20 20 20 6c 69 6e 65 20 74 6f 20 62 6f ┆ --R scroll-down line to bo┆ 0x2c0…2e0 74 74 6f 6d 09 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 0a 2d 43 2d 20 70 72 6f 70 6f 72 74 ┆ttom eval-expression -C- proport┆ 0x2e0…300 69 6f 6e 61 6c 20 67 6f 74 6f 2d 63 68 61 72 20 20 6c 69 6e 65 20 74 6f 20 6d 69 64 64 6c 65 09 ┆ional goto-char line to middle ┆ 0x300…320 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 0a 0a 54 6f 20 72 65 65 6e 61 62 6c 65 20 74 68 65 20 6d ┆suspend-emacs To reenable the m┆ 0x320…340 6f 75 73 65 20 69 66 20 74 65 72 6d 69 6e 61 6c 20 69 73 20 72 65 73 65 74 2c 20 74 79 70 65 20 ┆ouse if terminal is reset, type ┆ 0x340…360 45 53 43 20 3a 20 52 45 54 20 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆ESC : RET ." (interactive) (byte┆ 0x360…380 2d 63 6f 64 65 20 22 cd 88 ce cf 21 88 d0 20 53 d1 ce cf 21 d2 5c 22 5e 18 d3 20 53 d1 ce cf 21 ┆-code " ! S ! \"^ S !┆ 0x380…3a0 d4 5c 22 5a 19 d5 ce d6 21 d7 5c 22 1a d8 08 09 5c 22 1b d9 0b 21 1c da 20 1d 09 d3 20 53 3d 1e ┆ \"Z ! \" \" ! S= ┆ 0x3a0…3c0 06 0e 06 3f 85 3f 00 0b 0d 3d 1e 07 09 db 0c 38 53 3d 1e 08 08 dc 0c 38 53 59 1e 09 08 dd 0c 38 ┆ ? ? = 8S= 8SY 8┆ 0x3c0…3e0 5a 89 10 88 09 de 0c 38 5a 89 11 88 0e 08 83 9f 00 df 0b 21 88 0a e0 55 83 75 00 e1 20 82 98 00 ┆Z 8Z ! U u ┆ 0x3e0…400 0a de 55 83 80 00 e2 20 82 98 00 0a dc 55 85 98 00 d1 e3 08 64 65 5a 5c 22 e4 20 53 5c 22 62 88 ┆ U U deZ\" S\"b ┆ 0x400…420 e5 20 88 e6 20 88 df 0d 21 82 b0 01 0e 09 83 e3 00 df 0b 21 88 e1 0a e0 55 83 b3 00 09 82 db 00 ┆ ! ! U ┆ 0x420…440 0a de 55 83 c2 00 09 dc e7 20 5a 5c 5c 82 db 00 0a dc 55 83 d6 00 d1 e8 dc 09 09 e7 20 5b 24 dc ┆ U Z\\ U [$ ┆ 0x440…460 5c 22 82 db 00 ca 85 db 00 dd 21 88 df 0d 21 82 b0 01 0e 07 83 48 01 0a e0 55 83 f5 00 e9 08 09 ┆\" ! ! H U ┆ 0x460…480 5c 22 82 45 01 0a de 55 83 08 01 ea 20 88 e9 08 09 5c 22 88 eb 20 82 45 01 0a ec 55 83 16 01 ed ┆\" E U \" E U ┆ 0x480…4a0 ee 20 60 5c 22 82 45 01 0a dc 55 83 2b 01 e9 08 09 5c 22 88 ef 89 16 0b 88 ef 20 82 45 01 0a f0 ┆ `\" E U + \" E ┆ 0x4a0…4c0 55 83 37 01 f1 de 21 82 45 01 0a db 55 86 40 01 0a f2 55 85 45 01 f3 20 82 b0 01 0e 06 83 70 01 ┆U 7 ! E U @ U E p ┆ 0x4c0…4e0 0a de 55 83 59 01 f4 f5 21 82 6d 01 0a e0 55 83 65 01 f4 f6 21 82 6d 01 0a dc 55 85 6d 01 f7 20 ┆ U Y ! m U e ! m U m ┆ 0x4e0…500 82 b0 01 ca 85 b0 01 df 0b 21 88 0e 0c 3f 86 b0 01 0a e0 55 83 8b 01 e9 08 09 5c 22 82 b0 01 0a ┆ ! ? U \" ┆ 0x500…520 de 55 83 9e 01 ea 20 88 e9 08 09 5c 22 88 eb 20 82 b0 01 0a dc 55 85 b0 01 e9 08 09 5c 22 88 ef ┆ U \" U \" ┆ 0x520…540 89 16 0b 88 ef 20 2e 0a 87 22 20 5b 78 20 79 20 62 75 74 74 6f 6e 73 20 77 69 6e 64 6f 77 20 65 ┆ . " [x y buttons window e┆ 0x540…560 64 67 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 ┆dges old-window in-minibuf-p sam┆ 0x560…580 65 2d 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 ┆e-window-p in-modeline-p in-scro┆ 0x580…5a0 6c 6c 62 61 72 2d 70 20 74 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 62 67 2d 6d 6f 75 73 65 2d ┆llbar-p t this-command bg-mouse-┆ 0x5a0…5c0 66 61 73 74 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 62 67 2d 67 65 74 2d 74 74 ┆fast-select-window nil bg-get-tt┆ 0x5c0…5e0 79 2d 6e 75 6d 20 35 39 20 73 63 72 65 65 6e 2d 77 69 64 74 68 20 2f 20 39 20 73 63 72 65 65 6e ┆y-num 59 screen-width / 9 screen┆ 0x5e0…600 2d 68 65 69 67 68 74 20 31 36 20 25 20 39 39 20 38 20 62 67 2d 70 6f 73 2d 74 6f 2d 77 69 6e 64 ┆-height 16 % 99 8 bg-pos-to-wind┆ 0x600…620 6f 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 ┆ow window-edges selected-window ┆ 0x620…640 33 20 32 20 30 20 31 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 34 20 73 63 72 6f 6c 6c 2d 75 ┆3 2 0 1 select-window 4 scroll-u┆ 0x640…660 70 20 73 63 72 6f 6c 6c 2d 64 6f 77 6e 20 2a 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 62 65 67 ┆p scroll-down * window-width beg┆ 0x660…680 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 77 68 61 74 2d 63 75 72 73 6f 72 2d 70 6f 73 69 74 ┆inning-of-line what-cursor-posit┆ 0x680…6a0 69 6f 6e 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2b 20 62 67 2d 6d 6f 76 65 2d 70 6f 69 6e ┆ion window-height + bg-move-poin┆ 0x6a0…6c0 74 2d 74 6f 2d 78 2d 79 20 70 75 73 68 2d 6d 61 72 6b 20 65 78 63 68 61 6e 67 65 2d 70 6f 69 6e ┆t-to-x-y push-mark exchange-poin┆ 0x6c0…6e0 74 2d 61 6e 64 2d 6d 61 72 6b 20 35 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 6d 61 72 6b 20 79 61 ┆t-and-mark 5 kill-region mark ya┆ 0x6e0…700 6e 6b 20 36 20 79 61 6e 6b 2d 70 6f 70 20 37 20 75 6e 64 6f 20 63 61 6c 6c 2d 69 6e 74 65 72 61 ┆nk 6 yank-pop 7 undo call-intera┆ 0x700…720 63 74 69 76 65 6c 79 20 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 20 65 78 65 63 75 74 65 2d ┆ctively eval-expression execute-┆ 0x720…740 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 5d 20 ┆extended-command suspend-emacs] ┆ 0x740…760 35 30 29 29 0a 0a 28 64 65 66 75 6e 20 62 67 2d 67 65 74 2d 74 74 79 2d 6e 75 6d 20 28 74 65 72 ┆50)) (defun bg-get-tty-num (ter┆ 0x760…780 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 6c 20 75 6e ┆m-char) "\ Read from terminal un┆ 0x780…7a0 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 65 74 75 72 ┆til TERM-CHAR is read, and retur┆ 0x7a0…7c0 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 6f 6e 2d 6e ┆n intervening number. Upon non-n┆ 0x7c0…7e0 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 52 2c 20 72 ┆umeric not matching TERM-CHAR, r┆ 0x7e0…800 65 70 72 6f 67 72 61 6d 20 74 68 65 20 6d 6f 75 73 65 20 61 6e 64 20 73 69 67 6e 61 6c 20 61 6e ┆eprogram the mouse and signal an┆ 0x800…820 20 65 72 72 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 72 c4 5a 19 18 09 c3 59 85 0f ┆ error." (byte-code " r Z Y ┆ 0x820…840 00 09 c5 58 85 24 00 c6 08 c7 5c 22 09 5c 5c 89 10 88 72 c4 5a 89 11 88 82 06 00 88 0a 09 c4 5c ┆ X $ \" \\ r Z \┆ 0x840…860 5c 3d 86 33 00 c8 20 88 c9 ca 21 88 08 2a 87 22 20 5b 6e 75 6d 20 63 68 61 72 20 74 65 72 6d 2d ┆\= 3 ! * " [num char term-┆ 0x860…880 63 68 61 72 20 30 20 34 38 20 39 20 2a 20 31 30 20 62 67 2d 70 72 6f 67 72 61 6d 2d 6d 6f 75 73 ┆char 0 48 9 * 10 bg-program-mous┆ 0x880…8a0 65 20 65 72 72 6f 72 20 22 49 6e 76 61 6c 69 64 20 64 61 74 61 20 66 6f 72 6d 61 74 20 69 6e 20 ┆e error "Invalid data format in ┆ 0x8a0…8c0 6d 6f 75 73 65 20 63 6f 6d 6d 61 6e 64 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 67 2d 6d ┆mouse command"] 4)) (defun bg-m┆ 0x8c0…8e0 6f 76 65 2d 70 6f 69 6e 74 2d 74 6f 2d 78 2d 79 20 28 78 20 79 29 20 22 5c 0a 50 6f 73 69 74 69 ┆ove-point-to-x-y (x y) "\ Positi┆ 0x8e0…900 6f 6e 20 63 75 72 73 6f 72 20 69 6e 20 77 69 6e 64 6f 77 20 63 6f 6f 72 64 69 6e 61 74 65 73 2e ┆on cursor in window coordinates.┆ 0x900…920 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 65 72 20 70 ┆ X and Y are 0-based character p┆ 0x920…940 6f 73 69 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 ┆ositions in the window." (byte-c┆ 0x940…960 6f 64 65 20 22 c2 08 21 88 c3 09 21 87 22 20 5b 79 20 78 20 6d 6f 76 65 2d 74 6f 2d 77 69 6e 64 ┆ode " ! ! " [y x move-to-wind┆ 0x960…980 6f 77 2d 6c 69 6e 65 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 5d 20 33 29 29 0a 0a 28 64 65 ┆ow-line move-to-column] 3)) (de┆ 0x980…9a0 66 75 6e 20 62 67 2d 70 6f 73 2d 74 6f 2d 77 69 6e 64 6f 77 20 28 78 20 79 29 20 22 5c 0a 46 69 ┆fun bg-pos-to-window (x y) "\ Fi┆ 0x9a0…9c0 6e 64 20 77 69 6e 64 6f 77 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 73 63 72 65 65 ┆nd window corresponding to scree┆ 0x9c0…9e0 6e 20 63 6f 6f 72 64 69 6e 61 74 65 73 2e 0a 58 20 61 6e 64 20 59 20 61 72 65 20 30 2d 62 61 73 ┆n coordinates. X and Y are 0-bas┆ 0x9e0…a00 65 64 20 63 68 61 72 61 63 74 65 72 20 70 6f 73 69 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 73 63 ┆ed character positions on the sc┆ 0xa00…a20 72 65 65 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 20 c2 19 18 09 c6 20 3d 3f 85 2a 00 ┆reen." (byte-code " =? * ┆ 0xa20…a40 0b c7 08 38 57 86 2a 00 0b c8 08 38 59 86 2a 00 0c c9 08 38 57 86 2a 00 0c ca 08 38 59 85 3c 00 ┆ 8W * 8Y * 8W * 8Y < ┆ 0xa40…a60 cb 09 21 89 11 88 c5 09 21 89 10 88 82 05 00 88 09 86 43 00 c6 20 2a 87 22 20 5b 65 64 67 65 73 ┆ ! ! C * " [edges┆ 0xa60…a80 20 77 69 6e 64 6f 77 20 6e 69 6c 20 79 20 78 20 77 69 6e 64 6f 77 2d 65 64 67 65 73 20 73 65 6c ┆ window nil y x window-edges sel┆ 0xa80…aa0 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 31 20 33 20 30 20 32 20 6e 65 78 74 2d 77 69 6e 64 6f 77 ┆ected-window 1 3 0 2 next-window┆ 0xaa0…ac0 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 62 67 2d 70 72 6f 67 72 61 6d 2d 6d 6f 75 73 65 20 6e ┆] 7)) (defun bg-program-mouse n┆ 0xac0…ae0 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 73 65 6e 64 2d 73 74 72 69 6e ┆il (byte-code " ! " [send-strin┆ 0xae0…b00 67 2d 74 6f 2d 74 65 72 6d 69 6e 61 6c 20 22 1b 3a 30 3b 37 3b 3b 3b 33 36 30 3b 35 31 32 3b 39 ┆g-to-terminal " :0;7;;;360;512;9┆ 0xb00…b10 3b 31 36 3b 39 3b 31 36 63 22 5d 20 32 29 29 0a ┆;16;9;16c"] 2)) ┆