;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\310\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322\326\327&\210\313\330\315\316\331DD\332\326\333\321\334&\210\313\335\315\316\336DD\337\321\322\326\333&\207" [put track-mouse lisp-indent-function 0 custom-declare-group mouse nil "Input from the mouse." :group environment editing custom-declare-variable mouse-yank-at-point funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, mouse yank commands yank at point instead of at click." :type boolean mouse-drag-copy-region #[0 "\300\207" [nil] 1 #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.\n\nThis variable applies only to mouse adjustments in Emacs, not\nselecting and adjusting regions in other windows." :version "24.1" mouse-1-click-follows-link #[0 "\300\207" [450] 1 #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 #1#] "If non-nil, a Mouse-1 click also follows links in non-selected windows.\n\nIf nil, a Mouse-1 click on a link in a non-selected window performs\nthe normal mouse-1 binding, typically selects the window and sets\npoint at the click position."] 8)
(defvar mouse--last-down nil)
#@25 

(fn &optional PROMPT)
(defalias 'mouse--down-1-maybe-follows-link #[256 "\203\n	\242\303 B\304\207" [mouse-1-click-follows-link last-input-event mouse--last-down current-time nil] 3 (#$ . 2715)])
#@153 Turn `mouse-1' events into `mouse-2' events if follows-link.
Expects to be bound to `(double-)mouse-1' in `key-translation-map'.

(fn &optional PROMPT)
(defalias 'mouse--click-1-maybe-follows-link #[256 "\205\231	\304\267\202\305\207\n\242\306=\2024\n\242\307=\205\231	\247\2037	\310W\203)\311\202*\312\313A!\314	!\315\245\"\205\231@\316\317\320\321\n!\322\n!C\"B!=\205\231\323\324\n!!\211\205\227\204d\325 \324\n!\211@\262
=\205\227\326
!\203r\327
\310H!\202\227	\330=\203|\331\202}\332\211\333N\204\214\334
\333\n@\333N#\210\n\211\240\266\327\n!\262
\262
\207" [mouse--last-down mouse-1-click-follows-link last-input-event mouse-1-click-in-non-selected-windows #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 10 double 12)) nil double-mouse-1 mouse-1 0 #[514 "\300
\"\207" [time-less-p] 5 "\n\n(fn A B)"] time-less-p time-since abs 1000.0 event-convert-list down append event-modifiers event-basic-type mouse-on-link-p event-start selected-window arrayp vector double double-mouse-2 mouse-2 event-kind put] 8 (#$ . 2923)])
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\306#\207" [key-translation-map define-key [down-mouse-1] mouse--down-1-maybe-follows-link [double-down-mouse-1] [mouse-1] mouse--click-1-maybe-follows-link [double-mouse-1]] 4)
#@215 Show menu for minor mode specified by INDICATOR.
Interactively, INDICATOR is read using completion.
If there is no menu defined for the minor mode, then create one with
items `Turn Off' and `Help'.

(fn INDICATOR)
(defalias 'minor-mode-menu-from-indicator #[257 "\301
!\211\302N\206\n\211
\204\303\304\"\210
\236\243\305
!\205!\306
\307\"\211\203+\310
!\202W\311!\205W\312\313\314\315\316\317\320\313\321
\"#!#\322\323\324F\325\323\326\327\330\331\332\333
DDFFF\262
\211\203a\334
!\207\335\336!\207" [minor-mode-map-alist lookup-minor-mode-from-indicator :minor-mode-function error "Cannot find minor mode for `%s'" keymapp lookup-key [menu-bar] mouse-menu-non-singleton fboundp keymap format "%s - %s" capitalize string-replace "-" " " "%S" turn-off menu-item "Turn off minor mode" help "Help for minor mode" lambda nil (interactive) describe-function quote popup-menu message "No menu available"] 17 (#$ . 4275) (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 (#$ . 5345) "@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!\"\210\211\242\305=\203
\202#\306\307\242@!\"\262
\207" [nil map-keymap make-closure #[514 "\300\211\242\203\n\301\202
B\240\207" [V0 t] 5 "\n\n(fn K V)"] keymap-canonicalize t lookup-key vector] 6 (#$ . 5915)])
#@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 (#$ . 6386)])
(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 context-menu-functions funcall function #[0 "\300\207" [(context-menu-undo context-menu-region context-menu-middle-separator context-menu-local context-menu-minor)] 1 #1=""] "List of functions that produce the contents of the context menu.\nEach function receives the menu and the mouse click event as its arguments\nand should return the same menu with changes such as added new menu items." :type (repeat (choice (function-item context-menu-undo) (function-item context-menu-region) (function-item context-menu-middle-separator) (function-item context-menu-toolbar) (function-item context-menu-global) (function-item context-menu-local) (function-item context-menu-minor) (function-item context-menu-buffers) (function-item context-menu-vc) (function-item context-menu-ffap) (function :tag "Custom function"))) :version "28.1" context-menu-filter-function #[0 "\300\207" [nil] 1 #1#] "Function that can filter the list produced by `context-menu-functions'." (choice (const nil) function)] 8)
#@522 Return menu map constructed for context near mouse CLICK.
The menu is populated by calling functions from `context-menu-functions'.
Each function receives the menu and the mouse click event
and returns the same menu after adding own menu items to the composite menu.
When there is a text property `context-menu-function' at CLICK,
it overrides all functions from `context-menu-functions'.
At the end, it's possible to modify the final menu by specifying
the function `context-menu-filter-function'.

(fn &optional CLICK)
(defalias 'context-menu-map #[256 "\303\304\305\306\307#!C
\206
\310\311!\312\"\313
!\203$
\242\"\240\210\202/\314\315\316\317#\"\210\242\211:\203T\211@\243	\232\203M\211A@\243	\232\203M\211
AA\241\210\211A\262
\2021\210\313\n!\203c\n\242\"\240\210\242\207" [last-input-event menu-bar-separator context-menu-filter-function make-sparse-keymap propertize "Context Menu" hide t mouse-posn-property event-start context-menu-function functionp run-hook-wrapped context-menu-functions make-closure #[257 "\300
\300\242\301\"\240\210\302\207" [V0 V1 nil] 5 "\n\n(fn FUN)"]] 10 (#$ . 8291)])
#@126 Add separator to the middle of the context menu.
Some context functions add menu items below the separator.

(fn MENU CLICK)
(defalias 'context-menu-middle-separator #[514 "\301\302#\210
\207" [menu-bar-separator define-key-after [middle-separator]] 6 (#$ . 9426)])
#@65 Populate MENU with submenus from the tool bar.

(fn MENU CLICK)
(defalias 'context-menu-toolbar #[514 "\302\303\304\"\210\305\306#\210\307\310\311\"\312	\313\"\"\210
\207" [menu-bar-separator global-map run-hooks activate-menubar-hook menu-bar-update-hook define-key-after [separator-toolbar] map-keymap make-closure #[514 "\211:\205\301\300\302!\303!#\207" [V0 define-key-after vector copy-sequence] 7 "\n\n(fn KEY BINDING)"] lookup-key [tool-bar]] 7 (#$ . 9700)])
#@68 Populate MENU with submenus from the global menu.

(fn MENU CLICK)
(defalias 'context-menu-global #[514 "\302\303\304\"\210\305\306#\210\307\310\311\"\312\313	\314\"!\"\210
\207" [menu-bar-separator global-map run-hooks activate-menubar-hook menu-bar-update-hook define-key-after [separator-global] map-keymap make-closure #[514 "\211:\205\301\300\302!\303!#\207" [V0 define-key-after vector copy-sequence] 7 "\n\n(fn KEY BINDING)"] menu-bar-keymap lookup-key [menu-bar]] 8 (#$ . 10179)])
#@70 Populate MENU with submenus provided by major mode.

(fn MENU CLICK)
(defalias 'context-menu-local #[514 "\301\302\303\"\210\304\305#\210\306\307!\211\203\310\311\312\"\313!\"\210\210
\207" [menu-bar-separator run-hooks activate-menubar-hook menu-bar-update-hook define-key-after [separator-local] local-key-binding [menu-bar] map-keymap make-closure #[514 "\211:\205\301\300\302!\303!#\207" [V0 define-key-after vector copy-sequence] 7 "\n\n(fn KEY BINDING)"] menu-bar-keymap] 7 (#$ . 10681)])
#@71 Populate MENU with submenus provided by minor modes.

(fn MENU CLICK)
(defalias 'context-menu-minor #[514 "\301\302\303\"\210\304\305#\210\306\307\310!!\211\2032\211@\211:\203+\211@J\203+\311\312\313\"A\"\210
A\266\202\202\210
\207" [menu-bar-separator run-hooks activate-menubar-hook menu-bar-update-hook define-key-after [separator-minor] reverse minor-mode-key-binding [menu-bar] map-keymap make-closure #[514 "\211:\205\301\300\302!\303!#\207" [V0 define-key-after vector copy-sequence] 7 "\n\n(fn KEY BINDING)"]] 8 (#$ . 11192)])
#@78 Populate MENU with the buffer submenus to buffer switching.

(fn MENU CLICK)
(defalias 'context-menu-buffers #[514 "\301\302\303\"\210\304\305#\210\306\307\310\"\311 \"\210
\207" [menu-bar-separator run-hooks activate-menubar-hook menu-bar-update-hook define-key-after [separator-buffers] map-keymap make-closure #[514 "\211:\205\301\300\302!\303!#\207" [V0 define-key-after vector copy-sequence] 7 "\n\n(fn KEY BINDING)"] mouse-buffer-menu-keymap] 6 (#$ . 11747)])
#@63 Populate MENU with Version Control commands.

(fn MENU CLICK)
(defalias 'context-menu-vc #[514 "\302\303#\210\302\304	#\210
\207" [menu-bar-separator vc-menu-entry define-key-after [separator-vc] [vc-menu]] 6 (#$ . 12226)])
#@52 Populate MENU with undo commands.

(fn MENU CLICK)
(defalias 'context-menu-undo #[514 "\305\306#\210	\2043\n\307=\2043\310=\203\f<\202\n:\2033\305\311\312\313 \203-\314\202.\315\316BB#\210	\204C\317\n!\203C\305\320\321#\210
\207" [menu-bar-separator buffer-read-only buffer-undo-list last-command pending-undo-list define-key-after [separator-undo] t undo [undo] menu-item region-active-p "Undo in Region" "Undo" (undo :help "Undo last edits") undo--last-change-was-undo-p [undo-redo] (menu-item (if undo-in-region "Redo in Region" "Redo") undo-redo :help "Redo last undone edits")] 8 (#$ . 12459)])
#@54 Populate MENU with region commands.

(fn MENU CLICK)
(defalias 'context-menu-region #[514 "\305\306#\210	\203\n\204\305\307\310#\210	\203:\305\311\312\313\314\315!\203'\316\202(\317\320\321\322\314\315!\2035\323\2026\324\257#\210\325\326!\204O\314\315!\203KA\202L\f\203Y\n\204Y\305\327\330#\210A\203\267\n\204\267\331\332\333!!\334\335!\211\203\224\211@\211:\203\215\336\337T\211\262!\312A@\340\341#E#\210
A\266\202\202k\210\305\314\315!\203\241\342\202\242\343\312\314\315!\203\255\344\202\256\333\345BBB#\266	\203\305\n\204\305\305\346\347#\210\331\332\350!!\305
\351\312\352\353\354BBB#\210r\355\356!\211@\262
!q\210\357\356!!\211\205\355\211f\211\203\370\211z\360=\206\377\361\212\362!)8\266\202\203
\305
\363\312\364\365\366BBB#\210)\305
\367\312\370\371\372BBB#\210\373 \203.
\305
\374\312\375\376\377BBB#\210\305\201@\312\350E#\266
\207" [menu-bar-separator mark-active buffer-read-only yank-menu kill-ring define-key-after [separator-region] [cut] (menu-item "Cut" kill-region :help "Cut (kill) text in region between mark and current position") [copy] menu-item "Copy" featurep ns ns-copy-including-secondary kill-ring-save :help "Copy text in region between mark and current position" :keys "\\[ns-copy-including-secondary]" "\\[kill-ring-save]" gui-backend-selection-exists-p CLIPBOARD [paste] (menu-item "Paste" mouse-yank-at-click :help "Paste (yank) text most recently cut/copied") make-sparse-keymap propertize "Paste from Kill Menu" 0 reverse define-key vector make-closure #[0 "\302\300\301@\"\207" [V0 V1 mouse-yank-from-menu] 3 nil nil] [select-paste] [paste-from-menu] "Select and Paste" (:help "Choose a string from the kill ring and paste it") [clear] (menu-item "Clear" delete-active-region :help "Delete text in region between mark and current position") "Select" [mark-whole-buffer] "All" #[257 "\300
\301\"\207" [mark-thing-at-mouse buffer] 4 "\n\n(fn E)" "e"] (:help "Mark the whole buffer for a subsequent cut/copy") window-buffer event-end posn-point 34 3 syntax-ppss [mark-string] "String" #[257 "\300
\301\"\207" [mark-thing-at-mouse string] 4 "\n\n(fn E)" "e"] (:help "Mark the string at click for a subsequent cut/copy") [mark-line] "Line" #[257 "\300
\301\"\207" [mark-thing-at-mouse line] 4 "\n\n(fn E)" "e"] (:help "Mark the line at click for a subsequent cut/copy") region-active-p [mark-none] "None" #[257 "\300 \207" [deactivate-mark] 2 "\n\n(fn E)" "e"] (:help "Deactivate the region") [select-region]] 15 (#$ . 13081)])
#@71 Populate MENU with commands that find file at point.

(fn MENU CLICK)
(defalias 'context-menu-ffap #[514 "\212\301
!\210\302 \203\303\304#\210\303\305\306#\210)
\207" [menu-bar-separator mouse-set-point ffap-guess-file-name-at-point define-key [ffap-separator] [ffap-at-mouse] (menu-item "Find File or URL" ffap-at-mouse :help "Find file or URL from text around mouse click")] 6 (#$ . 15606)])
#@74 Menu item that creates the context menu and can be bound to a mouse key.
(defvar context-menu-entry (byte-code "\300\301\302!\303BB\207" [menu-item purecopy "Context Menu" (ignore :filter (lambda (_) (context-menu-map)))] 3) (#$ . 16011))
#@24 Context Menu mode map.
(defvar context-menu-mode-map (byte-code "\301 \302
\303\304#\210\302
\305#\210\302
\306\307#\210\310\311!\203 \302
\312\307#\210\310\313!\2032\302
\314\304#\210\302
\315#\210\207" [context-menu-entry make-sparse-keymap define-key [mouse-3] nil [down-mouse-3] [menu] context-menu-open featurep w32 [apps] ns [C-mouse-1] [C-down-mouse-1]] 5) (#$ . 16256))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable context-menu-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Context-Menu mode is enabled.\nSee the `context-menu-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group mouse] 12)
#@750 Toggle Context Menu mode.

This is a minor mode.  If called interactively, toggle the
`Context-Menu mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='context-menu-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When Context Menu mode is enabled, clicking the mouse button down-mouse-3
activates the menu whose contents depends on its surrounding context.

(fn &optional ARG)
(defalias 'context-menu-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default context-menu-mode toggle default-value 1 nil t boundp delq run-hooks context-menu-mode-hook context-menu-mode-on-hook context-menu-mode-off-hook called-interactively-p any customize-mark-as-set message "Context-Menu mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 17026) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar context-menu-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [context-menu-mode-map context-menu-mode-hook variable-documentation put "Hook run after entering or leaving `context-menu-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode context-menu-mode boundp] 6)
#@98 Start key navigation of the context menu.
This is the keyboard interface to \[context-menu-map].
(defalias 'context-menu-open #[0 "\301\302 
\303
!\203\304
!\202\305
`\")\207" [inhibit-mouse-event-check t context-menu-map commandp call-interactively popup-menu] 5 (#$ . 19064) nil])
(global-set-key [S-f10] 'context-menu-open)
#@80 Activate the region around THING found near the mouse CLICK.

(fn CLICK THING)
(defalias 'mark-thing-at-mouse #[514 "\301\"\211\205$\203\211@\202\211Ab\210\302\203
A\202!
@\303\304#\207" [mouse-select-region-move-to-beginning bounds-of-thing-at-mouse push-mark t activate] 7 (#$ . 19402)])
#@50 Insert STRING at mouse CLICK.

(fn CLICK STRING)
(defalias 'mouse-yank-from-menu #[514 "\302\303!\210\203\304 \210	\204\305!\210\306 \210\211c\207" [select-active-regions mouse-yank-at-point run-hooks mouse-leave-buffer-hook deactivate-mark mouse-set-point push-mark] 4 (#$ . 19710)])
#@14 

(fn EVENT)
(defalias 'mouse-minibuffer-check #[257 "\300
!\211@\262
\301
!\203\302
!\203\303
!\204\304\305!\210\210\306\307!\207" [event-start windowp window-minibuffer-p minibuffer-window-active-p user-error "Minibuffer window is not active" run-hooks mouse-leave-buffer-hook] 4 (#$ . 20007)])
#@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 (#$ . 20317) "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 (#$ . 20635) "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 (#$ . 21149) (list last-nonmenu-event)])
#@49 Delete all windows except the one you click on.
(defalias 'mouse-delete-other-windows #[0 "\300 \207" [delete-other-windows] 1 (#$ . 21493) "@"])
#@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!\207\312\313]^!)\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 (#$ . 21646) "@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!\207\312\313]^!)\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 (#$ . 22194) "@e"])
#@214 Drag a mode line, header line, or vertical line with the mouse.
START-EVENT is the starting mouse event of the drag action.  LINE
must be one of the symbols `header', `mode', or `vertical'.

(fn START-EVENT LINE)
(defalias 'mouse-drag-line #[514 "\302\303!\210\304\305!C\211\242\211@\262
C\306
\242!\307=\203+\310\242!\242\311
8\262
@\\\2028\312\242!\242\311
8\262
A\\C\211\242C\313\314C\314C\314C	\315\267\202\200\316\317\n\242\313#\240\210\202\200\202\200\320!\211\247\203j\211\304U\203\321\322\"\323=\203\316\323\242\313#\240\210\210\314C\324\325\f\f\f&\n	\326\327\330 \331
\332\333#\210\331
\334\333#\210\331
\335\333#\210\331
\336#\210\331
\337\324\340\n\"#\210\307=\203\335\331
\341\342\343\324\344\f\"\345\324\346\"\257#\210\331
\347#\210\331
\350#\210\331
\351#\210\331
\352#\210\331
\353#\210\331
\354#\210\331
\355#\210\211\262
\313\324\356\"#\240\266\203)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-frame vertical window-pixel-left 2 window-pixel-top t nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (header 74 mode 88 vertical 91)) window-in-direction above frame-right-divider-width frame-parameter vertical-scroll-bars left make-closure #[257 "\211:\204\311\207\300\312=\203\305\301\313!\240\210\303\301\242\314
8\262
@\240\210\315\306\301\242\211@\262
\240!\203{\303\316\306\242!\303\242\\\240\210\301\242\211A@:\203E\211A@@\202H\211A@\2119\205N\211\266\202\204{\317\306\242!\320=\203f\303\321\306\242!\303\242\\\240\210\303\322\306\242!@\323\306\242!@\206u\324\\\303\242\\\240\210\307\303\242\304\242Z\240\324U\204\300\307\242\324V\203\235\303\242\316\302\242!\325\302\242!\\W\204\300\307\242\324W\203\263\303\242\316\302\242!\325\302\242!\\V\204\300\310\326\240\210\327\302\242\307\242\326\211$\210\304\303\242\240\207\305\205g
\301\313!\240\210\306\301\242\211@\262
\240\210\303\301\242\314
8\262
A\240\210\315\306\242!\203
\303\330\306\242!\303\242\\\240\210\301\242\211A@:\203
\211A@@\202
\211A@\2119\205

\211\266\202\331>\203
\303\332\306\242!\303\242\\\240\210\307\303\242\304\242Z\240\324U\204c
\307\242\324V\203@
\303\242\330\302\242!\333\302\242!\\W\204c
\307\242\324W\203V
\303\242\330\302\242!\333\302\242!\\V\204c
\310\326\240\210\327\302\242\307\242\311\326$\210\304\303\242\240\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 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] #[0 "\300\242 \207" [V0] 1 nil nil] [mouse-1] menu-item "" #[0 "\300\242 \207" [V0] 1 nil nil] :filter #[257 "\300\242\205\211\207" [V0] 2 "\n\n(fn CMD)"] [mode-line] [header-line] [vertical-line] [right-divider] [bottom-divider] [left-margin] [right-margin] #[0 "\300\211\207" [V0 track-mouse] 2]] 27 (#$ . 22749)])
#@285 Change the height of a window by dragging on its mode line.
START-EVENT is the starting mouse event of the drag action.

If the drag happens in a mode line on the bottom of a frame and
that frame's `drag-with-mode-line' parameter is non-nil, drag the
frame instead.

(fn START-EVENT)
(defalias 'mouse-drag-mode-line #[257 "\301
!\211\211@\262
\302
!\303!?\206V\304\305\"\2032\306
!\302
!=\205-?\206-\211\307 =\262
\2037\310\311\"\207\312
\313\"\205V\304\305\"\205V\306
!\302
!=?\262
\205V\314!\207" [resize-mini-windows event-start window-frame window-live-p window-at-side-p bottom minibuffer-window active-minibuffer-window mouse-drag-line mode frame-parameter drag-with-mode-line mouse-drag-frame-move] 7 (#$ . 25981) "e"])
#@288 Change the height of a window by dragging on its header line.
START-EVENT is the starting mouse event of the drag action.

If the drag happens in a header line on the top of a frame and
that frame's `drag-with-header-line' parameter is non-nil, drag
the frame instead.

(fn START-EVENT)
(defalias 'mouse-drag-header-line #[257 "\300
!\211\211@\262
\301
!\203\302
\303\"\204\304\305\"\207\306
!\307
\310\"\205'\311!\207" [event-start window-live-p window-at-side-p top mouse-drag-line header window-frame frame-parameter drag-with-header-line mouse-drag-frame-move] 7 (#$ . 26731) "e"])
#@127 Drag frame with tab line in its topmost window.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-tab-line #[257 "\300
!\211\211@\262
\301
!\205$\302
\303\"\205$\304
!\305
\306\"\205\"\307!\262
\207" [event-start window-live-p window-at-side-p top window-frame frame-parameter drag-with-tab-line mouse-drag-frame-move] 7 (#$ . 27331) "e"])
#@140 Change the width of a window by dragging on a vertical line.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-vertical-line #[257 "\300
\301\"\207" [mouse-drag-line vertical] 4 (#$ . 27732) "e"])
#@466 Drag a frame or one of its edges with the mouse.
START-EVENT is the starting mouse event of the drag action.  Its
position window denotes the frame that will be dragged.

PART specifies the part that has been dragged and must be one of
the symbols `left', `top', `right', `bottom', `top-left',
`top-right', `bottom-left', `bottom-right' to drag an internal
border or edge.  If PART equals `move', this means to move the
frame with the mouse.

(fn START-EVENT PART)
(defalias 'mouse-drag-frame-resize #[514 "\302\303!\210\304\305!\211\211@\262
\306
!\203\307
!\202\211\310
!\211@
A\311!\312!\313\314\315\314$\316!Z\\\313\315\211\314$\317!Z\\\320!\211\203R\321
!\202s\322 @\323
\236\211\205q\211A@\3248A@\3258\\\3248\3268\\F\266\202\211\205y\211@
\205\200
A@\205\207\3248\205\216\3258\327>\330>\331>\332>\333 \211@
A\315C\334\335&	\336\337\340 \341
\342\343#\210\341
\344\343#\210\341
\345\343#\210\341
\346#\210\341
\347\334\350\n\"#\210\341
\351#\210\341
\352#\210\341
\353#\210\341
\354#\210\341
\355#\210\341
\356#\210\211\262
\314\334\357\"#\240)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-live-p window-frame frame-position frame-text-width frame-text-height frame-windows-min-size t nil frame-inner-width frame-inner-height frame-parent frame-edges display-monitor-attributes-list workarea 2 3 4 (bottom-left left top-left) (top-left top top-right) (top-right right bottom-right) (bottom-right bottom bottom-left) mouse-absolute-pixel-position make-closure #[257 "\211:\205\241\321 \211@
A
\317Z
\320Z\322\313\2039\307Y\2039\303Z\305Y\2039\323\301\\\324]BC\262
\325\326\303ZBB
B\262
\314\203a\310Y\203a\304Z\306Y\203a\327\324\302\\]B
B\262
\330\326\304ZBB
B\262
\315\203~\311X\203~\303\\\305Y\203~\325\326\303\\BB
B\262
\316\203\233\312X\203\233\304\\\306Y\203\233\330\326\304\\BB
B\262
\331\300\"\266\206\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 mouse-absolute-pixel-position nil left 0 width text-pixels top height modify-frame-parameters] 11 "\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] #[0 "\300\242 \207" [V0] 1 nil nil] [mode-line] [header-line] [tab-line] [vertical-line] [right-divider] [bottom-divider] #[0 "\300\211\207" [V0 track-mouse] 2]] 45 (#$ . 27986)])
#@461 Drag a frame or one of its edges with the mouse.
START-EVENT is the starting mouse event of the drag action.  Its
position window denotes the frame that will be dragged.

PART specifies the part that has been dragged and must be one of
the symbols `left', `top', `right', `bottom', `top-left',
`top-right', `bottom-left', `bottom-right' to drag an internal
border or edge.  If PART equals `move', this means to move the
frame with the mouse.

(fn START-EVENT)
(defalias 'mouse-drag-frame-move #[257 "\302\303!\210\304\305
!\211\211@\262
\306
!\203\307
!\202\211\310
!\311!\312!\211@
A\313!\211\203<\304\211\310!\311!F\202]\314 @\315
\236\211\205[\211A@\3168A@\3178\\\3168\3208\\F\266\202\211\205c\211@
\205j
A@\205q\3168\205x\3178\321 \211@
A\322\323\"\324C\324C\324C\325\326&	\327\330\331 \332
\333\334#\210\332
\335\334#\210\332
\336\334#\210\332
\337#\210\332
\340\325\341\n\"#\210\332
\342#\210\332
\343#\210\332
\344#\210\332
\345#\210\332
\346#\210\332
\347#\210\211\262
\350\325\351\"#\240)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-live-p window-frame frame-native-width frame-native-height frame-position frame-parent display-monitor-attributes-list workarea 2 3 4 mouse-absolute-pixel-position frame-parameter snap-width nil make-closure #[257 "\211:\205\247
\317 \211@
A
\312Z
\313Z\320\211\303\\\262\304\\\262\314\247\203Q
\305\203Q
\312W\203o\306V\203E\306Z\314X\203E\315\240\210\306\262\202\275\306X\203h\306Z\314X\203h\315\242\203h\315\242Z\314X\203h\306\262\202\275\315\320\240\210\202\275\312V\203\275\301\\\262
\310W\203\225\310Z\314X\203\225\315\240\210\310\301Z\262\202\275
\310Y\203\271
\310Z\314X\203\271\315\242\203\271\315\242Z\314X\203\271\310\301Z\262\202\275\315\320\240\210\313W\203
\307V\203\333\307Z\314X\203\333\316\240\210\307\262\202Q
\307X\203\375\307Z\314X\203\375\316\242\203\375\316\242Z\314X\203\375\307\262\202Q
\316\320\240\210\202Q
\313V\203Q
\302\\\262
\211\311W\203)
\311
Z\314X\203)
\316\240\210\311\302Z\262\202Q
\211\311Y\203M
\211\311Z\314X\203M
\316\242\203M
\316\242Z\314X\203M
\311\302Z\262\202Q
\316\320\240\210\321\300\322\"\320
\204c
\321\300\323\"\262\324\262

\247\203\225
\305\203\225
\310Z^\306\301Z\\]\262\211\203\214
\307\302ZZ]\311\302Z^\202\223
\307]\311Z^\262\266\325\300\326\327E\330\327ED\"\266\207\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 mouse-absolute-pixel-position nil frame-parameter top-visible bottom-visible t modify-frame-parameters left + top] 14 "\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] #[0 "\300\242 \207" [V0] 1 nil nil] [mode-line] [header-line] [tab-line] [vertical-line] [right-divider] [bottom-divider] t #[0 "\300\211\207" [V0 track-mouse] 2]] 39 (#$ . 30484)])
#@121 Drag left edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-left-edge #[257 "\300
\301\"\207" [mouse-drag-frame-resize left] 4 (#$ . 33483) "e"])
#@127 Drag top left corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-top-left-corner #[257 "\300
\301\"\207" [mouse-drag-frame-resize top-left] 4 (#$ . 33718) "e"])
#@120 Drag top edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-top-edge #[257 "\300
\301\"\207" [mouse-drag-frame-resize top] 4 (#$ . 33969) "e"])
#@128 Drag top right corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-top-right-corner #[257 "\300
\301\"\207" [mouse-drag-frame-resize top-right] 4 (#$ . 34201) "e"])
#@122 Drag right edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-right-edge #[257 "\300
\301\"\207" [mouse-drag-frame-resize right] 4 (#$ . 34455) "e"])
#@131 Drag bottom right corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-bottom-right-corner #[257 "\300
\301\"\207" [mouse-drag-frame-resize bottom-right] 4 (#$ . 34693) "e"])
#@123 Drag bottom edge of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-bottom-edge #[257 "\300
\301\"\207" [mouse-drag-frame-resize bottom] 4 (#$ . 34956) "e"])
#@130 Drag bottom left corner of a frame with the mouse.
START-EVENT is the starting mouse event of the drag action.

(fn START-EVENT)
(defalias 'mouse-drag-bottom-left-corner #[257 "\300
\301\"\207" [mouse-drag-frame-resize bottom-left] 4 (#$ . 35197) "e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable mouse-select-region-move-to-beginning funcall function #[0 "\300\207" [nil] 1 ""] "Effect of selecting a region extending backward from double click.\nNil means keep point at the position clicked (region end);\nnon-nil means move point to beginning of region." :type (choice (const :tag "Don't move point" nil) (const :tag "Move point to beginning of region" t)) :version "26.1"] 8)
#@347 Move point to the position clicked on with the mouse.
This should be bound to a mouse click event type.
If PROMOTE-TO-REGION is non-nil and event is a multiple-click, select
the corresponding element around point, with the resulting position of
point determined by `mouse-select-region-move-to-beginning'.

(fn EVENT &optional PROMOTE-TO-REGION)
(defalias 'mouse-set-point #[513 "\301!\210\211\203;
\211:\203\302
8\250\203\302
8\262
\202 \303\262
\303V\203;\304!\210\205@\305\306!!\307 V\205:\310 \207\311\312!!\207" [mouse-select-region-move-to-beginning mouse-minibuffer-check 2 1 mouse-set-region posn-point event-start region-beginning exchange-point-and-mark posn-set-point event-end] 5 (#$ . 35927) "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 (#$ . 36767)])
(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?\314
8\250\203?\314
8\262
\202B\315\262
\316\317\320\"\211\203\231
\315X\203t\310\307!!\232\203t\211\211:\203o\314
8\250\203o\314
8\262
\202r\315\262
\262\307!\314
8\262
\311!\314
8\262
\232\203\223\211@\321=\204\223\262\322\317\320\317#\210\210\250\203\307
\250\203\307\323S#W\203\275\211@\262\211A@\262\210\202\307\211@\262\211A@\262\210\203\341\250\203\341
\250\203\341\317\211\211\324\"\210+\247\203\351b\210\f\204\366\325 \204\366\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 (#$ . 37134) "e"])
(defalias 'mouse-set-region-1 #[0 "\242\304=\204\305\300!\210\304\306=?\205B\307 \310 \311 \211\207" [transient-mark-mode mouse-last-region-beg mouse-last-region-end mouse-last-region-tick only make-local-variable lambda region-beginning region-end buffer-modified-tick] 3])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable mouse-scroll-delay funcall function #[0 "\300\207" [0.25] 1 #1=""] "The pause between scroll steps caused by mouse drags, in seconds.\nIf you drag the mouse beyond the edge of a window, Emacs scrolls the\nwindow to bring the text beyond that edge into view, with a delay of\nthis many seconds between scroll steps.  Scrolling stops when you move\nthe mouse back into the window, or release the button.\nThis variable's value may be non-integral.\nSetting this to zero causes Emacs to scroll as fast as it can." :type number mouse-scroll-min-lines #[0 "\300\207" [1] 1 #1#] "The minimum number of lines scrolled by dragging mouse out of window.\nMoving the mouse out the top or bottom edge of the window begins\nscrolling repeatedly.  The number of lines scrolled per repetition\nis normally equal to the number of lines beyond the window edge that\nthe mouse has moved.  However, it always scrolls at least the number\nof lines specified by this variable." integer] 6)
#@364 Scroll the window WINDOW, JUMP lines at a time, until new input arrives.
If OVERLAY is an overlay, let it stretch from START to the far edge of
the newly visible text.
ADJUST, if non-nil, is a function, without arguments, to call after
setting point.
Upon exit, point is at the far edge of the newly visible text.

(fn WINDOW JUMP &optional OVERLAY START ADJUST)
(defalias 'mouse-scroll-subr #[1282 "\302V\203W\203\262\202#\302W\203#[W\203#[\262`\303!b\210\304\"\302U\204\212\305`\"\210\306!\203c\307!\203W\307!b\210\304S\"\210\202i\304\310!\311Z!\210\202i\303!b\210\203s\312`#\210\313 =\204}\211b\210
\203\204
 \210\314	!\204$\313 =\206\223\211b\207" [mouse-scroll-min-lines mouse-scroll-delay 0 window-start vertical-motion set-window-start natnump window-end window-height 2 move-overlay selected-window sit-for] 10 (#$ . 39806)])
(defvar mouse-selection-click-count 0)
(defvar mouse-selection-click-count-buffer nil)
#@459 Set the region to the text that the mouse is dragged over.
Highlight the drag area as you move the mouse.
This must be bound to a button-down mouse event.
In Transient Mark mode, the highlighting remains as long as the mark
remains active.  Otherwise, it remains until the next input event.

When the region already exists and `mouse-drag-and-drop-region'
is non-nil, this moves the entire region of text to where mouse
is dragged over to.

(fn START-EVENT)
(defalias 'mouse-drag-region #[257 "\203\301\302!>\204\303\304!\305\"\306=\203\300
!\207\307\310!\210\311
!\207" [mouse-drag-and-drop-region triple event-modifiers mouse-posn-property event-start face region run-hooks mouse-leave-buffer-hook mouse-drag-track] 4 (#$ . 40785) "e"])
(put 'mouse-drag-region 'undo-inhibit-region t)
#@421 Look for a property at click position.
POS may be either a buffer position or a click position like
those returned from `event-start'.  If the click position is on
a string, the text property PROPERTY is examined.
If this is nil or the click is not on a string, then
the corresponding buffer position is searched for PROPERTY.
If PROPERTY is encountered in one of those places,
its value is returned.

(fn POS PROPERTY)
(defalias 'mouse-posn-property #[514 "
:\203H
\211@\262
\300!\301!\211\203\302
A@#\206G
\205G\211A@:\2031\211A@@\2024\211A@\2119\205:\211\266\202\303>?\205G\304#\207\304\"\207" [posn-point posn-string get-text-property (left-fringe right-fringe left-margin right-margin tab-bar) get-char-property] 9 (#$ . 41588)])
#@1459 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 determines whether POS is inside a link:

- If the value is `mouse-face', POS is inside a link if there
is a non-nil `mouse-face' property at POS.  Return t in this case.

- If the value is a function, FUNC, POS is inside a link if
the call (FUNC POS) returns non-nil.  Return the return value
from that call.  Arg is (posn-point POS) if POS is a mouse event.

- Otherwise, return the value itself.

The return value is interpreted as follows:

- If it is an array, the mouse-1 event is translated into the
first element of that array, i.e. the action of the mouse-1
click is the local or global binding of that event.

- Otherwise, the mouse-1 event is translated into a mouse-2 event
at the same position.

(fn POS)
(defalias 'mouse-on-link-p #[257 "\211:\203\204\301 
\211@\262
=\205M\302
\303\"\206M\211\211A@:\203*\211A@@\202-\211A@\2119\2053\211\266\202\211\205B\304\305\303\"\306\307$\262
\206M\304\310\306\307$\211\311=\203\\\302\311\"\205}\307\207\312
!\203|
:\203xr\313\211@\262
!q\210\211\314!!)\207\211!\207\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 (#$ . 42350)])
#@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\217r\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 (#$ . 44338)])
#@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@\262
r\312
!q\210\313)\313\314!\210\313\307\315!\313\211A@\316!\204:
\204@\3178\202D\3178S\211:\203Z\320
8\250\203Z\320
8\262
\202]\321\262
S'()`\n\242W\203r	\242b\210	`\240\210\322\323!\210\324=\203\206\325\202\212\326B\327\n\242\242#\330
@\331\211#\210\211A@b\266\332\313\333#\210\334(\313'\335\336 \337
\340\341#\210\337
\342\341#\210\337
\343\344\345&#\210\211\262
\331\344\346##+\207" [mouse-selection-click-count-buffer scroll-margin deactivate-mark echo-keystrokes make-cursor-line-fully-visible mode-line-format mouse-minibuffer-check 0 event-start posn-point window-buffer nil mouse-set-point window-edges window-minibuffer-p 3 2 1 make-local-variable transient-mark-mode lambda (only) only mouse-start-end push-mark t set-terminal-parameter mouse-drag-start drag-tracking set-transient-map make-sparse-keymap define-key [switch-frame] ignore [select-window] [mouse-movement] make-closure #[257 "\307
!\310
!\211\301\242=\204\306\300\311\240\210
\211@\262
\302=\203+\312
!\203+\313\301\242\305#\207\314 AA\211?\206T\211\303W\203D\315\302\303Z\316\301\242$\207\211\304Y\205T\315\302\304ZT\316\301\242$\207" [V0 V1 V2 V3 V4 V5 V6 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"] #[0 "\301\300\f\205\305 \306H\242\307=?\205\310 \210\311 \207" [V0 V1 track-mouse auto-hscroll-mode context-menu-mode this-command-keys-vector 0 down-mouse-3 deactivate-mark pop-mark] 2] auto-hscroll-mode track-mouse mouse-selection-click-count] 26 (#$ . 45046)])
#@32 

(fn START CLICK CLICK-COUNT)
(defalias 'mouse--drag-set-mark-and-point #[771 "\300#\211@
A@\301 =\203\211b\207\301 
=\203
b\207\301 W\203,\302
!\210
b\207\302!\210\211b\207" [mouse-start-end mark set-mark] 8 (#$ . 46909)])
#@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{\305v\207\303\304!\204(\303\306!?\205{\307v\207\211\310\230\203?\302W\203;\311
!\207\312
!\207\211\313\230\203S\302W\203O\311\314!\207\312\314!\207\302W\203jo?\205{hU\205{\305u\210\202Ym?\205{gU\205{\307u\210\202j\207" [char-to-string "w" 0 looking-at "\\<" -1 "\\>" 1 " " skip-syntax-backward skip-syntax-forward "_" "w_"] 5 (#$ . 47152)])
#@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\203D\207\211\303U\203TU\203Tf\203Tfz\304U\203T\305\306!!\307U\204G\310\311\312\211E\"\207\212b\210\313\303!\210`)D\207\211\303U\203\216U\203\216f\203\216fz\314U\203\216\305\306!!\315U\204\310\311\316\211E\"\207\212Tb\210\317\303!\210`)TD\207\211\303U\203\352U\203\352f\203\352fz\320U\203\352e=\206\266\212Sb\210\321\322!)\211\203\321\212\3231\314b\210\313\303!\210`0\202\316\210)D\207\212\3241\343Tb\210\317\303!\210`0\202\345\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 (#$ . 47741)])
#@14 

(fn CLICK)
(defalias 'mouse-set-mark-fast #[257 "\300
!\210\301
!\302
\211@\262
!\210\303
!\247\205\304\303!\305\211#\207" [mouse-minibuffer-check event-start select-window posn-point push-mark t] 6 (#$ . 49037)])
#@15 

(fn EVENTS)
(defalias 'mouse-undouble-last-event #[257 "\211GS\211\233\211@\300
!\301!\302\303\302\304\305!\"\":\203)\306\307B!!AB\202*
\240\210
\232\204@\310\311\312\n\"!\203@\313\207\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 (#$ . 49262)])
#@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\"\216\306!\210\307\310\311\211#\210\206%\312\313!)\207" [transient-mark-mode mouse-minibuffer-check select-window event-start make-closure #[0 "\300b\207" [V0] 1] mouse-set-point push-mark nil t sit-for 1] 6 (#$ . 49634) "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 (#$ . 50097) "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 (#$ . 50425) "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 (#$ . 51041) "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 (#$ . 51575) "e"])
(defvar mouse-save-then-kill-posn nil)
#@16 

(fn BEG END)
(defalias 'mouse-save-then-kill-delete-region #[514 "\303 \210

U\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 (#$ . 51942)])
#@817 Set the region according to CLICK; the second time, kill it.
CLICK should be a mouse click event.

If the region is inactive, activate it temporarily.  Set mark at
the original point, and move point to the position of CLICK.

If the region is already active, adjust it.  Normally, do this by
moving point or mark, whichever is closer, to CLICK.  But if you
have selected whole words or lines, move point or mark to the
word or line boundary closest to CLICK instead.

If `mouse-drag-copy-region' is non-nil, this command also saves the
new region to the kill ring (replacing the previous kill if the
previous region was just saved to the kill ring).

If this command is called a second consecutive time with the same
CLICK position, kill the region (or delete it
if `mouse-drag-copy-region' is non-nil).

(fn CLICK)
(defalias 'mouse-save-then-kill #[257 "\306
!\210\307
!\310
!
\211@\262
\311
!	
=\203)r\211q\210\312\313!)\203)\n\202*\314\247\2043\315\202
\316=\203b\f=\203b\317 =\203b
\203R\320!\210\202Z\321\312\313!`\322#\210\314\315\211\202
r
q\210\323 )\204\223\317 =\203\324\312\313!\203\324\316=\203\203\f\204\223\324>\203\324\204\223 \204\324\325!\210\326\211#\327\312\313!Z!\327`Z!W\203\265\330
@!\210\202\272\211A@b\210\315!\331 \210
\203\314\332\315!\313\"\210\211\262
\202
\325!\210\333!\210r
q\210\")\211\203\353\211b\210\210\334 \210\331 \210
\203\377\332\335\312\313!`\"!\210\211)\207" [this-command mouse-selection-click-count-buffer mouse-selection-click-count last-command mouse-save-then-kill-posn mouse-drag-copy-region mouse-minibuffer-check event-start posn-point window-buffer mark t 0 nil mouse-save-then-kill selected-window delete-only kill-region region region-active-p (mouse-drag-region mouse-set-region) select-window mouse-start-end abs set-mark mouse-set-region-1 kill-new mouse-set-mark-fast exchange-point-and-mark filter-buffer-substring region-extract-function mark-even-if-inactive transient-mark-mode deactivate-mark point-before-scroll] 11 (#$ . 52415) "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\207" [make-overlay delete-overlay overlay-put face secondary-selection] 5) (#$ . 54787))
(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 (#$ . 55150) "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 (#$ . 55632) "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=\313
8\250\203=\313
8\262
\202@\314\262
Sr\315!q\210\211\316
\312\"\305V\203n\317\211#\n\320\211\223\210\321@A@\315\n!$\266\202\n\204u\322 \n\320\223\210\323!\210\320C\320C\320C\324\325\326\n\n\n\n\n\n&	!\210\242:\205\330\327\n!\203\316\330 \325\331\"\216\323!\210\332\333\320\"\210\334	!\210\212\nb\210\335\314!\210*\320\262
\266\203\202\332\332\333\336!\337!{\"\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-closure #[0 "\305\310 \240\210\305\242\211\242\311=\262
\204\305\242\242\312>\205\231\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\225\211\302W\203\204\324\301\302Z\300$\266\202\211\303Y\203\225\324\301\303ZT\300$\210\210\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 read--potential-mouse-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 #[0 "\301\300!\207" [V0 set-window-configuration] 2] gui-set-selection SECONDARY select-window sit-for overlay-start overlay-end] 22 (#$ . 56113) "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
!\207\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 (#$ . 58145) "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 \211
GS\234\303!
<\203\304\305!\211@\262
!\202p=\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 (#$ . 58633) 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\371\312	!\206:\205:\316!=\204\\\317!\210\320 \211`\321\223\210\322	`$\210\323`\"\210\202\371\f\324=\203
=\203\325 =\203\326\"\210\327	!\210\313\321\202\371
\203\336\312	!=\203\336\330\211#\331Z!\331Z!W\203\254\322	@#\266\202\265\322	A@#\266\321 \f\324=\203\314\332\314	!\315	!{\333\"\210\202\331\321 \334\314	!\315	!\"\210)\202\371\317!\210\203\367\335_\323
\"\210\322		#\266)\266\321\312	!\205
\314	!\315	!{\211\262\205
\211G\313V\205
\336\337\"\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 1 gui-set-selection SECONDARY deactivate-mark] 14 (#$ . 59368) "e"])
#@73 Return non-nil if the secondary selection exists in the current buffer.
(defalias 'secondary-selection-exist-p #[0 "\301ed\">\207" [mouse-secondary-overlay overlays-in] 4 (#$ . 61211)])
#@413 Set beginning and end of the region to those of the secondary selection.
This puts mark and point at the beginning and the end of the
secondary selection, respectively.  This works when the secondary
selection exists and the region does not exist in current buffer;
the secondary selection will be deleted afterward.
If the region is active, or the secondary selection doesn't exist,
this function does nothing.
(defalias 'secondary-selection-to-region #[0 "\301 ?\205\302 \205\303!\304!\305\306\211#\210\211b\266\307!\207" [mouse-secondary-overlay region-active-p secondary-selection-exist-p overlay-start overlay-end push-mark t delete-overlay] 6 (#$ . 61405)])
#@127 Set beginning and end of the secondary selection to those of the region.
When there is no region, this function does nothing.
(defalias 'secondary-selection-from-region #[0 "\301 \205\302!\210\303\304 \305 #\207" [mouse-secondary-overlay region-active-p delete-overlay move-overlay region-beginning region-end] 4 (#$ . 62085)])
#@120 Whether the mouse tracks the cursor when selecting a rectangle.
If nil, the mouse tracks the rectangle corner instead.
(defconst mouse--rectangle-track-cursor t (#$ . 62424))
#@132 Set the region to the rectangle that the mouse is dragged over.
This must be bound to a button-down mouse event.

(fn START-EVENT)
(defalias 'mouse-drag-region-rectangle #[257 "\303\304
!\304!\305
!
\211@\262
\306
!\307!@
\\\310!\211A@\311!\203+\3128\202/\3128S\313\314\315!!\316C	\n\317\320\"\321 \322
\323\324#\210\322
\325\324#\210\322
\326\317\327&\n#\210\3301~\331\211\332
\331\317\333			$#0\202\212\334
@A\"\262
)\207" [scroll-margin track-mouse mouse-fine-grained-tracking 0 event-start posn-point window-hscroll posn-col-row window-edges window-minibuffer-p 3 round line-number-display-width columns nil make-closure #[257 "\302 \303=\203\304\305 \300	\203\306\202\307$\207\211\300Z\207" [V0 mouse--rectangle-track-cursor current-bidi-paragraph-direction right-to-left - window-width 1 -1] 6 "\n\n(fn COL)"] make-sparse-keymap define-key [switch-frame] ignore [select-window] [mouse-movement] #[257 "\307\242\204D\307\311\240\210\312\300!\210\313 \210\314\315!\210
\316=\203\317\202#\320
B
\321\301!\210\322 \210l\2046g\323=\203D\310\304!\324
\325\"\210\324
\326\"\266\327
!\211\211@\262
\330
!\203X\331
!\202Y\332\333 AA\334!@\\$\203l\332\202m\335\\\336\337\310#\336\340\310$\303=\203\224\203\224\341\305\306S#\203\224\321!\210
 \207?\206\271\305W\203\251\342\303\305Z\343\302%\207\306Y\205\271\342\303\306ZT\343\302%\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 t mouse-minibuffer-check deactivate-mark make-local-variable transient-mark-mode lambda (only) only posn-set-point rectangle-mark-mode 9 rectangle--col-pos mark point event-end window-live-p window-hscroll 0 mouse-position posn-col-row 1 make-closure #[0 "l\204\ng\303=\203\304\300\301!\305\"\207\n\204\306u\210\307 \207" [V0 V1 mouse--rectangle-track-cursor 9 rectangle--col-pos point nil rectangle--reset-point-crutches] 3] #[0 "\303\300\301!!\210\302 \207" [V0 V1 V2 move-to-column] 3] <= mouse-scroll-subr nil mouse--rectangle-track-cursor] 14 "\n\n(fn EVENT)" "e"] (error) t set-transient-map #[0 "\301\302\300\242\203\305 \203\306\305 `\"\307\232\205\310 \207" [V0 V1 V2 track-mouse mouse-fine-grained-tracking mark rectangle-dimensions (0 . 1) deactivate-mark] 3] signal] 31 (#$ . 62606) "e"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\316\322\323&\207" [global-set-key [C-M-down-mouse-1] mouse-drag-region-rectangle [C-M-drag-mouse-1] ignore [C-M-mouse-1] mouse-set-point custom-declare-variable mouse-buffer-menu-maxlen funcall function #[0 "\300\207" [20] 1 #1=""] "Number of buffers in one pane (submenu) of the buffer menu.\nIf we have lots of buffers, divide them into groups of\n`mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one." :type integer mouse-buffer-menu-mode-mult #[0 "\300\207" [4] 1 #1#] "Group the buffers by the major mode groups on \\[mouse-buffer-menu]?\nThis number which determines (in a hairy way) whether \\[mouse-buffer-menu]\nwill split the buffer menu by the major modes (see\n`mouse-buffer-menu-mode-groups') or just by menu length.\nSet to 1 (or even 0!) if you want to group by major mode always, and to\na large number if you prefer a mixed multitude.  The default is 4." :version "20.3"] 8)
#@187 How to group various major modes together in \[mouse-buffer-menu].
Each element has the form (REGEXP . GROUPNAME).
If the major mode's name string matches REGEXP, use GROUPNAME instead.
(defvar mouse-buffer-menu-mode-groups (mapcar #[257 "\300
@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] '(("Info\\|Help\\|Apropos\\|Man" . "Help") ("\\bVM\\b\\|\\bMH\\b\\|Message\\b\\|Mail\\|Group\\|Score\\|Summary\\|Article" . "Mail/News") ("\\<C\\>" . "C") ("ObjC" . "C") ("Text" . "Text") ("Outline" . "Text") ("\\(HT\\|SG\\|X\\|XHT\\)ML" . "SGML") ("\\blog\\b\\|diff\\|\\bvc\\b\\|cvs\\|Git\\|Annotate" . "Version Control") ("Threads\\|Memory\\|Disassembly\\|Breakpoints\\|Frames\\|Locals\\|Registers\\|Inferior I/O\\|Debugger" . "GDB") ("Lisp" . "Lisp"))) (#$ . 65917))
#@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 (#$ . 66683) "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\262
A\266\202\202\210\310\"\262
\211\204S
\211;\203C\202J\307\n\305\211$D\262
\211B\262
AA>\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\367\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\262
A\262\202\242\203\362\316\317\320\"!\211\203\361\321
BB\262\210\322\237B\207\322\323\324\316!\"B\207" [major-mode mouse-buffer-menu-mode-groups mode-name mouse-buffer-menu-mode-mult buffer-list nil string-match format-mode-line assoc 0 sort #[514 "
G
GV\207" [] 4 "\n\n(fn ELT1 ELT2)"] 3 10 mouse-buffer-menu-alist mapcan cddr "Others" "Buffer Menu" mouse-buffer-menu-split "Select Buffer"] 13])
#@16 

(fn BUFFERS)
(defalias 'mouse-buffer-menu-alist #[257 "\302\303\302\304\305\"\262\262\203+\306@!\303H\307=\204$
\306@!G]\262A\262\202\f\262\203\205@\306
!\303H\307U\204}\310\211\311\"\306!\312!\203P\313\202Q\314rq\210\203]\315\202^\314)\316!\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 (#$ . 68021)])
#@20 

(fn TITLE ALIST)
(defalias 'mouse-buffer-menu-split #[514 "\211G\301_\302\245V\203:\211\303\211\304\2037\233\262
\203#S\233\303\241\210\305\306\"BB\262\211T\262

\262\202\237\207

BC\207" [mouse-buffer-menu-maxlen 3 2 nil 1 format "Buffers %d"] 9 (#$ . 68627)])
(defalias 'font-menu-add-default #[0 "\301\302\303\"\304\305\"\206\211A@\304\306\"\203\307\304\306\"\"\210\211\306DAB\241\207" [x-fixed-font-alist frame-parameter nil font assoc "Misc" "Default" delete] 7])
#@36 X fonts suitable for use in Emacs.
(defvar x-fixed-font-alist (byte-code "\300\301!\300\302!\303\304\305\"B\300\306!\303\307\310\"BE\207" [purecopy "Font Menu" "Misc" mapcar #[257 "\300
@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] (("fixed" "fixed") ("6x10" "-misc-fixed-medium-r-normal--10-*-*-*-c-60-iso8859-1" "6x10") ("6x12" "-misc-fixed-medium-r-semicondensed--12-*-*-*-c-60-iso8859-1" "6x12") ("6x13" "-misc-fixed-medium-r-semicondensed--13-*-*-*-c-60-iso8859-1" "6x13") ("7x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-70-iso8859-1" "7x13") ("7x14" "-misc-fixed-medium-r-normal--14-*-*-*-c-70-iso8859-1" "7x14") ("8x13" "-misc-fixed-medium-r-normal--13-*-*-*-c-80-iso8859-1" "8x13") ("9x15" "-misc-fixed-medium-r-normal--15-*-*-*-c-90-iso8859-1" "9x15") ("10x20" "-misc-fixed-medium-r-normal--20-*-*-*-c-100-iso8859-1" "10x20") ("11x18" "-misc-fixed-medium-r-normal--18-*-*-*-c-110-iso8859-1" "11x18") ("12x24" "-misc-fixed-medium-r-normal--24-*-*-*-c-120-iso8859-1" "12x24") (#1="") ("clean 5x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-50-iso8859-1") ("clean 6x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-60-iso8859-1") ("clean 8x8" "-schumacher-clean-medium-r-normal--8-*-*-*-c-80-iso8859-1") ("clean 8x10" "-schumacher-clean-medium-r-normal--10-*-*-*-c-80-iso8859-1") ("clean 8x14" "-schumacher-clean-medium-r-normal--14-*-*-*-c-80-iso8859-1") ("clean 8x16" "-schumacher-clean-medium-r-normal--16-*-*-*-c-80-iso8859-1") (#1#) ("sony 8x16" "-sony-fixed-medium-r-normal--16-*-*-*-c-80-iso8859-1") ("lucidasanstypewriter-12" "-b&h-lucidatypewriter-medium-r-normal-sans-*-120-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-14" "-b&h-lucidatypewriter-bold-r-normal-sans-*-140-*-*-*-*-iso8859-1") ("lucidasanstypewriter-bold-24" "-b&h-lucidatypewriter-bold-r-normal-sans-*-240-*-*-*-*-iso8859-1")) "Courier" #[257 "\300
@!\300A!B\207" [purecopy] 4 "\n\n(fn ARG)"] (("8" "-adobe-courier-medium-r-normal--*-80-*-*-m-*-iso8859-1") ("10" "-adobe-courier-medium-r-normal--*-100-*-*-m-*-iso8859-1") ("12" "-adobe-courier-medium-r-normal--*-120-*-*-m-*-iso8859-1") ("14" "-adobe-courier-medium-r-normal--*-140-*-*-m-*-iso8859-1") ("18" "-adobe-courier-medium-r-normal--*-180-*-*-m-*-iso8859-1") ("24" "-adobe-courier-medium-r-normal--*-240-*-*-m-*-iso8859-1") ("8 bold" "-adobe-courier-bold-r-normal--*-80-*-*-m-*-iso8859-1") ("10 bold" "-adobe-courier-bold-r-normal--*-100-*-*-m-*-iso8859-1") ("12 bold" "-adobe-courier-bold-r-normal--*-120-*-*-m-*-iso8859-1") ("14 bold" "-adobe-courier-bold-r-normal--*-140-*-*-m-*-iso8859-1") ("18 bold" "-adobe-courier-bold-r-normal--*-180-*-*-m-*-iso8859-1") ("24 bold" "-adobe-courier-bold-r-normal--*-240-*-*-m-*-iso8859-1") ("8 slant" "-adobe-courier-medium-o-normal--*-80-*-*-m-*-iso8859-1") ("10 slant" "-adobe-courier-medium-o-normal--*-100-*-*-m-*-iso8859-1") ("12 slant" "-adobe-courier-medium-o-normal--*-120-*-*-m-*-iso8859-1") ("14 slant" "-adobe-courier-medium-o-normal--*-140-*-*-m-*-iso8859-1") ("18 slant" "-adobe-courier-medium-o-normal--*-180-*-*-m-*-iso8859-1") ("24 slant" "-adobe-courier-medium-o-normal--*-240-*-*-m-*-iso8859-1") ("8 bold slant" "-adobe-courier-bold-o-normal--*-80-*-*-m-*-iso8859-1") ("10 bold slant" "-adobe-courier-bold-o-normal--*-100-*-*-m-*-iso8859-1") ("12 bold slant" "-adobe-courier-bold-o-normal--*-120-*-*-m-*-iso8859-1") ("14 bold slant" "-adobe-courier-bold-o-normal--*-140-*-*-m-*-iso8859-1") ("18 bold slant" "-adobe-courier-bold-o-normal--*-180-*-*-m-*-iso8859-1") ("24 bold slant" "-adobe-courier-bold-o-normal--*-240-*-*-m-*-iso8859-1"))] 6) (#$ . 69133))
#@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 (#$ . 72700) 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\2051\300
\203'\3011\302@!\210
@\262
\300\211\2620\210\202\210
A\262\202\211?\205/\303\304!\262
\207" [nil (error) set-frame-font error "Font not found"] 4 (#$ . 73067) (byte-code "\302 \204	\303\304!\210\305<\203\202\306\307 D\310	\311 C\"\"\207" [last-nonmenu-event x-fixed-font-alist display-multi-font-p error "Cannot change fonts on this display" x-popup-menu (0 0) selected-window append generate-fontset-menu] 5)])
(defvar mouse-appearance-menu-map nil)
#@78 Show a menu for changing the default face in the current buffer.

(fn EVENT)
(defalias 'mouse-appearance-menu #[257 "\305\306!\210\307 \205
\310\311!@!r\312\313\"\216\314
@\315\"\210\204\310\316\317!\320\321\322#\210\320\323\324#\210\320\325\326#\210\327\330!\203N\331\301!\203E	\203N\320\332\333#\210\202\310\316\334!\335\n\336=\203\\\202]\f\337 C\"A\211\211\203\274\211@\211@\316
!A\211\203\245\211@\211@\340
\341\230\203\211\320\342\343#\266\202\236\344A@!\262
\320\345!\346@E#\266
A\266\202\202p\210\320\345\344!!\346E#\266
A\266\202\202c\210\320\347\346\334E#\266\350\"\211GS
8\262
\211\351\267\202\357\352\353!\202
\352\354!\202
\355\356!\210\357\356!\202
\211\205
\211\330=\203\376\330 \202

\360
!\361\362\363\"\203
\364D\202
\365!\366\367\370!#\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-closure #[0 "\301\300!\207" [V0 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 vector menu-item [font-submenu] x-popup-menu #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (text-scale-increase 217 text-scale-decrease 223 face-remap-reset-base 229)) text-scale-increase 1 -1 text-scale-mode 0 buffer-face-mode symbol-name buffer-face-mode-invoke fontp font-spec :font font-face-attributes t called-interactively-p interactive] 18 (#$ . 73819) "@e"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\"\315\"BB\316\317&\210\300\320\302\303\321DD\322\306\323\316\317&\210\300\324\302\303\325DD\326\306\327\316\317&\210\300\330\302\303\331DD\332\306\323\316\317&\210\333\301\334\335\316\317%\207" [custom-declare-variable mouse-drag-and-drop-region funcall function #[0 "\300\207" [nil] 1 #1=""] "If non-nil, dragging the mouse drags the region, if it exists.\nIf the value is a modifier, such as `control' or `shift' or\n`meta', then if that modifier key is pressed when dropping the\nregion, text is copied instead of being cut." :type choice (const :tag "Disable dragging the region" nil) append mapcar #[257 "\300\301\302\303\"F\207" [const :tag format "Enable, but copy with the %s modifier"] 6 "\n\n(fn MODIFIER)"] (alt super hyper shift control meta) ((other :tag "Enable dragging the region" t)) :version "26.1" mouse-drag-and-drop-region-cut-when-buffers-differ #[0 "\300\207" [nil] 1 #1#] "If non-nil, cut text also when source and destination buffers differ.\nIf this option is nil, `mouse-drag-and-drop-region' will leave\nthe text in the source buffer alone when dropping it in a\ndifferent buffer.  If this is non-nil, it will cut the text just\nas it does when dropping text in the source buffer." boolean mouse-drag-and-drop-region-show-tooltip #[0 "\300\207" [256] 1 #1#] "If non-nil, text is shown by a tooltip in a graphic display.\nIf this option is nil, `mouse-drag-and-drop-region' does not show\ntooltips.  If this is t, it shows the entire text dragged in a\ntooltip.  If this is an integer (as with the default value of\n256), it will show up to that many characters of the dragged text\nin a tooltip." (choice (const :tag "Do not show tooltips" nil) (const :tag "Show all text" t) (integer :tag "Max number of characters to show" 256)) mouse-drag-and-drop-region-show-cursor #[0 "\300\207" [t] 1 #1#] "If non-nil, move point with mouse cursor during dragging.\nIf this is nil, `mouse-drag-and-drop-region' leaves point alone.\nOtherwise, it will move point together with the mouse cursor and,\nin addition, temporarily highlight the original region with the\n`mouse-drag-and-drop-region' face." custom-declare-face ((t :inherit region)) "Face to highlight original text during dragging.\nThis face is used by `mouse-drag-and-drop-region' to temporarily\nhighlight the original region when\n`mouse-drag-and-drop-region-show-cursor' is non-nil."] 11)
#@352 Move text in the region to point where mouse is dragged to.
The transportation of text is also referred as `drag and drop'.
When text is dragged over to a different buffer, or if a
modifier key was pressed when dropping, and the value of the
variable `mouse-drag-and-drop-region' is that modifier, the text
is copied instead of being cut.

(fn EVENT)
(defalias 'mouse-drag-and-drop-region #[257 "\211C\306!	\205	\307V\205\310 \205\311\312!\205	\313 \314 `p\315 \nC\316\317\320 \"\321 \322C\322C\322C\322C\322C\322\211C\322\211C\322C\322C\322\323\324\325\"!\210\3261\237
\327\324\330&!\210	\203w\331 \210\332\242!\235?\262\242?\262\242\203\227\306\242!\232\204\236\333\240\210\333\262\203\247\f\202\251\f?\242\232\211\205\266
?\205\274\f
\242\206\315
\204\312\211\205\315\242\203\335\305 \210\334\242!\202\227
	\242\203\350\n\204\354\211\203
	\242\204\372\211\203\372\335\336!\210\337!\210b\210\322\340 \210\205\227
\341 \202\227
\337\242!\210
\242\262\242b\210\342 \210\343\242!\210\344 `\232\204?
\322\340 \210\203?
\341 \210\203g
\n\205\227
\322\211\205a
\211@\345
!\346!|\210
A\266\202\202L
\262
)\202\227
\337!\210b\210\f\203\217
\211\203\213
\211@\345
!\346!|\210
A\266\202\202v
\210\202\222
\340 \210\337\242!)\266\2040\210\202\240
\210
\211\203\263
\211@\347
!\210
A\266\202\202\242
\210
\242\211\205\371
\211@\211@\203\345
\211=\204\345
\350
A@\351#\210
A@\322\211\223\210\352
\3538\"\210\3538\322\211\223\210r\354
!q\210\3558.)\210
A\266\202\202\266
\262
)\207" [last-input-event mouse-drag-and-drop-region-show-tooltip buffer-read-only mouse-drag-and-drop-region mouse-drag-and-drop-region-cut-when-buffers-differ deactivate-mark event-basic-type 0 display-multi-frame-p require tooltip region-beginning region-end selected-window mapcar #[257 "\300
@A\"\207" [make-overlay] 4 "\n\n(fn BOUNDS)"] region-bounds region-noncontiguous-p nil walk-window-tree make-closure #[257 "\300
\302\303!!\302\304!!r\305!q\210	)F\300\242B\240\207" [V0 cursor-type copy-marker window-start window-point window-buffer] 7 "\n\n(fn WINDOW)"] (error) internal--track-mouse #[0 "\3167\300\317 \240\210\300\242\211\242\320=\262
\204\300\242@\321>\205y
\314\242\204\203\3148\322!\240\2109\203U9\315
\250\203P\314\242GV\203P\314\242\323\324\245O\325\314\242\324\245[\326OQ\202R\314\242\240\266\303\211\242\206\201\3272\201\330 \211\205~\211@\331
@A\332\322$\203w\333\327\334\"\210
A\266\202\202a\262
0\240\210\310\335\300\242!\211@\262
\240\210\306\336\335\300\242!!\240\210\311\322\337\310\242!\205\256\340\310\242!\262
\341
!?\205\256\211\262
\240\210\312\310\242\205\277\306\242\205\277\311\242\240\210\312\242\203#
\342 \343\344\"\216\345\310\242!\210\307:\206\335\346\306\242\332\"\240\210)\210\313\347\304@!\311\242=\205!
\305\203
\350\301\302\"\351\301!\351\306\242!\352$\205
\211@@W?\266\203\202!
\353\304@!\306\242X\205!
\306\242\354\304@!X\240\2109\2032
\355\356\315\242!!\210\2025
\357 \210;\203\312\242\204C
\322\202R
\307\242\204M
\313\242\203Q
\360\202R
\361<\312\242\203\304\211\203m
\211@\362
\363\364#\210
A\266\202\202Z
\210\365 \210\366\300\242!\210\202\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 dropping read-key mouse-movement (select-window switch-frame) nil 0 2 "\n...\n" -1 loop region-bounds text-property-not-all read-only throw t event-end posn-point windowp window-buffer minibufferp current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] select-window get-text-property overlay-buffer rectangle-dimensions rectangle-position-as-coordinates rectangle-intersect-p overlay-start overlay-end tooltip-show copy-sequence tooltip-hide hollow bar overlay-put face mouse-drag-and-drop-region deactivate-mark mouse-set-point track-mouse region-extract-function mouse-drag-and-drop-region-show-tooltip buffer-read-only mouse-drag-and-drop-region-show-cursor cursor-type] 9] tooltip-hide event-modifiers t mouse-set-point message "Buffer is read-only" select-window activate-mark rectangle-mark-mode push-mark insert-for-yank mark overlay-start overlay-end delete-overlay set-window-start noforce set-window-point 2 window-buffer 3 cursor-type] 40 (#$ . 78288) "e"])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [global-set-key [down-mouse-1] mouse-drag-region [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region] 3)
#@15 

(fn PROMPT)
(defalias 'mouse--strip-first-event #[257 "\300 \301\302O\207" [this-single-command-raw-keys 1 nil] 4 (#$ . 82771)])
(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\334\"\210\306\343\344\"\210\306\345\346\"\210\306\347\350\"\210\306\351\352\"\210\306\353\350\"\210\306\354\355\"\210\306\356\334\"\210\306\357\352\"\210\306\360\355\"\210\306\361\362\"\210\306\363\352\"\210\306\364\341\"\210\306\365\362\"\210\306\366\350\"\210\306\367\370\"\210\306\371\362\"\210\306\372\373\"\210\306\374\362\"\210\306\375\376\"\210\306\377\362\"\210\306\201@\201A\"\210\306\201B\362\"\210\306\201C\201D\"\210\306\201E\362\"\210\306\201F\201G\"\210\306\201H\362\"\210\306\201I\201J\"\210\306\201K\362\"\210\306\201L\201M\"\210\306\201N\362\"\210\201O\201P!\207" [function-key-map system-type define-key [left-fringe mouse-1] mouse--strip-first-event [right-fringe mouse-1] global-set-key [mouse-2] mouse-yank-primary [right-fringe mouse-2] [left-fringe mouse-2] [mouse-3] mouse-save-then-kill [right-fringe mouse-3] [left-fringe mouse-3] [C-down-mouse-1] mouse-buffer-menu ms-dos [S-down-mouse-1] mouse-appearance-menu [C-down-mouse-3] menu-item purecopy "Menu Bar" (ignore :filter (lambda (_) (if (zerop (or (frame-parameter nil 'menu-bar-lines) 0)) (mouse-menu-bar-map) (mouse-menu-major-mode-map)))) [header-line down-mouse-1] mouse-drag-header-line [header-line mouse-1] mouse-select-window [tab-line down-mouse-1] mouse-drag-tab-line [tab-line mouse-1] [mode-line down-mouse-1] mouse-drag-mode-line [mode-line mouse-1] [mode-line mouse-2] mouse-delete-other-windows [mode-line mouse-3] mouse-delete-window [mode-line C-mouse-2] mouse-split-window-horizontally [vertical-scroll-bar C-mouse-2] mouse-split-window-vertically [horizontal-scroll-bar C-mouse-2] [vertical-line down-mouse-1] mouse-drag-vertical-line [vertical-line mouse-1] [vertical-line C-mouse-2] [right-divider down-mouse-1] [right-divider mouse-1] ignore [right-divider C-mouse-2] [bottom-divider down-mouse-1] [bottom-divider mouse-1] [bottom-divider C-mouse-2] [left-edge down-mouse-1] mouse-drag-left-edge [left-edge mouse-1] [top-left-corner down-mouse-1] mouse-drag-top-left-corner [top-left-corner mouse-1] [top-edge down-mouse-1] mouse-drag-top-edge [top-edge mouse-1] [top-right-corner down-mouse-1] mouse-drag-top-right-corner [top-right-corner mouse-1] [right-edge down-mouse-1] mouse-drag-right-edge [right-edge mouse-1] [bottom-right-corner down-mouse-1] mouse-drag-bottom-right-corner [bottom-right-corner mouse-1] [bottom-edge down-mouse-1] mouse-drag-bottom-edge [bottom-edge mouse-1] [bottom-left-corner down-mouse-1] mouse-drag-bottom-left-corner [bottom-left-corner mouse-1] provide mouse] 5)