;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:52:56 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/term/sup-mouse.el ;;; in Emacs version 23.4.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@79 *Non-nil for mouse hits to select new window, then execute; else just select. (defvar sup-mouse-fast-select-window nil (#$ . -544)) (byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\207" [current-load-list mouse-left (lambda (#1=#:defconst-tmp-var) (defconst mouse-left #1#)) 0 mouse-center (lambda (#2=#:defconst-tmp-var) (defconst mouse-center #2#)) 1 mouse-right (lambda (#3=#:defconst-tmp-var) (defconst mouse-right #3#)) 2 mouse-2left (lambda (#4=#:defconst-tmp-var) (defconst mouse-2left #4#)) 4 mouse-2center (lambda (#5=#:defconst-tmp-var) (defconst mouse-2center #5#)) 5 mouse-2right (lambda (#6=#:defconst-tmp-var) (defconst mouse-2right #6#)) 6 mouse-3left (lambda (#7=#:defconst-tmp-var) (defconst mouse-3left #7#)) 8 mouse-3center (lambda (#8=#:defconst-tmp-var) (defconst mouse-3center #8#)) 9 mouse-3right (lambda (#9=#:defconst-tmp-var) (defconst mouse-3right #9#)) 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\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-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] 7 (#$ . 1579) 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 (#$ . 3938)]) #@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 (#$ . 4318)]) #@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 (#$ . 4540)])