;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mouse.el
;;; in Emacs version 24.3
;;; 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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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)
#@363 Popup the given menu and call the selected option.
MENU can be a keymap, an easymenu-style menu or a list of keymaps as for
`x-popup-menu'.
The menu is shown at the place where POSITION specifies. About
the form of POSITION, see `popup-menu-normalize-position'.
PREFIX is the prefix argument (if any) to pass to the command.

(fn MENU &optional POSITION PREFIX)
(defalias 'popup-menu #[769 "\302!\203\n\2029<\203\302@!\203\2029\303@A\"\2119\205+\304
\305N\306\"\211\2036\211K!\2027
\266\202\307\211\310!\203\235\311
\312!\"\211\262\203\235\302!\204\203<\203\203\313\314\"\307\203~\211\204~\315@\"\262
\211\247\203w\307\262
A\262\202_\262
\202\213\315\313\314\"\"\262\316\317!\210\302!\205\230
\262\202>?\205\262\320!\205\262\321!@\322!\207" [prefix-arg last-command-event keymapp easy-menu-create-menu plist-get menu-prop :filter nil popup-menu-normalize-position x-popup-menu indirect-function apply vector lookup-key message "" commandp last call-interactively] 12 (#$ . 2985)])
#@226 Convert the POSITION to the form which `popup-menu' expects internally.
POSITION can an event, a posn- value, a value having
form ((XOFFSET YOFFSET) WINDOW), or nil.
If nil, the current mouse position is used.

(fn POSITION)
(defalias 'popup-menu-normalize-position #[257 "\211\204\302 \211\211A@)
\211AA)D
@D\207\303
!\203/\211\304	8)\211@
AD\211@)D\207\305
!\203;\306\307!!\207\207" [x position mouse-pixel-position posnp 2 eventp popup-menu-normalize-position event-end] 5 (#$ . 4031)])
#@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
!\202B\311\312\313\314F\315\313\316\317\320\321\322\323
DDFFF\262
\324
!\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 keymap turn-off menu-item "Turn Off minor mode" help "Help for minor mode" lambda nil (interactive) describe-function quote popup-menu] 17 (#$ . 4538) (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 "\300
A@8@\301
!\207" [4 minor-mode-menu-from-indicator] 4 (#$ . 5449) "@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 "\n\n(fn)"])
#@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@\313=\203$
\202,\314\306@@!\"\262
\207" [nil map-keymap make-byte-code 514 "\300\211@\203\n\301\202
B\240\207" vconcat vector [t] 5 "\n\n(fn K V)" keymap-canonicalize t lookup-key] 9 (#$ . 6030)])
#@149 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.

(fn)
(defalias 'mouse-menu-bar-map #[0 "\303\304\305\"\210\306 \205\307\306 \310\"\307\311\"\312\313\314\315!\"\205#\211A@)\211A@)\203?
;\204?\316\317\n!\320PABB\262\211;\204L\316\321ABB\262\322\323$\207" [global-map x mode-name run-hooks activate-menubar-hook menu-bar-update-hook current-local-map lookup-key [menu-bar] [menu-bar] mapcar #[257 "\211@
A\211\211A@)\211;\204\"\301\302\303\304\305\306!#!\307PABB\262
\207" [x 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] 11 (#$ . 6523)])
#@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 (#$ . 7329) "@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 (#$ . 7743) "@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\307\"\206\310!\203\311 \202\312 #\207" [run-hooks activate-menubar-hook menu-bar-update-hook popup-menu zerop frame-parameter nil menu-bar-lines 0 mouse-menu-bar-map mouse-menu-major-mode-map] 7 (#$ . 8200) "@e\nP"])
(make-obsolete 'mouse-popup-menubar-stuff nil "23.1")
(defalias 'mouse-minibuffer-check #[257 "\301
!\211@)\302
!\203\303
!\204\304\305!\210\210\306\307!\207" [position event-start window-minibuffer-p minibuffer-window-active-p user-error "Minibuffer window is not active" run-hooks mouse-leave-buffer-hook] 5 "\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 "\301\302!?\205\303
!\210\304\305!\211@)!\207" [position one-window-p t mouse-minibuffer-check delete-window event-start] 5 (#$ . 9004) "e"])
#@61 Select the window clicked on; don't move point.

(fn CLICK)
(defalias 'mouse-select-window #[257 "\301
!\210\302 \303\304!\211@)!\305\304!\211@)!\210\306
!\210\307
!\210\211=\206/\310\302 \311 S\312#\207" [position mouse-minibuffer-check selected-frame window-frame event-start select-window raise-frame select-frame set-mouse-position frame-width 0] 8 (#$ . 9327) "e"])
#@89 Delete the window clicked on, and create a new frame displaying its buffer.

(fn CLICK)
(defalias 'mouse-tear-off-window #[257 "\301
!\210\302
!\211@)\303
!\304 \305
!\210\306!\210\307!\207" [position mouse-minibuffer-check event-start window-buffer make-frame select-frame switch-to-buffer delete-window] 7 (#$ . 9710) "e"])
#@55 Delete all windows except the one you click on.

(fn)
(defalias 'mouse-delete-other-windows #[0 "\300 \207" [delete-other-windows] 1 (#$ . 10045) "@"])
#@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@)!\210\305\306!!AT	\307 	Z\211W\203'\310\311!\202.\312]^!\266\203\207" [position window-min-height mouse-minibuffer-check event-start select-window posn-col-row event-end window-height error "Window too short to split" split-window-vertically] 9 (#$ . 10204) "@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@)!\210\305\306!!@T	\307 	Z\211W\203'\310\311!\202.\312]^!\266\203\207" [position window-min-width mouse-minibuffer-check event-start select-window posn-col-row event-end window-width error "Window too narrow to split" split-window-horizontally] 9 (#$ . 10727) "@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 "\305\306!\210\307\310!\211\211@)C\311
@!\312
!\n\205\313!\314=\205-\315\316!\236A\206-\317\320C\321C\321C\321C\321C\322=\203\\\323\n@\324\"\203N\321\240\210\202\262	\325\326\f@\320#\240\210\202\262\327=\203\232\323\n@\330\"\203\262\311!	=\203\223\331!A@\332\331\f@!8U\203\223\203\262\333 =\204\262\321\240\210\202\262\314=\203\262\317=\204\262	\325\334\f@\320#\240\210\335\336\337\340\307\341\342\343&	\344\"\345\346%DD!\210\211@?\205
\347@!\203\375\203\375\350
@\"\203\375\351\352\353\354#\210@\352\240\210@\fB\211)\207" [echo-keystrokes position mouse-1-click-follows-link resize-mini-windows unread-command-events run-hooks mouse-leave-buffer-hook 0 event-start window-frame minibuffer-window mouse-on-link-p vertical vertical-scroll-bars frame-parameters right t nil header window-at-side-p top window-in-direction above mode bottom window-edges 3 active-minibuffer-window left eval track-mouse funcall make-byte-code "\305\311 \240\210\305@\242\312>\205\272\306\313 \240\210\305@@\314>\204\306@@\302=\203\306@\211A@)\203\300\315=\203h\307\316\306@\211A@)\303\317=\203G\320\202H\321\321\322\301@!8\323$\240\210\324\307@!\204]\310\325\240\210\326\301@\307@\325#\210\202\304@\203\307\300\327=\203\210\316\306@\211AA)\330\322\301@!8\323#\202\227\330\322\301@!8\306@\211AA)Z\240\210\324\307@!\204\244\310\325\240\210\326\301@\300\327=\203\262\307@\202\265\307@[\"\210\202\207" vconcat vector [read-event (mouse-movement scroll-bar-movement switch-frame select-window) mouse-position (switch-frame select-window) vertical - right 0 2 window-edges -1 zerop t adjust-window-trailing-edge mode 3 x] 8 "\n\n(fn)" mouse-event-p mouse--remap-link-click-p put mouse-2 event-kind mouse-click] 30 (#$ . 11257)])
#@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 (#$ . 13319) "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 (#$ . 13503) "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 (#$ . 13693) "e"])
#@117 Move point to the position clicked on with the mouse.
This should be bound to a mouse click event type.

(fn EVENT)
(defalias 'mouse-set-point #[257 "\300
!\210\301\302!!\207" [mouse-minibuffer-check posn-set-point event-end] 4 (#$ . 13889) "e"])
(defvar mouse-last-region-beg nil)
(defvar mouse-last-region-end nil)
(defvar mouse-last-region-tick nil)
#@79 Return non-nil if there's an active region that was set with the mouse.

(fn)
(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 (#$ . 14249)])
#@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 "\306
!\210\307\310!\211@)!\210\310
!\3118\206)A@:\203&A@@\202)A@)\312!\3118\206EA@:\203BA@@\202EA@)	\203`
\250\203`\211\250\203`\313\211\211\314\"\210+
\247\203h
b\210
\204u\315 \204u\316\317!\210\320 \210\321`!\210\211\247\203\204\211b\210\322 \207" [position mouse-drag-copy-region deactivate-mark last-command this-command transient-mark-mode mouse-minibuffer-check select-window event-start 5 event-end nil copy-region-as-kill window-system sit-for 1 push-mark set-mark mouse-set-region-1] 7 (#$ . 14585) "e"])
(defalias 'mouse-set-region-1 #[0 "\242\304=\204\304\305=?\205B\306 \307 \310 \211\207" [transient-mark-mode mouse-last-region-beg mouse-last-region-end mouse-last-region-tick only lambda region-beginning region-end buffer-modified-tick] 3 "\n\n(fn)"])
(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 "\n\n(fn)"] "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 "\n\n(fn)"] "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\203W\203\262\202#\302W\203#[W\203#[\262`\303!b\210\304\305\"!\204~\306`\"\210\307!\203_\310!\203S\310!b\210\305S\"\210\202d\305\311!\312Z!\210\202d\303!b\210\203n\313`#\210\314 =\204x\211b\210\315	!\204$\314 =\206\207\211b\207" [mouse-scroll-min-lines mouse-scroll-delay 0 window-start zerop vertical-motion set-window-start natnump window-end window-height 2 move-overlay selected-window sit-for] 9 (#$ . 16789)])
(defvar mouse-selection-click-count 0)
(defvar mouse-selection-click-count-buffer nil)
#@378 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.

If the click is in the echo area, display the `*Messages*' buffer.

(fn START-EVENT)
(defalias 'mouse-drag-region #[257 "\300\301!\210\302
\303\"\207" [run-hooks mouse-leave-buffer-hook mouse-drag-track t] 4 (#$ . 17659) "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 "
:\203B
\211@)\3018\206#A@:\203 A@@\202#A@)\3028)\211\2038\303
A@#\206A
\205A\304#\207\304\"\207" [position 5 4 get-text-property get-char-property] 10 (#$ . 18185)])
#@1555 Return non-nil if POS is on a link in the current buffer.
POS must be a buffer position in the current buffer 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\302 
\211@)=\205!\303
\304\"\206!\305\306\307\310$\211\311=\2032\303\311\"\205n\310\202n\312
!\203m
:\203gr\313\211@)!q\210\211\314	8\206a	A@:\203^	A@@\202a	A@)!)\202n\211!\202n\211\207" [mouse-1-click-in-non-selected-windows position selected-window mouse-posn-property follow-link key-binding [follow-link] nil t mouse-face functionp window-buffer 5] 7 (#$ . 18842)])
#@66 Fix help message MSG for `mouse-1-click-follows-link'.

(fn MSG)
(defalias 'mouse-fixup-help-message #[257 "\306\211\203\220;\203\220\307\306\310\311\n	#,\203\220\312 \211\262\203\220
A\211\262:\203\220\211@\203\220\211@\313Y\203\220\211A\203\220\211A\313Y\203\220\314
@A@#\211\262\203\220\315
\211@)!\203\220r\316
\211@)!q\210\317
!\203\217\320=\203w\321\202\207\250\203\206\313W\203\206\322\202\207\323\324\325\306OQ\262)\266\207" [mouse-1-click-follows-link start string regexp inhibit-changing-match-data position 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] 9 (#$ . 20845)])
#@254 Track mouse drags by highlighting area between point and cursor.
The region will be defined with mark and point.
DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
`mouse-drag-region'.

(fn START-EVENT &optional DO-MOUSE-DRAG-REGION-POST-PROCESS)
(defalias 'mouse-drag-track #[513 "\306!\210p\307\n\204	\205\201\310=\203\n\242\310=\202\203V\311 \203V\312 \203V\f\2039\313\314\f\"\210\307\202V\315 \316 U\204V\317\314!\204M\320\314!\204V\313\314\315 \316 {\"\210	\204r\n\321=\204l\n\242\310=\203r\nA\204r\307\211\202\201\n\242\310=\203|\nA\307\322\323!)\210\324@\325 \326!\324A\327!\211B\330B8\206\257BA@:\203\253BA@@\202\257BA@)C
\211B@)\331
!\332!\333!\307C\211A@\334!\203\322\3358\202\326\3358SD\205\337\336!\f\211E:\203\367\337E8\250\203\367\337E8\202\370\340)SC
\205\n
D\341=\205\n
\211@\340UF\307\211FC\307C\307C\307C@G`@W\203)
@b\210`\240\210\2037
\324\240\210\n\321=\203A
\342\202D
\310\nB\343@@	@#\344
@\345\211#\210\211A@b\266\346\347\350\351\324\352\353\354&\n\355\"\356\357%DD!\210@:\205)\211\360@!B\330B8\206\254
BA@:\203\250
BA@@\202\254
BA@)\240\203\331

@\211B@)=\203\331
\361
@!\203\331
@
@U\204\331
\362@@	@#\210\363\354@@!!@\211E:\203\370
\337E8\250\203\370
\337E8\202\371
\340)\324V\205	\364
!\205	\211\365>?\366 `U\2041\211\2041\307\211HIJ\205-\205-\307K\367\366 `\")*\202'\307\n\204;	\205\254\310=\203H\n\242\310=\202I\203\201\311 \203\201\312 \203\201\f\203d\313\314\f\"\210\307\202\201\315 \316 U\204\201\317\314!\204x\320\314!\204\201\313\314\315 \316 {\"\210	\204\235\n\321=\204\227\n\242\310=\203\235\nA\204\235\307\211\202\254\n\242\310=\203\247\nA\307\322\323!)\210\211\203\272@b\210\202\302@\204\302\370 \210\364!\205'
\332!U\205'@\204\341\331!U\205'	\203@`U\203\371@\"\203\372\n!\204	;\203\n\324H\240\210\202\373!\210@\374\240\210\375\374\376\377#\210@LB\211L\266\202,\207" [mouse-selection-click-count-buffer force transient-mark-mode select-active-regions saved-region-selection mark-active mouse-minibuffer-check nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook 0 selected-window mouse-set-point event-start 5 window-start window-hscroll window-edges window-minibuffer-p 3 mouse-on-link-p 2 1 double (only) mouse-start-end push-mark t eval track-mouse funcall make-byte-code "\307\312 \240\210\307@\211\242)\313=\204\307@\242\314>\205\255\307@\242\315>\204\305\316 \210)\310\317\307@!\240\210\311\310@\3208\206OA@:\203KA@@\202OA@)\240\210\311@\300@=\204^\306\321\240\210\310@\211@)\301=\203}\322\311@!\203}\323\300@\311@\304@#\210\202\324 AA\211\203\251\211\302W\203\230\325\301\302Z\326\300@$\210\202\251\211\303Y\203\251\325\301\303ZT\326\300@$\210\210\202\207" vconcat vector [read-event mouse-movement (switch-frame select-window) (switch-frame select-window) redisplay event-end 5 t integer-or-marker-p mouse--drag-set-mark-and-point mouse-position mouse-scroll-subr nil object auto-hscroll-mode position] 7 "\n\n(fn)" event-end integer-or-marker-p mouse--drag-set-mark-and-point key-binding functionp (mouse-set-point mouse-set-region) mark copy-region-as-kill pop-mark mouse--remap-link-click-p vectorp select-window mouse-2 put event-kind mouse-click scroll-margin echo-keystrokes position make-cursor-line-fully-visible mouse-1-click-follows-link event auto-hscroll-mode mouse-selection-click-count last-command this-command mouse-drag-copy-region deactivate-mark unread-command-events] 39 (#$ . 21571)])
(defalias 'mouse--drag-set-mark-and-point #[771 "\300#\211@
A@\301 =\203\211b\2028\301 
=\203\"
b\2028\301 W\2032\302
!\210
b\2028\302!\210\211b\207" [mouse-start-end mark set-mark] 8 "\n\n(fn START CLICK CLICK-COUNT)"])
(defalias 'mouse--remap-link-click-p #[514 "\303=\203!
\211:\203\304	8\250\203\304	8\202\305)\304U\206\223\303=?\205\223
\211:\203<\304	8\250\203<\304	8\202=\305)\305U\205\223\211\211:\203W\304	8\250\203W\304	8\202X\305)\305U\205\223\250?\206\223\306!\307\n8)\310!\307\n8)
\250\205\221\211\250\205\221\311V\203\214\211ZX\202\221

ZW\266\202\207" [mouse-1-click-follows-link event position double 2 1 event-start 3 event-end 0] 7 "\n\n(fn START-EVENT END-EVENT)"])
#@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\300
z!\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\203vo?\205\207hU\205\207\305u\210\202em?\205\207gU\205\207\307u\210\202v\207" [char-to-string "w" 0 looking-at "\\<" -1 "\\>" 1 " " skip-syntax-backward skip-syntax-forward "_" "w_"] 5 (#$ . 26042)])
#@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 "
CC\211@@V\203\211@
@\240\210
\240\266\300\301\"\262\302U\203,\211@@D\202Q
\303U\203Z\211@@U\203Z\211@f\203Z\211@fz\304U\203Z\211@\212
@b\210\305\303!\210`)D\202Q
\303U\203\212\211@@U\203\212\211@f\203\212\211@fz\306U\203\212\212\211@Tb\210\307\303!\210`)
@TD\202Q
\303U\203
\211@@U\203
\211@f\203
\211@fz\310U\203
\211@e=\206\270\212\211@Sb\210\311\312!)\211\203\350
@\212\313\314\315\302\316\317\320	!\321\"\322\323%D\324\314\315\325\326\317\320\f!\327\"\322\330%\313EDC\217)D\202
\212\331\314\315\302\332\317\320!\333\"\322\323%D\324\314\315\325\326\317\320!\327\"\322\330%\331EDC\217)@TD\262
\202Q
\303U\2037
\212\211@b\210\334\335!\210`)\212@b\210\334\303!\210`)D\202Q
\322U\205Q
\212\211@b\210\336\303!)\212@b\210\303y\210`)D\207" [mod 3 0 1 40 forward-sexp 41 backward-sexp 34 looking-at "\\s(\\|\\s \\|\\s>" #1=#:err funcall make-byte-code "\300@b\210\301\302!\210`\207" vconcat vector [forward-sexp 1] 2 "\n\n(fn)" error 257 "\300@\207" [] "\n\n(fn IGNORED)" #2=#:err "\300@Tb\210\301\302!\210`\207" [backward-sexp 1] mouse-skip-word -1 line-beginning-position] 17 (#$ . 26679)])
(defalias 'mouse-set-mark-fast #[257 "\301
!\210\302
!\303
\211@)!\210\211\3048\206(A@:\203%A@@\202(A@)\247\205K\305
\3048\206GA@:\203DA@@\202GA@)\306\211#\207" [position mouse-minibuffer-check event-start select-window 5 push-mark t] 7 "\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 "\302
!\210\303\304!\211@)!\210`\305\306\307\310\311\312!\313\"\314\315%DC\216\316!\210\317\320\321\211#\210	\2061\322\314!)\207" [position transient-mark-mode mouse-minibuffer-check select-window event-start funcall make-byte-code 0 "\300b\207" vconcat vector [] 1 "\n\n(fn)" mouse-set-point push-mark nil t sit-for] 10 (#$ . 28798) "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 "\301
!\210\302
!\211\3038\206 A@:\203A@@\202 A@)\304\211@)!\210\211\247\2056\305`^`]\"\207" [position mouse-minibuffer-check event-start 5 select-window kill-region] 8 (#$ . 29330) "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 "\306\307!\210\203\205\310\n\204	\205\203\311=\203\n\242\311=\202 \203X\312 \203X\313 \203X\203;\314\315\"\210\310\202X\316 \317 U\204X\320\315!\204O\321\315!\204X\314\315\316 \317 {\"\210	\204t\n\322=\204n\n\242\311=\203t\nA\204t\310\211\202\203\n\242\311=\203~\nA\310\306\323!)\210
\204\215\324!\210\325\326\325
!\207" [select-active-regions force transient-mark-mode saved-region-selection mark-active mouse-yank-at-point run-hooks mouse-leave-buffer-hook nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda deactivate-mark-hook mouse-set-point yank 0 this-command mouse-selection-click-count] 6 (#$ . 29690) "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 "\306\307!\210\203\210\310\211\n\204	\205\205\311=\203!\n\242\311=\202\"\203Z\312 \203Z\313 \203Z\203=\314\315\"\210\310\202Z\316 \317 U\204Z\320\315!\204Q\321\315!\204Z\314\315\316 \317 {\"\210	\204v\n\322=\204p\n\242\311=\203v\nA\204v\310\211\202\205\n\242\311=\203\200\nA\310\306\323!)\210)
\204\220\324
!\210\325\326 !\327=\203\244\330\315!\206\270\331 \202\270\332\331!\203\265\331 \206\270\330\315!\202\270\330\315!\211\204\300\333\334!\210\335`!\210\211c\207" [select-active-regions force transient-mark-mode saved-region-selection mark-active mouse-yank-at-point run-hooks mouse-leave-buffer-hook nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda deactivate-mark-hook mouse-set-point framep selected-frame w32 x-get-selection x-get-selection-value fboundp error "No selection is available" push-mark] 6 (#$ . 30807) "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 (#$ . 32040) "e"])
(defvar mouse-save-then-kill-posn nil)
(defalias 'mouse-save-then-kill-delete-region #[514 "\304 \210

U\204\305=\203

|\210\202q\306\211
\211V\203&\307\202'\310\\|\210*\306\211\311\307\"\210*\305@G
]^ZU\204K\312\313!\210

|\210)\211\203c\211@@;\204c\211A\262
\202Q\211\203p\211@^B\240\210\210\304 \207" [buffer-undo-list after-change-functions before-change-functions kill-ring undo-boundary t nil 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
!\211\3108\206 A@:\203A@@\202 A@)
\211@)\311
!	\n
=\203@r\211q\210\312\313!)\203@\202A\314\247\204J\315\202
\f\316=\203z
=\203z\317 =\203z\203k\312\313!`|\210\202r\320\312\313!`\"\210\314\315\211\202
r
q\210\321 )\204\253\317 =\203\357\312\313!\203\357\f\316=\203\233
\204\253\f\322>\203\357\204\253\204\357\323!\210\324\211#\325\312\313!Z!\325`Z!W\203\315\326
@!\210\202\322\211A@b\210\315\327 \210\203\347\330\331\312\313!`\"\313\"\210\211\262
\202
\323!\210\332!\210r
q\210 )\211\203
\211b\210\210\333 \210\327 \210\203
\330\331\312\313!`\"!\210\211)\207" [position this-command mouse-selection-click-count-buffer mouse-selection-click-count last-command mouse-save-then-kill-posn mouse-minibuffer-check event-start 5 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 mouse-drag-copy-region mark-even-if-inactive transient-mark-mode deactivate-mark point-before-scroll] 12 (#$ . 32897) "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) (#$ . 35264))
(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 "\303
!\210\304
!r\305
\211@)!q\210\306	!\210\211\3078\206.A@:\203+A@@\202.A@)\247\205W\n\204:\310 \n
\3078\206TA@:\203QA@@\202TA@)\311\223)\207" [position mouse-secondary-overlay mouse-secondary-start mouse-minibuffer-check event-start window-buffer delete-overlay 5 make-marker nil] 6 (#$ . 35631) "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 "\302
!\210\303
!\304\305!r\306\211@)!q\210\3078\206.A@:\203+A@@\202.A@)\247\203O\3078\206LA@:\203IA@@\202LA@)\262\310	\3078\206kA@:\203hA@@\202kA@)#\210\311\312\313	!\314	!{\")\207" [position mouse-secondary-overlay mouse-minibuffer-check event-start nil event-end window-buffer 5 move-overlay x-set-selection SECONDARY overlay-start overlay-end] 10 (#$ . 36179) "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 "\306
!\210\307\310
!\211\311	8\206\"	A@:\203	A@@\202\"	A@)
\211@)\312
!\211A@\313!\203:\3148\202>\3148S\211:\203S\315\n8\250\203S\315\n8\202T\316)Sr\317!q\210\211\320
\314\"\307V\203\203\321\211#\f\322\211\223\210\323
@A@\317\n!$\266\202\224\f\204\212\324 \f\322\223\210\325
!\210\322C\322C\322C\326\327\330\331\307\332\333\334&\335\"\336\337%DD!\210@:\205
\340\f!\203\371\341 \330\331\307\342\333\334!\343\"\315\337%DC\216\325
!\210\344\345\322\"\210\346	!\210\212\fb\210\347\316!\210*\322\262
\202
\344\345\350
!\351
!{\"\266\203*\207" [echo-keystrokes position event mouse-secondary-click-count mouse-secondary-start mouse-secondary-overlay mouse-minibuffer-check 0 event-start 5 window-edges window-minibuffer-p 3 2 1 window-buffer mod mouse-start-end nil move-overlay make-marker delete-overlay eval track-mouse funcall make-byte-code "\305\310 \240\210\305@\211\242)\311=\204\305@\242\312>\205\266\305@\242\313>\204\306\314\305@!\240\210\307\306@\3158\206HA@:\203DA@@\202HA@)\240\210\306@\211@)\301=\203\206\316\307@!\203\206\317\300\307@\304#\300\307@U\203r\320!\204\202\321\211\223\210\322@A@#\210\210\202\323 AA\211\203\262\211\302W\203\241\324\301\302Z\300$\210\202\262\211\303Y\203\262\324\301\303ZT\300$\210\210\202\207" vconcat vector [read-event mouse-movement (switch-frame select-window) (switch-frame select-window) event-end 5 integer-or-marker-p mouse-start-end marker-position nil move-overlay mouse-position mouse-scroll-subr object position mouse-secondary-start mouse-secondary-overlay] 7 "\n\n(fn)" marker-position current-window-configuration "\301\300!\207" [set-window-configuration] x-set-selection SECONDARY select-window sit-for overlay-start overlay-end] 28 (#$ . 36752) "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\211c\202\306\307!\207" [mouse-yank-at-point run-hooks mouse-leave-buffer-hook mouse-set-point x-get-selection SECONDARY error "No secondary selection"] 4 (#$ . 38871) "e"])
#@316 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.

(fn)
(defalias 'mouse-kill-secondary #[0 "\303 \211
GS\234\304!
<\203\305\306!\211@)!\202p=\204$\307\310!\210\266\311r\304!q\210\312\313!\314!\"\210*\315!\207" [mouse-secondary-overlay position 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] 7 (#$ . 39342) 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
!\211\3108\206 A@:\203A@@\202 A@)
\211@)\311
!	\312\n!
=\2037\2028\313\314\n!\315\n!\247\203
\312\n!\206Q\f\205Q\316\f!=\204s\317!\210\320 \211`\321\223\210\322\n`$\210\323`\"\210\202

\324=\203\230=\203\230\325 =\203\230\326\"\210\327\n!\210\313\321\202

\203\367\312\n!=\203\367\330\211#\331Z!\331Z!W\203\304\322\n@#\210\202\314\322\nA@#\210\210\321 
\324=\203\344\332\314\n!\315\n!{\333\"\210\202\361\321 \334\314\n!\315\n!\"\210)\202
\317!\210\f\203
\f\313\\\323
\"\210\322\n	#\266)\266\321\312\n!\2055
\314\n!\315\n!{\211\262\2055
\211G\313V\2055
\335\336\"\207" [position this-command mouse-secondary-overlay mouse-secondary-click-count mouse-secondary-start last-command mouse-minibuffer-check event-start 5 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 x-set-selection SECONDARY mouse-save-then-kill-posn deactivate-mark] 14 (#$ . 40089) "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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"))) (#$ . 42895))
#@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 "\305
!\210\306 \307\211\211\211\211\203t\211@r\211q\210\307	\211\2033\211@\310
@\311\n!\"\203,\211A\262
A\266\202\202\210\312\"\262
\211\204Y
\211;\203I\202P\311\n\307\211$D\262
\211B\262
AA>\204j\211AAAB\241\210\266)
A\266\202\202\210
\313\262\211\203\222

@AAG\211
_\262
\\\262\211A\262
\202y\210\211_GG_W\203
\307G\314\315\"\262\203\343@G\316V\203\343\211\317_GV\203\343\320@AA!\211\203\323@A@
BB\262\210\211@AGZ\262
A\262\202\251\203\375\320\321\322\323\324\"\"!\211\203\374\325
BB\262\210\326\237B\262\266\202
\320!\262\326\327\330\"B\262\331\"\332!\211@)
\205:
\333\334!\2034
\335!\2025

!\210\336!\266\202\207" [major-mode mouse-buffer-menu-mode-groups mode-name mouse-buffer-menu-mode-mult position mouse-minibuffer-check buffer-list nil string-match format-mode-line assoc 0 sort #[514 "
G
GV\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" x-popup-menu event-start select-window framep frame-selected-window switch-to-buffer] 17 (#$ . 43640) "e"])
(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!\206vrq\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\207

BC\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 "\n\n(fn)"])
#@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) (#$ . 46216))
#@68 Prompt for a font name, using `x-popup-menu', and return it.

(fn)
(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 (#$ . 49783) 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 "\211C\211@\205C\300C
@\2038\301\302\303\304\305\306\307\"\310\"\311\312%D\313\302\303\314\315\306\307\n!\316\"\317\320%\301EDC\217\210\202	\211@?\205A\313\321!\262
\207" [nil #1=#:err funcall make-byte-code 0 "\302\300@@!\210\301\300@@\240\210\300\303\240\207" vconcat vector [set-frame-font nil] 2 "\n\n(fn)" error 257 "\300\211@A\240\207" [] 3 "\n\n(fn IGNORED)" "Font not found"] 13 (#$ . 50156) (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 "\303\304!\210\305 \205%
\306\307!@!r\310\311\312\313\314\315!\316\"\317\320%DC\216\321
@\322\"\210\204\303\323\324!\325\326\327#\210\325\330\331#\210\325\332\333#\210\334\335!\203P\325\336\337#\210\202\303\323\340!\341	\342 C\"A\211\211\203\267\211@\211@\323
!A\211\203\240\211@\211@\343
\344\230\203\200\325\345\346#\210\202\227\347\211A@)!\262
\325\315!\350@E#\210\266
A\266\202\202h\210\325\315\347!!\350E#\266
A\266\202\202[\210\325\351\350\340E#\266\352\"\211GS
8\262
\211\353=\203\332\353\354!\202 
\211\355=\203\346\353\356!\202 
\211\357=\203\366\360\312!\210\361\312!\202 
\211\205 
\211\335=\203
\335 \202
\362
!\363\364\365\"\203
\366D\202
\367!\370\371\372!#\262
\262
*\262
\207" [mouse-appearance-menu-map x-fixed-font-alist x require face-remap display-multi-font-p internal--before-with-selected-window event-start funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" 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 [x-select-font] (menu-item "Change Buffer Font..." x-select-font) "Change Text Font" append 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] 19 (#$ . 51131) "@e"])
(byte-code "\301\302\303#\210\304\305\306\"\210\304\307\310\"\210\304\311\306\"\210\304\312\306\"\207" [global-map define-key [down-mouse-1] mouse-drag-region global-set-key [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region [double-mouse-1] [triple-mouse-1]] 4)
(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\332\"\210\306\334\335\"\210\306\336\337\"\210\306\340\332\"\210\306\341\342\"\210\306\343\344\"\210\306\345\346\"\210\306\347\350\"\210\306\351\350\"\210\306\352\353\"\210\306\354\332\"\210\355\356!\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)))) [mode-line mouse-1] mouse-select-window [mode-line drag-mouse-1] [mode-line down-mouse-1] mouse-drag-mode-line [header-line down-mouse-1] mouse-drag-header-line [header-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 [vertical-line C-mouse-2] [vertical-line down-mouse-1] mouse-drag-vertical-line [vertical-line mouse-1] provide mouse] 5)