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



(defvar xterm-mouse-debug-buffer nil)
#@56 Read a click and release event from XTerm.

(fn EVENT)
(defalias 'xterm-mouse-translate #[257 "\300 \207" [xterm-mouse-translate-1] 2 (#$ . 122)])
#@221 Read a click and release event from XTerm.
Similar to `xterm-mouse-translate', but using the "1006"
extension, which supports coordinates >= 231 (see
https://invisible-island.net/xterm/ctlseqs/ctlseqs.html).

(fn EVENT)
(defalias 'xterm-mouse-translate-extended #[257 "\300\301!\207" [xterm-mouse-translate-1 1006] 3 (#$ . 276)])
#@28 

(fn &optional EXTENSION)
(defalias 'xterm-mouse-translate-1 #[256 "\212\302
!\211@
A@\211A@\303!\304=\305\306\307!\"\203$\310\311\312#\210\204/\266\313\202\311\211\203B\314\313\315\316\n!#\210\266\207\202\311
\203Y\317 \210\203S\266\207\202\311\266\320\202\311\321\313\315\"\211A@\211A@\314\313\315\313#\210\204\210		B\303\322\323\324\325\307!\326$!AB!\266\212\202\311
\232\203\225\266\212\202\3119\203\237\327\202\256\322\323\324\330\307
!\326$!	E\204\270\303
!\202\305\211	B\317 \210\303\304\nD!\262
\266\212)\207" [track-mouse unread-command-events xterm-mouse-event vector mouse-movement string-match "down-" symbol-name put event-kind mouse-click nil set-terminal-parameter xterm-mouse-last-down copy-sequence xterm-mouse--handle-mouse-movement [] terminal-parameter intern replace-regexp-in-string "\\`\\([ACMHSs]-\\)*" "\\&down-" t 0 "\\&drag-"] 18 (#$ . 612)])
#@62 Handle mouse motion that was just generated for XTerm mouse.
(defalias 'xterm-mouse--handle-mouse-movement #[0 "\300\301\302\303\"\301\302\304\"\"\207" [display--update-for-mouse-movement terminal-parameter nil xterm-mouse-x xterm-mouse-y] 5 (#$ . 1539)])
(defvar xt-mouse-epoch nil)
#@67 Bound to `mouse-position-function' in XTerm mouse mode.

(fn POS)
(defalias 'xterm-mouse-position-function #[257 "\300\301\302\"\203\211\300\301\302\"\300\301\303\"B\241\210\207" [terminal-parameter nil xterm-mouse-x xterm-mouse-y] 6 (#$ . 1829)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323&\207" [defalias xterm-mouse-truncate-wrap truncate nil make-obsolete "27.1" custom-declare-variable xterm-mouse-utf-8 funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if UTF-8 coordinates should be used to read mouse coordinates.\nSet this to non-nil if you are sure that your terminal\nunderstands UTF-8 coordinates, but not SGR coordinates." :version "25.1" :type boolean :risky t :group xterm] 12)
#@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 #[0 "\300 \301\302\"\216\303\304\305\306\"\203\307\202\310!\210\311\305\211\312#)\207" [keyboard-coding-system make-closure #[0 "\301\300!\207" [V0 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] 5 (#$ . 2605)])
#@18 

(fn EXTENSION)
(defalias 'xterm-mouse--read-number-from-terminal #[257 "\300
\203&\301\302 \262\303X\203\"
\304X\203\"\305
_\\\306\\\262
\202\211B\207\307 \211\262\310Z
B\207" [nil 0 read-char 48 57 10 -48 xterm-mouse--read-coordinate 32] 5 (#$ . 3190)])
#@28 

(fn &optional EXTENSION)
(defalias 'xterm-mouse--read-event-sequence #[256 "\300
!\211\242\300!\211\242\300!\211\242
\243\301\302\"\303U?\301\304\"\303U?\301\305\"\303U?\301	\306\"\303U?\301\n\307\"\303U??\205V?\205V\f\203N\310=\202V\301\311\"\311U?
\204c\211\204c\203v\301\f\311\"\203q\307\202r\312\\\202\215\313\314\315\"\203\214\316\317\313\314\315\"@!\320\314O!\202\215\312\203\225\321\202\302\322\203\236\323\202\237\324\203\247\325\202\250\324\203\260\326\202\261\324\203\271\327\202\272\324\330\331!\260!\211\fSSE\207" [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] 23 (#$ . 3463)])
#@26 

(fn EVENT CLICK-COUNT)
(defalias 'xterm-mouse--set-click-count #[514 "
A
C\241\210\300@!\301\302\"\205*\303\304\305\"\306U\203!\307\202\"\310\304\306\"Q!\240\207" [symbol-name string-match "\\(.*?\\)\\(\\(?:down-\\)?mouse-.*\\)" intern match-string 1 2 "double-" "triple-"] 10 (#$ . 4289)])
#@258 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.

(fn &optional EXTENSION)
(defalias 'xterm-mouse-event #[256 "\211\306>\203\f\307
!\202\310\311!\211\205D
\211A@\312Y\205D
\211@
A@\3138\204.\314 \312\2025\315\316!\317\"@\320\"\321
!\211@
A@\203U\322ZZ\323$\202w\324\325	\203j\n\203f\326=\203j\327\202k\330D\322		\331 #AA\"
D\332\233\240\210\333\325\334\"\211@\335
!A@\3138\3328\3368\314 \335!\337\340\"\204\320\262\203 
\326V\203 
\337\340\"\203 
\211\341\342\323\211$\232\203 
\343\n\"\210\202 
\203
\203
\323=\204\351\317Z_V\203
\344Z!\f\345\245X\203
\344Z!\f\345\245X\203
\341\342\323\211$\232\203
T\262\343\n\"\210\202 
\326\262\346\325\334	\257#\266\n\346\325\347#\210\346\325\350\n#\210\211\211\266\212\207" [xt-mouse-epoch tab-bar-mode menu-bar-mode double-click-time double-click-fuzz last-input-event (1006 nil) xterm-mouse--read-event-sequence error "Unsupported XTerm mouse protocol" 0 2 float-time time-convert time-since 1000 window-at window-edges posn-at-x-y t append nil 1 tab-bar menu-bar selected-frame 3 terminal-parameter xterm-mouse-last-click symbol-name 4 string-match "down-" replace-match "" xterm-mouse--set-click-count abs 8 set-terminal-parameter xterm-mouse-x xterm-mouse-y] 29 (#$ . 4599)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable xterm-mouse-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Xterm-Mouse mode is enabled.\nSee the `xterm-mouse-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `xterm-mouse-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group mouse] 12)
#@992 Toggle XTerm mouse mode.

This is a minor mode.  If called interactively, toggle the
`Xterm-Mouse 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 \='xterm-mouse-mode)'.

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

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.

(fn &optional ARG)
(defalias 'xterm-mouse-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B	\203@\315\202A\316\317\320\"\210	\203V\321\312\322\320\323 \"\210\202`\322\324\323 \"\210\311\211\325\326\307\301!\203l\327\202m\330\"\210\331\332!\203\225\333\301!\210\304 \203\205\211\304 \232\203\225\334\335\307\301!\203\221\336\202\222\337\340#\210\210\341 \210\307\301!\207" [global-minor-modes xterm-mouse-mode mouse-position-function tty-menu-calls-mouse-position-function current-message set-default toggle default-value 1 nil t boundp delq 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 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] 7 (#$ . 6642) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar xterm-mouse-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [xterm-mouse-mode-map xterm-mouse-mode-hook variable-documentation put "Hook run after entering or leaving `xterm-mouse-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 xterm-mouse-mode boundp] 6)
#@1290 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[?1003h" "Mouse motion mode": Enables reports for mouse
            motion events.

"\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 #[0 "\300\301\302\303!\"\207" [apply concat xterm-mouse--tracking-sequence 104] 4 (#$ . 9274)])
#@1160 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[?1003h" "Mouse motion mode": Enables reports for mouse
            motion events.

"\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[?1003h[?1005h[?1006h" (#$ . 10715))
(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 #[0 "\300\301\302\303!\237\"\207" [apply concat xterm-mouse--tracking-sequence 108] 4 (#$ . 12114)])
#@64 Reset the modes set by `xterm-mouse-tracking-enable-sequence'.
(defconst xterm-mouse-tracking-disable-sequence "[?1006l[?1005l[?1003l[?1000l" (#$ . 12414))
(make-obsolete-variable 'xterm-mouse-tracking-disable-sequence "use the function `xterm-mouse-tracking-disable-sequence' instead." "25.1")
#@161 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).

(fn SUFFIX)
(defalias 'xterm-mouse--tracking-sequence #[257 "\301\302\303\"\304\305\306\205
\307\310\"BB\"\207" [xterm-mouse-utf-8 mapcar make-closure #[257 "\301\302\300#\207" [V0 format "[?%d%c"] 5 "\n\n(fn CODE)"] 1000 1003 append (1005) (1006)] 8 (#$ . 12720)])
#@67 Enable xterm mouse tracking on TERMINAL.

(fn &optional TERMINAL)
(defalias 'turn-on-xterm-mouse-tracking-on-terminal #[256 "\205\202\303
!\304=\205\202\305
!\306\230?\205\202\307
\300\"?\205\202\310 p\311\312#\216\313\314!@\315\"\210\316	\317\320#\210\316	\321\322#\210)\266\323 \324 \3251N\326\"0\210\202_\211A@\327\232?\205]\330
@A\"\266\331\332\333\307\332\333\"B#\210\331\332\334\307\332\334\"B#\210\331\300\304#\210\331\302\n#\266\202\207" [xterm-mouse-mode input-decode-map xterm-mouse-utf-8 terminal-live-p t terminal-name "initial_terminal" terminal-parameter selected-frame make-closure #[0 "\302\300!\203\303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame frames-on-display-list norecord define-key "" 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] 10 (#$ . 13145)])
#@58 Disable xterm mouse tracking on TERMINAL.

(fn TERMINAL)
(defalias 'turn-off-xterm-mouse-tracking-on-terminal #[257 "\302
\303\"\205J\304
!\305=\205J\3061\307\"0\210\202-\211A@\310\232?\205+\311
@A\"\266\312\313\314\315	\302\313\314\"\"#\210\312\313\316\315\302\313\316\"\"#\210\312
\303\313#\207" [xterm-mouse-tracking-disable-sequence 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 (#$ . 14251)])
(provide 'xt-mouse)