|
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: 18688 (0x4900)
Names: »sun-mouse-fns.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/sun-mouse-fns.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 2d 66 6e 73 29 29 ┆ (provide (quote sun-mouse-fns))┆ 0x0020…0040 0a 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 73 75 6e 2d 6d 6f 75 73 65 29 29 0a 0a 28 ┆ (require (quote sun-mouse)) (┆ 0x0040…0060 64 65 66 63 6f 6e 73 74 20 63 75 72 73 6f 72 2d 70 61 75 73 65 2d 6d 69 6c 6c 69 73 65 63 6f 6e ┆defconst cursor-pause-millisecon┆ 0x0060…0080 64 73 20 33 30 30 20 22 5c 0a 2a 4e 75 6d 62 65 72 20 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 ┆ds 300 "\ *Number of millisecond┆ 0x0080…00a0 73 20 74 6f 20 64 69 73 70 6c 61 79 20 61 6c 74 65 72 6e 61 74 65 20 63 75 72 73 6f 72 20 28 75 ┆s to display alternate cursor (u┆ 0x00a0…00c0 73 75 61 6c 6c 79 20 74 68 65 20 6d 61 72 6b 29 22 29 0a 0a 28 64 65 66 75 6e 20 69 6e 64 69 63 ┆sually the mark)") (defun indic┆ 0x00c0…00e0 61 74 65 2d 72 65 67 69 6f 6e 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 75 73 65 29 20 22 5c 0a ┆ate-region (&optional pause) "\ ┆ 0x00e0…0100 42 6f 75 6e 63 65 20 63 75 72 73 6f 72 20 74 6f 20 6d 61 72 6b 20 66 6f 72 20 63 75 72 73 6f 72 ┆Bounce cursor to mark for cursor┆ 0x0100…0120 2d 70 61 75 73 65 2d 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 20 61 6e 64 20 62 61 63 6b 20 61 67 61 ┆-pause-milliseconds and back aga┆ 0x0120…0140 69 6e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00 09 89 10 88 60 1a c3 20 62 88 c4 08 ┆in" (byte-code " ` b ┆ 0x0140…0160 21 88 0a 62 29 87 22 20 5b 70 61 75 73 65 20 63 75 72 73 6f 72 2d 70 61 75 73 65 2d 6d 69 6c 6c ┆! b) " [pause cursor-pause-mill┆ 0x0160…0180 69 73 65 63 6f 6e 64 73 20 70 6f 69 6e 74 20 6d 61 72 6b 20 73 69 74 2d 66 6f 72 2d 6d 69 6c 6c ┆iseconds point mark sit-for-mill┆ 0x0180…01a0 69 73 65 63 73 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6d 6f 76 65 2d 70 6f ┆isecs] 3)) (defun mouse-move-po┆ 0x01a0…01c0 69 6e 74 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 4d 6f 76 65 20 70 6f 69 6e 74 20 74 ┆int (window x y) "\ Move point t┆ 0x01c0…01e0 6f 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 08 21 ┆o mouse cursor." (byte-code " !┆ 0x01e0…0200 88 c6 09 0a 5c 22 88 0b c7 3e 85 12 00 c8 89 14 87 22 20 5b 77 69 6e 64 6f 77 20 78 20 79 20 6c ┆ \" > " [window x y l┆ 0x0200…0220 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 73 65 6c 65 63 74 2d ┆ast-command this-command select-┆ 0x0220…0240 77 69 6e 64 6f 77 20 6d 6f 76 65 2d 74 6f 2d 6c 6f 63 20 28 6d 6f 75 73 65 2d 63 6f 70 79 20 6d ┆window move-to-loc (mouse-copy m┆ 0x0240…0260 6f 75 73 65 2d 64 65 6c 65 74 65 20 6d 6f 75 73 65 2d 79 61 6e 6b 2d 6d 6f 76 65 29 20 6d 6f 75 ┆ouse-delete mouse-yank-move) mou┆ 0x0260…0280 73 65 2d 79 61 6e 6b 2d 6d 6f 76 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d ┆se-yank-move] 4)) (defun mouse-┆ 0x0280…02a0 73 65 74 2d 6d 61 72 6b 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 53 65 74 20 6d 61 72 ┆set-mark (window x y) "\ Set mar┆ 0x02a0…02c0 6b 20 61 74 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆k at mouse cursor." (byte-code "┆ 0x02c0…02e0 c5 20 18 c6 8e c7 09 21 88 60 1a c8 0b 0c 5c 22 88 c9 60 21 88 0a 62 88 ca 20 29 29 29 87 22 20 ┆ ! ` \" `! b ))) " ┆ 0x02e0…0300 5b 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 77 69 6e 64 6f 77 ┆[OriginallySelectedWindow window┆ 0x0300…0320 20 70 6f 69 6e 74 20 78 20 79 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 ┆ point x y selected-window ((byt┆ 0x0320…0340 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 ┆e-code " ! " [OriginallySelecte┆ 0x0340…0360 64 57 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 5d 20 32 29 29 20 73 65 6c 65 63 ┆dWindow select-window] 2)) selec┆ 0x0360…0380 74 2d 77 69 6e 64 6f 77 20 6d 6f 76 65 2d 74 6f 2d 6c 6f 63 20 73 65 74 2d 6d 61 72 6b 20 69 6e ┆t-window move-to-loc set-mark in┆ 0x0380…03a0 64 69 63 61 74 65 2d 72 65 67 69 6f 6e 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 ┆dicate-region] 6)) (defun mouse┆ 0x03a0…03c0 2d 73 65 74 2d 6d 61 72 6b 2d 61 6e 64 2d 73 65 6c 65 63 74 20 28 77 69 6e 64 6f 77 20 78 20 79 ┆-set-mark-and-select (window x y┆ 0x03c0…03e0 29 20 22 5c 0a 53 65 74 20 6d 61 72 6b 20 61 74 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2c 20 61 ┆) "\ Set mark at mouse cursor, a┆ 0x03e0…0400 6e 64 20 73 65 6c 65 63 74 20 74 68 61 74 20 77 69 6e 64 6f 77 2e 22 20 28 62 79 74 65 2d 63 6f ┆nd select that window." (byte-co┆ 0x0400…0420 64 65 20 22 c3 08 21 88 c4 08 09 0a 23 87 22 20 5b 77 69 6e 64 6f 77 20 78 20 79 20 73 65 6c 65 ┆de " ! # " [window x y sele┆ 0x0420…0440 63 74 2d 77 69 6e 64 6f 77 20 6d 6f 75 73 65 2d 73 65 74 2d 6d 61 72 6b 5d 20 35 29 29 0a 0a 28 ┆ct-window mouse-set-mark] 5)) (┆ 0x0440…0460 64 65 66 75 6e 20 6d 6f 75 73 65 2d 73 65 74 2d 6d 61 72 6b 2d 61 6e 64 2d 73 74 75 66 66 20 28 ┆defun mouse-set-mark-and-stuff (┆ 0x0460…0480 77 20 78 20 79 29 20 22 5c 0a 53 65 74 20 6d 61 72 6b 20 61 74 20 6d 6f 75 73 65 20 63 75 72 73 ┆w x y) "\ Set mark at mouse curs┆ 0x0480…04a0 6f 72 2c 20 61 6e 64 20 70 75 74 20 72 65 67 69 6f 6e 20 69 6e 20 73 74 75 66 66 20 62 75 66 66 ┆or, and put region in stuff buff┆ 0x04a0…04c0 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 0a 23 88 c4 c5 20 c6 20 5c 22 87 22 ┆er." (byte-code " # \" "┆ 0x04c0…04e0 20 5b 77 20 78 20 79 20 6d 6f 75 73 65 2d 73 65 74 2d 6d 61 72 6b 2d 61 6e 64 2d 73 65 6c 65 63 ┆ [w x y mouse-set-mark-and-selec┆ 0x04e0…0500 74 20 73 75 6e 2d 73 65 6c 65 63 74 2d 72 65 67 69 6f 6e 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e ┆t sun-select-region region-begin┆ 0x0500…0520 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d ┆ning region-end] 6)) (defvar *m┆ 0x0520…0540 6f 75 73 65 2d 64 72 61 67 2d 77 69 6e 64 6f 77 2a 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 ┆ouse-drag-window* nil) (defvar ┆ 0x0540…0560 2a 6d 6f 75 73 65 2d 64 72 61 67 2d 78 2a 20 2d 31 29 0a 0a 28 64 65 66 76 61 72 20 2a 6d 6f 75 ┆*mouse-drag-x* -1) (defvar *mou┆ 0x0560…0580 73 65 2d 64 72 61 67 2d 79 2a 20 2d 31 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 64 72 61 ┆se-drag-y* -1) (defun mouse-dra┆ 0x0580…05a0 67 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 4d 6f 76 ┆g-move-point (window x y) "\ Mov┆ 0x05a0…05c0 65 20 70 6f 69 6e 74 20 74 6f 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2c 20 61 6e 64 20 61 6c 6c ┆e point to mouse cursor, and all┆ 0x05c0…05e0 6f 77 20 64 72 61 67 67 69 6e 67 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 08 09 0a 23 88 ┆ow dragging." (byte-code " # ┆ 0x05e0…0600 08 13 09 14 0a 89 15 87 22 20 5b 77 69 6e 64 6f 77 20 78 20 79 20 2a 6d 6f 75 73 65 2d 64 72 61 ┆ " [window x y *mouse-dra┆ 0x0600…0620 67 2d 77 69 6e 64 6f 77 2a 20 2a 6d 6f 75 73 65 2d 64 72 61 67 2d 78 2a 20 2a 6d 6f 75 73 65 2d ┆g-window* *mouse-drag-x* *mouse-┆ 0x0620…0640 64 72 61 67 2d 79 2a 20 6d 6f 75 73 65 2d 6d 6f 76 65 2d 70 6f 69 6e 74 5d 20 34 29 29 0a 0a 28 ┆drag-y* mouse-move-point] 4)) (┆ 0x0640…0660 64 65 66 75 6e 20 6d 6f 75 73 65 2d 64 72 61 67 2d 73 65 74 2d 6d 61 72 6b 2d 73 74 75 66 66 20 ┆defun mouse-drag-set-mark-stuff ┆ 0x0660…0680 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 54 68 65 20 75 70 20 63 6c 69 63 6b 20 68 61 6e ┆(window x y) "\ The up click han┆ 0x0680…06a0 64 6c 65 72 20 74 68 61 74 20 67 6f 65 73 20 77 69 74 68 20 6d 6f 75 73 65 2d 64 72 61 67 2d 6d ┆dler that goes with mouse-drag-m┆ 0x06a0…06c0 6f 76 65 2d 70 6f 69 6e 74 2e 0a 49 66 20 6d 6f 75 73 65 20 69 73 20 69 6e 20 73 61 6d 65 20 57 ┆ove-point. If mouse is in same W┆ 0x06c0…06e0 49 4e 44 4f 57 20 62 75 74 20 61 74 20 64 69 66 66 65 72 65 6e 74 20 58 20 6f 72 20 59 20 74 68 ┆INDOW but at different X or Y th┆ 0x06e0…0700 61 6e 20 77 68 65 6e 0a 6d 6f 75 73 65 2d 64 72 61 67 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 77 61 ┆an when mouse-drag-move-point wa┆ 0x0700…0720 73 20 6c 61 73 74 20 65 78 65 63 75 74 65 64 2c 20 73 65 74 20 74 68 65 20 6d 61 72 6b 20 61 74 ┆s last executed, set the mark at┆ 0x0720…0740 20 6d 6f 75 73 65 0a 61 6e 64 20 70 75 74 20 74 68 65 20 72 65 67 69 6f 6e 20 69 6e 20 74 68 65 ┆ mouse and put the region in the┆ 0x0740…0760 20 73 74 75 66 66 20 62 75 66 66 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 3d 85 ┆ stuff buffer." (byte-code " = ┆ 0x0760…0780 12 00 c8 0a 0b 5c 22 85 11 00 c8 0c 0d 5c 22 3f 83 1d 00 c9 09 0b 0d 23 82 5c 22 00 0e 07 89 16 ┆ \" \"? # \" ┆ 0x0780…07a0 06 87 22 20 5b 2a 6d 6f 75 73 65 2d 64 72 61 67 2d 77 69 6e 64 6f 77 2a 20 77 69 6e 64 6f 77 20 ┆ " [*mouse-drag-window* window ┆ 0x07a0…07c0 2a 6d 6f 75 73 65 2d 64 72 61 67 2d 78 2a 20 78 20 2a 6d 6f 75 73 65 2d 64 72 61 67 2d 79 2a 20 ┆*mouse-drag-x* x *mouse-drag-y* ┆ 0x07c0…07e0 79 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 65 71 75 61 ┆y this-command last-command equa┆ 0x07e0…0800 6c 20 6d 6f 75 73 65 2d 73 65 74 2d 6d 61 72 6b 2d 61 6e 64 2d 73 74 75 66 66 5d 20 36 29 29 0a ┆l mouse-set-mark-and-stuff] 6)) ┆ 0x0800…0820 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 73 65 6c 65 63 74 2d 6f 72 2d 64 72 61 67 2d 6d 6f 76 ┆ (defun mouse-select-or-drag-mov┆ 0x0820…0840 65 2d 70 6f 69 6e 74 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 53 65 6c 65 63 74 20 77 ┆e-point (window x y) "\ Select w┆ 0x0840…0860 69 6e 64 6f 77 20 69 66 20 6e 6f 74 20 73 65 6c 65 63 74 65 64 2c 20 6f 74 68 65 72 77 69 73 65 ┆indow if not selected, otherwise┆ 0x0860…0880 20 64 6f 20 6d 6f 75 73 65 2d 64 72 61 67 2d 6d 6f 76 65 2d 70 6f 69 6e 74 2e 22 20 28 62 79 74 ┆ do mouse-drag-move-point." (byt┆ 0x0880…08a0 65 2d 63 6f 64 65 20 22 c3 20 08 3d 83 0f 00 c4 08 09 0a 23 82 14 00 c5 08 09 0a 23 87 22 20 5b ┆e-code " = # # " [┆ 0x08a0…08c0 77 69 6e 64 6f 77 20 78 20 79 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d 6f 75 73 65 ┆window x y selected-window mouse┆ 0x08c0…08e0 2d 64 72 61 67 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 6d 6f 75 73 65 2d 73 65 6c 65 63 74 2d 77 69 ┆-drag-move-point mouse-select-wi┆ 0x08e0…0900 6e 64 6f 77 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 65 78 63 68 2d 70 74 2d ┆ndow] 6)) (defun mouse-exch-pt-┆ 0x0900…0920 61 6e 64 2d 6d 61 72 6b 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 45 78 63 68 61 6e 67 ┆and-mark (window x y) "\ Exchang┆ 0x0920…0940 65 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 ┆e point and mark." (byte-code " ┆ 0x0940…0960 08 21 88 c2 20 87 22 20 5b 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 65 78 ┆ ! " [window select-window ex┆ 0x0960…0980 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d 61 6e 64 2d 6d 61 72 6b 5d 20 33 29 29 0a 0a 28 64 65 66 ┆change-point-and-mark] 3)) (def┆ 0x0980…09a0 75 6e 20 6d 6f 75 73 65 2d 63 61 6c 6c 2d 6b 62 64 2d 6d 61 63 72 6f 20 28 77 69 6e 64 6f 77 20 ┆un mouse-call-kbd-macro (window ┆ 0x09a0…09c0 78 20 79 29 20 22 5c 0a 49 6e 76 6f 6b 65 73 20 6c 61 73 74 20 6b 65 79 62 6f 61 72 64 20 6d 61 ┆x y) "\ Invokes last keyboard ma┆ 0x09c0…09e0 63 72 6f 20 61 74 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 ┆cro at mouse cursor." (byte-code┆ 0x09e0…0a00 20 22 c3 08 09 0a 23 88 c4 20 87 22 20 5b 77 69 6e 64 6f 77 20 78 20 79 20 6d 6f 75 73 65 2d 6d ┆ " # " [window x y mouse-m┆ 0x0a00…0a20 6f 76 65 2d 70 6f 69 6e 74 20 63 61 6c 6c 2d 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f 5d 20 34 ┆ove-point call-last-kbd-macro] 4┆ 0x0a20…0a40 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 28 77 69 6e ┆)) (defun mouse-mark-thing (win┆ 0x0a40…0a60 64 6f 77 20 78 20 79 29 20 22 5c 0a 53 65 74 20 70 6f 69 6e 74 20 61 6e 64 20 6d 61 72 6b 20 74 ┆dow x y) "\ Set point and mark t┆ 0x0a60…0a80 6f 20 74 65 78 74 20 6f 62 6a 65 63 74 20 75 73 69 6e 67 20 73 79 6e 74 61 78 20 74 61 62 6c 65 ┆o text object using syntax table┆ 0x0a80…0aa0 2e 0a 54 68 65 20 72 65 73 75 6c 74 69 6e 67 20 72 65 67 69 6f 6e 20 69 73 20 70 75 74 20 69 6e ┆. The resulting region is put in┆ 0x0aa0…0ac0 20 74 68 65 20 73 75 6e 2d 77 69 6e 64 6f 77 20 73 74 75 66 66 20 62 75 66 66 65 72 2e 0a 4c 65 ┆ the sun-window stuff buffer. Le┆ 0x0ac0…0ae0 66 74 20 6f 72 20 72 69 67 68 74 20 50 61 72 65 6e 20 73 79 6e 74 61 78 20 6d 61 72 6b 73 20 61 ┆ft or right Paren syntax marks a┆ 0x0ae0…0b00 6e 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 2e 20 20 0a 43 6c 69 63 6b 69 6e 67 20 61 74 20 74 68 ┆n s-expression. Clicking at th┆ 0x0b00…0b20 65 20 65 6e 64 20 6f 66 20 61 20 6c 69 6e 65 20 6d 61 72 6b 73 20 74 68 65 20 6c 69 6e 65 20 69 ┆e end of a line marks the line i┆ 0x0b20…0b40 6e 63 6c 75 64 69 6e 67 20 61 20 74 72 61 69 6c 69 6e 67 20 6e 65 77 6c 69 6e 65 2e 20 20 0a 49 ┆ncluding a trailing newline. I┆ 0x0b40…0b60 66 20 69 74 20 64 6f 65 73 6e 27 74 20 72 65 63 6f 67 6e 69 7a 65 20 6f 6e 65 20 6f 66 20 74 68 ┆f it doesn't recognize one of th┆ 0x0b60…0b80 65 73 65 20 69 74 20 6d 61 72 6b 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 61 74 20 70 6f ┆ese it marks the character at po┆ 0x0b80…0ba0 69 6e 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 08 09 0a 23 88 6d 85 0d 00 c7 c8 21 88 ┆int." (byte-code " # m ! ┆ 0x0ba0…0bc0 60 66 1b c9 0b 21 1c 0c ca 3d 83 29 00 cb c8 21 88 cc 60 21 88 cb cd 21 82 5b 00 0c ce 3d 83 35 ┆`f ! = ) ! `! ! [ = 5┆ 0x0bc0…0be0 00 cf c8 21 82 5b 00 0c d0 3d 83 48 00 d1 c8 21 88 cf cd 21 88 d2 20 82 5b 00 6c 83 57 00 cc 60 ┆ ! [ = H ! ! [ l W `┆ 0x0be0…0c00 54 21 88 d3 c8 21 82 5b 00 cc 60 54 21 88 d4 20 2a 88 d5 d6 20 d7 20 5c 22 87 22 20 5b 77 69 6e ┆T! ! [ `T! * \" " [win┆ 0x0c00…0c20 64 6f 77 20 78 20 79 20 63 68 61 72 20 73 79 6e 74 61 78 20 74 20 6d 6f 75 73 65 2d 6d 6f 76 65 ┆dow x y char syntax t mouse-move┆ 0x0c20…0c40 2d 70 6f 69 6e 74 20 6f 70 65 6e 2d 6c 69 6e 65 20 31 20 63 68 61 72 2d 73 79 6e 74 61 78 20 31 ┆-point open-line 1 char-syntax 1┆ 0x0c40…0c60 31 39 20 66 6f 72 77 61 72 64 2d 77 6f 72 64 20 73 65 74 2d 6d 61 72 6b 20 2d 31 20 34 30 20 6d ┆19 forward-word set-mark -1 40 m┆ 0x0c60…0c80 61 72 6b 2d 73 65 78 70 20 34 31 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 65 78 63 68 61 6e 67 ┆ark-sexp 41 forward-char exchang┆ 0x0c80…0ca0 65 2d 70 6f 69 6e 74 2d 61 6e 64 2d 6d 61 72 6b 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 ┆e-point-and-mark beginning-of-li┆ 0x0ca0…0cc0 6e 65 20 69 6e 64 69 63 61 74 65 2d 72 65 67 69 6f 6e 20 73 75 6e 2d 73 65 6c 65 63 74 2d 72 65 ┆ne indicate-region sun-select-re┆ 0x0cc0…0ce0 67 69 6f 6e 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 ┆gion region-beginning region-end┆ 0x0ce0…0d00 5d 20 31 39 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6b 69 6c 6c 2d 74 68 69 6e 67 20 ┆] 19)) (defun mouse-kill-thing ┆ 0x0d00…0d20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 4b 69 6c 6c 20 74 68 69 6e 67 20 61 74 20 6d 6f ┆(window x y) "\ Kill thing at mo┆ 0x0d20…0d40 75 73 65 2c 20 61 6e 64 20 70 75 74 20 70 6f 69 6e 74 20 74 68 65 72 65 2e 22 20 28 62 79 74 65 ┆use, and put point there." (byte┆ 0x0d40…0d60 2d 63 6f 64 65 20 22 c3 08 09 0a 23 88 c4 c5 20 c6 20 5c 22 87 22 20 5b 77 69 6e 64 6f 77 20 78 ┆-code " # \" " [window x┆ 0x0d60…0d80 20 79 20 6d 6f 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 2d ┆ y mouse-mark-thing kill-region-┆ 0x0d80…0da0 61 6e 64 2d 75 6e 6d 61 72 6b 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 20 72 65 67 69 ┆and-unmark region-beginning regi┆ 0x0da0…0dc0 6f 6e 2d 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6b 69 6c 6c 2d 74 ┆on-end] 6)) (defun mouse-kill-t┆ 0x0dc0…0de0 68 69 6e 67 2d 74 68 65 72 65 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 4b 69 6c 6c 20 ┆hing-there (window x y) "\ Kill ┆ 0x0de0…0e00 74 68 69 6e 67 20 61 74 20 6d 6f 75 73 65 2c 20 6c 65 61 76 65 20 70 6f 69 6e 74 20 77 68 65 72 ┆thing at mouse, leave point wher┆ 0x0e00…0e20 65 20 69 74 20 77 61 73 2e 0a 53 65 65 20 6d 6f 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 66 ┆e it was. See mouse-mark-thing f┆ 0x0e20…0e40 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 73 20 ┆or a description of the objects ┆ 0x0e40…0e60 72 65 63 6f 67 6e 69 7a 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 20 18 c5 8e c6 09 ┆recognized." (byte-code " ┆ 0x0e60…0e80 21 88 8a c7 09 0a 0b 23 88 c8 c9 20 ca 20 5c 22 29 29 29 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c ┆! # \"))) " [Originall┆ 0x0e80…0ea0 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 77 69 6e 64 6f 77 20 78 20 79 20 73 65 6c 65 63 ┆ySelectedWindow window x y selec┆ 0x0ea0…0ec0 74 65 64 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 4f ┆ted-window ((byte-code " ! " [O┆ 0x0ec0…0ee0 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 57 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 ┆riginallySelectedWindow select-w┆ 0x0ee0…0f00 69 6e 64 6f 77 5d 20 32 29 29 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 6d 6f 75 73 65 2d 6d ┆indow] 2)) select-window mouse-m┆ 0x0f00…0f20 61 72 6b 2d 74 68 69 6e 67 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e 20 72 65 67 69 6f 6e 2d 62 65 67 ┆ark-thing kill-region region-beg┆ 0x0f20…0f40 69 6e 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 6d ┆inning region-end] 8)) (defun m┆ 0x0f40…0f60 6f 75 73 65 2d 73 61 76 65 2d 74 68 69 6e 67 20 28 77 69 6e 64 6f 77 20 78 20 79 20 26 6f 70 74 ┆ouse-save-thing (window x y &opt┆ 0x0f60…0f80 69 6f 6e 61 6c 20 71 75 69 65 74 29 20 22 5c 0a 50 75 74 20 74 68 69 6e 67 20 61 74 20 6d 6f 75 ┆ional quiet) "\ Put thing at mou┆ 0x0f80…0fa0 73 65 20 69 6e 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 53 65 65 20 6d 6f 75 73 65 2d 6d 61 72 6b 2d ┆se in kill ring. See mouse-mark-┆ 0x0fa0…0fc0 74 68 69 6e 67 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 20 6f ┆thing for a description of the o┆ 0x0fc0…0fe0 62 6a 65 63 74 73 20 72 65 63 6f 67 6e 69 7a 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆bjects recognized." (byte-code "┆ 0x0fe0…1000 c4 08 09 0a 23 88 c5 c6 20 c7 20 5c 22 88 0b 3f 85 15 00 c8 c9 21 87 22 20 5b 77 69 6e 64 6f 77 ┆ # \" ? ! " [window┆ 0x1000…1020 20 78 20 79 20 71 75 69 65 74 20 6d 6f 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 63 6f 70 79 ┆ x y quiet mouse-mark-thing copy┆ 0x1020…1040 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 ┆-region-as-kill region-beginning┆ 0x1040…1060 20 72 65 67 69 6f 6e 2d 65 6e 64 20 6d 65 73 73 61 67 65 20 22 54 68 69 6e 67 20 73 61 76 65 64 ┆ region-end message "Thing saved┆ 0x1060…1080 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 73 61 76 65 2d 74 68 69 6e 67 2d ┆"] 6)) (defun mouse-save-thing-┆ 0x1080…10a0 74 68 65 72 65 20 28 77 69 6e 64 6f 77 20 78 20 79 20 26 6f 70 74 69 6f 6e 61 6c 20 71 75 69 65 ┆there (window x y &optional quie┆ 0x10a0…10c0 74 29 20 22 5c 0a 50 75 74 20 74 68 69 6e 67 20 61 74 20 6d 6f 75 73 65 20 69 6e 20 6b 69 6c 6c ┆t) "\ Put thing at mouse in kill┆ 0x10c0…10e0 20 72 69 6e 67 2c 20 6c 65 61 76 65 20 70 6f 69 6e 74 20 61 73 20 69 73 2e 0a 53 65 65 20 6d 6f ┆ ring, leave point as is. See mo┆ 0x10e0…1100 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e ┆use-mark-thing for a description┆ 0x1100…1120 20 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 73 20 72 65 63 6f 67 6e 69 7a 65 64 2e 22 20 28 62 79 ┆ of the objects recognized." (by┆ 0x1120…1140 74 65 2d 63 6f 64 65 20 22 c5 20 18 c6 8e c7 09 21 88 8a c8 09 0a 0b 0c 24 29 29 29 87 22 20 5b ┆te-code " ! $))) " [┆ 0x1140…1160 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 77 69 6e 64 6f 77 20 ┆OriginallySelectedWindow window ┆ 0x1160…1180 78 20 79 20 71 75 69 65 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 28 62 79 74 65 ┆x y quiet selected-window ((byte┆ 0x1180…11a0 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 4f 72 69 67 69 6e 61 6c 6c 79 53 65 6c 65 63 74 65 64 ┆-code " ! " [OriginallySelected┆ 0x11a0…11c0 57 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 5d 20 32 29 29 20 73 65 6c 65 63 74 ┆Window select-window] 2)) select┆ 0x11c0…11e0 2d 77 69 6e 64 6f 77 20 6d 6f 75 73 65 2d 73 61 76 65 2d 74 68 69 6e 67 5d 20 37 29 29 0a 0a 28 ┆-window mouse-save-thing] 7)) (┆ 0x11e0…1200 64 65 66 75 6e 20 6d 6f 75 73 65 2d 63 6f 70 79 2d 74 68 69 6e 67 20 28 77 69 6e 64 6f 77 20 78 ┆defun mouse-copy-thing (window x┆ 0x1200…1220 20 79 29 20 22 5c 0a 50 75 74 20 74 68 69 6e 67 20 61 74 20 6d 6f 75 73 65 20 69 6e 20 6b 69 6c ┆ y) "\ Put thing at mouse in kil┆ 0x1220…1240 6c 20 72 69 6e 67 2c 20 79 61 6e 6b 20 74 6f 20 70 6f 69 6e 74 2e 0a 53 65 65 20 6d 6f 75 73 65 ┆l ring, yank to point. See mouse┆ 0x1240…1260 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 ┆-mark-thing for a description of┆ 0x1260…1280 20 74 68 65 20 6f 62 6a 65 63 74 73 20 72 65 63 6f 67 6e 69 7a 65 64 2e 22 20 28 62 79 74 65 2d ┆ the objects recognized." (byte-┆ 0x1280…12a0 63 6f 64 65 20 22 c6 89 10 88 c7 09 0a 0b c4 24 88 c8 20 88 c8 89 15 87 22 20 5b 6c 61 73 74 2d ┆code " $ " [last-┆ 0x12a0…12c0 63 6f 6d 6d 61 6e 64 20 77 69 6e 64 6f 77 20 78 20 79 20 74 20 74 68 69 73 2d 63 6f 6d 6d 61 6e ┆command window x y t this-comman┆ 0x12c0…12e0 64 20 6e 6f 74 2d 6b 69 6c 6c 20 6d 6f 75 73 65 2d 73 61 76 65 2d 74 68 69 6e 67 2d 74 68 65 72 ┆d not-kill mouse-save-thing-ther┆ 0x12e0…1300 65 20 79 61 6e 6b 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 6d 6f 76 65 2d 74 ┆e yank] 5)) (defun mouse-move-t┆ 0x1300…1320 68 69 6e 67 20 28 77 69 6e 64 6f 77 20 78 20 79 29 20 22 5c 0a 4b 69 6c 6c 20 74 68 69 6e 67 20 ┆hing (window x y) "\ Kill thing ┆ 0x1320…1340 61 74 20 6d 6f 75 73 65 2c 20 79 61 6e 6b 20 69 74 20 74 6f 20 70 6f 69 6e 74 2e 0a 53 65 65 20 ┆at mouse, yank it to point. See ┆ 0x1340…1360 6d 6f 75 73 65 2d 6d 61 72 6b 2d 74 68 69 6e 67 20 66 6f 72 20 61 20 64 65 73 63 72 69 70 74 69 ┆mouse-mark-thing for a descripti┆ 0x1360…1380 6f 6e 20 6f 66 20 74 68 65 20 6f 62 6a 65 63 74 73 20 72 65 63 6f 67 6e 69 7a 65 64 2e 22 20 28 ┆on of the objects recognized." (┆ 0x1380…13a0 62 79 74 65 2d 63 6f 64 65 20 22 c5 89 10 88 c6 09 0a 0b 23 88 c7 20 88 c7 89 14 87 22 20 5b 6c ┆byte-code " # " [l┆ 0x13a0…13c0 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 77 69 6e 64 6f 77 20 78 20 79 20 74 68 69 73 2d 63 6f 6d 6d ┆ast-command window x y this-comm┆ 0x13c0…13e0 61 6e 64 20 6e 6f 74 2d 6b 69 6c 6c 20 6d 6f 75 73 65 2d 6b 69 6c 6c 2d 74 68 69 6e 67 2d 74 68 ┆and not-kill mouse-kill-thing-th┆ 0x13e0…1400 65 72 65 20 79 61 6e 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 79 61 6e 6b ┆ere yank] 4)) (defun mouse-yank┆ 0x1400…1420 2d 61 74 2d 70 6f 69 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 77 69 6e 64 6f 77 20 78 20 79 29 ┆-at-point (&optional window x y)┆ 0x1420…1440 20 22 5c 0a 59 61 6e 6b 20 66 72 6f 6d 20 6b 69 6c 6c 2d 72 69 6e 67 20 61 74 20 70 6f 69 6e 74 ┆ "\ Yank from kill-ring at point┆ 0x1440…1460 3b 20 74 68 65 6e 20 63 79 63 6c 65 20 74 68 72 75 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 20 28 62 ┆; then cycle thru kill ring." (b┆ 0x1460…1480 79 74 65 2d 63 6f 64 65 20 22 08 c4 3d 83 23 00 60 c5 20 57 19 c6 60 c5 20 5c 22 88 c7 c8 21 88 ┆yte-code " = # ` W ` \" ! ┆ 0x1480…14a0 0a 40 63 88 09 85 1f 00 c9 20 29 82 25 00 c4 20 88 c4 89 13 87 22 20 5b 6c 61 73 74 2d 63 6f 6d ┆ @c ) % " [last-com┆ 0x14a0…14c0 6d 61 6e 64 20 62 65 66 6f 72 65 20 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 ┆mand before kill-ring-yank-point┆ 0x14c0…14e0 65 72 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 79 61 6e 6b 20 6d 61 72 6b 20 64 65 6c 65 74 65 ┆er this-command yank mark delete┆ 0x14e0…1500 2d 72 65 67 69 6f 6e 20 72 6f 74 61 74 65 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 20 31 20 65 78 ┆-region rotate-yank-pointer 1 ex┆ 0x1500…1520 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d 61 6e 64 2d 6d 61 72 6b 5d 20 38 29 29 0a 0a 28 64 65 66 ┆change-point-and-mark] 8)) (def┆ 0x1520…1540 75 6e 20 6d 6f 75 73 65 2d 79 61 6e 6b 2d 61 74 2d 6d 6f 75 73 65 20 28 77 69 6e 64 6f 77 20 78 ┆un mouse-yank-at-mouse (window x┆ 0x1540…1560 20 79 29 20 22 5c 0a 59 61 6e 6b 20 66 72 6f 6d 20 6b 69 6c 6c 2d 72 69 6e 67 20 61 74 20 6d 6f ┆ y) "\ Yank from kill-ring at mo┆ 0x1560…1580 75 73 65 3b 20 74 68 65 6e 20 63 79 63 6c 65 20 74 68 72 75 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 ┆use; then cycle thru kill ring."┆ 0x1580…15a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 09 0a 23 88 c4 08 09 0a 23 87 22 20 5b 77 69 6e 64 ┆ (byte-code " # # " [wind┆ 0x15a0…15c0 6f 77 20 78 20 79 20 6d 6f 75 73 65 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 6d 6f 75 73 65 2d 79 61 ┆ow x y mouse-move-point mouse-ya┆ 0x15c0…15e0 6e 6b 2d 61 74 2d 70 6f 69 6e 74 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 6f 75 73 65 2d 73 ┆nk-at-point] 5)) (defun mouse-s┆ 0x15e0…1600 61 76 65 2f 64 65 6c 65 74 65 2f 79 61 6e 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 77 69 6e 64 6f ┆ave/delete/yank (&optional windo┆ 0x1600…1620 77 20 78 20 79 29 20 22 5c 0a 43 6f 6e 74 65 78 74 20 73 65 6e 73 69 74 69 76 65 20 73 61 76 65 ┆w x y) "\ Context sensitive save┆ 0x1620…1640 2f 64 65 6c 65 74 65 2f 79 61 6e 6b 2e 0a 43 6f 6e 73 65 63 75 74 69 76 65 20 63 6c 69 63 6b 73 ┆/delete/yank. Consecutive clicks┆ 0x1640…1660 20 70 65 72 66 6f 72 6d 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 20 20 20 20 2a 20 66 69 72 73 74 ┆ perform as follows: * first┆ 0x1660…1680 20 63 6c 69 63 6b 20 73 61 76 65 73 20 72 65 67 69 6f 6e 20 74 6f 20 6b 69 6c 6c 20 72 69 6e 67 ┆ click saves region to kill ring┆ 0x1680…16a0 2c 0a 20 20 20 20 2a 20 73 65 63 6f 6e 64 20 63 6c 69 63 6b 20 6b 69 6c 6c 73 20 72 65 67 69 6f ┆, * second click kills regio┆ 0x16a0…16c0 6e 2c 0a 20 20 20 20 2a 20 74 68 69 72 64 20 63 6c 69 63 6b 20 79 61 6e 6b 73 20 66 72 6f 6d 20 ┆n, * third click yanks from ┆ 0x16c0…16e0 6b 69 6c 6c 20 72 69 6e 67 2c 0a 20 20 20 20 2a 20 73 75 62 73 65 71 75 65 6e 74 20 63 6c 69 63 ┆kill ring, * subsequent clic┆ 0x16e0…1700 6b 73 20 63 79 63 6c 65 20 74 68 72 75 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 49 66 20 6d 6f 75 73 ┆ks cycle thru kill ring. If mous┆ 0x1700…1720 65 2d 6d 6f 76 65 2d 70 6f 69 6e 74 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 61 66 74 65 72 20 ┆e-move-point is performed after ┆ 0x1720…1740 74 68 65 20 66 69 72 73 74 20 6f 72 20 73 65 63 6f 6e 64 20 63 6c 69 63 6b 2c 0a 74 68 65 20 6e ┆the first or second click, the n┆ 0x1740…1760 65 78 74 20 63 6c 69 63 6b 20 77 69 6c 6c 20 64 6f 20 61 20 79 61 6e 6b 2c 20 65 74 63 2e 20 20 ┆ext click will do a yank, etc. ┆ 0x1760…1780 45 78 63 65 70 74 20 66 6f 72 20 61 20 70 6f 73 73 69 62 6c 65 20 6d 6f 75 73 65 2d 6d 6f 76 65 ┆Except for a possible mouse-move┆ 0x1780…17a0 2d 70 6f 69 6e 74 2c 0a 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 69 6e 73 65 6e 73 69 74 ┆-point, this command is insensit┆ 0x17a0…17c0 69 76 65 20 74 6f 20 6d 6f 75 73 65 20 6c 6f 63 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f ┆ive to mouse location." (byte-co┆ 0x17c0…17e0 64 65 20 22 08 c3 3e 83 0b 00 c4 20 82 2c 00 08 c5 3d 83 1e 00 c6 c7 20 c8 20 5c 22 88 c9 89 11 ┆de " > , = \" ┆ 0x17e0…1800 82 2c 00 ca c7 20 c8 20 5c 22 88 cb cc 21 88 c5 89 11 87 22 20 5b 6c 61 73 74 2d 63 6f 6d 6d 61 ┆ , \" ! " [last-comma┆ 0x1800…1820 6e 64 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 74 20 28 6d 6f 75 73 65 2d 64 65 6c 65 74 65 20 ┆nd this-command t (mouse-delete ┆ 0x1820…1840 79 61 6e 6b 20 6d 6f 75 73 65 2d 79 61 6e 6b 2d 6d 6f 76 65 29 20 6d 6f 75 73 65 2d 79 61 6e 6b ┆yank mouse-yank-move) mouse-yank┆ 0x1840…1860 2d 61 74 2d 70 6f 69 6e 74 20 6d 6f 75 73 65 2d 63 6f 70 79 20 6b 69 6c 6c 2d 72 65 67 69 6f 6e ┆-at-point mouse-copy kill-region┆ 0x1860…1880 20 72 65 67 69 6f 6e 2d 62 65 67 69 6e 6e 69 6e 67 20 72 65 67 69 6f 6e 2d 65 6e 64 20 6d 6f 75 ┆ region-beginning region-end mou┆ 0x1880…18a0 73 65 2d 64 65 6c 65 74 65 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 20 6d 65 ┆se-delete copy-region-as-kill me┆ 0x18a0…18c0 73 73 61 67 65 20 22 52 65 67 69 6f 6e 20 73 61 76 65 64 22 5d 20 31 30 29 29 0a 0a 28 64 65 66 ┆ssage "Region saved"] 10)) (def┆ 0x18c0…18e0 75 6e 20 6d 6f 75 73 65 2d 73 70 6c 69 74 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 28 77 69 6e ┆un mouse-split-horizontally (win┆ 0x18e0…1900 64 6f 77 20 78 20 79 29 20 22 5c 0a 53 70 6c 69 74 73 20 74 68 65 20 77 69 6e 64 6f 77 20 68 6f ┆dow x y) "\ Splits the window ho┆ 0x1900…1920 72 69 7a 6f 6e 74 61 6c 6c 79 20 61 74 20 6d 6f 75 73 65 20 63 75 72 73 6f 72 2e 22 20 28 62 79 ┆rizontally at mouse cursor." (by┆ […truncated at 200 lines…]