⟦ed7629a9b⟧

Hex Dump

0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 75 6e 2d 66 6e 73 29 29 0a 0a 28 72 65 71   ┆ (provide (quote sun-fns))  (req┆
0x0020…0040 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 64 65 66 63 6f 6e   ┆uire (quote sun-mouse))  (defcon┆
0x0040…0060 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 64 73 20 33 30 30   ┆st cursor-pause-milliseconds 300┆
0x0060…0080 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 73 20 74 6f 20 64   ┆ "\ *Number of milliseconds to d┆
0x0080…00a0 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 73 75 61 6c 6c 79   ┆isplay alternate cursor (usually┆
0x00a0…00c0 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 61 74 65 2d 72 65   ┆ the mark)")  (defun indicate-re┆
0x00c0…00e0 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 42 6f 75 6e 63 65   ┆gion (&optional pause) "\ Bounce┆
0x00e0…0100 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 2d 70 61 75 73 65   ┆ cursor to mark for cursor-pause┆
0x0100…0120 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 69 6e 22 20 28 62   ┆-milliseconds and back again" (b┆
0x0120…0140 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 21 88 0a 62 29 87   ┆yte-code "        `   b   !  b) ┆
0x0140…0160 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 69 73 65 63 6f 6e   ┆" [pause cursor-pause-millisecon┆
0x0160…0180 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 69 73 65 63 73 5d   ┆ds point mark sit-for-millisecs]┆
0x0180…01a0 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 69 6e 74 20 28 77   ┆ 3))  (defun mouse-move-point (w┆
0x01a0…01c0 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 6f 20 6d 6f 75 73   ┆indow x y) "\ Move point to mous┆
0x01c0…01e0 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 88 c6 09 0a 5c 22   ┆e cursor." (byte-code "  !    \"┆
0x01e0…0200 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 61 73 74 2d 63 6f   ┆   >       " [window x y last-co┆
0x0200…0220 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 77 69 6e 64 6f 77   ┆mmand this-command select-window┆
0x0220…0240 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 6f 75 73 65 2d 64   ┆ move-to-loc (mouse-copy mouse-d┆
0x0240…0260 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 73 65 2d 79 61 6e   ┆elete mouse-yank-move) mouse-yan┆
0x0260…0280 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 73 65 74 2d 6d 61   ┆k-move] 4))  (defun mouse-set-ma┆
0x0280…02a0 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 6b 20 61 74 20 6d   ┆rk (window x y) "\ Set mark at m┆
0x02a0…02c0 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 20 18 c6 8e c7   ┆ouse cursor." (byte-code "      ┆
0x02c0…02e0 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 5b 4f 72 69 67 69   ┆ ! `    \"  `!  b   ))) " [Origi┆
0x02e0…0300 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 70 6f 69 6e 74   ┆nallySelectedWindow window point┆
0x0300…0320 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 65 2d 63 6f 64 65   ┆ x y selected-window ((byte-code┆
0x0320…0340 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 57 69 6e 64 6f   ┆ "  ! " [OriginallySelectedWindo┆
0x0340…0360 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 2d 77 69 6e 64   ┆w select-window] 2)) select-wind┆
0x0360…0380 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 64 69 63 61 74 65   ┆ow move-to-loc set-mark indicate┆
0x0380…03a0 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 2d 73 65 74 2d 6d   ┆-region] 6))  (defun mouse-set-m┆
0x03a0…03c0 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 29 20 22 5c 0a 53   ┆ark-and-select (window x y) "\ S┆
0x03c0…03e0 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 6e 64 20 73 65 6c   ┆et mark at mouse cursor, and sel┆
0x03e0…0400 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 64 65 20 22 c3 08   ┆ect that window." (byte-code "  ┆
0x0400…0420 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 63 74 2d 77 69 6e   ┆!     # " [window x y select-win┆
0x0420…0440 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 64 65 66 75 6e 20   ┆dow mouse-set-mark] 5))  (defun ┆
0x0440…0460 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 77 20 78 20 79 29   ┆mouse-set-mark-and-stuff (w x y)┆
0x0460…0480 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 6e   ┆ "\ Set mark at mouse cursor, an┆
0x0480…04a0 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 65 72 2e 22 20 28   ┆d put region in stuff buffer." (┆
0x04a0…04c0 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 20 5b 77 20 78 20   ┆byte-code "    #      \" " [w x ┆
0x04c0…04e0 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 74 20 73 75 6e 2d   ┆y mouse-set-mark-and-select sun-┆
0x04e0…0500 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 6e 69 6e 67 20 72   ┆select-region region-beginning r┆
0x0500…0520 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 6f 75 73 65 2d 64   ┆egion-end] 6))  (defvar *mouse-d┆
0x0520…0540 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 2a 6d 6f 75 73 65   ┆rag-window* nil)  (defvar *mouse┆
0x0540…0560 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 73 65 2d 64 72 61   ┆-drag-x* -1)  (defvar *mouse-dra┆
0x0560…0580 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 67 2d 6d 6f 76 65   ┆g-y* -1)  (defun mouse-drag-move┆
0x0580…05a0 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 65 20 70 6f 69 6e   ┆-point (window x y) "\ Move poin┆
0x05a0…05c0 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 6f 77 20 64 72 61   ┆t to mouse cursor, and allow dra┆
0x05c0…05e0 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 08 13 09 14 0a 89   ┆gging." (byte-code "    #       ┆
0x05e0…0600 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 67 2d 77 69 6e 64   ┆  " [window x y *mouse-drag-wind┆
0x0600…0620 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 64 72 61 67 2d 79   ┆ow* *mouse-drag-x* *mouse-drag-y┆
0x0620…0640 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 64 65 66 75 6e 20   ┆* mouse-move-point] 4))  (defun ┆
0x0640…0660 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 28 77 69 6e 64 6f   ┆mouse-drag-set-mark-stuff (windo┆
0x0660…0680 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 64 6c 65 72 20 74   ┆w x y) "\ The up click handler t┆
0x0680…06a0 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 6f 76 65 2d 70 6f   ┆hat goes with mouse-drag-move-po┆
0x06a0…06c0 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 49 4e 44 4f 57 20   ┆int. If mouse is in same WINDOW ┆
0x06c0…06e0 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 61 6e 20 77 68 65   ┆but at different X or Y than whe┆
0x06e0…0700 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 73 20 6c 61 73 74   ┆n mouse-drag-move-point was last┆
0x0700…0720 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 20 6d 6f 75 73 65   ┆ executed, set the mark at mouse┆
0x0720…0740 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 20 73 74 75 66 66   ┆ and put the region in the stuff┆
0x0740…0760 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 12 00 c8 0a 0b 5c   ┆ buffer." (byte-code "  =      \┆
0x0760…0780 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 06 87 22 20 5b 2a   ┆"      \"?       # \"       " [*┆
0x0780…07a0 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 2a 6d 6f 75 73 65   ┆mouse-drag-window* window *mouse┆
0x07a0…07c0 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 79 20 74 68 69 73   ┆-drag-x* x *mouse-drag-y* y this┆
0x07c0…07e0 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 6c 20 6d 6f 75 73   ┆-command last-command equal mous┆
0x07e0…0800 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 0a 28 64 65 66 75   ┆e-set-mark-and-stuff] 6))  (defu┆
0x0800…0820 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 65 2d 70 6f 69 6e   ┆n mouse-select-or-drag-move-poin┆
0x0820…0840 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 69 6e 64 6f 77 20   ┆t (window x y) "\ Select window ┆
0x0840…0860 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 20 64 6f 20 6d 6f   ┆if not selected, otherwise do mo┆
0x0860…0880 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 65 2d 63 6f 64 65   ┆use-drag-move-point." (byte-code┆
0x0880…08a0 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 77 69 6e 64 6f 77   ┆ "   =       #       # " [window┆
0x08a0…08c0 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 2d 64 72 61 67 2d   ┆ x y selected-window mouse-drag-┆
0x08c0…08e0 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 6e 64 6f 77 5d 20   ┆move-point mouse-select-window] ┆
0x08e0…0900 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 61 6e 64 2d 6d 61   ┆6))  (defun mouse-exch-pt-and-ma┆
0x0900…0920 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 65 20 70 6f 69 6e   ┆rk (window x y) "\ Exchange poin┆
0x0920…0940 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 08 21 88 c2 20 87   ┆t and mark." (byte-code "  !    ┆
0x0940…0960 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 63 68 61 6e 67 65   ┆" [window select-window exchange┆
0x0960…0980 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 75 6e 20 6d 6f 75   ┆-point-and-mark] 3))  (defun mou┆
0x0980…09a0 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 78 20 79 29 20 22   ┆se-call-kbd-macro (window x y) "┆
0x09a0…09c0 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 63 72 6f 20 61 74   ┆\ Invokes last keyboard macro at┆
0x09c0…09e0 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 c3 08 09 0a   ┆ mouse cursor." (byte-code "    ┆
0x09e0…0a00 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 6f 76 65 2d 70 6f   ┆#    " [window x y mouse-move-po┆
0x0a00…0a20 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 29 29 0a 0a 28 64   ┆int call-last-kbd-macro] 4))  (d┆
0x0a20…0a40 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 64 6f 77 20 78 20   ┆efun mouse-mark-thing (window x ┆
0x0a40…0a60 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 6f 20 74 65 78 74   ┆y) "\ Set point and mark to text┆
0x0a60…0a80 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 2e 0a 54 68 65 20   ┆ object using syntax table. The ┆
0x0a80…0aa0 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 20 74 68 65 20 73   ┆resulting region is put in the s┆
0x0aa0…0ac0 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 66 74 20 6f 72 20   ┆un-window stuff buffer. Left or ┆
0x0ac0…0ae0 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 6e 20 73 2d 65 78   ┆right Paren syntax marks an s-ex┆
0x0ae0…0b00 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 65 20 65 6e 64 20   ┆pression.   Clicking at the end ┆
0x0b00…0b20 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 6e 63 6c 75 64 69   ┆of a line marks the line includi┆
0x0b20…0b40 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 66 20 69 74 20 64   ┆ng a trailing newline.   If it d┆
0x0b40…0b60 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 65 73 65 20 69 74   ┆oesn't recognize one of these it┆
0x0b60…0b80 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 69 6e 74 2e 22 20   ┆ marks the character at point." ┆
0x0b80…0ba0 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 60 66 1b c9 0b 21   ┆(byte-code "    # m     ! `f   !┆
0x0ba0…0bc0 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 00 cf c8 21 82 5b   ┆   = )   !  `!   ! [   = 5   ! [┆
0x0bc0…0be0 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 54 21 88 d3 c8 21   ┆   = H   !   !    [ l W  `T!   !┆
0x0be0…0c00 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 64 6f 77 20 78 20   ┆ [  `T!   *      \" " [window x ┆
0x0c00…0c20 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 2d 70 6f 69 6e 74   ┆y char syntax t mouse-move-point┆
0x0c20…0c40 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 31 39 20 66 6f 72   ┆ open-line 1 char-syntax 119 for┆
0x0c40…0c60 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 61 72 6b 2d 73 65   ┆ward-word set-mark -1 40 mark-se┆
0x0c60…0c80 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 65 2d 70 6f 69 6e   ┆xp 41 forward-char exchange-poin┆
0x0c80…0ca0 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 6e 65 20 69 6e 64   ┆t-and-mark beginning-of-line ind┆
0x0ca0…0cc0 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 67 69 6f 6e 20 72   ┆icate-region sun-select-region r┆
0x0cc0…0ce0 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 5d 20 31 39 29 29   ┆egion-beginning region-end] 19))┆
0x0ce0…0d00 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 28 77 69 6e 64 6f   ┆  (defun mouse-kill-thing (windo┆
0x0d00…0d20 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 75 73 65 2c 20 61   ┆w x y) "\ Kill thing at mouse, a┆
0x0d20…0d40 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 2d 63 6f 64 65 20   ┆nd put point there." (byte-code ┆
0x0d40…0d60 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 20 79 20 6d 6f 75   ┆"    #      \" " [window x y mou┆
0x0d60…0d80 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 61 6e 64 2d 75 6e   ┆se-mark-thing kill-region-and-un┆
0x0d80…0da0 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 6f 6e 2d 65 6e 64   ┆mark region-beginning region-end┆
0x0da0…0dc0 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 68 69 6e 67 2d 74   ┆] 6))  (defun mouse-kill-thing-t┆
0x0dc0…0de0 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 74 68 69 6e 67 20   ┆here (window x y) "\ Kill thing ┆
0x0de0…0e00 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 65 20 69 74 20 77   ┆at mouse, leave point where it w┆
0x0e00…0e20 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 6f 72 20 61 20 64   ┆as. See mouse-mark-thing for a d┆
0x0e20…0e40 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 72 65 63 6f 67 6e   ┆escription of the objects recogn┆
0x0e40…0e60 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 21 88 8a c7 09 0a   ┆ized." (byte-code "       !     ┆
0x0e60…0e80 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 79 53 65 6c 65 63   ┆ #      \"))) " [OriginallySelec┆
0x0e80…0ea0 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 74 65 64 2d 77 69   ┆tedWindow window x y selected-wi┆
0x0ea0…0ec0 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 72 69 67 69 6e 61   ┆ndow ((byte-code "  ! " [Origina┆
0x0ec0…0ee0 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 69 6e 64 6f 77 5d   ┆llySelectedWindow select-window]┆
0x0ee0…0f00 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 61 72 6b 2d 74 68   ┆ 2)) select-window mouse-mark-th┆
0x0f00…0f20 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 69 6e 6e 69 6e 67   ┆ing kill-region region-beginning┆
0x0f20…0f40 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 6f 75 73 65 2d 73   ┆ region-end] 8))  (defun mouse-s┆
0x0f40…0f60 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 69 6f 6e 61 6c 20   ┆ave-thing (window x y &optional ┆
0x0f60…0f80 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 73 65 20 69 6e 20   ┆quiet) "\ Put thing at mouse in ┆
0x0f80…0fa0 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 74 68 69 6e 67 20   ┆kill ring. See mouse-mark-thing ┆
0x0fa0…0fc0 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 62 6a 65 63 74 73   ┆for a description of the objects┆
0x0fc0…0fe0 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 c4 08 09 0a 23 88   ┆ recognized." (byte-code "    # ┆
0x0fe0…1000 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 20 78 20 79 20 71   ┆     \"  ?     ! " [window x y q┆
0x1000…1020 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 2d 72 65 67 69 6f   ┆uiet mouse-mark-thing copy-regio┆
0x1020…1040 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 20 72 65 67 69 6f   ┆n-as-kill region-beginning regio┆
0x1040…1060 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 22 5d 20 36 29 29   ┆n-end message "Thing saved"] 6))┆
0x1060…1080 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 74 68 65 72 65 20   ┆  (defun mouse-save-thing-there ┆
0x1080…10a0 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 74 29 20 22 5c 0a   ┆(window x y &optional quiet) "\ ┆
0x10a0…10c0 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 20 72 69 6e 67 2c   ┆Put thing at mouse in kill ring,┆
0x10c0…10e0 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 75 73 65 2d 6d 61   ┆ leave point as is. See mouse-ma┆
0x10e0…1100 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 20 74 68   ┆rk-thing for a description of th┆
0x1100…1120 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 63 6f 64   ┆e objects recognized." (byte-cod┆
0x1120…1140 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 4f 72 69 67 69 6e   ┆e "       !       $))) " [Origin┆
0x1140…1160 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 78 20 79 20 71 75   ┆allySelectedWindow window x y qu┆
0x1160…1180 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 2d 63 6f 64 65 20   ┆iet selected-window ((byte-code ┆
0x1180…11a0 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 57 69 6e 64 6f 77   ┆"  ! " [OriginallySelectedWindow┆
0x11a0…11c0 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 2d 77 69 6e 64 6f   ┆ select-window] 2)) select-windo┆
0x11c0…11e0 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 64 65 66 75 6e 20   ┆w mouse-save-thing] 7))  (defun ┆
0x11e0…1200 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 20 79 29 20 22 5c   ┆mouse-copy-thing (window x y) "\┆
0x1200…1220 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 20 72 69 6e 67   ┆ Put thing at mouse in kill ring┆
0x1220…1240 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 2d 6d 61 72 6b 2d   ┆, yank to point. See mouse-mark-┆
0x1240…1260 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┆
0x1260…1280 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 "┆
0x1280…12a0 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 63 6f 6d 6d 61 6e   ┆         $        " [last-comman┆
0x12a0…12c0 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 64 20 6e 6f 74 2d   ┆d window x y t this-command not-┆
0x12c0…12e0 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 65 20 79 61 6e 6b   ┆kill mouse-save-thing-there yank┆
0x12e0…1300 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 68 69 6e 67 20 28   ┆] 5))  (defun mouse-move-thing (┆
0x1300…1320 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 75   ┆window x y) "\ Kill thing at mou┆
0x1320…1340 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 6d 6f 75 73 65 2d   ┆se, yank it to point. See mouse-┆
0x1340…1360 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 20   ┆mark-thing for a description of ┆
0x1360…1380 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 63   ┆the objects recognized." (byte-c┆
0x1380…13a0 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 61 73 74 2d 63 6f   ┆ode "        #        " [last-co┆
0x13a0…13c0 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 61 6e 64 20 6e 6f   ┆mmand window x y this-command no┆
0x13c0…13e0 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 65 72 65 20 79 61   ┆t-kill mouse-kill-thing-there ya┆
0x13e0…1400 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 2d 61 74 2d 70 6f   ┆nk] 4))  (defun mouse-yank-at-po┆
0x1400…1420 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 20 22 5c 0a 59 61   ┆int (&optional window x y) "\ Ya┆
0x1420…1440 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 3b 20 74 68 65 6e   ┆nk from kill-ring at point; then┆
0x1440…1460 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 79 74 65 2d 63 6f   ┆ cycle thru kill ring." (byte-co┆
0x1460…1480 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 0a 40 63 88 09 85   ┆de "  = # `  W  `  \"   !  @c   ┆
0x1480…14a0 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 6d 61 6e 64 20 62   ┆    ) %        " [last-command b┆
0x14a0…14c0 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 65 72 20 74 68 69   ┆efore kill-ring-yank-pointer thi┆
0x14c0…14e0 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 2d 72 65 67 69 6f   ┆s-command yank mark delete-regio┆
0x14e0…1500 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 63 68 61 6e 67 65   ┆n rotate-yank-pointer 1 exchange┆
0x1500…1520 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 75 6e 20 6d 6f 75   ┆-point-and-mark] 8))  (defun mou┆
0x1520…1540 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 20 79 29 20 22 5c   ┆se-yank-at-mouse (window x y) "\┆
0x1540…1560 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 75 73 65 3b 20 74   ┆ Yank from kill-ring at mouse; t┆
0x1560…1580 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 79 74 65   ┆hen cycle thru kill ring." (byte┆
0x1580…15a0 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 6f 77 20 78 20 79   ┆-code "    #     # " [window x y┆
0x15a0…15c0 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 6e 6b 2d 61 74 2d   ┆ mouse-move-point mouse-yank-at-┆
0x15c0…15e0 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 61 76 65 2f 64 65   ┆point] 5))  (defun mouse-save/de┆
0x15e0…1600 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 77 20 78 20 79 29   ┆lete/yank (&optional window x y)┆
0x1600…1620 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 2f 64 65 6c 65 74   ┆ "\ Context sensitive save/delet┆
0x1620…1640 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 20 70 65 72 66 6f   ┆e/yank. Consecutive clicks perfo┆
0x1640…1660 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 20 63 6c 69 63 6b   ┆rm as follows:     * first click┆
0x1660…1680 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 2c 0a 20 20 20 20   ┆ saves region to kill ring,     ┆
0x1680…16a0 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 6e 2c 0a 20 20 20   ┆* second click kills region,    ┆
0x16a0…16c0 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 6b 69 6c 6c 20 72   ┆ * third click yanks from kill r┆
0x16c0…16e0 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 6b 73 20 63 79 63   ┆ing,     * subsequent clicks cyc┆
0x16e0…1700 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 65 2d 6d 6f 76 65   ┆le thru kill ring. If mouse-move┆
0x1700…1720 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 74 68 65 20 66 69   ┆-point is performed after the fi┆
0x1720…1740 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 65 78 74 20 63 6c   ┆rst or second click, the next cl┆
0x1740…1760 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 45 78 63 65 70 74   ┆ick will do a yank, etc.  Except┆
0x1760…1780 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 2d 70 6f 69 6e 74   ┆ for a possible mouse-move-point┆
0x1780…17a0 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 69 76 65 20 74 6f   ┆, this command is insensitive to┆
0x17a0…17c0 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 64 65 20 22 08 c3   ┆ mouse location." (byte-code "  ┆
0x17c0…17e0 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 82 2c 00 ca c7 20   ┆>      ,   =        \"     ,    ┆
0x17e0…1800 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 6e 64 20 74 68 69   ┆  \"   !     " [last-command thi┆
0x1800…1820 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 79 61 6e 6b 20 6d   ┆s-command t (mouse-delete yank m┆
0x1820…1840 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 2d 61 74 2d 70 6f   ┆ouse-yank-move) mouse-yank-at-po┆
0x1840…1860 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 20 72 65 67 69 6f   ┆int mouse-copy kill-region regio┆
0x1860…1880 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 73 65 2d 64 65 6c   ┆n-beginning region-end mouse-del┆
0x1880…18a0 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 73 73 61 67 65 20   ┆ete copy-region-as-kill message ┆
0x18a0…18c0 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 75 6e 20 6d 6f 75   ┆"Region saved"] 10))  (defun mou┆
0x18c0…18e0 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 64 6f 77 20 78 20   ┆se-split-horizontally (window x ┆
0x18e0…1900 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 72 69 7a 6f 6e 74   ┆y) "\ Splits the window horizont┆
0x1900…1920 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 74 65 2d 63 6f 64   ┆ally at mouse cursor." (byte-cod┆
[…truncated at 200 lines…]
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦ed7629a9b⟧

Derivation

Hex Dump
