;ELC   
;;; Compiled
;;; in Emacs version 29.4
;;; 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 =\3158S=\3168SY@Z\262	A@Z\262\203~ \317!\210	U\203T \320 \210\202z 		U\203a \321 \210\202z 	\nU\203z deZ_\322 S\245b\210\323 \210\324 \210\317!\207\211\203\301 \317!\210\320\nU\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 (#$ . 591) 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 (#$ . 2787)])#@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 (#$ . 3162)])#@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\301\300B\"\207" [V0 V1 coordinates-in-window-p] 4 "\n\n(fn W)"]] 7 (#$ . 3387)])
(provide 'sup-mouse)