;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 29 18:31:02 1993 ;;; from file /home/fsf/rms/e19/lisp/mouse.el ;;; emacs version 19.9.0. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (put (quote track-mouse) (quote lisp-indent-function) 0) (defalias 'mouse-delete-window #[(click) "À ‰A@)‰@)!‡" [delete-window click event position] 3 "\ Delete the window you click on. This must be bound to a mouse click." "e"]) (defalias 'mouse-tear-off-window #[(click) "‰A@)‰@)Ä !Æ È!ˆÉ !ˆÊ !+‡" [click event position window window-buffer buf new-frame frame select-frame switch-to-buffer delete-window] 3 "\ Delete the window clicked on, and create a new frame displaying its buffer." "e"]) (defalias 'mouse-delete-other-windows #[nil "À ‡" [delete-other-windows] 1 "\ Delete all window except the one you click on." "@"]) (defalias 'mouse-split-window-vertically #[(click) "‰A@)Ã\n‰@)!ˆ‰GS 8)Å 8)ATÇ Z \n Wƒ9ËÌ!‚CÍ\n ]^!,‡" [click event start select-window position 2 window-min-height window-height last-line first-line new-height error "window too short to split" split-window-vertically] 5 "\ Select Emacs window mouse is on, then split it vertically in half. The window is split at the line clicked on. This command must be bound to a mouse click." "@e"]) (defalias 'mouse-split-window-horizontally #[(click) "‰A@)Ã\n‰@)!ˆ‰GS 8)Å 8)@TÇ Z \n Wƒ9ËÌ!‚CÍ\n ]^!,‡" [click event start select-window position 2 window-min-width window-width last-col first-col new-width error "window too narrow to split" split-window-horizontally] 5 "\ Select Emacs window mouse is on, then split it horizontally in half. The window is split at the column clicked on. This command must be bound to a mouse click." "@e"]) (defalias 'mouse-set-point #[(click) "‰A@)Ã\n‰@)!ˆÅ\n‰A@)!…!\n‰A@)b)‡" [click event posn select-window position numberp] 3 "\ Move point to the position clicked on with the mouse. This must be bound to a mouse click." "e"]) (defalias 'mouse-set-region #[(click) "‰A@)‰GS 8)Ä ‰@)!ˆÆ ‰A@)!ƒ+ ‰A@)bˆƒ9ÈÉ !Ê=„=ËÌ!ˆÍ ˆÎ`!ˆÆ\n‰A@)!…V\n‰A@)b*‡" [click event end posn select-window position numberp transient-mark-mode framep selected-frame x sit-for 1 push-mark set-mark] 4 "\ Set the region to the text that the mouse is dragged over. This must be bound to a mouse drag event." "e"]) (defalias 'mouse-drag-region #[(click) "‰A@)‰‰Æ ‰@)!ˆÈ ‰A@)!ƒ+ ‰A@)bˆÉ‰\n,‡" [click event nil mark-active done posn select-window position numberp t deactivate-mark] 5 "\ Set the region to the text that the mouse is dragged over. This must be bound to a button-down mouse event." "e"]) (defalias 'mouse-set-mark #[(click) "`ÁŽÂ !ˆÄÅƉ#ˆ†ÈÉ!*‡" [point-save ((goto-char point-save)) mouse-set-point click push-mark nil t transient-mark-mode sit-for 1] 4 "\ Set mark at the position clicked on with the mouse. Display cursor at that position for a second. This must be bound to a mouse click." "e"]) (defalias 'mouse-kill #[(click) "‰A@)‰A@)Ä !…Å` ^` ]\")‡" [click event position click-posn numberp kill-region] 5 "\ Kill the region between point and the mouse click. The text is saved in the kill ring, as with \\[kill-region]." "e"]) (defalias 'mouse-yank-at-click #[(click arg) "À !ˆÂ !‡" [mouse-set-point click yank arg] 2 "\ Insert the last stretch of killed text at the position clicked on. Prefix arguments are interpreted as with \\[yank]." "e\nP"]) (defalias 'mouse-kill-ring-save #[(click) "À !ˆÂ`ÃÄ!\"‡" [mouse-set-mark click kill-ring-save mark t] 4 "\ Copy the region between point and the mouse click in the kill ring. This does not delete the region; it acts like \\[kill-ring-save]." "e"]) (byte-code "ÀÁ!„‡" [boundp mouse-save-then-kill-posn nil] 2) (defalias 'mouse-save-then-kill #[(click) "‰A@)‰A@) Å=ƒLƒL@@=ƒLÈA` D\"ƒLÉ\nË`Ì \"ˆ)\nÉ=?…`@`B\nB‰\n‚`Í!ˆÎ`ÌÉ!\"ˆ@` E‰)‡" [click event position click-posn last-command kill-region mouse-save-then-kill-posn kill-ring equal t buffer-undo-list delete-region mark mouse-set-mark kill-ring-save] 5 "\ Save text to point in kill ring; the second time, kill the text. If the text between point and the mouse is the same as what's at the front of the kill ring, this deletes the text. Otherwise, it adds the text to the kill ring, like \\[kill-ring-save], which prepares for a second click to delete the text." "e"]) (defalias 'mouse-buffer-menu #[(event) "ÀÁ Ã‰ƒ6 @ÇÈÉ!\"„.ÊËÉ!Ì!†'Í#B B) A‰„ Î !*BDÐ\"‰A@)‰@)‰…bÕ!ˆÖ!+‡" ["Buffer Menu" "Select Buffer" buffer-list nil head tail elt string-match "^ " buffer-name format "%-14s %s" buffer-file-name "" reverse menu x-popup-menu event position window buf select-window switch-to-buffer] 8 "\ Pop up a menu of buffers for selection with the mouse. This switches buffers in the window that you clicked on, and selects that window." "e"]) (defvar x-fixed-font-alist (quote ("Font menu" ("Misc" ("fixed" "fixed") ("6x10" "6x10") ("6x12" "6x12") ("6x13" "6x13") ("7x13" "7x13") ("7x14" "7x14") ("8x13" "8x13") ("8x13 bold" "8x13bold") ("8x16" "8x16") ("9x15" "9x15") ("9x15 bold" "9x15bold") ("10x20" "10x20") ("11x18" "11x18") ("12x24" "12x24")) ("Courier" ("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1") ("10" "-adobe-courier-medium-r-normal--*-100-*-*-m-*-iso8859-1") ("12" "-adobe-courier-medium-r-normal--*-120-*-*-m-*-iso8859-1") ("14" "-adobe-courier-medium-r-normal--*-140-*-*-m-*-iso8859-1") ("18" "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1") ("24" "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1") ("8 bold" "-adobe-courier-bold-r-normal--*-80-*-*-m-*-iso8859-1") ("10 bold" "-adobe-courier-bold-r-normal--*-100-*-*-m-*-iso8859-1") ("12 bold" "-adobe-courier-bold-r-normal--*-120-*-*-m-*-iso8859-1") ("14 bold" "-adobe-courier-bold-r-normal--*-140-*-*-m-*-iso8859-1") ("18 bold" "-adobe-courier-bold-r-normal--*-180-*-*-m-*-iso8859-1") ("24 bold" "-adobe-courier-bold-r-normal--*-240-*-*-m-*-iso8859-1") ("8 slant" "-adobe-courier-medium-o-normal--*-80-*-*-m-*-iso8859-1") ("10 slant" "-adobe-courier-medium-o-normal--*-100-*-*-m-*-iso8859-1") ("12 slant" "-adobe-courier-medium-o-normal--*-120-*-*-m-*-iso8859-1") ("14 slant" "-adobe-courier-medium-o-normal--*-140-*-*-m-*-iso8859-1") ("18 slant" "-adobe-courier-medium-o-normal--*-180-*-*-m-*-iso8859-1") ("24 slant" "-adobe-courier-medium-o-normal--*-240-*-*-m-*-iso8859-1") ("8 bold slant" "-adobe-courier-bold-o-normal--*-80-*-*-m-*-iso8859-1") ("10 bold slant" "-adobe-courier-bold-o-normal--*-100-*-*-m-*-iso8859-1") ("12 bold slant" "-adobe-courier-bold-o-normal--*-120-*-*-m-*-iso8859-1") ("14 bold slant" "-adobe-courier-bold-o-normal--*-140-*-*-m-*-iso8859-1") ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1") ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1")))) "\ X fonts suitable for use in Emacs.") (defalias 'mouse-set-font #[(&optional font) "… Á ÀBC\"‡" [font modify-frame-parameters selected-frame] 4 "\ Select an emacs font from a list of known good fonts" (x-popup-menu last-nonmenu-event x-fixed-font-alist)]) (byte-code "À ÂÃ#ˆÄÅÆ\"ˆÄÇÈ\"ˆÄÉÊ\"ˆÄËÌ\"ˆÄÍÎ\"ˆÄÏÐ\"ˆÄÑÒ\"ˆÄÓÔ\"ˆÄÕÖ\"ˆ×Ø!„<ÙÄÚ\"ˆ×Û!„MÜÝ!×Þ!„XÜß!×à!„cÜá! ×â!„nÜã!\"×ä!„yÜå!$×æ!„„Üç!&ÀèéB#ˆÀêëB#ˆÀìí B#ˆÀîï\"B#ˆÀðñ$B#ˆÀòó&B#ˆÀôõ#ˆÀö÷#ˆÀøù#ˆÀôú#ˆÀûü#ˆÀýþ#ˆÀÿ@#ˆÀ AB#ˆÀ CD#ˆÀ\"EF#ˆÀ\"GH#ˆÀ$IJ#ˆÀ$øK#ˆÀ&LM#ˆÀ&EN#ˆÀ&OP#ˆÀ&ÿQ#ˆRS!‡" [define-key global-map [down-mouse-1] mouse-drag-region global-set-key [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region [mouse-2] mouse-yank-at-click [mouse-3] mouse-save-then-kill [C-down-mouse-1] mouse-buffer-menu [C-down-mouse-3] mouse-set-font [mode-line mouse-1] mouse-delete-other-windows [mode-line mouse-3] mouse-delete-window [mode-line S-mouse-2] mouse-split-window-horizontally boundp help-menu-map (keymap "Help") [C-down-mouse-2] help-apropos-map make-sparse-keymap "Is there a command that..." help-keys-map "Key Commands <==> Functions" help-manual-map "Manual and tutorial" help-misc-map "Odds and ends" help-modes-map "Modes" help-admin-map "Administrivia" [apropos] "@Is there a command that..." [keys] "@Key Commands <==> Functions" [manuals] "@Manual and tutorial" [misc] "@Odds and ends" [modes] "@Modes" [admin] "@Administrivia" "c" ("Command Apropos" . command-apropos) "a" ("Apropos" . apropos) "b" ("List all keystroke commands" . describe-bindings) ("Describe key briefly" . describe-key-briefly) "k" ("Describe key verbose" . describe-key) "f" ("Describe Lisp function" . describe-function) "w" ("Where is this command" . where-is) "i" ("Info system" . info) "t" ("Invoke Emacs tutorial" . help-with-tutorial) "l" ("Last 100 Keystrokes" . view-lossage) "s" ("Describe syntax table" . describe-syntax) "m" ("Describe current major mode" . describe-mode) ("List all keystroke commands" . describe-bindings) "n" ("view Emacs news" . view-emacs-news) ("View the GNU Emacs license" . describe-copying) "d" ("Describe distribution" . describe-distribution) ("Describe (non)warranty" . describe-no-warranty) provide mouse] 5)