Current File : //usr/local/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\3321U\2034\335 \210\330 \n\"\210\337\340 `\"\202\3322U\203P\335 \210\330 \n\"\210\333\340 `\"\210\334\2110\202\332-U\203d\330 \n\"\210\334\2110 \202\3323U\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)
Mini Shell