ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mouse.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\313\321\322\314\315& \210\304\323\306\307\324DD\325\321\326\312\327\314\315& \210\304\330\306\307\331DD\332\312\313\321\326\314\315& \207" [put track-mouse lisp-indent-function 0 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 :group mouse 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."] 10)
#@149 Turn `mouse-1' events into `mouse-2' events if follows-link.
Expects to be bound to `down-mouse-1' in `key-translation-map'.
(fn &optional PROMPT)
(defalias 'mouse--down-1-maybe-follows-link #[256 "\205\226 \304=\203 \305\202 \306 \242=\205\226 \307\310 !!\205\226 \n\204. \311 \310 !\211@\262=\205\226 \312\247\203< \313!\314\245\202= \315!\247\203M \315Y\203M \211\202O \211??\205\224 \316 \211\242\304=\203a \317\202b \320=\203\215 \304=\203p \321\202q \322\211\323N\204\200 \324\323@\323N#\210\211AB B\325\262\202\222 \211 B\325\262\262\207" [mouse-1-click-follows-link last-input-event mouse-1-click-in-non-selected-windows unread-command-events double double-down-mouse-1 down-mouse-1 mouse-on-link-p event-start selected-window sit-for abs 1000.0 0 read-key double-mouse-1 mouse-1 double-mouse-2 mouse-2 event-kind put nil] 9 (#$ . 2803)])
(byte-code "\301\302\303#\210\301\304\303#\207" [key-translation-map define-key [down-mouse-1] mouse--down-1-maybe-follows-link [double-down-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!\202H \311!\205H \312\313\314\315F\316\314\317\320\321\322\323\324
DDFFF\262\211\203T \325!\202W \326\327!\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 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 (#$ . 3833) (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 (#$ . 4817) "@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 (#$ . 5387)])
#@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 (#$ . 5889)])
#@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 (#$ . 6665) "@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 (#$ . 7079) "@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 (#$ . 7536) "@e\nP"])
(make-obsolete 'mouse-popup-menubar-stuff nil "23.1")
(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 "\n\n(fn EVENT)"])
#@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 (#$ . 8328) "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 (#$ . 8645) "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 (#$ . 9158) "e"])
#@49 Delete all windows except the one you click on.
(defalias 'mouse-delete-other-windows #[0 "\300 \207" [delete-other-windows] 1 (#$ . 9479) "@"])
#@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 (#$ . 9631) "@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 (#$ . 10188) "@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 "\303\304!\210\305\306!C\211\242\211@\262C\307\242!\310=\203+ \311\242!\242\3128\262@\\\2028 \313\242!\242\3128\262A\\C\211\242C\314C\315C\315C\315C \316=\203i \317\242\320\"\203[ \315\240\210\202\312 \321\322\n\242\314#\240\210\202\312 \323=\203\234 \317\242\324\"\203\312 \325!\307!=\205\217 ?\206\217 \211\326 =?\262\203\312 \315\240\210\202\312 \310=\203\312 \327!\211\247\203\262 \211\305U\203\311 \330\331 !\236A\332=\203\311 \321\332 \242\314#\240\210\210\315C\333\334\335\336\337& \340\"\341\342\343&\n\344\345\346 \347\350\351#\210\347\352\351#\210\347\353\351#\210\347\354#\210\347\355\333\305\356\336\337
!\357\"\360\315\211&#\210\310=\203M\347\361\362\363\333\305\356\336\337!\357\"\360\315\211&\364\333\334\365\336\337!\357\"\312\366%\257#\210\347\367#\210\347\370#\210\347\371#\210\347\372#\210\347\373#\210\211\262\314\333\305\374\336\337 !\375\"\312$#\240\266\203)\207" [echo-keystrokes resize-mini-windows track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-frame vertical window-pixel-left 2 window-pixel-top t nil header window-at-side-p top window-in-direction above mode bottom minibuffer-window active-minibuffer-window frame-right-divider-width vertical-scroll-bars frame-parameters 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\242\205S\301\313!\240\210\306\301\242\211@\262\240\210\303\301\242\3148\262A\240\210\315\306\242!\203\n\303\331\306\242!\303\242\\\240\210\301\242\211A@:\203\356 \211A@@\202\361 \211A@\2119\205\367 \211\262\262\332>\203\n\303\333\306\242!\303\242\\\240\210\307\303\242\304\242Z\240\325U\204O\307\242\325V\203,\303\242\331\302\242!\334\302\242!\\W\204O\307\242\325W\203B\303\242\331\302\242!\334\302\242!\\V\204O\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 (#$ . 10753)])
#@79 Change the height of a window by dragging on the mode line.
(fn START-EVENT)
(defalias 'mouse-drag-mode-line #[257 "\300\301\"\207" [mouse-drag-line mode] 4 (#$ . 14107) "e"])
#@81 Change the height of a window by dragging on the header line.
(fn START-EVENT)
(defalias 'mouse-drag-header-line #[257 "\300\301\"\207" [mouse-drag-line header] 4 (#$ . 14291) "e"])
#@82 Change the width of a window by dragging on the vertical line.
(fn START-EVENT)
(defalias 'mouse-drag-vertical-line #[257 "\300\301\"\207" [mouse-drag-line vertical] 4 (#$ . 14481) "e"])
#@255 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.
(fn EVENT &optional PROMOTE-TO-REGION)
(defalias 'mouse-set-point #[513 "\300!\210\211\203' \211:\203 \3018\250\203 \3018\202 \302\262\302V\203' \303!\207\304\305!!\207" [mouse-minibuffer-check 2 1 mouse-set-region posn-set-point event-end] 5 (#$ . 14677) "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 (#$ . 15279)])
(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 (#$ . 15646) "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\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\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 :group mouse 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] 8)
#@274 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.
Upon exit, point is at the far edge of the newly visible text.
(fn WINDOW JUMP &optional OVERLAY START)
(defalias 'mouse-scroll-subr #[1026 "\302V\203 W\203 \262\202# \302W\203# [W\203# [\262`\303!b\210\304\"\302U\204~ \305`\"\210\306!\203_ \307!\203S \307!b\210\304S\"\210\202d \304\310!\311Z!\210\202d \303!b\210\203n \312`#\210\313 =\204x \211b\210\314 !\204$ \313 =\206\207 \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] 9 (#$ . 18325)])
(defvar mouse-selection-click-count 0)
(defvar mouse-selection-click-count-buffer nil)
#@310 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.
(fn START-EVENT)
(defalias 'mouse-drag-region #[257 "\300\301!\210\302!\207" [run-hooks mouse-leave-buffer-hook mouse-drag-track] 3 (#$ . 19189) "e"])
#@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 (#$ . 19640)])
#@1640 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 a string, the mouse-1 event is translated into the
first character of the string, i.e. the action of the mouse-1
click is the local or global binding of that character.
- If it is a vector, the mouse-1 event is translated into the
first element of that vector, 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 (#$ . 20396)])
#@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\302OQ\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" 7] 10 (#$ . 22587)])
#@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!\203: \3178\202> \3178S\211:\203R \3208\250\203R \3208\202S \321\262S
./`\n\242W\203i \242b\210 `\240\210\322\323!\210\324=\203} \325\202\201 \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 auto-hscroll-mode 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] track-mouse mouse-selection-click-count] 29 (#$ . 23295)])
(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 "\n\n(fn START CLICK CLICK-COUNT)"])
#@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 (#$ . 25290)])
#@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 (#$ . 25927)])
(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 "\n\n(fn CLICK)"])
(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 "\n\n(fn EVENTS)"])
#@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 (#$ . 27797) "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 (#$ . 28292) "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 (#$ . 28620) "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 (#$ . 29236) "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 (#$ . 29771) "e"])
(defvar mouse-save-then-kill-posn nil)
(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 "\n\n(fn BEG END)"])
#@816 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
\203S \312\313!`|\210\202Z \320\312\313!`\"\210\314\315\211\202rq\210\321 )\204\223 \317 =\203\326 \312\313!\203\326 \316=\203\203 \f\204\223 \322>\203\326 \204\223 \204\326 \323!\210\324\211#\325\312\313!Z!\325`Z!W\203\265 \326@!\210\202\272 \211A@b\210\315 \327 \210
\203\316 \330\331\312\313!`\"\313\"\210\211\262\202\323!\210\332!\210rq\210 )\211\203\355 \211b\210\210\333 \210\327 \210
\203\330\331\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 kill-region region-active-p (mouse-drag-region mouse-set-region) select-window mouse-start-end abs set-mark mouse-set-region-1 kill-new filter-buffer-substring mouse-set-mark-fast exchange-point-and-mark mark-even-if-inactive transient-mark-mode deactivate-mark point-before-scroll] 11 (#$ . 30596) "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) (#$ . 32930))
(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 (#$ . 33297) "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 (#$ . 33779) "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 (#$ . 34260) "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 (#$ . 36281) "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 (#$ . 36771) 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 (#$ . 37506) "e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311\315\316& \207" [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 :group mouse 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"] 10)
#@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\\|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\\|Annotate" . "Version Control") ("Threads\\|Memory\\|Disassembly\\|Breakpoints\\|Frames\\|Locals\\|Registers\\|Inferior I/O\\|Debugger" . "GDB") ("Lisp" . "Lisp"))) (#$ . 40245))
#@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 (#$ . 40990) "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\376 \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\365 \316\317\320\321\322\"\"!\211\203\364 \323BB\262\210\324\237B\266\202\202\324\325\326\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 apply nconc mapcar cddr "Others" "Buffer Menu" mouse-buffer-menu-split "Select Buffer"] 13])
(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 "\n\n(fn BUFFERS)"])
(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 "\n\n(fn TITLE ALIST)"])
(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 !\236A\304\305\"\206 \211A@\304\306\"\203! \307\304\306\"\"\210\211\306DAB\241\207" [x-fixed-font-alist font frame-parameters selected-frame 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) (#$ . 43596))
#@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 (#$ . 47163) 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 (#$ . 47530) (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 \2051\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=\203\346 \355\356!\202,\211\357=\203\362 \355\360!\202,\211\361=\203\362\313!\210\363\313!\202,\211\205,\211\335=\203\335 \202\364!\365\366\367\"\203\"\370D\202%\371!\372\373\374!#\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 text-scale-increase 1 text-scale-decrease -1 face-remap-reset-base 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 (#$ . 48286) "@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)
(defalias 'mouse--strip-first-event #[257 "\300 \301\302O\207" [this-single-command-raw-keys 1 nil] 4 "\n\n(fn PROMPT)"])
(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\336\"\210\306\337\334\"\210\306\340\341\"\210\306\342\343\"\210\306\344\345\"\210\306\346\347\"\210\306\350\345\"\210\306\351\352\"\210\306\353\334\"\210\306\354\347\"\210\306\355\352\"\210\306\356\357\"\210\306\360\347\"\210\306\361\336\"\210\306\362\357\"\210\306\363\345\"\210\364\365!\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 [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] provide mouse] 5)
Kontol Shell Bypass