| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/xt-mouse.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:34 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/xt-mouse.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar xterm-mouse-debug-buffer nil)
(byte-code "\302\303\211\203 @\304\305\306#\210 A\211\204 *\303\207" [event-type --dolist-tail-- (mouse-1 mouse-2 mouse-3 M-down-mouse-1 M-down-mouse-2 M-down-mouse-3) nil put event-kind mouse-click] 5)
#@44 Read a click and release event from XTerm.
(defalias 'xterm-mouse-translate #[(_event) "\300 \207" [xterm-mouse-translate-1] 1 (#$ . 800)])
#@208 Read a click and release event from XTerm.
Similar to `xterm-mouse-translate', but using the "1006"
extension, which supports coordinates >= 231 (see
http://invisible-island.net/xterm/ctlseqs/ctlseqs.html).
(defalias 'xterm-mouse-translate-extended #[(_event) "\300\301!\207" [xterm-mouse-translate-1 1006] 2 (#$ . 947)])
(defalias 'xterm-mouse-translate-1 #[(&optional extension) "\212\306 \307\216\310\n\204 \205\201 \311=\203 \n\242\311=\202 \203V \312 \203V \313 \203V \f\2039 \314\315\f\"\210\310\202V \316 \317 U\204V \320\315!\204M \321\315!\204V \314\315\316 \317 {\"\210 \204r \n\322=\204l \n\242\311=\203r \nA\204r \310\211\202\201 \n\242\311=\203| \nA\310\323\324!)\210\310 +\325,!\211 -@ .-A@\211 /A@ 0\32609\203\253 \3270.\"\202\257 \327.!! 1\330\331\332-@!\"\211 2\204\372 ,\204\332 \333 \334=\203\366 \333 \335=\203\366 \333 \336=\202\363 ,\337=\203\366 \333 \334=\203\366 \333 \335=\203\366 \333 \340=\204\372 \341\342!\2102\203-\202\325,!\211 3A@\211 4A@ 51\343>\203:59\20335:\2033\32754D3\"\202\222\3273!\202\222\34405=\203I3C\202e\3454D09\203W\346\202d\347\350\351+T\"!/4ED6\"67\203v\35267\"\21009\203\2160:\203\216\3270/D-\"\202\222\327-!.
\207" [#1=#:wconfig force transient-mark-mode select-active-regions saved-region-selection mark-active current-window-configuration ((set-window-configuration #1#)) nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook xterm-mouse-event key-binding vector string-match "^mouse" symbol-name read-event 27 91 77 1006 60 error "Unexpected escape sequence from XTerm" (nil ignore) append mouse-movement 0 intern format "drag-mouse-%d" print xterm-mouse-last extension down down-command down-data down-where down-binding is-click click click-data click-where unread-command-events xterm-mouse-debug-buffer] 7])
(defvar xt-mouse-epoch nil)
#@57 Bound to `mouse-position-function' in XTerm mouse mode.
(defalias 'xterm-mouse-position-function #[(pos) "\301\302\303\"\203 \301\302\303\"\301\302\304\"B\241\210\207" [pos terminal-parameter nil xterm-mouse-x xterm-mouse-y] 5 (#$ . 2937)])
(defalias 'xterm-mouse-event-read #[nil "\301 \211\302Y\203 \303Z\202\" \304Y\203! \305\306!\307 \"\310H\202\" )\207" [c read-event 134217728 134217600 128 encode-coding-string string keyboard-coding-system 0] 4])
#@28 Truncate with wrap-around.
(defalias 'xterm-mouse-truncate-wrap #[(f) "\300\301\302\217\207" [nil (truncate f) ((range-error (byte-code "\304\305 \245! \306\307\n#Z\305 !\n_\\+\207" [maxwrap f dbig fdiff 134217728 truncate * 1.0] 5)))] 3 (#$ . 3407)])
(defalias 'xterm-mouse--read-event-sequence-1000 #[nil "\302 \303Z\304\305Y\203 \306\307\310Z\"\202N \311>\203& \306\312\313Z\"\202N \314U\2035 \306\315 \313Z\"\202N \316U\203G \306\307 \206B \317T\"\202N \306\320T\"!)\302 \321Z\302 \321ZE\207" [code xterm-mouse-last xterm-mouse-event-read 32 intern 64 format "mouse-%d" 60 (8 9 10) "M-down-mouse-%d" 7 11 "M-mouse-%d" 3 0 "down-mouse-%d" 33] 5])
(defalias 'xterm-mouse--read-event-sequence-1006 #[nil "\306\211\211\211\307 \211\310=\204 B\202 \307 \211\310=\204( \nB\202 \307 \211\311>\2048 B\202( \312\313\314 \237\"!\211 \315Y\211 ?\205L \316= '\317\320\321
\203Y \322\202\254 \f\323W\203c \322\202\254 \f\324W\203m \325\202\254 \f\326W\203w \327\202\254 \f\330W\203\201 \331\202\254 \f\332W\203\213 \333\202\254 \f\334W\203\225 \335\202\254 \f\336W\203\237 \337\202\254 \f\340W\203\251 \341\202\254 \342\343!'\203\265 \344\202\266 \322
\203\300 \f\345Z\202\310 \346\f\323\"\211(T$!+\312\313\314\n\237\"!S\312\313\314 \237\"!SE,\207" [c y-bytes x-bytes button-bytes code wheel nil xterm-mouse-event-read 59 (109 77) string-to-number apply string 64 77 intern format "%s%smouse-%d" "" 4 8 "S-" 12 "M-" 16 "M-S-" 20 "C-" 24 "C-S-" 28 "C-M-" 32 "C-M-S-" error "Unexpected escape sequence from XTerm" "down-" 60 mod down xterm-mouse-last] 9])
#@232 Convert XTerm mouse event to Emacs mouse event.
EXTENSION, if non-nil, means to use an extension to the usual
terminal mouse protocol; we currently support the value 1006,
which is the "1006" extension implemented in Xterm >= 277.
(defalias 'xterm-mouse-event #[(&optional extension) "\204 \306 \202 \307=\203 \310 \202 \311\312!\211@ A@\313 8 \314\315
\206. \315 \211Z\316_! \317 \f\" \320!\211 @ A@ \321\322\323 #\210\321\322\324\f#\210\n\203l \325 Z\f Z\326$\202w \327\322\330D\325 \f\"AA\" \331 \233\240\210 )D\211 . \207" [extension click type x y xt-mouse-epoch xterm-mouse--read-event-sequence-1000 1006 xterm-mouse--read-event-sequence-1006 error "Unsupported XTerm mouse protocol" 2 xterm-mouse-truncate-wrap float-time 1000 window-at window-edges set-terminal-parameter nil xterm-mouse-x xterm-mouse-y posn-at-x-y t append menu-bar 3 timestamp w ltrb left top event last-input-event] 7 (#$ . 4999)])
#@269 Non-nil if Xterm-Mouse mode is enabled.
See the command `xterm-mouse-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `xterm-mouse-mode'.
(custom-declare-variable 'xterm-mouse-mode nil '(#$ . 5949) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'mouse :type 'boolean)
#@578 Toggle XTerm mouse mode.
With a prefix argument ARG, enable XTerm mouse mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Turn it on to use Emacs mouse commands, and off to use xterm mouse commands.
This works in terminal emulators compatible with xterm. It only
works for simple uses of the mouse. Basically, only non-modified
single clicks are supported. When turned on, the normal xterm
mouse functionality for such clicks is still available by holding
down the SHIFT key while pressing the mouse button.
(defalias 'xterm-mouse-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\211\203 \311\202 \312\211\313\314\"\210 \315\316\"\210 \317\316\"\210 \320\314\"\210 \321\322\"\210 \323\324\"\210 \325\322\"\210)\n\203N \326\324 \210\202T \322\327!\210\330\331\332\n\203^ \333\202_ \334\"\210\335\336!\203\204 \337\302!\210\305 \203w \305 \232\203\204 \340\341\n\203\201 \342\202\202 \343\"\210)\344 \210\n\207" [#1=#:last-message arg xterm-mouse-mode do-hook mouse-position-function current-message toggle prefix-numeric-value 0 add-hook remove-hook terminal-init-xterm-hook turn-on-xterm-mouse-tracking-on-terminal delete-terminal-functions turn-off-xterm-mouse-tracking-on-terminal suspend-tty-functions resume-tty-functions suspend-hook turn-off-xterm-mouse-tracking suspend-resume-hook turn-on-xterm-mouse-tracking kill-emacs-hook xterm-mouse-position-function force nil run-hooks xterm-mouse-mode-hook xterm-mouse-mode-on-hook xterm-mouse-mode-off-hook called-interactively-p any customize-mark-as-set message "Xterm-Mouse mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 6381) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [xterm-mouse-mode-map add-minor-mode xterm-mouse-mode nil boundp] 6)
#@39 Enable Emacs mouse tracking in xterm.
(defalias 'turn-on-xterm-mouse-tracking #[nil "\302 \303\211\205 @\304!\210 A\211\204 \303*\207" [terminal --dolist-tail-- terminal-list nil turn-on-xterm-mouse-tracking-on-terminal] 3 (#$ . 8233)])
#@40 Disable Emacs mouse tracking in xterm.
(defalias 'turn-off-xterm-mouse-tracking #[(&optional _force) "\302 \303\211\205 @\304!\210 A\211\204 \303*\207" [terminal --dolist-tail-- terminal-list nil turn-off-xterm-mouse-tracking-on-terminal] 3 (#$ . 8484)])
#@42 Enable xterm mouse tracking on TERMINAL.
(defalias 'turn-on-xterm-mouse-tracking-on-terminal #[(&optional terminal) "\205G \305 !\306=\205G \307 !\310\230?\205G \311 \300\"\204> \312 p\313\216\314\315 !@\316\"\210\317\f\320\321#\210\317\f\322\323#\210+\324 \300\306#\210\325\326 \"\210\325\327 \"\207" [xterm-mouse-mode terminal #1=#:old-buffer #2=#:old-frame input-decode-map terminal-live-p t terminal-name "initial_terminal" terminal-parameter selected-frame ((byte-code "\302!\203 \303\304\"\210\305 !\203 q\210\302\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3)) select-frame frames-on-display-list norecord define-key "[M" xterm-mouse-translate "[<" xterm-mouse-translate-extended set-terminal-parameter send-string-to-terminal "[?1000h" "[?1006h"] 4 (#$ . 8753)])
#@43 Disable xterm mouse tracking on TERMINAL.
(defalias 'turn-off-xterm-mouse-tracking-on-terminal #[(terminal) "\301\302\"\205! \303!\304=\205! \305!\306\230?\205! \307\310\"\210\307\311\"\207" [terminal terminal-parameter xterm-mouse-mode terminal-live-p t terminal-name "initial_terminal" send-string-to-terminal "[?1000l" "[?1006l"] 3 (#$ . 9562)])
(provide 'xt-mouse)