;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Jul 18 17:50:22 1995
;;; from file /home/fsf/rms/e19/lisp/term/sup-mouse.el
;;; emacs version 19.29.6.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (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 (#$ . -481))
(byte-code "ÀÁ\nBÃÄ\nBÅÆ\nBÇÈ\nBÉ\nÊ\nBË\fÌ\nBÍÎ\nBÏÐ\nBÑÒ\nBÀ‡" [0 mouse-left current-load-list 1 mouse-center 2 mouse-right 4 mouse-2left 5 mouse-2center 6 mouse-2right 8 mouse-3left 9 mouse-3center 10 mouse-3right] 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 "ÀÁ!ÀÁ!ÀÄ!Æ\"È!	Ê Ì S=‰?…- =Ï	8S=Ñ	8SY	@Z	A@Zƒ‘ Ó!ˆ\nUƒe Õ ˆ‚Š \nUƒr × ˆ‚Š \nUƒŠ deZ_Ù S¥bˆÚyˆÛ ˆÓ!‚êƒÖ Ó!ˆÕ\nUƒ§ ‚Í \nUƒ· ÑÜ Z\\‚Í \nUƒÌ ‰Ü [Ñ\\\\\\Ñ¥‚Í Ú!ˆÓ!‚êƒ€\nUƒé Ý\"‚ê\nUƒû Ý\"ˆßà!‚ê\n!UƒÝ\"ˆŠâ`àvˆ`\"ˆ)ã‰$‚ê\nUƒ,å ˆÝ\"ˆæ ‚ê\n'UƒCå ˆÝ\"ˆèé `\"‚ê\n*Uƒ_å ˆÝ\"ˆâé `\"ˆã‰$‚ê\nUƒsÝ\"ˆã$ã ‚ê\n+U…êìà!‚êƒ¬\nUƒ’íî!‚ê\nUƒŸíï!‚ê\nU…êðñ!‚êÓ!ˆ2?†ê\nUƒÅÝ\"‚ê\nUƒÙå ˆÝ\"ˆæ ‚ê\nU…êÝ\"ˆã$ã .\n‡" [sup-get-tty-num 59 buttons x 99 y sup-pos-to-window window window-edges edges selected-window old-window frame-height in-minibuf-p same-window-p 3 in-modeline-p 2 in-scrollbar-p select-window mouse-left scroll-up mouse-right scroll-down mouse-center window-width 0 what-cursor-position window-height sup-move-point-to-x-y mouse-2left kill-word 1 mouse-3left copy-region-as-kill yank this-command push-mark exchange-point-and-mark mouse-2right kill-region mark mouse-3right mouse-2center yank-pop call-interactively eval-expression execute-extended-command describe-function sup-mouse-report sup-mouse-fast-select-window] 6 (#$ . 864) 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) "ÀÁ \nÄYƒ  \nÅXƒ  Æ_\nÄZ\\Á ‰‚ \n=„+ ÈÉ!ˆ*‡" [0 read-char char num 48 57 10 term-char error "Invalid data format in mouse command"] 4 (#$ . 2680)])
#@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) "À	!ˆÂ!‡" [move-to-window-line y move-to-column x] 2 (#$ . 3016)])
#@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) "À Á\nÄ =„8 A@W„- Æ8Y„- @W„- È8Yƒ8 É\n!À\n!‚ \n†> Ä *‡" [window-edges nil window edges selected-window y 3 x 2 next-window] 3 (#$ . 3226)])