;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@164 If non-nil, mouse yank commands yank at point instead of at click. This also allows yanking text into an isearch without moving the mouse cursor to the echo area.#@2 #@567 If non-nil, copy to kill ring upon mouse adjustments of the region. This affects `mouse-save-then-kill' (\[mouse-save-then-kill]) in addition to mouse drags. If this variable is `non-empty', only copy to the kill ring if the region is non-empty. For instance, if you mouse drag an area that is less than a half a character, you'd normally get the empty string in your kill ring, but with this value, this short mouse drag won't affect the kill ring. This variable applies only to mouse adjustments in Emacs, not selecting and adjusting regions in other windows.#@1149 Non-nil means that clicking Mouse-1 on a link follows the link. With the default setting, an ordinary Mouse-1 click on a link performs the same action as Mouse-2 on that link, while a longer Mouse-1 click (hold down the Mouse-1 button for more than 450 milliseconds) performs the original Mouse-1 binding (which typically sets point where you click the mouse). If value is an integer, the time elapsed between pressing and releasing the mouse button determines whether to follow the link or perform the normal Mouse-1 action (typically set point). The absolute numeric value specifies the maximum duration of a "short click" in milliseconds. A positive value means that a short click follows the link, and a longer click performs the normal action. A negative value gives the opposite behavior. If value is `double', a double click follows the link. Otherwise, a single Mouse-1 click unconditionally follows the link. Note that dragging the mouse never follows the link. This feature only works in modes that specifically identify clickable text as links, so it may not work with some external packages. See `mouse-on-link-p' for details.#@237 If non-nil, a Mouse-1 click also follows links in non-selected windows. If nil, a Mouse-1 click on a link in a non-selected window performs the normal mouse-1 binding, typically selects the window and sets point at the click position.#@262 If non-nil, double-clicking Mouse-1 attempts to select the symbol at click. If nil, the default, double-clicking Mouse-1 on a word-constituent character will select only the word at click location, which could select fewer characters than the symbol at click.#@222 If non-nil, the scroll margin inside a window when dragging text. If the mouse moves this many lines close to the top or bottom of a window while dragging text, then that window will be scrolled down and up respectively.#@253 If non-nil, allow dragging files from the mode line. When the buffer has an associated file, it can be dragged from the buffer name portion of its mode line to other programs. This option is only supported on X, Haiku and Nextstep (GNUstep or macOS).#@469 How to remap mouse button numbers to wheel events. This is an alist of (NUMBER . SYMBOL) used to remap old-style mouse wheel events represented as mouse button events. It remaps mouse button NUMBER to the event SYMBOL. SYMBOL must be one of `wheel-up', `wheel-down', `wheel-left', or `wheel-right'. This is used only for events that come from sources known to generate such events, such as X11 events when XInput2 is not used, or events coming from a text terminal. (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\326\327\330&\210\313\331\315\316\332DD\333\327\334\321\335&\210\313\336\315\316\337DD\340\321\322\327\334&\210\313\341\315\316\342DD\343\321\322\327\344&\210\313\345\315\316\346DD\347\321\350\327\351&\210\313\352\315\316\353DD\354\321\322\327\351&\210\313\355\315\316\356DD\357\321\360\327\344&\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 (#$ . 251)] (#$ . 84) :type boolean mouse-drag-copy-region #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 258) (choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "Non-empty" non-empty)) :version "24.1" mouse-1-click-follows-link #[0 "\300\207" [450] 1 (#$ . 251)] (#$ . 831) "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 (#$ . 251)] (#$ . 1985) mouse-1-double-click-prefer-symbols #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 2227) "30.1" mouse-drag-and-drop-region-scroll-margin #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 2494) (choice (const :tag "Don't scroll during mouse movement") (integer :tag "This many lines from window top or bottom")) "29.1" mouse-drag-mode-line-buffer #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 2721) mouse-wheel-buttons #[0 "\300\207" [((4 . wheel-up) (5 . wheel-down) (6 . wheel-left) (7 . wheel-right))] 1 (#$ . 251)] (#$ . 2979) (alist)] 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 (#$ . 5182)])#@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)#@12 (fn A B) (defalias 'mouse--click-1-maybe-follows-link #[256 "\205\224 \304\267\202\305\207\n\242\306=\2024\n\242\307=\205\224 \247\2037 \310W\203)\311\202*\312\313A!\314 !\315\245\"\205\224@\316\317\320\321\n!\322\n!C\"B!=\205\224\323\324\n!!\211\205\222 \204a\325 \324\n!@=\205\222\326!\203m\327\310H!\207 \330=\203w\331\202x\332\211\333N\204\207\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 test eq purecopy t data (nil 10 double 12)) nil double-mouse-1 mouse-1 0 #[514 "\300\"\207" [time-less-p] 5 (#$ . 5546)] 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 (#$ . 5389)])#@211 Return a number for `double-click-time'. In contrast to using the `double-click-time' variable directly, which could be set to nil or t, this function is guaranteed to always return a positive integer or zero. (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) (defalias 'mouse-double-click-time #[0 "\211\301\267\202 \302\207\303\207\211\247\203\211\303V\203\207\303\207" [double-click-time #s(hash-table test eq purecopy t data (t 7 nil 9)) 10000 0] 3 (#$ . 6439)])#@467 Show menu for minor mode specified by INDICATOR. INDICATOR is either a string object returned by `posn-object' or the car of such an object. WINDOW may be the window whose mode line is being displayed. EVENT may be the mouse event that is causing this menu to be displayed. 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 &optional WINDOW EVENT) (defalias 'minor-mode-menu-from-indicator #[769 "\203\223\3032\222\304!r\305\306\"\216\307@\310\"\210\311\211:\205\216 \205\216\312\313\314\"r\211q\210\305\315\"\216@c\210\211\205\213\211@\211:\203\206\316A@\311 #\211\262\203\206G\317V\203\206eb\210\320\311\317#\203\206 AT\262\317\224Y\203Z\317\225X\203Z\211@\211\262 \203Z\321\303\311\"\210\202Z\210A\2027*\266\202*\266\2040\210:\203\234@\2629\203\245\202\250\322!\211\323N\206\257\211\204\271\324\325\"\210\n\236\243\326!\205\307\327\330\"\211\203\323\331!\262\202\374\332!\205\372\333\334\335 \336\337\340\341\334\342 \"#!#\343\344\345F\346\344\347\305\350\n\"FF\262\211\203\351\"\207\352\353!\207" [minor-mode-alist mode-line-compact minor-mode-map-alist found internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord nil generate-new-buffer " *temp*" t #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] format-mode-line 0 search-forward throw 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" #[0 "\301\300!\207" [V0 describe-function] 2 nil nil] popup-menu message "No menu available"] 18 (#$ . 7121) (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!\211\211\3018\262\206\302!\262@\303#\207" [event-start 7 posn-string minor-mode-menu-from-indicator] 8 (#$ . 9189) "@e"]) (put 'mouse-minor-mode-menu 'mouse-1-menu-command t) (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)#@12 (fn K V) (defalias 'mouse-menu-non-singleton #[257 "\211\205#\300C\301\302\303\"\304!\"\210\211\242\305=\203\210\207\306\307\242@!\"\262\207" [nil map-keymap make-closure #[514 "\300\211\242\203\n\301\202 B\240\207" [V0 t] 5 (#$ . 10042)] keymap-canonicalize t lookup-key vector] 6 (#$ . 9873)])#@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.#@13 (fn MENU) (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 (#$ . 10505)] minor-mode-key-binding [menu-bar] keymap format-mode-line " Mode Menu" "Global Menu" apply append] 10 (#$ . 10358)])#@216 List of functions that produce the contents of the context menu. Each function receives the menu and the mouse click event as its arguments and should return the same menu with changes such as added new menu items.#@73 Function that can filter the list produced by `context-menu-functions'.#@707 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'. Whereas the property `context-menu-functions' doesn't override the variable `context-menu-functions', but adds menus from the list in the property after adding menus from the variable. At the end, it's possible to modify the final menu by specifying the function `context-menu-filter-function'. (fn &optional CLICK)#@12 (fn FUN) (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 (#$ . 251)] (#$ . 11148) :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-project) (function-item context-menu-vc) (function-item context-menu-ffap) (function-item hi-lock-context-menu) (function-item occur-context-menu) (function-item Man-context-menu) (function-item dictionary-context-menu) (function :tag "Custom function"))) :version "28.1" context-menu-filter-function #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 11368) (choice (const nil) function)] 8) (defalias 'context-menu-map #[256 "\303\304\305\306\307#!C\206 \310!\211@\311\312\"\311\313\"\314 =\204%\315!\210\316!\2038\242\"\240\210\202[\317\313\320\321\n#\"\210\211\211\203Z\211@ \242 \"\240\266A\202D\210\242\307:\203\230A:\203\230A@\243 \232\203\210\211\203\211AA\241\210\202^\210\211A\262\202^A@:\203\221\210\322A\262\202^\211:\203\243\211AA\241\210\266\316\n!\203\265\n\242\"\240\210\242\207" [last-input-event menu-bar-separator context-menu-filter-function make-sparse-keymap propertize "Context Menu" hide t event-start mouse-posn-property context-menu-function context-menu-functions selected-window select-window functionp run-hook-wrapped make-closure #[257 "\301\301\242\300\"\240\302\207" [V0 V1 nil] 6 (#$ . 12157)] nil] 13 (#$ . 11446)])#@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 (#$ . 14047)])#@65 Populate MENU with submenus from the tool bar. (fn MENU CLICK)#@20 (fn KEY BINDING) (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 (#$ . 14390)] lookup-key [tool-bar]] 7 (#$ . 14321)])#@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 (#$ . 14390)] menu-bar-keymap lookup-key [menu-bar]] 8 (#$ . 14814)])#@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 (#$ . 14390)] menu-bar-keymap] 7 (#$ . 15305)])#@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\2030\211@\211:\203+\211@J\203+\311\312\313\"A\"\210\210A\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 (#$ . 14390)]] 8 (#$ . 15805)])#@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 (#$ . 14390)] mouse-buffer-menu-keymap] 6 (#$ . 16344)])#@55 Populate MENU with project commands. (fn MENU CLICK) (defalias 'context-menu-project #[514 "\302\303#\210\302\304 #\210\207" [menu-bar-separator menu-bar-project-item define-key-after [separator-project] [project-menu]] 6 (#$ . 16812)])#@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 (#$ . 17059)])#@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 (#$ . 17291)])#@54 Populate MENU with region commands. (fn MENU CLICK)#@10 (fn E) (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!\203K A\202L\f\203Y\n\204Y\305\327\330#\210 A\203\273\n\204\273\331\332\333!!\334\335 !\211\203\230\211@\211:\203\223\336\337\340\341\342T\211\262\n\"!!\312A@\343\344\f#E#\210\210A\202k\210\305\314\315!\203\245\345\202\246\346\312\314\315!\203\261\347\202\262\333\350BBB#\266 \203\311\n\204\311\305\351\352#\210\331\332\353!!\305\354\312\355\356\357BBB#\210r\360\361!@!q\210\362\361!!\211\205\356\211f\211\203\371\211z\363=\206\364\212\365!)8\266\202\203\305\366\312\367\370\371BBB#\210)\305\372\312\373\374\375BBB#\210\376 \2035\305\377\312\201@\201A\201BBBB#\210\305\201C\312\353E#\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 intern format "kill-%d" make-closure #[0 "\302\301\300@\"\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 (#$ . 17970) "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 (#$ . 17970) "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 (#$ . 17970) "e"] (:help "Mark the line at click for a subsequent cut/copy") region-active-p [mark-none] "None" #[257 "\300 \207" [deactivate-mark] 2 (#$ . 17970) "e"] (:help "Deactivate the region") [select-region]] 15 (#$ . 17912)])#@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 (#$ . 20481)])#@74 Menu item that creates the context menu and can be bound to a mouse key.#@10 (fn _) (defvar context-menu-entry (byte-code "\300\301\302!\303 \304\305\257\207" [menu-item purecopy "Context Menu" make-sparse-keymap :filter #[257 "\300 \207" [context-menu-map] 2 (#$ . 20963)]] 5) (#$ . 20885))#@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) (#$ . 21186))#@116 Non-nil if Context-Menu mode is enabled. See the `context-menu-mode' command for a description of this minor mode.#@783 Toggle Context Menu mode. When Context Menu mode is enabled, clicking the mouse button down-mouse-3 activates the menu whose contents depends on its surrounding context. This is a global 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. \{context-menu-mode-map} (fn &optional ARG) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable context-menu-mode funcall function #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 21574) :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) (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!\203n\321\303!\210\301 \203]\211\301 \232\203n\322\323\324\305\303!\203j\325\202k\326\327$\210\210\330 \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 "%s %sabled%s" "Context-Menu mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 21695) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar context-menu-mode-hook nil)#@98 Start key navigation of the context menu. This is the keyboard interface to \[context-menu-map]. (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) (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 (#$ . 23563) nil])#@80 Activate the region around THING found near the mouse CLICK. (fn CLICK THING) (global-set-key [S-f10] 'context-menu-open) (defalias 'mark-thing-at-mouse #[514 "\301\"\211\205$\203\211@\202\211Ab\210\302\203A\202!@\303\304#\207" [mouse-select-region-move-to-beginning bounds-of-thing-at-mouse push-mark t activate] 7 (#$ . 24329)])#@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 (#$ . 24680)])#@14 (fn EVENT) (defalias 'mouse-minibuffer-check #[257 "\300!@\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 (#$ . 24976)])#@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!\211A@:\203\211A@@\202\211A@\2119\205%\211\266\202\304=\205>\303!@\305!@=\205>\306\305!@!\207" [one-window-p t mouse-minibuffer-check event-end mode-line event-start delete-window] 4 (#$ . 25276) "e"])#@61 Select the window clicked on; don't move point. (fn CLICK) (defalias 'mouse-select-window #[257 "\300!\210\301 \302\303!@!\304\303!@!\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 (#$ . 25697) "e"])#@87 Delete the selected window, and create a new frame displaying its buffer. (fn CLICK) (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) (defalias 'tear-off-window #[257 "\300!\210\301!@\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 (#$ . 26059) (list last-nonmenu-event)])#@61 Delete all windows except the one you click on. (fn CLICK) (defalias 'mouse-delete-other-windows #[257 "\300!\211A@:\203\211A@@\202\211A@\2119\205\211\266\202\301=\2053\302!@\300!@=\2053\303\302!@!\207" [event-end mode-line event-start delete-other-windows] 4 (#$ . 26526) "e"])#@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@!\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 (#$ . 26824) "@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@!\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 (#$ . 27363) "@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)#@12 (fn CMD) (defalias 'mouse-drag-line #[514 "\302\303!\210\304\305!C\211\242@C\306\242!\307=\203(\310\242!\242\3118\262@\\\2025\312\242!\242\3118\262A\\C\211\242C\313C\313C\313C\314\267\202|\315\316 \242\317#\240\210\202|\202|\320!\211\247\203f\211\304U\203{\321\322\"\323=\203{\315\323\n\242\317#\240\210\210\313C\324\325  & \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\325\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\317\324\356\"#\240)\207" [echo-keystrokes track-mouse run-hooks mouse-leave-buffer-hook 0 event-start window-frame vertical window-pixel-left 2 window-pixel-top nil #s(hash-table test eq purecopy t data (header 70 mode 84 vertical 87)) window-in-direction above t frame-right-divider-width frame-parameter vertical-scroll-bars left make-closure #[257 "\211:\204\310\207\307\311=\203\302\306\312!\240\210\304\306\242\3138\262@\240\210\314\302\306\242@\240!\203x\304\315\302\242!\304\242\\\240\210\306\242\211A@:\203B\211A@@\202E\211A@\2119\205K\211\266\202\204x\316\302\242!\317=\203c\304\320\302\242!\304\242\\\240\210\304\321\302\242!@\322\302\242!@\206r\323\\\304\242\\\240\210\301\304\242\303\242Z\240\323U\204\275\301\242\323V\203\232\304\242\315\305\242!\324\305\242!\\W\204\275\301\242\323W\203\260\304\242\315\305\242!\324\305\242!\\V\204\275\300\325\240\210\326\305\242\301\242\325\211$\210\303\304\242\240\207\306\312!\240\210\302\306\242@\240\210\304\306\242\3138\262A\240\210\314\302\242!\203\304\327\302\242!\304\242\\\240\210\306\242\211A@:\203\372\211A@@\202\375\211A@\2119\205\211\266\202\330>\203\304\331\302\242!\304\242\\\240\210\301\304\242\303\242Z\240\323U\204Y\301\242\323V\2036\304\242\327\305\242!\332\305\242!\\W\204Y\301\242\323W\203L\304\242\327\305\242!\332\305\242!\\V\204Y\300\325\240\210\326\305\242\301\242\310\325$\210\303\304\242\240\207" [V0 V1 V2 V3 V4 V5 V6 V7 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 (#$ . 24976) "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 (#$ . 28127)] [mode-line] [header-line] [vertical-line] [right-divider] [bottom-divider] [left-margin] [right-margin] #[0 "\300\211\207" [V0 track-mouse] 2]] 26 (#$ . 27909)])#@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) (autoload 'dnd-begin-file-drag "dnd") (defalias 'mouse-drag-mode-line #[257 "\304!\211@\305!\306C\306C\203J\307!@\310!r\311\312\"\216\313@\314\"\210\315 \240\210 *\262@=\203J\211\242\203J\316\242!\203J\306\317\311\320$!)\210\242\203Q\321\207\322!?\206\236\323\324\"\203x\325!\305!=\205s ?\206s\211\326 =\262\203~\327\330\"\207\331\332\"\205\236\323\324\"\205\236\325!\305!=\262?\205\236\333!\207" [mouse-drag-mode-line-buffer mode-line-buffer-identification mouse-fine-grained-tracking resize-mini-windows event-start window-frame nil posn-string internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord buffer-file-name file-exists-p internal--track-mouse #[0 "\305\306 \307!\310=\204\211\fB\211\207\311\300\242\302\312\313$\210\301\313\240\207" [V0 V1 V2 track-mouse unread-command-events drag-source read-event event-basic-type mouse-movement dnd-begin-file-drag copy t] 6] t 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] 12 (#$ . 31031) "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@\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 (#$ . 32515) "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@\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 (#$ . 33105) "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 (#$ . 33495) "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@\306!\203\307!\202\211\310!\211@A\311!\312!\313\314\315\314$\316!Z\\\313\315\211\314$\317!Z\\\320!\211\203O\321!\202p\322 @\323\236\211\205n\211A@\3248A@\3258\\\3248\3268\\F\266\202\211\205v\211@\205}A@\205\204\3248\205\213\3258\327>\330>\331>\332>\333 \211@A\315C\334\335\n\f \"$'& \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\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\301Z\300Z\322\305\2039\311Y\2039\315Z\313Y\2039\323\317\\\324]B\262C\325\326\315ZBBB\262\304\203a\310Y\203a\314Z\312Y\203a\327\324\316\\]BB\262\330\326\314ZBBB\262\303\203~\307X\203~\315\\\313Y\203~\325\326\315\\BBB\262\302\203\233\306X\203\233\314\\\312Y\203\233\330\326\314\\BBB\262\331\320\"\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 (#$ . 24976) "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 (#$ . 33748)])#@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@\306!\203\307!\202\211\310!\311!\312!\211@A\313!\211\2039\304\211\310!\311!F\202Z\314 @\315\236\211\205X\211A@\3168A@\3178\\\3168\3208\\F\266\202\211\205`\211@\205gA@\205n\3168\205u\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\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\245\317 \211@A\304Z\303Z\320\211\313\\\262\312\\\262\302\247\203Q\311\203Q\304W\203o\310V\203E\310Z\302X\203E\301\240\210\310\262\202\275\310X\203h\310Z\302X\203h\301\242\203h\301\242Z\302X\203h\310\262\202\275\301\320\240\210\202\275\304V\203\275\315\\\262\306W\203\225\306Z\302X\203\225\301\240\210\306\315Z\262\202\275\306Y\203\271\306Z\302X\203\271\301\242\203\271\301\242Z\302X\203\271\306\315Z\262\202\275\301\320\240\210\303W\203\307V\203\333\307Z\302X\203\333\300\240\210\307\262\202Q\307X\203\375\307Z\302X\203\375\300\242\203\375\300\242Z\302X\203\375\307\262\202Q\300\320\240\210\202Q\303V\203Q\314\\\262\211\305W\203)\305Z\302X\203)\300\240\210\305\314Z\262\202Q\211\305Y\203M\211\305Z\302X\203M\300\242\203M\300\242Z\302X\203M\305\314Z\262\202Q\300\320\240\210\321\316\322\"\320\204a\321\316\323\"\266\202\324\247\203\223\311\203\223\306Z^\310\315Z\\]\262\211\203\212\307\314ZZ]\305\314Z^\202\221\307]\305Z^\262\266\325\316\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 (#$ . 24976) "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 (#$ . 36221)])#@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 (#$ . 39194) "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 (#$ . 39428) "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 (#$ . 39678) "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 (#$ . 39909) "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 (#$ . 40162) "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 (#$ . 40399) "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 (#$ . 40661) "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 (#$ . 40901) "e"])#@176 Effect of selecting a region extending backward from double click. Nil means keep point at the position clicked (region end); non-nil means move point to beginning of region.#@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) (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 (#$ . 251)] (#$ . 41160) :type (choice (const :tag "Don't move point" nil) (const :tag "Move point to beginning of region" t)) :version "26.1"] 8) (defalias 'mouse-set-point #[513 "\301!\210\211\203:\211:\203\3028\250\203\3028\262\202\210\303\303V\203:\304!\210\205?\305\306!!\307 V\2059\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 (#$ . 41341) "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 (#$ . 42491)]) (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!@!\210\310\307!!\311!@\312 =\203\"\310\311!!\202$\313 \211:\2039\3148\250\2039\3148\262\202;\210\315\316\317\320\"\211\203\221\315X\203l\310\307!!\232\203l\211\211:\203h\3148\250\203h\3148\262\202j\210\315\262\307!\3148\262\311!\3148\262\232\203\213\211@\321=\204\213\262\322\317\320\317#\210\210\250\203\277\250\203\277\323S#W\203\265\211@\262\211A@\262\210\202\277\211@\262\211A@\262\210\203\345\250\203\345\250\203\345\324=\203\331U\204\345 \317\211\325\"+\210\247\203\355b\210\f\204\372\326 \204\372\327\315!\210\330 \210\331`!\210\247\203 b\210\332 \207" [mouse-drag-copy-region last-command deactivate-mark 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 non-empty copy-region-as-kill window-system sit-for push-mark set-mark mouse-set-region-1] 9 (#$ . 42857) "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])#@437 The pause between scroll steps caused by mouse drags, in seconds. If you drag the mouse beyond the edge of a window, Emacs scrolls the window to bring the text beyond that edge into view, with a delay of this many seconds between scroll steps. Scrolling stops when you move the mouse back into the window, or release the button. This variable's value may be non-integral. Setting this to zero causes Emacs to scroll as fast as it can.#@378 The minimum number of lines scrolled by dragging mouse out of window. Moving the mouse out the top or bottom edge of the window begins scrolling repeatedly. The number of lines scrolled per repetition is normally equal to the number of lines beyond the window edge that the mouse has moved. However, it always scrolls at least the number of lines specified by this variable.#@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) (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 (#$ . 251)] (#$ . 44457) :type number mouse-scroll-min-lines #[0 "\300\207" [1] 1 (#$ . 251)] (#$ . 44899) integer] 6) (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 (#$ . 45282)]) (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 \210\312!\207" [mouse-drag-and-drop-region triple event-modifiers mouse-posn-property event-start face region run-hooks mouse-leave-buffer-hook ignore-preserving-kill-region mouse-drag-track] 4 (#$ . 46556) "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) (put 'mouse-drag-region 'undo-inhibit-region t) (defalias 'mouse-posn-property #[514 ":\203N@\300!\301!\211\203$\211A@GW\203$\302A@#\206M\205M\211A@:\2037\211A@@\202:\211A@\2119\205@\211\266\202\303>?\205M\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 (#$ . 47349)])#@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 @=\205J\302\303\"\206J\211\211A@:\203'\211A@@\202*\211A@\2119\2050\211\266\202\211\205?\304\305\303\"\306\307$\262\206J\304\310\306\307$\211\311=\203Y\302\311\"\205w\307\207\312!\203v:\203rr\313@!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 (#$ . 48164)])#@66 Fix help message MSG for `mouse-1-click-follows-link'. (fn MSG) (defalias 'mouse-fixup-help-message #[257 "\301\211\203\207;\203\207\302\301\303\304$\266\203\203\207\305 \211\262\203\207A\211\262:\203\207\211@\203\207\211@\306Y\203\207\211A\203\207\211A\306Y\203\207\307@A@#\211\262\203\207\310@!\203\207r\311@!q\210\312!\203\206\313=\203n\314\202~\250\203}\306W\203}\315\202~\316\317\320\301OQ\262)\266\207" [mouse-1-click-follows-link nil "\\`mouse-2" string-match t mouse-pixel-position 0 posn-at-x-y windowp window-buffer mouse-on-link-p double "double-" "Long " "" "mouse-1" 7] 11 (#$ . 50132)])#@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\301 \210\307!\310!C@r\311!q\210\312)\312\313!\210\312\314\315!\312\211A@\316!\2045\f\204;\3178\202?\3178S\211:\203U\3208\250\203U\3208\262\202W\210\321S *+\322\323$\3241\346,\312\314*`\f\242W\203} \242b\210 `\240\210\325\326!\210\327=\203\221\330\202\225\331B\332\f\242 \242#\333@\334\211#\210\211A@b\266\335\312\336#\210\337+\340\341 \342\343\344#\210\342\345\344#\210\342\346\322\347  &#\210\334\322\350\"#0\202\361 \210\351@A\"\262*\207" [mouse-selection-click-count-buffer deactivate-mark echo-keystrokes make-cursor-line-fully-visible mode-line-format auto-hscroll-mode mouse-minibuffer-check event-start posn-point window-buffer nil mouse-set-point 0 window-edges window-minibuffer-p 3 2 1 make-closure #[0 "\300\302\301\211\207" [V0 V1 V2 track-mouse auto-hscroll-mode scroll-margin] 2] (error) 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] #[257 "\306!\307!\211\304\242=\204\305\310\240\210@\303=\203)\311!\203)\312\304\242\300#\266\202X\313 AA\211\203V\211\302W\203E\314\303\302Z\315\304\242$\266\202X\211\301Y\203V\314\303\301ZT\315\304\242$\210\266\316 \207" [V0 V1 V2 V3 V4 V5 event-end posn-point mouse-movement integer-or-marker-p mouse--drag-set-mark-and-point mouse-position mouse-scroll-subr nil ignore-preserving-kill-region] 9 (#$ . 24976) "e"] #[0 "\300 \210 \205\302 \303H\242\304=?\205\305 \210\306 \207" [V0 context-menu-mode this-command-keys-vector 0 down-mouse-3 deactivate-mark pop-mark] 2] signal scroll-margin track-mouse mouse-selection-click-count] 27 (#$ . 50779)])#@32 (fn START CLICK CLICK-COUNT) (defalias 'mouse--drag-set-mark-and-point #[771 "\300#\211@A@\301 =\203\211b\207\301 =\203b\207\301 W\203,\302!\210b\207\302!\210\211b\207" [mouse-start-end mark set-mark] 8 (#$ . 52760)])#@207 Skip over word, over whitespace, or over identical punctuation. If `mouse-1-double-click-prefer-symbols' is non-nil, skip over symbol. If DIR is positive skip forward; if negative, skip backward. (fn DIR) (defalias 'mouse-skip-word #[257 "g\301z!\302\203\"\303\304!\211\262\203\"\305W\203\211@\202 \211Ab\207\306\230\203H\305W\2038\307\310!?\205\230\311v\207\307\310!\204E\307\312!?\205\230\313v\207\314\230\203\\\305W\203X\315!\207\316!\207\317\230\203p\305W\203l\315\320!\207\316\320!\207\305W\203\207o?\205\230hU\205\230\311u\210\202vm?\205\230gU\205\230\313u\210\202\207\207" [mouse-1-double-click-prefer-symbols char-to-string nil bounds-of-thing-at-point symbol 0 "w" looking-at "\\<" -1 "\\>" 1 " " skip-syntax-backward skip-syntax-forward "_" "w_"] 6 (#$ . 53002)])#@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 (#$ . 53819)])#@14 (fn CLICK) (defalias 'mouse-set-mark-fast #[257 "\300!\210\301!\302@!\210\303!\247\205\304\303!\305\211#\207" [mouse-minibuffer-check event-start select-window posn-point push-mark t] 6 (#$ . 55114)])#@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\314\207" [event-basic-type event-modifiers delq double triple copy-sequence event-convert-list reverse key-binding apply vector t nil] 13 (#$ . 55329)])#@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!@!\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 (#$ . 55696) "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@!\210\211\247\205\304`^`]\"\207" [mouse-minibuffer-check event-start posn-point select-window kill-region] 7 (#$ . 56150) "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 (#$ . 56468) "e\nP"])#@224 Insert the primary selection, 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 otherwise insert it at the position of EVENT. (fn &optional EVENT) (defalias 'mouse-yank-primary #[256 "\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 (#$ . 57083) (list last-nonmenu-event)])#@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 (#$ . 57636) "e"]) (defvar mouse-save-then-kill-posn nil)#@16 (fn BEG END) (defalias 'mouse-save-then-kill-delete-region #[514 "\303 \210U\204\304=\203|\210\202j\304\211V\203$\305\202%\306\\|)\210\304\307\305\")\210\304\n@G]^ZU\204G\310\311!\210|)\210\211\203\\\211@@;\204\\A\202M\211\203i\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 (#$ . 58002)])#@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!@\311! =\203&r\211q\210\312\313!)\203&\n\202'\314\247\2040\315\202  \316=\203_\f=\203_\317 =\203_ \203O\320!\210\202W\321\312\313!`\322#\210\314\315\211\202 rq\210\323 )\204\220\317 =\203\321\312\313!\203\321 \316=\203\200\f\204\220 \324>\203\321 \204\220!\204\321\325!\210\326\211#\327\312\313!Z!\327`Z!W\203\262\330@!\210\202\267\211A@b\210\315\"\331 \210 \203\311\332\315!\313\"\210\211\262\202 \325!\210\333!\210rq\210#)\211\203\350\211b\210\210\334 \210\331 \210 \203\n \335=\203\312\313!`U\203\n\332\336\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 non-empty filter-buffer-substring region-extract-function mark-even-if-inactive transient-mark-mode deactivate-mark point-before-scroll] 11 (#$ . 58467) "e"])#@111 An overlay which records the current secondary selection. It is deleted when there is no secondary selection. (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) (defconst mouse-secondary-overlay (byte-code "\300ee\"\301!\210\302\303\304#\210\207" [make-overlay delete-overlay overlay-put face secondary-selection] 5) (#$ . 60558)) (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@!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 (#$ . 61229) "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@!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 (#$ . 61701) "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!@\310!\211A@\311!\203 \3128\202$\3128S\211:\203:\3138\250\203:\3138\262\202<\210\314Sr\315!q\210\211\316\312\"\305V\203j\317\211#\n\320\211\223\210\321 @A@\315\n!$\266\202{\n\204q\322 \n\320\223\210\323 !\210\320C\320C\320C\324\325\326   & !\210\242:\205\317\327\n!\203\305\330 \325\331\"\216\323 !\210\332\333\320\"\210\334 !\210\212\nb\210\335\314!*\266\320\202\317\332\333\336 !\337 !{\"*\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 "\302\310 \240\210\302\242\211\242\311=\262\204\302\242\242\312>\205\226\302\242\242\313>\204\301\314\302\242!\240\210\300\315\301\242!\240\210\301\242@\306=\203e\316\300\242!\203e\317\307\300\242\303#\307\300\242U\203Q\320!\204a\321\211\223\210\322@A@#\210\210\202\323 AA\211\203\222\211\305W\203\201\324\306\305Z\307$\266\202\211\304Y\203\222\324\306\304ZT\307$\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 (#$ . 62172) "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 (#$ . 64156) "e"])#@310 Kill the text in the secondary selection. This is intended more as a keyboard command than as a mouse command but it can work as either one. The current buffer (in case of keyboard use), or the buffer clicked on, must be the one that the secondary selection is in. This requirement is to prevent accidents. (defalias 'mouse-kill-secondary #[0 "\302 \211GS\234\303!<\203\304\305!@!\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 (#$ . 64643) 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!@\311!\312 !=\203\n\202\313\314 !\315 !\247\203\366\312 !\2067 \2057\316 !=\204Y\317!\210\320 \211`\321\223\210\322 `$\210\323`\"\210\202\366\f\324=\203| =\203|\325 =\203|\326\"\210\327 !\210\313\321\202\366\203\333\312 !=\203\333\330\211#\331Z!\331Z!W\203\251\322 @#\266\202\262\322 A@#\266\321\f\324=\203\311\332\314 !\315 !{\333\"\210\202\326\321\334\314 !\315 !\")\210\202\366\317!\210 \203\364 \313\\\323\"\210\322  #\266)\266\321\312 !\205\314 !\315 !{\262\211G\313V\205\335\336\"\207" [this-command mouse-secondary-overlay mouse-secondary-click-count mouse-secondary-start last-command mouse-save-then-kill-posn mouse-minibuffer-check event-start posn-point window-buffer overlay-buffer 0 overlay-start overlay-end marker-buffer select-window make-marker nil move-overlay kill-ring-save mouse-secondary-save-then-kill selected-window mouse-save-then-kill-delete-region delete-overlay mouse-start-end abs kill-new t copy-region-as-kill gui-set-selection SECONDARY deactivate-mark] 14 (#$ . 65368) "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 (#$ . 67189)])#@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 (#$ . 67382)])#@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 (#$ . 68061)])#@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 (#$ . 68399))#@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)#@12 (fn COL) (defalias 'mouse-drag-region-rectangle #[257 "\303\304!\304!\305!@\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 &\n#\210\3301{\331\211\332\331\317\333  $#0\202\207\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 (#$ . 68716)] make-sparse-keymap define-key [switch-frame] ignore [select-window] [mouse-movement] #[257 "\301\242\204D\301\311\240\210\312\310!\210\313 \210\314\315!\210 \316=\203\317\202#\320 B \321\307!\210\322 \210l\2046g\323=\203D\300\304!\324\325\"\210\324\326\"\266\327!\211@\330!\203U\331!\202V\332\333 AA\334!@\\#\203i\332\202j\335\\\336\337\300#\336\340\300$\305=\203\230\203\230\302S\303X\205\213X\262\203\230\321!\210 \207?\206\275\303W\203\255\341\305\303Z\342\306%\207\302Y\205\275\341\305\302ZT\342\306%\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\301\300!\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\302\301!!\210\300 \207" [V0 V1 V2 move-to-column] 3] mouse-scroll-subr nil mouse--rectangle-track-cursor] 14 (#$ . 24976) "e"] (error) t set-transient-map #[0 "\301\300\302\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 (#$ . 68580) "e"])#@186 Number of buffers in one pane (submenu) of the buffer menu. If we have lots of buffers, divide them into groups of `mouse-buffer-menu-maxlen' and make a pane (or submenu) for each one.#@391 Group the buffers by the major mode groups on \[mouse-buffer-menu]? This number which determines (in a hairy way) whether \[mouse-buffer-menu] will split the buffer menu by the major modes (see `mouse-buffer-menu-mode-groups') or just by menu length. Set to 1 (or even 0!) if you want to group by major mode always, and to a large number if you prefer a mixed multitude. The default is 4.#@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.#@12 (fn ARG) (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 (#$ . 251)] (#$ . 70848) :type integer mouse-buffer-menu-mode-mult #[0 "\300\207" [4] 1 (#$ . 251)] (#$ . 71039) :version "20.3"] 8) (defvar mouse-buffer-menu-mode-groups (mapcar #[257 "\300@!\300A!B\207" [purecopy] 4 (#$ . 71626)] '(("Info\\|Help\\|Apropos\\|Man" . "Help") ("\\bVM\\b\\|\\bMH\\b\\|Message\\b\\|Mail\\|Group\\|Score\\|Summary\\|Article" . "Mail/News") ("\\" . "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"))) (#$ . 71435))#@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!@\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 (#$ . 72709) "e"])#@18 (fn ELT1 ELT2) (defalias 'mouse-buffer-menu-map #[0 "\304 \305\211\211\203i\211@r\211q\210\305 \211\203+\211@\306@\307\n!\"\203&\211A\262\210A\202\210\310\"\262\211\204Q\211;\203A\202H\307\n\305\211$D\262\211B\262AA>\204b\211AAAB\241\210)\266A\202\210\311\262\211\203\204@AAG\211_\262\\\262A\202n\210\211 _GG_W\203\357\305G\312\313\"\262\203\323@G\314V\203\323\211\315_GV\203\323\316@AA!\211\203\303@A@BB\262\210\211@AGZ\262A\262\202\232\203\352\316\317\320\"!\211\203\351\321BB\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 "GGV\207" [] 4 (#$ . 73134)] 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.\237\207" [buffer-read-only list-buffers-directory nil 0 sort #[514 "\300!\300!\231\207" [buffer-name] 5 (#$ . 73134)] buffer-name 32 format "%%-%ds %%s%%s %%s" buffer-modified-p "*" " " "%" buffer-file-name expand-file-name ""] 12 (#$ . 74027)])#@20 (fn TITLE ALIST) (defalias 'mouse-buffer-menu-split #[514 "\211G\301_\302\245V\2037\211\303\211\304\2034\233\262\203#S\233\303\241\210\305\306\"BB\262T\262\202\237\207BC\207" [mouse-buffer-menu-maxlen 3 2 nil 1 format "Buffers %d"] 9 (#$ . 74620)]) (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 (#$ . 71626)] (("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 (#$ . 71626)] (("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) (#$ . 75116))#@206 Return a short name for font entity ENTITY. The name should be used to describe ENTITY in the case that its family is already known, such as in a pane generated by `mouse-generate-font-menu'. (fn ENTITY) (defalias 'mouse-generate-font-name-for-menu #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\306\203!\307!\310P\262\2034\311=\2044\211\307!\310Q\262\203F\311=\204F\211\307!\310Q\262\203X\312U\204X\211\313!\310Q\262\203o\2119\203h\307!\202k\313!\310Q\262\314!\207" [font-get :weight :slant :width :size :adstyle "" symbol-name " " normal 0 number-to-string string-trim-right] 10 (#$ . 78679)])#@51 Return a list of menu panes for each font family. (defalias 'mouse-generate-font-menu #[0 "\300 \301C\211\203T\211@\211\203O\302\303\304\"!\211\203C\202#\211\211BD\203G\211\203F\211@\305\306\"\2069\307!\310!DC\244\262\210A\202(\210C\244\262\266\210A\202\210\207" [font-family-list "Font families" list-fonts font-spec :family font-get :name mouse-generate-font-name-for-menu font-xlfd-name] 12 (#$ . 79330)])#@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\312#\"@\211\313=\2039\305<\2030\2024\314\307 D\315 \"@\207\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 (("More Fonts" ("By Family" more))) more (0 0) mouse-generate-font-menu] 6 (#$ . 79770) 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\2050\300\203&\3011\302@!\266\211@\300\211\2620\210\202\210A\262\202\211?\205.\303\304!\262\207" [nil (error) set-frame-font error "Font not found"] 4 (#$ . 80267) (byte-code "\300 \204 \301\302!\210\303 C\207" [display-multi-font-p error "Cannot change fonts on this display" mouse-select-font] 2)]) (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\302\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\302\316\334!\335\n\336=\203\\ \202]\f\337 C\"A\211\211\203\266\211@\211@\316!A\211\203\242\211@\211@\340\341\230\203\211\320\342\343#\266\202\236\344A@!\262\320\345!\346@E#\266A\202p\210\320\345\344!!\346E#\266A\202c\210\320\347\346\334E#\266\350\"\211GS8\262\211\351\267\202\357\352\353!\262\202\352\354!\262\202\355\356!\210\357\356!\262\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 test eq purecopy t data (text-scale-increase 211 text-scale-decrease 219 face-remap-reset-base 227)) 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 (#$ . 80895) "@e"])#@232 If non-nil, dragging the mouse drags the region, if it exists. If the value is a modifier, such as `control' or `shift' or `meta', then if that modifier key is pressed when dropping the region, text is copied instead of being cut.#@17 (fn MODIFIER)#@309 If non-nil, cut text also when source and destination buffers differ. If this option is nil, `mouse-drag-and-drop-region' will leave the text in the source buffer alone when dropping it in a different buffer. If this is non-nil, it will cut the text just as it does when dropping text in the source buffer.#@333 If non-nil, text is shown by a tooltip in a graphic display. If this option is nil, `mouse-drag-and-drop-region' does not show tooltips. If this is t, it shows the entire text dragged in a tooltip. If this is an integer (as with the default value of 256), it will show up to that many characters of the dragged text in a tooltip.#@289 If non-nil, move point with mouse cursor during dragging. If this is nil, `mouse-drag-and-drop-region' leaves point alone. Otherwise, it will move point together with the mouse cursor and, in addition, temporarily highlight the original region with the `mouse-drag-and-drop-region' face.#@52 If non-nil, allow dragging text to other programs.#@203 Face to highlight original text during dragging. This face is used by `mouse-drag-and-drop-region' to temporarily highlight the original region when `mouse-drag-and-drop-region-show-cursor' is non-nil. (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\300\333\302\303\334DD\335\306\323\316\336&\207" [custom-declare-variable mouse-drag-and-drop-region funcall function #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 82868) :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 (#$ . 83104)] (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 (#$ . 251)] (#$ . 83126) boolean mouse-drag-and-drop-region-show-tooltip #[0 "\300\207" [256] 1 (#$ . 251)] (#$ . 83440) (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 (#$ . 251)] (#$ . 83778) mouse-drag-and-drop-region-cross-program #[0 "\300\207" [nil] 1 (#$ . 251)] (#$ . 84071) "29.1"] 11) (custom-declare-face 'mouse-drag-and-drop-region '((t :inherit region)) '(#$ . 84128) :version "26.1")#@139 Display TOOLTIP, a tooltip string, using `x-show-tip'. Call `tooltip-show-help-non-mode' instead on non-graphical displays. (fn TOOLTIP) (defalias 'mouse-drag-and-drop-region-display-tooltip #[257 "\302 \203o\303!\304\305\306\"\304\305\307\";\203I\310\236\211\203$\211\241\266\202/\310B\211\262B\262\210\311\236\211\203>\211\241\266\202I\311B\211\262B\262\210\211;\203h\312\236\211\203]\211\241\266\202h\312B\211\262B\262\210\313\314 $\207\315!\207" [tooltip-frame-parameters most-positive-fixnum display-graphic-p copy-sequence face-attribute tooltip :foreground :background foreground-color border-color background-color x-show-tip nil tooltip-show-help-non-mode] 9 (#$ . 85638)])#@139 Hide any tooltip currently displayed. Call `tooltip-show-help-non-mode' to clear the echo area message instead on non-graphical displays. (defalias 'mouse-drag-and-drop-region-hide-tooltip #[0 "\300 \203\301 \207\302\303!\207" [display-graphic-p x-hide-tip tooltip-show-help-non-mode nil] 2 (#$ . 86363)])#@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)#@15 (fn BOUNDS)#@15 (fn WINDOW) (defalias 'mouse-drag-and-drop-region #[257 "\211C\306! \205 \307V\205\310 \205\311\312!\205 \313\314 \315 `p\316 C\317\320\321 \"\322 \323 \313\211+C\313C\313C\313C\313C\313C\313\211C\313\211C\313C\313C\313C\313C\324\325%\216\305\326!\210\327\324\330\"!\210\3311\317\3322\222\333\324\334 \f %'*&!0\210 \203\232\335 \210,\336\242!\235?\262\242?\262\242\203\273\306\242!\232\204\303\323\240\210\323\262 \242?\205\313\203\324-\202\327-?- \242\232\211\205\345?\205\354-\242\206\375\204\372\211\205\375\242 \203 \337 \210\340\242!\202\310\n\242\203 \204\211\203C\n\242\204*\211\203*\341\342!\210\343!\210b\210\313\344 \210\205\310\345 \202\310\343\242!\210\242\240\210\242b\210\346 \210\347 \242!\210\350 `\232\204r\313\344 \210\203r\345 \210\203\231 \205\310\313\211\205\223\211@\351!\352!|\266A\202\200)\262\202\310\343!\210b\210-\203\300\211\203\274\211@\351!\352!|\266A\202\251\210\202\303\344 \210\343\242!)\266\2040\202\321\210\313-\207" [last-input-event mouse-drag-and-drop-region-show-tooltip mouse-highlight buffer-read-only mouse-fine-grained-tracking tooltip-mode event-basic-type 0 display-multi-frame-p require tooltip nil region-beginning region-end selected-window mapcar #[257 "\300@A\"\207" [make-overlay] 4 (#$ . 87033)] region-bounds region-noncontiguous-p t make-closure #[0 "\302\203\305\306!\210\303\211\203\211@\307!\266A\202 \210\301\242\211\205]\211@\211@\300\242\203L\211\300\242=\204L\310A@\311#\210A@\312\211\223\210\313\3148\"\210\3148\312\211\223\210r\315!q\210\3168)\266A\202\207" [V0 V1 V2 V3 cursor-type tooltip-mode 1 delete-overlay set-window-start noforce nil set-window-point 2 window-buffer 3] 7] -1 walk-window-tree #[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 (#$ . 87052)] (error) cross-program-drag internal--track-mouse #[0 "@\203 \320\202\n\321A\317\322 \240\210\317\242\211\242\323=\262\204$\317\242@\324>\2059\32525B\203\250\326\327\317\242!!A\330\327\317\242!@!\205C\327\317\242!@\211\205J\331!\211\205T\211\332\245B^\330!\203\246\333X\204\246\3341\245ZV\203\204\335!r\336\337\"\216\340@\341\"\210\342\343!*\262\202\237W\205\237\335!r\336\344\"\216\340@\341\"\210\345\343!*\2620\266\202\250\210\266\302\242\204\302C\346!\240\210D\203\342D\301\250\203\335\302\242GV\203\335\302\242\347\333\245O\350\302\242\333\245[\351OQ\202\337\302\242\240\266\314\211\242\206\f\3522\f\353 \211\205 \211@\354@A\355\346$\203\356\352\357\"\210\210A\202\356\2620\240\210@\203\360 \203\361\362!\203\363\327\317\242!@!\203X\327\317\242!\3338\262\327\317\242!@@\347W\206SA\347W\206S@\364!V\206SA\365!V\266\202\204\203\300\242\203{\366 \367\300\242@@Z!\370V\206v\367\300\242AAZ!\370V\262\203\327\317\242!@\204\300\346\240\210\371\372\302\242\"\210\3731\260\362\374E\203\234\375\202\235\376\327\317\242!@\377F\201K=\357&0\202\262\210\346\363!\203\302\300\366 \240\210\356\325\346\"\210`\375=\203 \313\211\203\376\211@\201L!\201M!^W\203\355\201L!\201M!^\262\201L!\201M!|\266A\202\312\210\211b\210\357G\311\357\240\210\210\211\376=\203\201N \210\210\356\201O\346\"\210\306\327\317\242!@\240\210\310\201P\327\317\242!!\240\210\305\346\330\306\242!\205K\201Q\306\242!\262\201R!?\205K\211\262\240\210\304\306\242\205\\\310\242\205\\\305\242\240\210\304\242\203\324\201S \336\201T\"\216\340\306\242!\210\307H\206\200\201U\310\242\355\"\240)\266\303\201V\313@!\305\242=\205\322\312\203\275\201W\316\315\"\201X\316!\201X\310\242!\201Y$\205\270\211@@W?\266\203\202\322\201L\313@!\310\242X\205\322\310\242\201M\313@!X\240\210D\203\343\201Z\301\242!\210\202\350\201[ \210I\2054\304\242\204\366\346\202 \307\242\204\303\242\203\201\\\202 \201]J\304\242\2054\313\211\203(\211@\201^\201_\201`#\266A\202\210\201G \210\201a\317\242!0\210\202\f\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 drag-source drop read-key mouse-movement (select-window switch-frame) drag-again posn-col-row event-end windowp window-text-height 3 2 (error) internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord scroll-up 1 #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] scroll-down nil 0 "\n...\n" -1 loop region-bounds text-property-not-all read-only throw t display-graphic-p fboundp x-begin-drag framep frame-pixel-width frame-pixel-height mouse-absolute-pixel-position abs 5 gui-set-selection XdndSelection (quit) ("UTF8_STRING" "text/plain" "text/plain;charset=utf-8" "STRING" "TEXT" "COMPOUND_TEXT") XdndActionMove XdndActionCopy now mouse-drag-and-drop-region-cross-program track-mouse mouse-drag-and-drop-region-scroll-margin region-extract-function mouse-drag-and-drop-region-show-tooltip mouse-drag-and-drop-region-cut-when-buffers-differ window-system deactivate-mark buffer-read-only mouse-drag-and-drop-region-show-cursor cursor-type haiku overlay-start overlay-end activate-mark cross-program-drag posn-point window-buffer minibufferp current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] get-text-property overlay-buffer rectangle-dimensions rectangle-position-as-coordinates rectangle-intersect-p mouse-drag-and-drop-region-display-tooltip mouse-drag-and-drop-region-hide-tooltip hollow bar overlay-put face mouse-drag-and-drop-region mouse-set-point] 9] x-hide-tip event-modifiers deactivate-mark 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 use-system-tooltips mouse-drag-and-drop-region mouse-drag-and-drop-region-cut-when-buffers-differ] 46 (#$ . 86677) "e"])#@15 (fn PROMPT) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [global-set-key [down-mouse-1] mouse-drag-region [mouse-1] mouse-set-point [drag-mouse-1] mouse-set-region] 3) (defalias 'mouse--strip-first-event #[257 "\300 \301\302O\207" [this-single-command-raw-keys 1 nil] 4 (#$ . 93055)]) (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!\330\331\332\257\"\210\306\333\334\"\210\306\335\336\"\210\306\337\340\"\210\306\341\336\"\210\306\342\343\"\210\306\344\336\"\210\306\345\346\"\210\306\347\350\"\210\306\351\352\"\210\306\353\354\"\210\306\355\352\"\210\306\356\357\"\210\306\360\336\"\210\306\361\354\"\210\306\362\357\"\210\306\363\330\"\210\306\364\354\"\210\306\365\343\"\210\306\366\330\"\210\306\367\352\"\210\306\370\371\"\210\306\372\330\"\210\306\373\374\"\210\306\375\330\"\210\306\376\377\"\210\306\201@\330\"\210\306\201A\201B\"\210\306\201C\330\"\210\306\201D\201E\"\210\306\201F\330\"\210\306\201G\201H\"\210\306\201I\330\"\210\306\201J\201K\"\210\306\201L\330\"\210\306\201M\201N\"\210\306\201O\330\"\210\201P\201Q!\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 #[257 "\300\301\302\"\206\303\303U\203\304 \207\305 \207" [frame-parameter nil menu-bar-lines 0 mouse-menu-bar-map mouse-menu-major-mode-map] 4 (#$ . 20963)] [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] [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] 7)