Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/obsolete/sup-mouse.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@82 Non-nil means mouse hits select new window, then execute.
Otherwise just select.
(custom-declare-variable 'sup-mouse-fast-select-window nil '(#$ . 408) :type 'boolean :group 'mouse)
(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 #[nil "\306\307!\306\307!\306\310!\311	\n\"\312!\313 \n\314 S=\211'?\205'
=(\n\315\f8S=)	\316\f8SY*	\f@Z\n\fA@Z)\203\205\317!\210+U\203Z\320 \210\202,U\203g\321 \210\202-U\203	deZ_\322 S\245b\210\323 \210\324 \210\317
!\202\332
*\203\307\317!\210\320+U\203\232\n\202\277,U\203\252\n\316\325 Z\\\202\277-U\203\276\326\316\n\211\325 [$\316\245\202\277\327!\210\317
!\202\332
(\203q
+U\203\332\330	\n\"\202\332
.U\203\354\330	\n\"\210\331\332!\202\332
/U\203	
\330	\n\"\210\212\333`\332v\210`\"\210)\334\2110\202\332
,U\203
\335 \210\330	\n\"\210\336 \202\332
1U\2034
\335 \210\330	\n\"\210\337\340 `\"\202\332
2U\203P
\335 \210\330	\n\"\210\333\340 `\"\210\334\2110\202\332
-U\203d
\330	\n\"\210\334\2110 \202\332
3U\205\332
\341\332!\202\332
'\203\235
,U\203\203
\342\343!\202\332
+U\203\220
\342\344!\202\332
-U\205\332
\345\346!\202\332
\317!\2104?\206\332
+U\203\265
\330	\n\"\202\332
,U\203\311
\335 \210\330	\n\"\210\336 \202\332
-U\205\332
\330	\n\"\210\334\2110 .\n\207" [buttons x y window edges old-window 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 in-minibuf-p same-window-p in-mode-line-p in-scrollbar-p mouse-left mouse-right mouse-center mouse-2left mouse-3left this-command mouse-2right mouse-3right mouse-2center sup-mouse-fast-select-window] 7 (#$ . 829) nil])
#@133 Read from terminal until TERM-CHAR is read, and return intervening number.
Upon non-numeric not matching TERM-CHAR signal an error.
(defalias 'sup-get-tty-num #[(term-char) "\303\304 \305Y\203 \306X\203 	\307_\305Z\\\304 \211\202\n=\204*\310\311!\210	*\207" [char num term-char 0 read-char 48 57 10 error "Invalid data format in mouse command"] 4 (#$ . 3189)])
#@95 Position cursor in window coordinates.
X and Y are 0-based character positions in the window.
(defalias 'sup-move-point-to-x-y #[(x y) "\302!\210\303	!\207" [y x move-to-window-line move-to-column] 2 (#$ . 3569)])
#@103 Find window corresponding to frame coordinates.
X and Y are 0-based character positions on the frame.
(defalias 'sup-pos-to-window #[(x y) "\300\301!\207" [get-window-with-predicate #[(w) "\303	B\n\"\207" [x y w coordinates-in-window-p] 3]] 2 (#$ . 3791)])
(provide 'sup-mouse)