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



(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable sup-mouse-fast-select-window funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil means mouse hits select new window, then execute.\nOtherwise just select." :type boolean :group mouse] 8)
(defconst mouse-left 0)
(defconst mouse-center 1)
(defconst mouse-right 2)
(defconst mouse-2left 4)
(defconst mouse-2center 5)
(defconst mouse-2right 6)
(defconst mouse-3left 8)
(defconst mouse-3center 9)
(defconst mouse-3right 10)
#@601 This function is called directly by the mouse, it parses and
executes the mouse commands.

 L move point          *  |---- These apply for mouse click in a window.
2L delete word            |
3L copy word		  | If sup-mouse-fast-select-window is nil,
 C move point and yank *  | just selects that window.
2C yank pop		  |
 R set mark            *  |
2R delete region	  |
3R copy region		  |

on mode line		    on "scroll bar"	in minibuffer
 L scroll-up		    line to top		execute-extended-command
 C proportional goto-char   line to middle	mouse-help
 R scroll-down		    line to bottom	eval-expression
(defalias 'sup-mouse-report #[0 "\306\307!\306\307!\306\310!\311\"\312
!\313 \314 S=\211?\205=\3158S=\3168SY@Z\262	A@Z\262
\203~\317!\210	U\203T\320 \210\202z		U\203a\321 \210\202z	\nU\203zdeZ_\322 S\245b\210\323 \210\324 \210\317!\207\211\203\301\317!\210\320\nU\203\224\202\273\n	U\203\245\316\325 Z\\\202\273\n\nU\203\272\326\316\n\211\325 [$\316\245\202\273\327!\210\317!\207\203h
	U\203\323\330		\"\207	U\203\345\330		\"\210\331\332!\207	\fU\203

\330		\"\210\212\333`\332v\210`\"\210)\334\211\207		U\203
\335 \210\330		\"\210\336 \207	'U\203-
\335 \210\330		\"\210\337\340 `\"\207	(U\203I
\335 \210\330		\"\210\333\340 `\"\210\334\211\207	\nU\203\\
\330		\"\210\334\211 \207	)U\205\314
\341\332!\207\203\215
		U\203w
\342\343!\207	U\203\202
\342\344!\207	\nU\205\314
\345\346!\207\317!\210*?\206\314
	U\203\246
\330		\"\207		U\203\272
\335 \210\330		\"\210\336 \207	\nU\205\314
\330		\"\210\334\211 \207" [mouse-left mouse-right mouse-center mouse-2left mouse-3left this-command sup-get-tty-num 59 99 sup-pos-to-window window-edges selected-window frame-height 3 2 select-window scroll-up scroll-down window-width beginning-of-line what-cursor-position window-height + 0 sup-move-point-to-x-y kill-word 1 copy-region-as-kill yank push-mark exchange-point-and-mark kill-region mark yank-pop call-interactively eval-expression execute-extended-command describe-function sup-mouse-report mouse-2right mouse-3right mouse-2center sup-mouse-fast-select-window] 17 (#$ . 592) nil])
#@149 Read from terminal until TERM-CHAR is read, and return intervening number.
Upon non-numeric not matching TERM-CHAR signal an error.

(fn TERM-CHAR)
(defalias 'sup-get-tty-num #[257 "\300\301 \211\302Y\203\211\303X\203
\304_
\302Z\\\262\301 \262
\202
=\204)\305\306!\210
\207" [0 read-char 48 57 10 error "Invalid data format in mouse command"] 6 (#$ . 2789)])
#@105 Position cursor in window coordinates.
X and Y are 0-based character positions in the window.

(fn X Y)
(defalias 'sup-move-point-to-x-y #[514 "\300
!\210\301!\207" [move-to-window-line move-to-column] 4 (#$ . 3165)])
#@113 Find window corresponding to frame coordinates.
X and Y are 0-based character positions on the frame.

(fn X Y)
(defalias 'sup-pos-to-window #[514 "\300\301\302#!\207" [get-window-with-predicate make-closure #[257 "\302\300\301B\"\207" [V0 V1 coordinates-in-window-p] 4 "\n\n(fn W)"]] 7 (#$ . 3391)])
(provide 'sup-mouse)