
(defconst shift 1)

(defconst control 2)

(defconst shift-control 3)

(defconst meta 4)

(defconst left 4)

(defconst middle 1)

(defconst right 2)

(defvar il-mouse-kill-emacs (symbol-function (quote kill-emacs)))

(defvar il-mouse-fast-select-window t "\
*Non-nil for mouse hits to select new window, then execute; else just select.")

(defvar scrollbar-enabled t "\
Non-nil to use last column as scrollbar")

(defvar auto-switch-enabled nil "\
Non-nil to send init string to terminal")

(defvar save-screen-width (screen-width))

(defvar save-screen-height (screen-height))

(defun il-mouse-report nil "\
Read Interlisp ChatEmacs mouse report, branch to appropriate sub-handler." (interactive) (byte-code "ÁˆrÂUƒ Ã ‚ ÄU… Å )‡" [sub-char nil 115 il-set-screen-size 109 il-mouse-command] 3))

(defun il-set-screen-size nil (byte-code "ÄÅ!ÄÅ!
U† ‰ˆÆ!ˆ	U†# 	‰ˆÇ	!*‡" [cur-screen-width cur-screen-height save-screen-width save-screen-height il-get-tty-num 59 set-screen-width set-screen-height] 5))

(defun il-mouse-command nil "\
Read and parse Interlisp ChatEmacs mouse report, and do what it asks.

L-- move point          *  |---- These apply for mouse click in a window.
--R set mark            *  | If il-mouse-fast-select-window is nil,
-C- depends on shift    *  | just selects that window.

middle-button actions:
   shift: yank region to point
   control: kill region
   shift-control: copy region to killbuffer

    on modeline		    on \"scroll bar\"	in minibuffer
L-- split-vertical	    line to top		execute-extended-command
--R split-horizontal	    line to bottom	eval-expression
-C- delete-window	    goto-char		proportional	suspend-emacs

Meta-mouse-button actions are same as scrollbar." (interactive) (byte-code "ÒˆÓ SÔÕ!^Ö SÔÕ!^ÔÕ!ÔÕ!×	\"Ø!Ù 	Ö S=?…8 =	Ú8S=	Û8SY
Ü8Z‰ˆ	Ý8Z‰ˆ	ƒ‡ Þ!ˆ
Uƒo ß ‚„ 
Uƒ{ à ‚„ 
U…„ á ‚ …Ž 
†• =ƒ× Þ!ˆ
Uƒ© â	!‚Ï 
Uƒ¶ ã	!‚Ï 
U…Ï ä	ådeZæ S\"\"bˆç ˆè ˆÞ!‚ ƒå é	
$‚ ƒ
Uƒ÷ êë!‚
Uƒêì!‚
U…í ‚ Þ!ˆ?† é	
$.‡" [x y buttons bucky-bits window edges old-window in-minibuf-p same-window-p in-modeline-p in-scrollbar-p left right middle scrollbar-enabled meta t il-mouse-fast-select-window nil screen-width il-get-tty-num 59 screen-height il-pos-to-window window-edges selected-window 3 2 0 1 select-window split-window-vertically delete-window split-window-horizontally scroll-up scroll-down * / window-height beginning-of-line what-cursor-position il-button-command call-interactively eval-expression execute-extended-command suspend-emacs] 33))

(defun il-button-command (x y buttons bucky-bits) (byte-code "	Uƒa 
Ê=ƒ Ë\"‚^ 
=ƒ) Ì ˆË\"ˆÍÎ `\"‚^ 
=ƒE ÏÎ `\"ˆË\"ˆÐ‰ˆÐ ‚^ 
=…^ ÍÎ `\"ˆË\"ˆÐ‰ˆÐ ‚„ 	U…„ Ì ˆË\"ˆ
=ƒ~ ÍÎ `\"‚„ ÑÒ!ˆÓ ‡" [buttons left bucky-bits x y control shift this-command shift-control right 0 il-move-point-to-x-y push-mark kill-region mark copy-region-as-kill yank sit-for 1 exchange-point-and-mark] 20))

(defun il-get-tty-num (term-char) "\
Read from terminal until TERM-CHAR is read, and return intervening number.
Upon non-numeric not matching TERM-CHAR, signal an error." (byte-code "ÃrÄZ	ÃY… 	ÅX…$ ÆÇ\"	\\‰ˆrÄZ‰ˆ‚ ˆ
	Ä\\=†0 ÈÉ!ˆ*‡" [num char term-char 0 48 9 * 10 error "Invalid data format in mouse command"] 4))

(defun il-move-point-to-x-y (x y) "\
Move cursor to window location X, Y.
Handles wrapped and horizontally scrolled lines correctly." (byte-code "Ä!ˆiÅÆÇ !ƒ iÈ ÉZ^\\‚\" ÊÇ ËÈ S^#!
	Z*‡" [y cc nc x move-to-window-line move-to-column zerop window-hscroll window-width 2 + -1] 13))

(defun il-pos-to-window (x y) "\
Find window corresponding to screen coordinates.
X and Y are 0-based character positions on the screen." (byte-code "Å Â	Æ =?…* Ç8W†* È8Y†* É8W†* Ê8Y…< Ë	!‰ˆÅ	!‰ˆ‚ ˆ	†C Æ *‡" [edges window nil y x window-edges selected-window 1 3 0 2 next-window] 7))

(defun suspend-hook-fn nil (interactive) (byte-code "ÀˆÁÂ!ˆÀ‡" [nil send-string-to-terminal "0"] 2))

(defun suspend-resume-hook-fn nil (interactive) (byte-code "ÀˆÁÂ!ˆÀ‡" [nil send-string-to-terminal "1"] 2))

(global-set-key "" (quote il-mouse-report))

(if auto-switch-enabled (progn (send-string-to-terminal "1") (defun kill-emacs nil (interactive) (send-string-to-terminal "0") (funcall il-mouse-kill-emacs)) (setq suspend-hook (symbol-function (quote suspend-hook-fn))) (setq suspend-resume-hook (symbol-function (quote suspend-resume-hook-fn)))))