Current File : //usr/local/share/emacs/27.2/lisp/mouse.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\310\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322\326\327&\210\313\330\315\316\331DD\332\326\333\321\334&\210\313\335\315\316\336DD\337\321\322\326\333&\207" [put track-mouse lisp-indent-function 0 custom-declare-group mouse nil "Input from the mouse." :group environment editing custom-declare-variable mouse-yank-at-point funcall function #[0 "\300\207" [nil] 1] "If non-nil, mouse yank commands yank at point instead of at click." :type boolean mouse-drag-copy-region #[0 "\300\207" [nil] 1] "If non-nil, copy to kill-ring upon mouse adjustments of the region.\n\nThis affects `mouse-save-then-kill' (\\[mouse-save-then-kill]) in\naddition to mouse drags." :version "24.1" mouse-1-click-follows-link #[0 "\300\207" [450] 1] "Non-nil means that clicking Mouse-1 on a link follows the link.\n\nWith the default setting, an ordinary Mouse-1 click on a link\nperforms the same action as Mouse-2 on that link, while a longer\nMouse-1 click (hold down the Mouse-1 button for more than 450\nmilliseconds) performs the original Mouse-1 binding (which\ntypically sets point where you click the mouse).\n\nIf value is an integer, the time elapsed between pressing and\nreleasing the mouse button determines whether to follow the link\nor perform the normal Mouse-1 action (typically set point).\nThe absolute numeric value specifies the maximum duration of a\n\"short click\" in milliseconds. A positive value means that a\nshort click follows the link, and a longer click performs the\nnormal action. A negative value gives the opposite behavior.\n\nIf value is `double', a double click follows the link.\n\nOtherwise, a single Mouse-1 click unconditionally follows the link.\n\nNote that dragging the mouse never follows the link.\n\nThis feature only works in modes that specifically identify\nclickable text as links, so it may not work with some external\npackages. See `mouse-on-link-p' for details." "22.1" (choice (const :tag "Disabled" nil) (const :tag "Double click" double) (number :tag "Single click time limit" :value 450) (other :tag "Single click" t)) mouse-1-click-in-non-selected-windows #[0 "\300\207" [t] 1] "If non-nil, a Mouse-1 click also follows links in non-selected windows.\n\nIf nil, a Mouse-1 click on a link in a non-selected window performs\nthe normal mouse-1 binding, typically selects the window and sets\npoint at the click position."] 8)
(defvar mouse--last-down nil)
#@25
(fn &optional PROMPT)
(defalias 'mouse--down-1-maybe-follows-link #[256 "\203\n \242\303 B\304\207" [mouse-1-click-follows-link last-input-event mouse--last-down current-time nil] 3 (#$ . 2905)])
#@153 Turn `mouse-1' events into `mouse-2' events if follows-link.
Expects to be bound to `(double-)mouse-1' in `key-translation-map'.
(fn &optional PROMPT)
(defalias 'mouse--click-1-maybe-follows-link #[256 "\205\226 \204\n \304\207 \305=\203 \n\242\306=\2028 \n\242\307=\205\226 \247\203; \310W\203- \311\202. \312\313A!\314 !\315\245\"\205\226 @\316\317\n\242D!=\205\226 \320\321\n!!\211\205\224 \204a \322 \321\n!\211@\262=\205\224 \323!\203o \324\310H!\202\224 \305=\203y \325\202z \326\211\327N\204\211 \330\327\n@\327N#\210\n\211\240\266\324\n!\262\262\207" [mouse--last-down mouse-1-click-follows-link last-input-event mouse-1-click-in-non-selected-windows nil double double-mouse-1 mouse-1 0 #[514 "\300\"\207" [time-less-p] 5 "\n\n(fn A B)"] time-less-p time-since abs 1000.0 event-convert-list down mouse-on-link-p event-start selected-window arrayp vector double-mouse-2 mouse-2 event-kind put] 8 (#$ . 3113)])
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\306#\207" [key-translation-map define-key [down-mouse-1] mouse--down-1-maybe-follows-link [double-down-mouse-1] [mouse-1] mouse--click-1-maybe-follows-link [double-mouse-1]] 4)
#@215 Show menu for minor mode specified by INDICATOR.
Interactively, INDICATOR is read using completion.
If there is no menu defined for the minor mode, then create one with
items `Turn Off' and `Help'.
(fn INDICATOR)
(defalias 'minor-mode-menu-from-indicator #[257 "\301!\211\302N\206\n \211\204 \303\304\"\210\236\243\305!\205! \306\307\"\211\203+ \310!\202W \311!\205W \312\313\314\315\316\317\320\313\321
\"#!#\322\323\324F\325\323\326\327\330\331\332\333
DDFFF\262\211\203c \334!\202f \335\336!\266\202\207" [minor-mode-map-alist lookup-minor-mode-from-indicator :minor-mode-function error "Cannot find minor mode for `%s'" keymapp lookup-key [menu-bar] mouse-menu-non-singleton fboundp keymap format "%s - %s" capitalize replace-regexp-in-string "-" " " "%S" turn-off menu-item "Turn off minor mode" help "Help for minor mode" lambda nil (interactive) describe-function quote popup-menu message "No menu available"] 17 (#$ . 4310) (byte-code "\300\301\302 \"C\207" [completing-read "Minor mode indicator: " describe-minor-mode-completion-table-for-indicator] 3)])
#@82 Show minor-mode menu for EVENT on minor modes area of the mode line.
(fn EVENT)
(defalias 'mouse-minor-mode-menu #[257 "\300A@8@\301!\207" [4 minor-mode-menu-from-indicator] 4 (#$ . 5400) "@e"])
(defalias 'mouse-menu-major-mode-map #[0 "\302\303\304\"\210\305\306 \205 \307\310!!\211\203 \311\312!\313P!\202 \203' \314\"\210\207" [mode-name menu-bar-edit-menu run-hooks activate-menubar-hook menu-bar-update-hook mouse-menu-non-singleton current-local-map local-key-binding [menu-bar] make-sparse-keymap format-mode-line " Mode" set-keymap-parent] 5])
#@165 Return menu keybar MENUBAR, or a lone submenu inside it.
If MENUBAR defines exactly one submenu, return just that submenu.
Otherwise, return MENUBAR.
(fn MENUBAR)
(defalias 'mouse-menu-non-singleton #[257 "\211\205. \300C\301\302\303\304\305\306!\307\"\310\311%\312!\"\210\211\242\313=\203$ \202, \314\306\242@!\"\262\207" [nil map-keymap make-byte-code 514 "\300\211\242\203\n \301\202
B\240\207" vconcat vector [t] 5 "\n\n(fn K V)" keymap-canonicalize t lookup-key] 9 (#$ . 5970)])
#@143 Return a keymap equivalent to the menu bar.
The contents are the items that would be in the menu bar whether or
not it is actually displayed.
(defalias 'mouse-menu-bar-map #[0 "\302\303\304\"\210\305 \205 \306\305 \307\"\306\310\"\311\312\313\314!\"\205 A@A@\2039 ;\2049 \315\316 !\317PABB\262\211;\204F \315\320ABB\262\321\322$\207" [global-map mode-name run-hooks activate-menubar-hook menu-bar-update-hook current-local-map lookup-key [menu-bar] [menu-bar] mapcar #[257 "\211@A\211A@\211;\204 \300\301\302\303\304\305!#!\306PABB\262\207" [keymap capitalize subst-char-in-string 45 32 symbol-name " Menu"] 11 "\n\n(fn MENU)"] minor-mode-key-binding [menu-bar] keymap format-mode-line " Mode Menu" "Global Menu" apply append] 10 (#$ . 6472)])
#@143 Pop up a mode-specific menu of mouse commands.
Default to the Edit menu if the major mode doesn't define a menu.
(fn EVENT &optional PREFIX)
(defalias 'mouse-major-mode-menu #[513 "\300\301\302\"\210\303\304 #\207" [run-hooks activate-menubar-hook menu-bar-update-hook popup-menu mouse-menu-major-mode-map] 6 (#$ . 7248) "@e\nP"])
(make-obsolete 'mouse-major-mode-menu 'mouse-menu-major-mode-map "23.1")
#@191 Pop up a menu equivalent to the menu bar for keyboard EVENT with PREFIX.
The contents are the items that would be in the menu bar whether or
not it is actually displayed.
(fn EVENT PREFIX)
(defalias 'mouse-popup-menubar #[514 "\300\301\302\"\210\303\304 \250?\205 #\207" [run-hooks activate-menubar-hook menu-bar-update-hook popup-menu mouse-menu-bar-map] 6 (#$ . 7662) "@e \nP"])
(make-obsolete 'mouse-popup-menubar 'mouse-menu-bar-map "23.1")
#@160 Popup a menu like either `mouse-major-mode-menu' or `mouse-popup-menubar'.
Use the former if the menu bar is showing, otherwise the latter.
(fn EVENT PREFIX)
(defalias 'mouse-popup-menubar-stuff #[514 "\300\301\302\"\210\303\304\305\306\"\206 \307\307U\203 \310 \202 \311 #\207" [run-hooks activate-menubar-hook menu-bar-update-hook popup-menu frame-parameter nil menu-bar-lines 0 mouse-menu-bar-map mouse-menu-major-mode-map] 6 (#$ . 8119) "@e\nP"])
(make-obsolete 'mouse-popup-menubar-stuff nil "23.1")
#@14
(fn EVENT)
(defalias 'mouse-minibuffer-check #[257 "\300!\211@\262\301!\203 \302!\204 \303\304!\210\210\305\306!\207" [event-start window-minibuffer-p minibuffer-window-active-p user-error "Minibuffer window is not active" run-hooks mouse-leave-buffer-hook] 4 (#$ . 8636)])
#@135 Delete the window you click on.
Do nothing if the frame has just one window.
This command must be bound to a mouse click.
(fn CLICK)
(defalias 'mouse-delete-window #[257 "\300\301!?\205 \302!\210\303\304!\211@\262!\207" [one-window-p t mouse-minibuffer-check delete-window event-start] 4 (#$ . 8925) "e"])
#@61 Select the window clicked on; don't move point.
(fn CLICK)
(defalias 'mouse-select-window #[257 "\300!\210\301 \302\303!\211@\262!\304\303!\211@\262!\210\305!\210\306!\210\211=\206/ \307\301 \310 S\311#\207" [mouse-minibuffer-check selected-frame window-frame event-start select-window raise-frame select-frame set-mouse-position frame-width 0] 7 (#$ . 9242) "e"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mouse-tear-off-window tear-off-window nil make-obsolete "24.4"] 4)
#@87 Delete the selected window, and create a new frame displaying its buffer.
(fn CLICK)
(defalias 'tear-off-window #[257 "\300!\210\301!\211@\262\302!\303 \304!\210\305!\210\306!\207" [mouse-minibuffer-check event-start window-buffer make-frame select-frame switch-to-buffer delete-window] 6 (#$ . 9755) (list last-nonmenu-event)])
#@49 Delete all windows except the one you click on.
(defalias 'mouse-delete-other-windows #[0 "\300 \207" [delete-other-windows] 1 (#$ . 10098) "@"])
#@169 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.
(fn CLICK)
(defalias 'mouse-split-window-vertically #[257 "\302!\210\303!\304\211@\262!\210\305\306!!AT\307 Z\211W\203' \310\311!\2021 \312\313]^!)\266\203\207" [window-min-height window-combination-resize mouse-minibuffer-check event-start select-window posn-col-row event-end window-height user-error "Window too short to split" nil split-window-vertically] 8 (#$ . 10251) "@e"])
#@173 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.
(fn CLICK)
(defalias 'mouse-split-window-horizontally #[257 "\302!\210\303!\304\211@\262!\210\305\306!!@T\307 Z\211W\203' \310\311!\2021 \312\313]^!)\266\203\207" [window-min-width window-combination-resize mouse-minibuffer-check event-start select-window posn-col-row event-end window-width user-error "Window too narrow to split" nil split-window-horizontally] 8 (#$ . 10809) "@e"])
#@214 Drag a mode line, header line, or vertical line with the mouse.
START-EVENT is the starting mouse event of the drag action. LINE
must be one of the symbols `header', `mode', or `vertical'.
(fn START-EVENT LINE)
(defalias 'mouse-drag-line #[514 "\302\303!\210\304\305!C\211\242\211@\262C\306\242!\307=\203+ \310\242!\242\3118\262@\\\2028 \312\242!\242\3118\262A\\C\211\242C\313\314C\314C\314C \315\267\202\200 \316\317\n\242\313#\240\210\202\200 \202\200 \320!\211\247\203j \211\304U\203 \321\322\"\323=\203 \316\323 \242\313#\240\210\210\314C\324\325\326\327\330& \331\"\332\333\334& \335\336\337 \340\341\342#\210\340\343\342#\210\340\344\342#\210\340\345#\210\340\346\324\304\347\327\330
!\350\"\351\314\211&#\210\307=\203\340\352\353\354\324\304\347\327\330!\350\"\351\314\211&\355\324\325\356\327\330!\350\"\311\357%\257#\210\340\360#\210\340\361#\210\340\362#\210\340\363#\210\340\364#\210\211\262\313\324\304\365\327\330 !\366\"\311$#\240\266\203)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-frame vertical window-pixel-left 2 window-pixel-top t nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (header 74 mode 88 vertical 91)) window-in-direction above frame-right-divider-width frame-parameter vertical-scroll-bars left make-byte-code 257 "\211:\204 \311\207\300\312=\203\256 \301\313!\240\210\303\301\242\3148\262@\240\210\315\306\301\242\211@\262\240!\203d \303\316\306\242!\303\242\\\240\210\301\242A@\204d \317\306\242!\320=\203O \303\321\306\242!\303\242\\\240\210\303\322\323\306\242!@\324\306\242!@\206_ \325\303\242#\240\210\307\303\242\304\242Z\240\325U\204\251 \307\242\325V\203\206 \303\242\316\302\242!\326\302\242!\\W\204\251 \307\242\325W\203\234 \303\242\316\302\242!\326\302\242!\\V\204\251 \310\327\240\210\330\302\242\307\242\327\211$\210\304\303\242\240\207\305\205R\301\313!\240\210\306\301\242\211@\262\240\210\303\301\242\3148\262A\240\210\315\306\242!\203 \303\331\306\242!\303\242\\\240\210\301\242\211A@:\203\355 \211A@@\202\360 \211A@\2119\205\366 \211\262\262\332>\203 \303\333\306\242!\303\242\\\240\210\307\303\242\304\242Z\240\325U\204N\307\242\325V\203+\303\242\331\302\242!\334\302\242!\\W\204N\307\242\325W\203A\303\242\331\302\242!\334\302\242!\\V\204N\310\327\240\210\330\302\242\307\242\311\327$\210\304\303\242\240\207" vconcat vector [nil vertical event-start 2 window-live-p window-pixel-left window-current-scroll-bars left window-scroll-bar-width + window-fringes window-margins 0 window-pixel-width t adjust-window-trailing-edge window-pixel-top (nil left-fringe right-fringe left-margin right-margin) window-header-line-height window-pixel-height] 6 "\n\n(fn EVENT)" "e" dragging set-transient-map make-sparse-keymap define-key [switch-frame] ignore [select-window] [scroll-bar-movement] [mouse-movement] [drag-mouse-1] "\300\242 \207" [] 1 [mouse-1] menu-item "" :filter "\300\242\205 \211\207" "\n\n(fn CMD)" [mode-line] [header-line] [vertical-line] [right-divider] [bottom-divider] "\300\211\207" [track-mouse]] 30 (#$ . 11374)])
#@285 Change the height of a window by dragging on its mode line.
START-EVENT is the starting mouse event of the drag action.
If the drag happens in a mode line on the bottom of a frame and
that frame's `drag-with-mode-line' parameter is non-nil, drag the
frame instead.
(fn START-EVENT)
(defalias 'mouse-drag-mode-line #[257 "\301!\211\211@\262\302!\303!?\206Y \304\305\"\2032 \306!\302!=\205- ?\206- \211\307 =\262\2039 \310\311\"\202Y \312\313\"\205Y \304\305\"\205Y \306!\302!=?\262\205Y \314\315\"\207" [resize-mini-windows event-start window-frame window-live-p window-at-side-p bottom minibuffer-window active-minibuffer-window mouse-drag-line mode frame-parameter drag-with-mode-line mouse-drag-frame move] 7 (#$ . 14553) "e"])
#@288 Change the height of a window by dragging on its header line.
START-EVENT is the starting mouse event of the drag action.
If the drag happens in a header line on the top of a frame and
that frame's `drag-with-header-line' parameter is non-nil, drag
the frame instead.
(fn START-EVENT)
(defalias 'mouse-drag-header-line #[257 "\300!\211\211@\262\301!\203 \302\303\"\204 \304\305\"\202, \306!\307\310\"\205* \311\312\"\262\207" [event-start window-live-p window-at-side-p top mouse-drag-line header window-frame frame-parameter drag-with-header-line mouse-drag-frame move] 7 (#$ . 15310) "e"])
#@140 Change the width of a window by dragging on a vertical line.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-vertical-line #[257 "\300\301\"\207" [mouse-drag-line vertical] 4 (#$ . 15922) "e"])
#@91 Helper function for `mouse-drag-frame'.
(fn FRAME X-DIFF Y-DIFF &optional X-MOVE Y-MOVE)
(defalias 'mouse-resize-frame #[1283 "\300!\211@A\301\302V\203\" \203F ^\262Z\262\202F \303 \304\301\304$\302\305 !Z] []\262\n\203D \n[\\\262\266\302V\203` \203\204 ^\262Z\262\202\204 \303 \301\211\304$\302\306 !Z][]\262 \203\202 [\\\262\266\302U\204\246 \203\227 \307BB\262\310\311\312 !\n\\BBB\262\302U\204\307 \203\270 \313BB\262\314\311\315 ! \\BBB\262\211\205\320 \316 \"\207" [frame-position nil 0 frame-windows-min-size t frame-inner-width frame-inner-height left width text-pixels frame-text-width top height frame-text-height modify-frame-parameters] 14 (#$ . 16175)])
#@466 Drag a frame or one of its edges with the mouse.
START-EVENT is the starting mouse event of the drag action. Its
position window denotes the frame that will be dragged.
PART specifies the part that has been dragged and must be one of
the symbols `left', `top', `right', `bottom', `top-left',
`top-right', `bottom-left', `bottom-right' to drag an internal
border or edge. If PART equals `move', this means to move the
frame with the mouse.
(fn START-EVENT PART)
(defalias 'mouse-drag-frame #[514 "\302\303!\210\304\305!\211\211@\262\306!\203 \307!\202 \211\310!\311!\312!\211\2034 \304\211\310!\311!F\202U \313 @\314\236\211\205S \211A@\3158A@\3168\\\3158\3178\\F\266\202\211\205[ \211@\205b A@\205i \3158\205p \3168\320C\320C\320C\321 \211@CAC\320C\320C\320C\322\323\324\325\326&\327\"\330\331\332& \333\334\335 \336\337\340#\210\336\341\340#\210\336\342\340#\210\336\343#\210\336\344\322\304\345\325\326
!\346\"\347\320\211&#\210\336\350#\210\336\351#\210\336\352#\210\336\353#\210\336\354#\210\211\262\355\322\304\356\325\326 !\357\"\315$#\240)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-live-p window-frame frame-native-width frame-native-height frame-parent display-monitor-attributes-list workarea 2 3 4 nil mouse-absolute-pixel-position make-byte-code 257 "\211:\205\207\311\320 \240\210\312\311\242@\240\210\313\311\242A\240\210\300\321=\203* \322\301\314\242\312\242Z\323\324$\210\202~\300\325=\203? \322\301\323\315\242\313\242Z\326\324%\210\202~\300\327=\203R \322\301\312\242\314\242Z\323#\210\202~\300\330=\203e \322\301\323\313\242\315\242Z#\210\202~\300\331=\203~ \322\301\314\242\312\242Z\315\242\313\242Z\324\211%\210\202~\300\332=\203\227 \322\301\312\242\314\242Z\315\242\313\242Z\326\324%\210\202~\300\333=\203\257 \322\301\314\242\312\242Z\313\242\315\242Z\324$\210\202~\300\334=\203\306 \322\301\312\242\314\242Z\313\242\315\242Z#\210\202~\300\335=\203~\336\301!\211@A\312\242\314\242Z\\\313\242\315\242Z\\\326\211\337\301\340\"\211\247\203(\304\203(\312\242\314\242W\203;\305V\203\305ZX\203\316\312\242\240\210\305\262\202\214\305X\2034\305ZX\2034\316\242\2034\316\242\312\242ZX\2034\305\262\202\214\316\326\240\210\202\214\312\242\314\242V\203\214\302\\\262\307W\203c\307ZX\203c\316\312\242\240\210\307\302Z\262\202\214\307Y\203\210\307ZX\203\210\316\242\203\210\312\242\316\242ZX\203\210\307\302Z\262\202\214\316\326\240\210\313\242\315\242W\203\327\306V\203\255\306ZX\203\255\317\313\242\240\210\306\262\202(\306X\203\320\306ZX\203\320\317\242\203\320\317\242\313\242ZX\203\320\306\262\202(\317\326\240\210\202(\313\242\315\242V\203(\303\\\262\310W\203\377\310ZX\203\377\317\313\242\240\210\310\303Z\262\202(\310Y\203$\310ZX\203$\317\242\203$\313\242\317\242ZX\203$\310\303Z\262\202(\317\326\240\210\337\301\341\"\326\204:\337\301\342\"\262\324\262\247\203l\304\203l\307Z^\305\302Z\\]\262\211\203c\306\303ZZ]\310\303Z^\202j\306]\310Z^\262\266\343\301\321\344E\325\344ED\"\266 \314\312\242\240\210\315\313\242\240\207" vconcat vector [mouse-absolute-pixel-position left mouse-resize-frame 0 t top nil right bottom top-left top-right bottom-left bottom-right move frame-position frame-parameter snap-width top-visible bottom-visible modify-frame-parameters +] 15 "\n\n(fn EVENT)" "e" dragging set-transient-map make-sparse-keymap define-key [switch-frame] ignore [select-window] [scroll-bar-movement] [mouse-movement] [drag-mouse-1] "\300\242 \207" [] 1 [mode-line] [header-line] [vertical-line] [right-divider] [bottom-divider] t "\300\211\207" [track-mouse]] 43 (#$ . 16921)])
#@121 Drag left edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-left-edge #[257 "\300\301\"\207" [mouse-drag-frame left] 4 (#$ . 20682) "e"])
#@127 Drag top left corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-top-left-corner #[257 "\300\301\"\207" [mouse-drag-frame top-left] 4 (#$ . 20910) "e"])
#@120 Drag top edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-top-edge #[257 "\300\301\"\207" [mouse-drag-frame top] 4 (#$ . 21154) "e"])
#@128 Drag top right corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-top-right-corner #[257 "\300\301\"\207" [mouse-drag-frame top-right] 4 (#$ . 21379) "e"])
#@122 Drag right edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-right-edge #[257 "\300\301\"\207" [mouse-drag-frame right] 4 (#$ . 21626) "e"])
#@131 Drag bottom right corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-bottom-right-corner #[257 "\300\301\"\207" [mouse-drag-frame bottom-right] 4 (#$ . 21857) "e"])
#@123 Drag bottom edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-bottom-edge #[257 "\300\301\"\207" [mouse-drag-frame bottom] 4 (#$ . 22113) "e"])
#@130 Drag bottom left corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.
(fn START-EVENT)
(defalias 'mouse-drag-bottom-left-corner #[257 "\300\301\"\207" [mouse-drag-frame bottom-left] 4 (#$ . 22347) "e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mouse-select-region-move-to-beginning funcall function #[0 "\300\207" [nil] 1] "Effect of selecting a region extending backward from double click.\nNil means keep point at the position clicked (region end);\nnon-nil means move point to beginning of region." :type (choice (const :tag "Don't move point" nil) (const :tag "Move point to beginning of region" t)) :version "26.1"] 8)
#@347 Move point to the position clicked on with the mouse.
This should be bound to a mouse click event type.
If PROMOTE-TO-REGION is non-nil and event is a multiple-click, select
the corresponding element around point, with the resulting position of
point determined by `mouse-select-region-move-to-beginning'.
(fn EVENT &optional PROMOTE-TO-REGION)
(defalias 'mouse-set-point #[513 "\301!\210\211\2039 \211:\203 \3028\250\203 \3028\202 \303\262\303V\2039 \304!\210\205> \305\306!!\307 V\2058 \310 \207\311\312!!\207" [mouse-select-region-move-to-beginning mouse-minibuffer-check 2 1 mouse-set-region posn-point event-start region-beginning exchange-point-and-mark posn-set-point event-end] 5 (#$ . 23067) "e\np"])
(defvar mouse-last-region-beg nil)
(defvar mouse-last-region-end nil)
(defvar mouse-last-region-tick nil)
#@73 Return non-nil if there's an active region that was set with the mouse.
(defalias 'mouse-region-match #[0 "\304\305!\205 \205 \306 =\205 \n\307 =\205 \310 =\207" [mark-active mouse-last-region-beg mouse-last-region-end mouse-last-region-tick mark t region-beginning region-end buffer-modified-tick] 2 (#$ . 23902)])
(defvar mouse--drag-start-event nil)
#@224 Set the region to the text dragged over, and copy to kill ring.
This should be bound to a mouse drag event.
See the `mouse-drag-copy-region' variable to control whether this
command alters the kill ring or not.
(fn CLICK)
(defalias 'mouse-set-region #[257 "\305!\210\306\307!\211@\262!\210\310\307!!\311!\211@\262\312 =\203( \310\311!!\202* \313 \211:\203= \3148\250\203= \3148\202> \315\262\316\317\320\"\211\203\225 \315X\203p \310\307!!\232\203p \211\211:\203k \3148\250\203k \3148\202l \315\262\262\307!\3148\262\311!\3148\262\232\203\217 \211@\321=\204\217 \262\322\317\320\317#\210\210\250\203\302 \250\203\302 \323S#W\203\270 \211@\262\211A@\262\202\301 \211@\262\211A@\262\210\203\334 \250\203\334 \250\203\334 \317\211\211\324\"\210+\247\203\344 b\210\f\204\361 \325 \204\361 \326\315!\210\327 \210\330`!\210\247\203 b\210\331 \207" [mouse-drag-copy-region deactivate-mark last-command this-command transient-mark-mode mouse-minibuffer-check select-window event-start posn-point event-end selected-window window-point 2 1 terminal-parameter nil mouse-drag-start mouse-movement set-terminal-parameter mouse-start-end copy-region-as-kill window-system sit-for push-mark set-mark mouse-set-region-1] 9 (#$ . 24269) "e"])
(defalias 'mouse-set-region-1 #[0 "\242\304=\204 \305\300!\210\304\306=?\205 B\307 \310 \311 \211\207" [transient-mark-mode mouse-last-region-beg mouse-last-region-end mouse-last-region-tick only make-local-variable lambda region-beginning region-end buffer-modified-tick] 3])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable mouse-scroll-delay funcall function #[0 "\300\207" [0.25] 1] "The pause between scroll steps caused by mouse drags, in seconds.\nIf you drag the mouse beyond the edge of a window, Emacs scrolls the\nwindow to bring the text beyond that edge into view, with a delay of\nthis many seconds between scroll steps. Scrolling stops when you move\nthe mouse back into the window, or release the button.\nThis variable's value may be non-integral.\nSetting this to zero causes Emacs to scroll as fast as it can." :type number mouse-scroll-min-lines #[0 "\300\207" [1] 1] "The minimum number of lines scrolled by dragging mouse out of window.\nMoving the mouse out the top or bottom edge of the window begins\nscrolling repeatedly. The number of lines scrolled per repetition\nis normally equal to the number of lines beyond the window edge that\nthe mouse has moved. However, it always scrolls at least the number\nof lines specified by this variable." integer] 6)
#@364 Scroll the window WINDOW, JUMP lines at a time, until new input arrives.
If OVERLAY is an overlay, let it stretch from START to the far edge of
the newly visible text.
ADJUST, if non-nil, is a function, without arguments, to call after
setting point.
Upon exit, point is at the far edge of the newly visible text.
(fn WINDOW JUMP &optional OVERLAY START ADJUST)
(defalias 'mouse-scroll-subr #[1282 "\302V\203 W\203 \262\202# \302W\203# [W\203# [\262`\303!b\210\304\"\302U\204\212 \305`\"\210\306!\203c \307!\203W \307!b\210\304S\"\210\202i \304\310!\311Z!\210\202i \303!b\210\203s \312`#\210\313 =\204} \211b\210\203\204 \210\314 !\204$ \313 =\206\223 \211b\207" [mouse-scroll-min-lines mouse-scroll-delay 0 window-start vertical-motion set-window-start natnump window-end window-height 2 move-overlay selected-window sit-for] 10 (#$ . 26917)])
(defvar mouse-selection-click-count 0)
(defvar mouse-selection-click-count-buffer nil)
#@459 Set the region to the text that the mouse is dragged over.
Highlight the drag area as you move the mouse.
This must be bound to a button-down mouse event.
In Transient Mark mode, the highlighting remains as long as the mark
remains active. Otherwise, it remains until the next input event.
When the region already exists and `mouse-drag-and-drop-region'
is non-nil, this moves the entire region of text to where mouse
is dragged over to.
(fn START-EVENT)
(defalias 'mouse-drag-region #[257 "\203 \301\302!>\204 \303\304!\305\"\306=\203 \300!\207\307\310!\210\311!\207" [mouse-drag-and-drop-region triple event-modifiers mouse-posn-property event-start face region run-hooks mouse-leave-buffer-hook mouse-drag-track] 4 (#$ . 27896) "e"])
(put 'mouse-drag-region 'undo-inhibit-region t)
#@421 Look for a property at click position.
POS may be either a buffer position or a click position like
those returned from `event-start'. If the click position is on
a string, the text property PROPERTY is examined.
If this is nil or the click is not on a string, then
the corresponding buffer position is searched for PROPERTY.
If PROPERTY is encountered in one of those places,
its value is returned.
(fn POS PROPERTY)
(defalias 'mouse-posn-property #[514 ":\203J \211@\262\300!\301!\211\203 \302A@#\206I \205I \211A@:\2031 \211A@@\2024 \211A@\2119\205: \211\262\262\303>?\205I \304#\207\304\"\207" [posn-point posn-string get-text-property (left-fringe right-fringe left-margin right-margin) get-char-property] 9 (#$ . 28699)])
#@1458 Return non-nil if POS is on a link in the current buffer.
POS must specify a buffer position in the current buffer, as a list
of the form returned by the `event-start' and `event-end' functions,
or a mouse event location in the selected window (see `event-start').
However, if `mouse-1-click-in-non-selected-windows' is non-nil,
POS may be a mouse event location in any window.
A clickable link is identified by one of the following methods:
- If the character at POS has a non-nil `follow-link' text or
overlay property, the value of that property determines what to do.
- If there is a local key-binding or a keybinding at position POS
for the `follow-link' event, the binding of that event determines
what to do.
The resulting value determine whether POS is inside a link:
- If the value is `mouse-face', POS is inside a link if there
is a non-nil `mouse-face' property at POS. Return t in this case.
- If the value is a function, FUNC, POS is inside a link if
the call (FUNC POS) returns non-nil. Return the return value
from that call. Arg is (posn-point POS) if POS is a mouse event.
- Otherwise, return the value itself.
The return value is interpreted as follows:
- If it is an array, the mouse-1 event is translated into the
first element of that array, i.e. the action of the mouse-1
click is the local or global binding of that event.
- Otherwise, the mouse-1 event is translated into a mouse-2 event
at the same position.
(fn POS)
(defalias 'mouse-on-link-p #[257 "\211:\203 \204 \301 \211@\262=\205O \302\303\"\206O \211\211A@:\203* \211A@@\202- \211A@\2119\2053 \211\262\262\211\205D \304\305\303\"\306\307$\262\206O \304\310\306\307$\211\311=\203` \302\311\"\205\205 \307\202\205 \312!\203\204 :\203~ r\313\211@\262!q\210\211\314!!)\202\205 \211!\202\205 \211\207" [mouse-1-click-in-non-selected-windows selected-window mouse-posn-property follow-link key-binding vector nil t [follow-link] mouse-face functionp window-buffer posn-point] 7 (#$ . 29455)])
#@66 Fix help message MSG for `mouse-1-click-follows-link'.
(fn MSG)
(defalias 'mouse-fixup-help-message #[257 "\302\211\203\217 ;\203\217 \303\302\304\305#)\266\203\203\217 \306 \211\262\203\217 A\211\262:\203\217 \211@\203\217 \211@\307Y\203\217 \211A\203\217 \211A\307Y\203\217 \310@A@#\211\262\203\217 \311\211@\262!\203\217 r\312\211@\262!q\210\313!\203\216 \314=\203v \315\202\206 \250\203\205 \307W\203\205 \316\202\206 \317\320\321\322\"Q\262)\266\207" [mouse-1-click-follows-link inhibit-changing-match-data nil "\\`mouse-2" t string-match mouse-pixel-position 0 posn-at-x-y windowp window-buffer mouse-on-link-p double "double-" "Long " "" "mouse-1" substring 7] 10 (#$ . 31464)])
#@132 Track mouse drags by highlighting area between point and cursor.
The region will be defined with mark and point.
(fn START-EVENT)
(defalias 'mouse-drag-track #[257 "\306!\210p\302 \210\307\310!\311!C\211@\262r\312!q\210\313\211)\314!\307\315!\313 \211A@\316!\2048
\204> \3178\202B \3178S\211:\203V \3208\250\203V \3208\202W \321\262S./0`\n\242W\203n \242b\210 `\240\210\322\323!\210\324=\203\202 \325\202\206 \326B\327\n\242 \242#\330@\331\211#\210\211A@b\266\332\313\333#\210\331/\313.\334\335 \336\337\340#\210\336\341\340#\210\336\342\343\344\345\346\347&\350\"\351\352\353&#\210\211\262\331\343\307\354\346\347 \"\355\"\321$#+\207" [mouse-selection-click-count-buffer scroll-margin deactivate-mark echo-keystrokes make-cursor-line-fully-visible mode-line-format mouse-minibuffer-check 0 event-start posn-point window-buffer nil mouse-set-point window-edges window-minibuffer-p 3 2 1 make-local-variable transient-mark-mode lambda (only) only mouse-start-end push-mark t set-terminal-parameter mouse-drag-start set-transient-map make-sparse-keymap define-key [switch-frame] ignore [select-window] [mouse-movement] make-byte-code 257 "\307!\310!\211\301\242=\204 \306\300\311\240\210\211@\262\302=\203- \312!\203- \313\301\242\305#\202Z \314 AA\211?\206X \211\303W\203H \315\302\303Z\316\301\242$\202X \211\304Y\205X \315\302\304ZT\316\301\242$\262\207" vconcat vector [event-end posn-point mouse-movement integer-or-marker-p mouse--drag-set-mark-and-point mouse-position mouse-scroll-subr nil auto-hscroll-mode] 9 "\n\n(fn EVENT)" "e" "\301\300\304 \210\305 \207" [track-mouse auto-hscroll-mode deactivate-mark pop-mark] auto-hscroll-mode track-mouse mouse-selection-click-count] 29 (#$ . 32183)])
#@32
(fn START CLICK CLICK-COUNT)
(defalias 'mouse--drag-set-mark-and-point #[771 "\300#\211@A@\301 =\203 \211b\2028 \301 =\203\" b\2028 \301 W\2032 \302!\210b\2028 \302!\210\211b\207" [mouse-start-end mark set-mark] 8 (#$ . 33972)])
#@136 Skip over word, over whitespace, or over identical punctuation.
If DIR is positive skip forward; if negative, skip backward.
(fn DIR)
(defalias 'mouse-skip-word #[257 "g\300z!\211\301\230\203/ \302W\203 \303\304!?\205\207 \305v\202\207 \303\304!\204* \303\306!?\205\207 \307v\202\207 \211\310\230\203G \302W\203A \311!\202\207 \312!\202\207 \211\313\230\203_ \302W\203Y \311\314!\202\207 \312\314!\202\207 \302W\203v o?\205\207 hU\205\207 \305u\210\202e m?\205\207 gU\205\207 \307u\210\202v \207" [char-to-string "w" 0 looking-at "\\<" -1 "\\>" 1 " " skip-syntax-backward skip-syntax-forward "_" "w_"] 5 (#$ . 34222)])
#@314 Return a list of region bounds based on START and END according to MODE.
If MODE is 0 then set point to (min START END), mark to (max START END).
If MODE is 1 then set point to start of word at (min START END),
mark to end of word at (max START END).
If MODE is 2 then do the same for lines.
(fn START END MODE)
(defalias 'mouse-start-end #[771 "V\203\f \262\262\300\301\"\262\211\302U\203 D\207\211\303U\203T U\203T f\203T fz\304U\203T \305\306!!\307U\204G \310\311\312\211E\"\207\212b\210\313\303!\210`)D\207\211\303U\203\216 U\203\216 f\203\216 fz\314U\203\216 \305\306!!\315U\204 \310\311\316\211E\"\207\212Tb\210\317\303!\210`)TD\207\211\303U\203\354 U\203\354 f\203\354 fz\320U\203\354 e=\206\266 \212Sb\210\321\322!)\211\203\323 \212\3231\314 b\210\313\303!\210`0\202\316 \210)D\202\353 \212\3241\345 Tb\210\317\303!\210`0\202\347 \210)TD\207\211\303U\203\212b\210\325\326!\210`)\212b\210\325\303!\210`)D\207\211\327U\205 \212b\210\330\303!)\212b\210\303y\210`)D\207" [mod 3 0 1 40 syntax-class syntax-after 4 signal scan-error "Containing expression ends prematurely" forward-sexp 41 5 "Unbalanced parentheses" backward-sexp 34 looking-at "\\s(\\|\\s \\|\\s>" (error) (error) mouse-skip-word -1 2 line-beginning-position] 8 (#$ . 34859)])
#@14
(fn CLICK)
(defalias 'mouse-set-mark-fast #[257 "\300!\210\301!\302\211@\262!\210\303!\247\205 \304\303!\305\211#\207" [mouse-minibuffer-check event-start select-window posn-point push-mark t] 6 (#$ . 36160)])
#@15
(fn EVENTS)
(defalias 'mouse-undouble-last-event #[257 "\211GS\211\233\211@\300!\301!\302\303\302\304\305!\"\":\203) \306\307B!!AB\202* \240\210\232\204B \310\311\312\n\"!\203B \313\202G \240\210\314\207" [event-basic-type event-modifiers delq double triple copy-sequence event-convert-list reverse key-binding apply vector t nil] 12 (#$ . 36385)])
#@148 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.
(fn CLICK)
(defalias 'mouse-set-mark #[257 "\301!\210\302\303!\211@\262!\210`\304\305\306\307\310!\311\"\312$\216\313!\210\314\315\316\211#\210\206, \317\312!)\207" [transient-mark-mode mouse-minibuffer-check select-window event-start make-byte-code 0 "\300b\207" vconcat vector [] 1 mouse-set-point push-mark nil t sit-for] 8 (#$ . 36759) "e"])
#@124 Kill the region between point and the mouse click.
The text is saved in the kill ring, as with \[kill-region].
(fn CLICK)
(defalias 'mouse-kill #[257 "\300!\210\301!\302!\303\211@\262!\210\211\247\205 \304`^`]\"\207" [mouse-minibuffer-check event-start posn-point select-window kill-region] 7 (#$ . 37254) "e"])
#@322 Insert the last stretch of killed text at the position clicked on.
Also move point to one end of the text thus inserted (normally the end),
and set mark at the beginning.
Prefix arguments are interpreted as with \[yank].
If `mouse-yank-at-point' is non-nil, insert at point
regardless of where you click.
(fn CLICK ARG)
(defalias 'mouse-yank-at-click #[514 "\304\305!\210\203 \306 \210 \204 \307!\210\310\311\310!\207" [select-active-regions mouse-yank-at-point this-command mouse-selection-click-count run-hooks mouse-leave-buffer-hook deactivate-mark mouse-set-point yank 0] 4 (#$ . 37582) "e\nP"])
#@226 Insert the primary selection at the position clicked on.
Move point to the end of the inserted text, and set mark at
beginning. If `mouse-yank-at-point' is non-nil, insert at point
regardless of where you click.
(fn CLICK)
(defalias 'mouse-yank-primary #[257 "\302\303!\210\203 \304\305 \210) \204 \306!\210\307 \310 \210\311!\207" [select-active-regions mouse-yank-at-point run-hooks mouse-leave-buffer-hook nil deactivate-mark mouse-set-point gui-get-primary-selection push-mark insert-for-yank] 4 (#$ . 38198) "e"])
#@146 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].
(fn CLICK)
(defalias 'mouse-kill-ring-save #[257 "\302!\210\303\211\304`\305\306!\"*\207" [last-command this-command mouse-set-mark-fast nil kill-ring-save mark t] 5 (#$ . 38732) "e"])
(defvar mouse-save-then-kill-posn nil)
#@16
(fn BEG END)
(defalias 'mouse-save-then-kill-delete-region #[514 "\303 \210U\204 \304=\203 |\210\202m \304\211V\203$ \305\202% \306\\|\210)\304\307\305\"\210)\304\n@G]^ZU\204G \310\311!\210|\210)\211\203_ \211@@;\204_ \211A\262\202M \211\203l \211\n@^B\240\210\210\303 \207" [buffer-undo-list inhibit-modification-hooks kill-ring undo-boundary t 1 -1 primitive-undo error "Lossage in mouse-save-then-kill-delete-region"] 7 (#$ . 39099)])
#@817 Set the region according to CLICK; the second time, kill it.
CLICK should be a mouse click event.
If the region is inactive, activate it temporarily. Set mark at
the original point, and move point to the position of CLICK.
If the region is already active, adjust it. Normally, do this by
moving point or mark, whichever is closer, to CLICK. But if you
have selected whole words or lines, move point or mark to the
word or line boundary closest to CLICK instead.
If `mouse-drag-copy-region' is non-nil, this command also saves the
new region to the kill ring (replacing the previous kill if the
previous region was just saved to the kill ring).
If this command is called a second consecutive time with the same
CLICK position, kill the region (or delete it
if `mouse-drag-copy-region' is non-nil).
(fn CLICK)
(defalias 'mouse-save-then-kill #[257 "\306!\210\307!\310!\211@\262\311! =\203) r\211q\210\312\313!)\203) \n\202* \314\247\2043 \315\202 \316=\203b \f=\203b \317 =\203b
\203R \320!\210\202Z \321\312\313!`\322#\210\314\315\211\202rq\210\323 )\204\223 \317 =\203\324 \312\313!\203\324 \316=\203\203 \f\204\223 \324>\203\324 \204\223 \204\324 \325!\210\326\211#\327\312\313!Z!\327`Z!W\203\265 \330@!\210\202\272 \211A@b\210\315!\331 \210
\203\314 \332 \315!\313\"\210\211\262\202\325!\210\333!\210rq\210\")\211\203\353 \211b\210\210\334 \210\331 \210
\203\377 \332\335\312\313!`\"!\210\211)\207" [this-command mouse-selection-click-count-buffer mouse-selection-click-count last-command mouse-save-then-kill-posn mouse-drag-copy-region mouse-minibuffer-check event-start posn-point window-buffer mark t 0 nil mouse-save-then-kill selected-window delete-only kill-region region region-active-p (mouse-drag-region mouse-set-region) select-window mouse-start-end abs set-mark mouse-set-region-1 kill-new mouse-set-mark-fast exchange-point-and-mark filter-buffer-substring region-extract-function mark-even-if-inactive transient-mark-mode deactivate-mark point-before-scroll] 11 (#$ . 39572) "e"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [global-set-key [M-mouse-1] mouse-start-secondary [M-drag-mouse-1] mouse-set-secondary [M-down-mouse-1] mouse-drag-secondary [M-mouse-3] mouse-secondary-save-then-kill [M-mouse-2] mouse-yank-secondary] 3)
#@111 An overlay which records the current secondary selection.
It is deleted when there is no secondary selection.
(defconst mouse-secondary-overlay (byte-code "\300ee\"\301!\210\302\303\304#\210\211\207" [make-overlay delete-overlay overlay-put face secondary-selection] 5) (#$ . 41944))
(defvar mouse-secondary-click-count 0)
(defvar mouse-secondary-start nil)
#@177 Set one end of the secondary selection to the position clicked on.
Use \[mouse-secondary-save-then-kill] to set the other end
and complete the secondary selection.
(fn CLICK)
(defalias 'mouse-start-secondary #[257 "\302!\210\303!r\304\211@\262!q\210\305!\210\306!\247\205) \204# \307 \306!\310\223)\207" [mouse-secondary-overlay mouse-secondary-start mouse-minibuffer-check event-start window-buffer delete-overlay posn-point make-marker nil] 5 (#$ . 42311) "e"])
#@127 Set the secondary selection to the text that the mouse is dragged over.
This must be bound to a mouse drag event.
(fn CLICK)
(defalias 'mouse-set-secondary #[257 "\301!\210\302!\303\304!r\305\211@\262!q\210\306!\247\203! \306!\262\307\306!#\210\310\311\312!\313!{\")\207" [mouse-secondary-overlay mouse-minibuffer-check event-start nil event-end window-buffer posn-point move-overlay gui-set-selection SECONDARY overlay-start overlay-end] 9 (#$ . 42793) "e"])
#@261 Set the secondary selection to the text that the mouse is dragged over.
Highlight the drag area as you move the mouse.
This must be bound to a button-down mouse event.
The function returns a non-nil value if it creates a secondary selection.
(fn START-EVENT)
(defalias 'mouse-drag-secondary #[257 "\304!\210\305\306!\307!\211@\262\310!\211A@\311!\203# \3128\202' \3128S\211:\203; \3138\250\203; \3138\202< \314\262Sr\315!q\210\211\316\312\"\305V\203l \317\211#\n\320\211\223\210\321 @A@\315\n!$\266\202} \n\204s \322 \n\320\223\210\323 !\210\320C\320C\320C\324\325\305\326\327\330
&\331\"\332$!\210\242:\205\342 \333\n!\203\330 \334 \325\305\335\327\330!\336\"\313$\216\323 !\210\337\340\320\"\210\341 !\210\212\nb\210\342\314!\210*\320\262\202\342 \337\340\343 !\344 !{\"\266\203*\207" [echo-keystrokes mouse-secondary-click-count mouse-secondary-start mouse-secondary-overlay mouse-minibuffer-check 0 event-start posn-point window-edges window-minibuffer-p 3 2 1 window-buffer mod mouse-start-end nil move-overlay make-marker delete-overlay internal--track-mouse make-byte-code "\305\310 \240\210\305\242\211\242\311=\262\204 \305\242\242\312>\205\230 \305\242\242\313>\204 \306\314\305\242!\240\210\307\315\306\242!\240\210\306\242\211@\262\301=\203h \316\307\242!\203h \317\300\307\242\304#\300\307\242U\203T \320!\204d \321\211\223\210\322@A@#\210\210\202 \323 AA\211\203\224 \211\302W\203\203 \324\301\302Z\300$\210\202\224 \211\303Y\203\224 \324\301\303ZT\300$\210\210\202 \207" vconcat vector [read-event mouse-movement (switch-frame select-window) (switch-frame select-window) event-end posn-point integer-or-marker-p mouse-start-end marker-position nil move-overlay mouse-position mouse-scroll-subr mouse-secondary-start mouse-secondary-overlay] 6 marker-position current-window-configuration "\301\300!\207" [set-window-configuration] gui-set-selection SECONDARY select-window sit-for overlay-start overlay-end] 25 (#$ . 43274) "e"])
#@200 Insert the secondary selection at the position clicked on.
Move point to the end of the inserted text.
If `mouse-yank-at-point' is non-nil, insert at point
regardless of where you click.
(fn CLICK)
(defalias 'mouse-yank-secondary #[257 "\301\302!\210\204\f \303!\210\304\305!\211\203 \306!\202 \307\310!\207" [mouse-yank-at-point run-hooks mouse-leave-buffer-hook mouse-set-point gui-get-selection SECONDARY insert-for-yank error "No secondary selection"] 4 (#$ . 45295) "e"])
#@310 Kill the text in the secondary selection.
This is intended more as a keyboard command than as a mouse command
but it can work as either one.
The current buffer (in case of keyboard use), or the buffer clicked on,
must be the one that the secondary selection is in. This requirement
is to prevent accidents.
(defalias 'mouse-kill-secondary #[0 "\302 \211GS\234\303!<\203 \304\305!\211@\262!\202 p=\204$ \306\307!\210\266\310r\303!q\210\311\312!\313!\"\210*\314!\207" [mouse-secondary-overlay this-command this-command-keys overlay-buffer window-buffer event-start error "Select or click on the buffer where the secondary selection is" nil kill-region overlay-start overlay-end delete-overlay] 6 (#$ . 45785) nil])
#@656 Set the secondary selection and save it to the kill ring.
The second time, kill it. CLICK should be a mouse click event.
If you have not called `mouse-start-secondary' in the clicked
buffer, activate the secondary selection and set it between point
and the click position CLICK.
Otherwise, adjust the bounds of the secondary selection.
Normally, do this by moving its beginning or end, whichever is
closer, to CLICK. But if you have selected whole words or lines,
adjust to the word or line boundary closest to CLICK instead.
If this command is called a second consecutive time with the same
CLICK position, kill the secondary selection.
(fn CLICK)
(defalias 'mouse-secondary-save-then-kill #[257 "\306!\210\307!\310!\211@\262\311!\312 !=\203 \n\202! \313\314 !\315 !\247\203\370 \312 !\206: \205: \316 !=\204\\ \317!\210\320 \211`\321\223\210\322 `$\210\323`\"\210\202\370 \f\324=\203
=\203 \325 =\203 \326\"\210\327 !\210\313\321\202\370 \203\335 \312 !=\203\335 \330\211#\331Z!\331Z!W\203\253 \322 @#\210\202\263 \322 A@#\210\210\321 \f\324=\203\313 \332\314 !\315 !{\333\"\210\202\330 \321 \334\314 !\315 !\"\210)\202\370 \317!\210 \203\366 \313\\\323\"\210\322 #\266)\266\321\312 !\205\314 !\315 !{\211\262\205\211G\313V\205\335\336\"\207" [this-command mouse-secondary-overlay mouse-secondary-click-count mouse-secondary-start last-command mouse-save-then-kill-posn mouse-minibuffer-check event-start posn-point window-buffer overlay-buffer 0 overlay-start overlay-end marker-buffer select-window make-marker nil move-overlay kill-ring-save mouse-secondary-save-then-kill selected-window mouse-save-then-kill-delete-region delete-overlay mouse-start-end abs kill-new t copy-region-as-kill gui-set-selection SECONDARY deactivate-mark] 14 (#$ . 46520) "e"])
#@73 Return non-nil if the secondary selection exists in the current buffer.
(defalias 'secondary-selection-exist-p #[0 "\301ed\">\207" [mouse-secondary-overlay overlays-in] 4 (#$ . 48364)])
#@413 Set beginning and end of the region to those of the secondary selection.
This puts mark and point at the beginning and the end of the
secondary selection, respectively. This works when the secondary
selection exists and the region does not exist in current buffer;
the secondary selection will be deleted afterward.
If the region is active, or the secondary selection doesn't exist,
this function does nothing.
(defalias 'secondary-selection-to-region #[0 "\301 ?\205 \302 \205 \303!\304!\305\306\211#\210\211b\266\307!\207" [mouse-secondary-overlay region-active-p secondary-selection-exist-p overlay-start overlay-end push-mark t delete-overlay] 6 (#$ . 48558)])
#@127 Set beginning and end of the secondary selection to those of the region.
When there is no region, this function does nothing.
(defalias 'secondary-selection-from-region #[0 "\301 \205 \302!\210\303\304 \305 #\207" [mouse-secondary-overlay region-active-p delete-overlay move-overlay region-beginning region-end] 4 (#$ . 49238)])
#@120 Whether the mouse tracks the cursor when selecting a rectangle.
If nil, the mouse tracks the rectangle corner instead.
(defconst mouse--rectangle-track-cursor t (#$ . 49577))
#@132 Set the region to the rectangle that the mouse is dragged over.
This must be bound to a button-down mouse event.
(fn START-EVENT)
(defalias 'mouse-drag-region-rectangle #[257 "\303\304!\304!\305!\211@\262\306!\307!@\\\310!\211A@\311!\203+ \3128\202/ \3128S\313\314\315!!\316C \n\317\320\321\322\323!\324\"\325\326%\327 \330\331\332#\210\330\333\332#\210\330\334\317\320\335\322\323& \336\"\337\340\341&#\210\3421\230 \343\211\344\343\317\303\345\322\323\f\f\f#\346\"\312$#0\202\244 \347@A\"\262)\207" [scroll-margin track-mouse mouse-fine-grained-tracking 0 event-start posn-point window-hscroll posn-col-row window-edges window-minibuffer-p 3 round line-number-display-width columns nil make-byte-code 257 "\302 \303=\203 \304\305 \300 \203 \306\202 \307$\207\211\300Z\207" vconcat vector [mouse--rectangle-track-cursor current-bidi-paragraph-direction right-to-left - window-width 1 -1] 6 "\n\n(fn COL)" make-sparse-keymap define-key [switch-frame] ignore [select-window] [mouse-movement] "\307\242\204D \307\311\240\210\312\300!\210\313 \210\314\315!\210
\316=\203 \317\202# \320
B
\321\301!\210\322 \210l\2046 g\323=\203D \310\304!\324\325\"\210\324\326\"\266\327!\211\211@\262\330!\203X \331!\202Y \332\333 AA\334\335!@*\203l \332\202m \336#\337\332\340\341\342\310\"\343\"\344$\337\332\345\341\342\310#\346\"\344$\303=\203\247 \203\247 \347\305\306S#\203\247 \321!\210 \202\316 ?\206\316 \305W\203\276 \350\303\305Z\351\302%\202\316 \306Y\205\316 \350\303\306ZT\351\302%\207" [t mouse-minibuffer-check deactivate-mark make-local-variable transient-mark-mode lambda (only) only posn-set-point rectangle-mark-mode 9 rectangle--col-pos mark point event-end window-live-p window-hscroll 0 mouse-position + posn-col-row 1 make-byte-code "l\204\n g\303=\203 \304\300\301!\305\"\207\n\204 \306u\210\307 \207" vconcat vector [mouse--rectangle-track-cursor 9 rectangle--col-pos point nil rectangle--reset-point-crutches] 3 "\303\300\301!!\210\302 \207" [move-to-column] <= mouse-scroll-subr nil mouse--rectangle-track-cursor] 15 "\n\n(fn EVENT)" "e" (error) t set-transient-map "\301\302\300\242\203 \305 \203 \306\305 `\"\307\232\205 \310 \207" [track-mouse mouse-fine-grained-tracking mark rectangle-dimensions (0 . 1) deactivate-mark] signal] 34 (#$ . 49759) "e"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\316\322\323&\207" [global-set-key [C-M-down-mouse-1] mouse-drag-region-rectangle [C-M-drag-mouse-1] ignore [C-M-mouse-1] mouse-set-point custom-declare-variable mouse-buffer-menu-maxlen funcall function #[0 "\300\207" [20] 1] "Number of buffers in one pane (submenu) of the buffer menu.\nIf we have lots of buffers, divide them into groups of\n`mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one." :type integer mouse-buffer-menu-mode-mult #[0 "\300\207" [4] 1] "Group the buffers by the major mode groups on \\[mouse-buffer-menu]?\nThis number which determines (in a hairy way) whether \\[mouse-buffer-menu]\nwill split the buffer menu by the major modes (see\n`mouse-buffer-menu-mode-groups') or just by menu length.\nSet to 1 (or even 0!) if you want to group by major mode always, and to\na large number if you prefer a mixed multitude. The default is 4." :version "20.3"] 8)
#@187 How to group various major modes together in \[mouse-buffer-menu].
Each element has the form (REGEXP . GROUPNAME).
If the major mode's name string matches REGEXP, use GROUPNAME instead.
(defvar mouse-buffer-menu-mode-groups (mapcar #[257 "\300@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] '(("Info\\|Help\\|Apropos\\|Man" . "Help") ("\\bVM\\b\\|\\bMH\\b\\|Message\\b\\|Mail\\|Group\\|Score\\|Summary\\|Article" . "Mail/News") ("\\<C\\>" . "C") ("ObjC" . "C") ("Text" . "Text") ("Outline" . "Text") ("\\(HT\\|SG\\|X\\|XHT\\)ML" . "SGML") ("log\\|diff\\|vc\\|cvs\\|Git\\|Annotate" . "Version Control") ("Threads\\|Memory\\|Disassembly\\|Breakpoints\\|Frames\\|Locals\\|Registers\\|Inferior I/O\\|Debugger" . "GDB") ("Lisp" . "Lisp"))) (#$ . 53161))
#@150 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.
(fn EVENT)
(defalias 'mouse-buffer-menu #[257 "\300!\210\301\302 \"\303!\211@\262\205' \304\305!\203! \306!\202\" !\210\307!\207" [mouse-minibuffer-check x-popup-menu mouse-buffer-menu-map event-start select-window framep frame-selected-window switch-to-buffer] 6 (#$ . 53915) "e"])
(defalias 'mouse-buffer-menu-map #[0 "\304 \305\211\211\203n \211@r\211q\210\305 \211\203- \211@\306@\307\n!\"\203& \211A\262A\266\202\202 \210\310\"\262\211\204S \211;\203C \202J \307\n\305\211$D\262\211B\262AA>\204d \211AAAB\241\210\266)A\266\202\202 \210\311\262\211\203\214 @AAG\211_\262\\\262\211A\262\202s \210\211 _GG_W\203\373 \305G\312\313\"\262\203\333 @G\314V\203\333 \211\315_GV\203\333 \316@AA!\211\203\313 @A@BB\262\210\211@AGZ\262A\262\202\242 \203\362 \316\317\320\"!\211\203\361 \321BB\262\210\322\237B\266\202\202\322\323\324\316!\"B\207" [major-mode mouse-buffer-menu-mode-groups mode-name mouse-buffer-menu-mode-mult buffer-list nil string-match format-mode-line assoc 0 sort #[514 "GGV\207" [] 4 "\n\n(fn ELT1 ELT2)"] 3 10 mouse-buffer-menu-alist mapcan cddr "Others" "Buffer Menu" mouse-buffer-menu-split "Select Buffer"] 13])
#@16
(fn BUFFERS)
(defalias 'mouse-buffer-menu-alist #[257 "\302\303\302\304\305\"\262\262\203+ \306@!\303H\307=\204$ \306@!G]\262A\262\202\f \262\203\205 @\306!\303H\307U\204} \310\211\311\"\306!\312!\203P \313\202Q \314rq\210\203] \315\202^ \314)\316!\206v rq\210 \205q \317 !)\206v \320%BB\262\210A\262\202. \211\237\207" [buffer-read-only list-buffers-directory nil 0 sort #[514 "\300!\300!\231\207" [buffer-name] 5 "\n\n(fn ELT1 ELT2)"] buffer-name 32 format "%%-%ds %%s%%s %%s" buffer-modified-p "*" " " "%" buffer-file-name expand-file-name ""] 12 (#$ . 55263)])
#@20
(fn TITLE ALIST)
(defalias 'mouse-buffer-menu-split #[514 "\211G\301_\302\245V\203: \211\303\211\304\2037 \233\262\203# S\233\303\241\210\305\306\"BB\262\211T\262\262\202 \237\207BC\207" [mouse-buffer-menu-maxlen 3 2 nil 1 format "Buffers %d"] 9 (#$ . 55869)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias mouse-choose-completion choose-completion nil make-obsolete "23.2"] 4)
(defalias 'font-menu-add-default #[0 "\301\302\303\"\304\305\"\206 \211A@\304\306\"\203 \307\304\306\"\"\210\211\306DAB\241\207" [x-fixed-font-alist frame-parameter nil font assoc "Misc" "Default" delete] 7])
#@36 X fonts suitable for use in Emacs.
(defvar x-fixed-font-alist (byte-code "\300\301!\300\302!\303\304\305\"B\300\306!\303\307\310\"BE\207" [purecopy "Font Menu" "Misc" mapcar #[257 "\300@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] (("fixed" "fixed") ("6x10" "-misc-fixed-medium-r-normal--10-*-*-*-c-60-iso8859-1" "6x10") ("6x12" "-misc-fixed-medium-r-semicondensed--12-*-*-*-c-60-iso8859-1" "6x12") ("6x13" "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-60-iso8859-1" "6x13") ("7x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-70-iso8859-1" "7x13") ("7x14" "-misc-fixed-medium-r-normal--14-*-*-*-c-70-iso8859-1" "7x14") ("8x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-80-iso8859-1" "8x13") ("9x15" "-misc-fixed-medium-r-normal--15-*-*-*-c-90-iso8859-1" "9x15") ("10x20" "-misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1" "10x20") ("11x18" "-misc-fixed-medium-r-normal--18-*-*-*-c-110-iso8859-1" "11x18") ("12x24" "-misc-fixed-medium-r-normal--24-*-*-*-c-120-iso8859-1" "12x24") (#1="") ("clean 5x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1") ("clean 6x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-60-iso8859-1") ("clean 8x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-80-iso8859-1") ("clean 8x10" "-schumacher-clean-medium-r-normal--10-*-*-*-c-80-iso8859-1") ("clean 8x14" "-schumacher-clean-medium-r-normal--14-*-*-*-c-80-iso8859-1") ("clean 8x16" "-schumacher-clean-medium-r-normal--16-*-*-*-c-80-iso8859-1") (#1#) ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1") ("lucidasanstypewriter-12" "-b&h-lucidatypewriter-medium-r-normal-sans-*-120-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-14" "-b&h-lucidatypewriter-bold-r-normal-sans-*-140-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-24" "-b&h-lucidatypewriter-bold-r-normal-sans-*-240-*-*-*-*-iso8859-1")) "Courier" #[257 "\300@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] (("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"))] 6) (#$ . 56512))
#@62 Prompt for a font name, using `x-popup-menu', and return it.
(defalias 'mouse-select-font #[0 "\302 \204 \303\304!\210\305<\203 \202 \306\307 D\310 \311 C\"\"@\207" [last-nonmenu-event x-fixed-font-alist display-multi-font-p error "Cannot change fonts on this display" x-popup-menu (0 0) selected-window append generate-fontset-menu] 5 (#$ . 60079) nil])
#@230 Set the default font for the selected frame.
The argument FONTS is a list of font names; the first valid font
in this list is used.
When called interactively, pop up a menu and allow the user to
choose a font.
(fn &rest FONTS)
(defalias 'mouse-set-font #[128 "\211\2052 \300\203( \3011 \302@!\210@\262\300\211\2620\202$ \210A\211\262\210\202 \211?\2050 \303\304!\262\207" [nil (error) set-frame-font error "Font not found"] 4 (#$ . 60446) (byte-code "\302 \204 \303\304!\210\305<\203 \202 \306\307 D\310 \311 C\"\"\207" [last-nonmenu-event x-fixed-font-alist display-multi-font-p error "Cannot change fonts on this display" x-popup-menu (0 0) selected-window append generate-fontset-menu] 5)])
(defvar mouse-appearance-menu-map nil)
#@78 Show a menu for changing the default face in the current buffer.
(fn EVENT)
(defalias 'mouse-appearance-menu #[257 "\305\306!\210\307 \205%\310\311!@!r\312\313\314\315\316!\317\"\320$\216\321@\322\"\210\204\317 \323\324!\325\326\327#\210\325\330\331#\210\325\332\333#\210\334\335!\203U \336\301!\203L \203U \325\337\340#\210\202\317 \323\341!\342\n\343=\203c \202d \f\344 C\"A\211\211\203\303 \211@\211@\323!A\211\203\254 \211@\211@\345\346\230\203\217 \325\347\350#\210\202\243 \351A@!\262\325\316!\352@E#\210\266A\266\202\202w \210\325\316\351!!\352E#\266A\266\202\202j \210\325\353\352\341E#\266\354\"\211GS8\262\211\355\267\202\366 \356\357!\202 \356\360!\202 \361\313!\210\362\313!\202 \211\205 \211\335=\203\335 \202\363!\364\365\366\"\203\367D\202\370!\371\372\373!#\262\262*\262\207" [mouse-appearance-menu-map w32-use-w32-font-dialog system-type w32-fixed-font-alist x-fixed-font-alist require face-remap display-multi-font-p internal--before-with-selected-window event-start make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord make-sparse-keymap "Change Default Buffer Face" define-key [face-remap-reset-base] (menu-item "Reset to Default" face-remap-reset-base) [text-scale-decrease] (menu-item "Decrease Buffer Text Size" text-scale-decrease) [text-scale-increase] (menu-item "Increase Buffer Text Size" text-scale-increase) functionp x-select-font boundp [x-select-font] (menu-item "Change Buffer Font..." x-select-font) "Change Text Font" append windows-nt generate-fontset-menu nil "" [space] ("--") intern menu-item [font-submenu] x-popup-menu #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (text-scale-increase 224 text-scale-decrease 230 face-remap-reset-base 236)) text-scale-increase 1 -1 text-scale-mode buffer-face-mode symbol-name buffer-face-mode-invoke fontp font-spec :font font-face-attributes t called-interactively-p interactive] 18 (#$ . 61202) "@e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\"\315\"BB\316\317&\210\300\320\302\303\321DD\322\306\323\316\317&\210\300\324\302\303\325DD\326\306\327\316\317&\210\300\330\302\303\331DD\332\306\323\316\317&\210\333\301\334\335\316\317%\207" [custom-declare-variable mouse-drag-and-drop-region funcall function #[0 "\300\207" [nil] 1] "If non-nil, dragging the mouse drags the region, if it exists.\nIf the value is a modifier, such as `control' or `shift' or\n`meta', then if that modifier key is pressed when dropping the\nregion, text is copied instead of being cut." :type choice (const :tag "Disable dragging the region" nil) append mapcar #[257 "\300\301\302\303\"\304BBB\207" [const :tag format "Enable, but copy with the %s modifier" (modifier)] 6 "\n\n(fn MODIFIER)"] (alt super hyper shift control meta) ((other :tag "Enable dragging the region" t)) :version "26.1" mouse-drag-and-drop-region-cut-when-buffers-differ #[0 "\300\207" [nil] 1] "If non-nil, cut text also when source and destination buffers differ.\nIf this option is nil, `mouse-drag-and-drop-region' will leave\nthe text in the source buffer alone when dropping it in a\ndifferent buffer. If this is non-nil, it will cut the text just\nas it does when dropping text in the source buffer." boolean mouse-drag-and-drop-region-show-tooltip #[0 "\300\207" [256] 1] "If non-nil, text is shown by a tooltip in a graphic display.\nIf this option is nil, `mouse-drag-and-drop-region' does not show\ntooltips. If this is t, it shows the entire text dragged in a\ntooltip. If this is an integer (as with the default value of\n256), it will show that many characters of the dragged text in\na tooltip." integer mouse-drag-and-drop-region-show-cursor #[0 "\300\207" [t] 1] "If non-nil, move point with mouse cursor during dragging.\nIf this is nil, `mouse-drag-and-drop-region' leaves point alone.\nOtherwise, it will move point together with the mouse cursor and,\nin addition, temporarily highlight the original region with the\n`mouse-drag-and-drop-region' face." custom-declare-face ((t :inherit region)) "Face to highlight original text during dragging.\nThis face is used by `mouse-drag-and-drop-region' to temporarily\nhighlight the original region when\n`mouse-drag-and-drop-region-show-cursor' is non-nil."] 11)
#@352 Move text in the region to point where mouse is dragged to.
The transportation of text is also referred as `drag and drop'.
When text is dragged over to a different buffer, or if a
modifier key was pressed when dropping, and the value of the
variable `mouse-drag-and-drop-region' is that modifier, the text
is copied instead of being cut.
(fn EVENT)
(defalias 'mouse-drag-and-drop-region #[257 "\211C\306! \205 \307 \205 \310\311!\205 \312 \313 `p\314 \nC\315\316\317 \"\320 \321C\321C\321C\321C\321C\321\211C\321\211C\321C\321C\321\322\323\324\325\326\327!\330\"\331\332%!\210\3331\250\334\323\335\336\326\327&\337\"\340$!\210 \203\201 \341 \210 \342\242!\235?\262\242?\262\242\203\241 \306\242!\232\204\250 \343\240\210\343\262\203\261 \f\202\263 \f? \242\232\211\205\300 ?\205\306 \f
\242\206\327 \204\324 \211\205\327 \242\203\347 \305 \210\344\242!\202\241 \242\203\362 \n\204\366 \211\203 \242\204\211\203\345\346!\210\347!\210b\210\321\350 \210\205\241\351 \202\241\347\242!\210
\242\262\242b\210\352 \210\353\242!\210\354 `\232\204I\321\350 \210\203I\351 \210\203q\n\205\241\321 \211\205k\211@\355!\356!|\210A\266\202\202V\262)\202\241\347!\210b\210\f\203\231\211\203\225\211@\355!\356!|\210A\266\202\202\200\210\202\234\350 \210\347\242!)\266\2040\202\254\210\202\255\210
\211\203\300\211@\357!\210A\266\202\202\257\210\242\211\205\211@\211@\203\362\211=\204\362\360A@\361#\210A@\321\211\223\210\362\3638\"\210\3638\321\211\223\210r\364!q\210\36586)\210A\266\202\202\303\262)\266\225\207" [last-input-event mouse-drag-and-drop-region-show-tooltip buffer-read-only mouse-drag-and-drop-region mouse-drag-and-drop-region-cut-when-buffers-differ deactivate-mark event-basic-type display-multi-frame-p require tooltip region-beginning region-end selected-window mapcar #[257 "\300@A\"\207" [make-overlay] 4 "\n\n(fn BOUNDS)"] region-bounds region-noncontiguous-p nil walk-window-tree make-byte-code 257 "\300\302\303!!\302\304!!r\305!q\210 )F\300\242B\240\207" vconcat vector [cursor-type copy-marker window-start window-point window-buffer] 7 "\n\n(fn WINDOW)" (error) internal--track-mouse 0 "\316:\300\317 \240\210\300\242\211\242\320=\262\204 \300\242@\321>\205\200\314\242\204\205 \314;\322!\240\210<\203W <\315\250\203R \314\242GV\203R \323\314\242\324\325\245#\326\323\314\242\325\245[\327#Q\202T \314\242\240\266\303\211\242\206\203 \3302\203 \331 \211\205\200 \211@\332@A\333\322$\203y \334\330\335\"\210A\266\202\202c \2620\240\210\310\336\300\242!\211@\262\240\210\306\337\336\300\242!!\240\210\311\322\340\310\242!\205\260 \341\310\242!\262\342!?\205\260 \211\262\240\210\312\310\242\205\301 \306\242\205\301 \311\242\240\210\312\242\203,\343 \344\324\345\346\347!\350\"\325$\216\351\310\242!\210\307=\206\346 \352\306\242\333\"\240\210)\210\313\353\304@!\311\242=\205*\305\203\354\301\302\"\355\301!\355\306\242!\356$\205\211@@W?\266\203\202*\357\304@!\306\242X\205*\306\242\360\304@!X\240\210<\2039\361\315\242!\210\202<\362 \210>\203 \312\242\204J\322\202Y\307\242\204T\313\242\203X\363\202Y\364?\312\242\203 \304\211\203t\211@\365\366\367#\210A\266\202\202a\210\370 \210\371\300\242!\210\202 \207" [dropping read-key mouse-movement (select-window switch-frame) nil substring 0 2 "\n...\n" -1 loop region-bounds text-property-not-all read-only throw t event-end posn-point windowp window-buffer minibufferp current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] select-window get-text-property overlay-buffer rectangle-dimensions rectangle-position-as-coordinates rectangle-intersect-p overlay-start overlay-end tooltip-show tooltip-hide hollow bar overlay-put face mouse-drag-and-drop-region deactivate-mark mouse-set-point track-mouse region-extract-function mouse-drag-and-drop-region-show-tooltip buffer-read-only mouse-drag-and-drop-region-show-cursor cursor-type] 9 tooltip-hide event-modifiers t mouse-set-point message "Buffer is read-only" select-window activate-mark rectangle-mark-mode push-mark insert-for-yank mark overlay-start overlay-end delete-overlay set-window-start noforce set-window-point 2 window-buffer 3 cursor-type] 43 (#$ . 65560) "e"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [global-set-key [down-mouse-1] mouse-drag-region [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region] 3)
#@15
(fn PROMPT)
(defalias 'mouse--strip-first-event #[257 "\300\301 \302\"\207" [substring this-single-command-raw-keys 1] 4 (#$ . 70089)])
(byte-code "\302\303\304#\210\302\305\304#\210\306\307\310\"\210\302\311\304#\210\302\312\304#\210\306\313\314\"\210\302\315\304#\210\302\316\304#\210\306\317\320\"\210 \321=\204> \306\322\323\"\210\306\324\325\326\327!\330BB\"\210\306\331\332\"\210\306\333\334\"\210\306\335\334\"\210\306\336\337\"\210\306\340\334\"\210\306\341\342\"\210\306\343\344\"\210\306\345\346\"\210\306\347\350\"\210\306\351\346\"\210\306\352\353\"\210\306\354\334\"\210\306\355\350\"\210\306\356\353\"\210\306\357\360\"\210\306\361\350\"\210\306\362\337\"\210\306\363\360\"\210\306\364\346\"\210\306\365\366\"\210\306\367\360\"\210\306\370\371\"\210\306\372\360\"\210\306\373\374\"\210\306\375\360\"\210\306\376\377\"\210\306\201@ \360\"\210\306\201A \201B \"\210\306\201C \360\"\210\306\201D \201E \"\210\306\201F \360\"\210\306\201G \201H \"\210\306\201I \360\"\210\306\201J \201K \"\210\306\201L \360\"\210\201M \201N !\207" [function-key-map system-type define-key [left-fringe mouse-1] mouse--strip-first-event [right-fringe mouse-1] global-set-key [mouse-2] mouse-yank-primary [right-fringe mouse-2] [left-fringe mouse-2] [mouse-3] mouse-save-then-kill [right-fringe mouse-3] [left-fringe mouse-3] [C-down-mouse-1] mouse-buffer-menu ms-dos [S-down-mouse-1] mouse-appearance-menu [C-down-mouse-3] menu-item purecopy "Menu Bar" (ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) [header-line down-mouse-1] mouse-drag-header-line [header-line mouse-1] mouse-select-window [tab-line mouse-1] [mode-line down-mouse-1] mouse-drag-mode-line [mode-line mouse-1] [mode-line mouse-2] mouse-delete-other-windows [mode-line mouse-3] mouse-delete-window [mode-line C-mouse-2] mouse-split-window-horizontally [vertical-scroll-bar C-mouse-2] mouse-split-window-vertically [horizontal-scroll-bar C-mouse-2] [vertical-line down-mouse-1] mouse-drag-vertical-line [vertical-line mouse-1] [vertical-line C-mouse-2] [right-divider down-mouse-1] [right-divider mouse-1] ignore [right-divider C-mouse-2] [bottom-divider down-mouse-1] [bottom-divider mouse-1] [bottom-divider C-mouse-2] [left-edge down-mouse-1] mouse-drag-left-edge [left-edge mouse-1] [top-left-corner down-mouse-1] mouse-drag-top-left-corner [top-left-corner mouse-1] [top-edge down-mouse-1] mouse-drag-top-edge [top-edge mouse-1] [top-right-corner down-mouse-1] mouse-drag-top-right-corner [top-right-corner mouse-1] [right-edge down-mouse-1] mouse-drag-right-edge [right-edge mouse-1] [bottom-right-corner down-mouse-1] mouse-drag-bottom-right-corner [bottom-right-corner mouse-1] [bottom-edge down-mouse-1] mouse-drag-bottom-edge [bottom-edge mouse-1] [bottom-left-corner down-mouse-1] mouse-drag-bottom-left-corner [bottom-left-corner mouse-1] provide mouse] 5)
Mini Shell