;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:18 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/sup-mouse.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`sup-mouse.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@79 *Non-nil for mouse hits to select new window, then execute; else just select. (defvar sup-mouse-fast-select-window nil (#$ . -625)) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314 \315B\316 \317B\320\321B\322\301\207" [current-load-list mouse-left mouse-center mouse-right mouse-2left mouse-2center 0 1 2 4 5 mouse-2right 6 mouse-3left 8 mouse-3center 9 mouse-3right 10] 2) #@600 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 modeline 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\333)\203\310\317 !\210\320*U\203\232\n\202\300+U\203\252\n\316\325 Z\\\202\300,U\203\277\n\211\\\325 [\\\316\\\316\245\202\300\326!\210\317 !\202\333'\203r*U\203\333\327 \n\"\202\333-U\203\355\327 \n\"\210\330\331!\202\333.U\203\n\327 \n\"\210\212\332`\331v\210`\"\210)\333\211/\202\333+U\203\334 \210\327 \n\"\210\335 \202\3330U\2035\334 \210\327 \n\"\210\336\337 `\"\202\3331U\203Q\334 \210\327 \n\"\210\332\337 `\"\210\333\211/\202\333,U\203e\327 \n\"\210\333/\333 \202\3332U\205\333\340\331!\202\333&\203\236+U\203\204\341\342!\202\333*U\203\221\341\343!\202\333,U\205\333\344\345!\202\333\317 !\2103?\206\333*U\203\266\327 \n\"\202\333+U\203\312\334 \210\327 \n\"\210\335 \202\333,U\205\333\327 \n\"\210\333/\333 .\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-modeline-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] 5 (#$ . 1054) 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 (#$ . 3413)]) #@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 (#$ . 3793)]) #@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 (#$ . 4015)])