ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/xt-mouse.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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)
#@44 Read a click and release event from XTerm.
(defalias 'xterm-mouse-translate #[(_event) "\300 \207" [xterm-mouse-translate-1] 1 (#$ . 448)])
#@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 (#$ . 595)])
(defalias 'xterm-mouse-translate-1 #[(&optional extension) "\212\306!\211@ A@\211A@ \307 ! \n\310= \311\312\313\n!\" \n\203+ \314\n\315\316#\210 \2043 \317\202\274 \203B \320\317\321 #\210
\202\274 \203K
\202\274 \322\317\321\"\211 A@\211 A@ \320\317\321\317#\210 \204~ B \307\323\324\325\326\313\n!\327$! AB!\202\273 \f \232\203\211
\202\273 \f9\203\222 \330\202\240 \323\324\325\331\313\n!\327$! E !\204\256 \307 !\202\272 B \307\310 D!)+.\207" [extension event ev-command ev-data ev-where vec xterm-mouse-event vector mouse-movement string-match "down-" symbol-name put event-kind mouse-click nil set-terminal-parameter xterm-mouse-last-down terminal-parameter intern replace-regexp-in-string "\\`\\([ACMHSs]-\\)*" "\\&down-" t 0 "\\&drag-" is-move is-down down down-data down-where unread-command-events drag track-mouse] 8])
(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 (#$ . 1813)])
#@28 Truncate with wrap-around.
(defalias 'xterm-mouse-truncate-wrap #[(f) "\3041 \305!0\207\210\306\305 \245!\307\310 \n#Z\305 ! \n_\\+\207" [f maxwrap dbig fdiff (range-error) truncate 134217728 * 1.0] 5 (#$ . 2063)])
#@183 Non-nil if UTF-8 coordinates should be used to read mouse coordinates.
Set this to non-nil if you are sure that your terminal
understands UTF-8 coordinates, but not SGR coordinates.
(custom-declare-variable 'xterm-mouse-utf-8 nil '(#$ . 2292) :version "25.1" :type 'boolean :risky t :group 'xterm)
#@232 Read a mouse coordinate from the current terminal.
If `xterm-mouse-utf-8' was non-nil when
`turn-on-xterm-mouse-tracking-on-terminal' was called, reads the
coordinate as an UTF-8 code unit sequence; otherwise, reads a
single byte.
(defalias 'xterm-mouse--read-coordinate #[nil "\301 \302\216\303\304\305\306\"\203 \307\202 \310!\210\311\305\211\312#*\207" [previous-keyboard-coding-system keyboard-coding-system #[nil "\301!\207" [previous-keyboard-coding-system set-keyboard-coding-system] 2] set-keyboard-coding-system terminal-parameter nil xterm-mouse-utf-8 utf-8-unix no-conversion read-char 0.1] 4 (#$ . 2597)])
(defalias 'xterm-mouse--read-number-from-terminal #[(extension) "\303 \203) \304\305 \306X\203\" \307X\203\" \310\n\311_\312#\202 \n)B\2021 \313 \211\314ZB)\207" [c extension n nil 0 read-char 48 57 + 10 -48 xterm-mouse--read-coordinate 32] 4])
(defalias 'xterm-mouse--read-event-sequence #[(&optional extension) "\306!\211@\211\306!\211 @\211 \306!\211 !@ \"!A\211 #\" $ %\307 \310\"\311U? &\307 \312\"\311U? '\307 \313\"\311U? (\307 \314\"\311U? )\307 \315\"\311U? *&?\205s '?\205s \203l %\316=\202s \307 \317\"\317U? +\204\203 +\204\203 &\203\225 \307 \317\"&\203\220 \315\202\221 \320\\\202\254 \321\322\323\"\203\253 \324\325\321\322\323\"@!\326\322O!\202\254 \320 ,'\203\267 \327\202\350 \330(\203\301 \331\202\302 \332)\203\313 \333\202\314 \332*\203\325 \334\202\326 \332+\203\337 \335\202\340 \332\336\337,!\260!\211 - S$SE.\207" [extension #1=#:val #2=#:x code #3=#:val #4=#:x xterm-mouse--read-number-from-terminal logand 64 0 32 16 8 4 77 3 1 terminal-parameter nil xterm-mouse-last-down string-to-number symbol-name -1 mouse-movement intern "C-" "" "M-" "S-" "down-" "mouse-" number-to-string x #5=#:val #6=#:x #7=#:x y c wheel move ctrl meta shift down btn sym] 9])
(defalias 'xterm-mouse--set-click-count #[(event click-count) "A C\241\210\303@!\304\305\n\"\205* \306\307\310\n\" \311U\203\" \312\202# \313\307\311\n\"Q!\240)\207" [event click-count name symbol-name string-match "\\(.*?\\)\\(\\(?:down-\\)?mouse-.*\\)" intern match-string 1 2 "double-" "triple-"] 7])
#@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) "\306>\203\f \307!\202 \310\311!\211\205# @ A@\312 8 \313\314
\206* \314 \211Z\315_! \"\316 \f\" #\317#!\211 $@ %$A@ &#\203[ \320 %Z\f&Z#\321$\202f \322\323\324D\320 \f\"AA\" '\n'D (\325'\233\"\240\210\326\323\327\"\211 )@ *\330*! +)A@ ,\312)8 -\314 .\330\n! /\331\332/\"\204\322 ,.-\203-\333V\203\331\332+\"\203/\334\335\321\211+$\232\203\336(-\"\210\202,\2030.,Z\315_V\203 +\334\335\321\211/$\232\203 -T-\336(-\"\210\202\333-\337\323\327\n.-E#\210.\337\323\340 #\210\337\323\341\f#\210(\2111.\n)\207" [extension click type x y xt-mouse-epoch (1006 nil) xterm-mouse--read-event-sequence error "Unsupported XTerm mouse protocol" 2 xterm-mouse-truncate-wrap float-time 1000 window-at window-edges posn-at-x-y t append nil menu-bar 3 terminal-parameter xterm-mouse-last-click symbol-name string-match "down-" 1 replace-match "" xterm-mouse--set-click-count set-terminal-parameter xterm-mouse-x xterm-mouse-y timestamp w ltrb left top posn event last-click last-type last-name last-time click-count this-time name double-click-time last-input-event] 7 (#$ . 4753)])
#@269 Non-nil if Xterm-Mouse mode is enabled.
See the `xterm-mouse-mode' command
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 '(#$ . 6171) :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\302 \307=\203 \310\302!?\202 \311 !\312V\"\210\n\203! \313\202\" \314\315\316\"\210\n\2035 \317\320\316\321 \"\210\202= \320\322\321 \"\210\323\324\325\310\302!\203I \326\202J \327\"\210\330\331!\203u \332\302!\210\305 \203b \305 \232\203u \333 \334\335\310\302!\203p \336\202q \337\f#\210))\340 \210\310\302!\207" [#1=#:last-message arg xterm-mouse-mode mouse-position-function local current-message set-default toggle default-value prefix-numeric-value 0 add-hook remove-hook terminal-init-xterm-hook turn-on-xterm-mouse-tracking-on-terminal xterm-mouse-position-function mapc terminal-list turn-off-xterm-mouse-tracking-on-terminal 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 6603) (list (or current-prefix-arg 'toggle))])
#@181 Hook run after entering or leaving `xterm-mouse-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar xterm-mouse-mode-hook nil (#$ . 8151))
(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)
#@1317 Return a control sequence to enable XTerm mouse tracking.
The returned control sequence enables basic mouse tracking, mouse
motion events and finally extended tracking on terminals that
support it. The following escape sequences are understood by
modern xterms:
"\e[?1000h" "Basic mouse mode": Enables reports for mouse
clicks. There is a limit to the maximum row/column
position (<= 223), which can be reported in this
basic mode.
"\e[?1002h" "Mouse motion mode": Enables reports for mouse
motion events during dragging operations.
"\e[?1005h" "UTF-8 coordinate extension": Enables an
extension to the basic mouse mode, which uses UTF-8
characters to overcome the 223 row/column limit.
This extension may conflict with non UTF-8
applications or non UTF-8 locales. It is only
enabled when the option `xterm-mouse-utf-8' is
non-nil.
"\e[?1006h" "SGR coordinate extension": Enables a newer
alternative extension to the basic mouse mode, which
overcomes the 223 row/column limit without the
drawbacks of the UTF-8 coordinate extension.
The two extension modes are mutually exclusive, where the last
given escape sequence takes precedence over the former.
(defalias 'xterm-mouse-tracking-enable-sequence #[nil "\300\301\302\303!\"\207" [apply concat xterm-mouse--tracking-sequence 104] 4 (#$ . 8511)])
#@1184 Control sequence to enable xterm mouse tracking.
Enables basic mouse tracking, mouse motion events and finally
extended tracking on terminals that support it. The following
escape sequences are understood by modern xterms:
"\e[?1000h" "Basic mouse mode": Enables reports for mouse
clicks. There is a limit to the maximum row/column
position (<= 223), which can be reported in this
basic mode.
"\e[?1002h" "Mouse motion mode": Enables reports for mouse
motion events during dragging operations.
"\e[?1005h" "UTF-8 coordinate extension": Enables an extension
to the basic mouse mode, which uses UTF-8
characters to overcome the 223 row/column limit. This
extension may conflict with non UTF-8 applications or
non UTF-8 locales.
"\e[?1006h" "SGR coordinate extension": Enables a newer
alternative extension to the basic mouse mode, which
overcomes the 223 row/column limit without the
drawbacks of the UTF-8 coordinate extension.
The two extension modes are mutually exclusive, where the last
given escape sequence takes precedence over the former.
(defconst xterm-mouse-tracking-enable-sequence "[?1000h[?1002h[?1005h[?1006h" (#$ . 9981))
(make-obsolete-variable 'xterm-mouse-tracking-enable-sequence "use the function `xterm-mouse-tracking-enable-sequence' instead." "25.1")
#@145 Return a control sequence to disable XTerm mouse tracking.
The control sequence resets the modes set by
`xterm-mouse-tracking-enable-sequence'.
(defalias 'xterm-mouse-tracking-disable-sequence #[nil "\300\301\302\303!\237\"\207" [apply concat xterm-mouse--tracking-sequence 108] 4 (#$ . 11403)])
#@64 Reset the modes set by `xterm-mouse-tracking-enable-sequence'.
(defconst xterm-mouse-tracking-disable-sequence "[?1006l[?1005l[?1002l[?1000l" (#$ . 11705))
(make-obsolete-variable 'xterm-mouse-tracking-disable-sequence "use the function `xterm-mouse-tracking-disable-sequence' instead." "25.1")
#@148 Return a control sequence to enable or disable mouse tracking.
SUFFIX is the last character of each escape sequence (?h to
enable, ?l to disable).
(defalias 'xterm-mouse--tracking-sequence #[(suffix) "\301\302\303\304\305\205\n \306\307\"BB\"\207" [xterm-mouse-utf-8 mapcar #[(code) "\302\303 #\207" [code suffix format "[?%d%c"] 4] 1000 1002 append (1005) (1006)] 7 (#$ . 12011)])
#@42 Enable xterm mouse tracking on TERMINAL.
(defalias 'turn-on-xterm-mouse-tracking-on-terminal #[(&optional terminal) "\205\206 \306 !\307=\205\206 \310 !\311\230?\205\206 \312 \300\"?\205\206 \313 p\314\216\315\316 !@\317\"\210\320\f\321\322#\210\320\f\323\324#\210+\325 \326 \3271M \330 \"0\202a \211 !A@\331\232?\205` \332!@!A\")\210\333\334\335 \312\334\335\"B#\210\333\334\336
\312\334\336\"B#\210\333 \300\307#\210\333 \337 #*\207" [xterm-mouse-mode terminal #1=#:old-buffer #2=#:old-frame input-decode-map disable terminal-live-p t terminal-name "initial_terminal" terminal-parameter selected-frame #[nil "\302!\203 \303\304\"\210\305 !\205 q\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 xterm-mouse-tracking-enable-sequence xterm-mouse-tracking-disable-sequence (error) send-string-to-terminal "Terminal is currently suspended" signal set-terminal-parameter nil tty-mode-set-strings tty-mode-reset-strings xterm-mouse-utf-8 enable err] 8 (#$ . 12402)])
#@43 Disable xterm mouse tracking on TERMINAL.
(defalias 'turn-off-xterm-mouse-tracking-on-terminal #[(terminal) "\304\305\"\205J \306!\307=\205J \3101 \311 \"0\202, \211A@\312\232?\205+ \313\n@\nA\")\210\314\315\316\317 \304\315\316\"\"#\210\314\315\320\317 \304\315\320\"\"#\210\314\305\315#\207" [terminal xterm-mouse-tracking-disable-sequence err xterm-mouse-tracking-enable-sequence terminal-parameter xterm-mouse-mode terminal-live-p t (error) send-string-to-terminal "Terminal is currently suspended" signal set-terminal-parameter nil tty-mode-set-strings remq tty-mode-reset-strings] 9 (#$ . 13527)])
(provide 'xt-mouse)
Kontol Shell Bypass