;ELC   
;;; Compiled by handa@psilocin.gnu.ai.mit.edu on Fri Jul 25 03:09:18 1997
;;; from file /gnu/gd/gd/1/gnu/emacs/lisp/term/bg-mouse.el
;;; in Emacs version 20.0.92.3
;;; with bytecomp version 2.32
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(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 "`bg-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 bg-mouse-fast-select-window nil (#$ . -554))
(byte-code "АБ\nBГД\nBГЕ\nBЖЗ\nBИ	Й\nBКЛ\nBМН\nBОП\nBА‡" [1 bg-button-r current-load-list 2 bg-button-m bg-button-c 4 bg-button-l 8 bg-in-modeline 16 bg-in-scrollbar 24 bg-in-minibuf 59 semicolon] 2)
#@683 Read, parse, and execute a BBN BitGraph mouse click.

L-- move point             | These apply for mouse click in a window.
--R set mark               | If bg-mouse-fast-select-window is nil,
L-R kill region            | these commands on a nonselected window
-C- move point and yank    | just select that window.
LC- yank-pop		   |
-CR or LCR undo		   | "Scroll bar" is right-hand window column.

on modeline:		    on "scroll bar":	in minibuffer:
L-- scroll-up		    line to top		execute-extended-command
--R scroll-down		    line to bottom	eval-expression
-C- proportional goto-char  line to middle	suspend-emacs

To reinitialize the mouse if the terminal is reset, type ESC : RET
(defalias 'bg-mouse-report #[(prefix-arg) "А	!€В SА	!ГҐ^Е SА	!ЖҐZАИ!Й¦\nЛ\f\"\fН П\f!С SU‰?…F У8SU?…[ ?…[ \fХ8SY\f=…l \f?‰ѓw ‚x Ъѓ‚ ‚ѓ Ъ\\ѓЋ ‚Џ Ъ\\Юа\n\\!\"!\f@Z\"A@Z#„№ ѓК д\f!€е!!€д!‚й „Ф ѓЫ е!!‚й д\f!€&…й е!!.‡" [bg-get-tty-num semicolon frame-width 9 screen-mouse-x frame-height 16 screen-mouse-y 99 8 bg-mouse-buttons bg-window-from-x-y bg-mouse-window selected-window bg-cursor-window window-edges edges screen-height minibuf-p 3 in-modeline-p 2 in-scrollbar-p same-window-p in-minibuf-p bg-in-minibuf 0 bg-in-modeline bg-in-scrollbar bg-mode-bits lookup-key mouse-map char-to-string bg-command bg-mouse-x bg-mouse-y select-window bg-command-execute bg-mouse-fast-select-window] 6 (#$ . 912) "P"])
#@43 Move point to location of BitGraph mouse.
(defalias 'bg-set-point #[nil "А	\n\"€Г	‰‡" [bg-move-point-to-x-y bg-mouse-x bg-mouse-y next-line this-command temporary-goal-column] 3 (#$ . 2387) nil])
#@41 Set mark at location of BitGraph mouse.
(defalias 'bg-set-mark #[nil "А €Б\n\"€Д ‡" [push-mark bg-move-point-to-x-y bg-mouse-x bg-mouse-y exchange-point-and-mark] 3 (#$ . 2591) nil])
#@52 Move point to location of BitGraph mouse and yank.
(defalias 'bg-yank #[nil "А	\n\"€ГГ ‡" [bg-move-point-to-x-y bg-mouse-x bg-mouse-y yank this-command] 3 (#$ . 2781) "*"])
(defalias 'yank-pop-1 #[nil "АБ!‡" [yank-pop 1] 2 nil "*"])
#@96 Move point to location of BitGraph mouse and yank.  If last command
was a yank, do a yank-pop.
(defalias 'bg-yank-or-pop #[nil "Б=ѓ\n ВГ!‡Д ‡" [last-command yank yank-pop 1 bg-yank] 2 (#$ . 3021) "*"])
(byte-code "АБ\nBА‡" [8388607 bg-most-positive-fixnum current-load-list] 2)
#@134 Go to location in buffer that is the same percentage of the way
through the buffer as the BitGraph mouse's X position in the window.
(defalias 'bg-move-by-percentage #[nil "БUѓ\n Б‚& В ҐWѓ В _Д SҐ‚& В Д SҐ_b€Бy€Е ‡" [bg-mouse-x 0 buffer-size bg-most-positive-fixnum window-width what-cursor-position] 3 (#$ . 3309) nil])
#@76 Scroll the line pointed to by the BitGraph mouse to the top of the window.
(defalias 'bg-mouse-line-to-top #[nil "А	!‡" [scroll-up bg-mouse-y] 2 (#$ . 3642) nil])
#@79 Scroll the line pointed to by the BitGraph mouse to the center 
of the window
(defalias 'bg-mouse-line-to-center #[nil "А	‰\\В [\\Г\\ГҐ!‡" [scroll-up bg-mouse-y window-height 2] 3 (#$ . 3811) nil])
#@70 Scroll the line pointed to by the mouse to the bottom of the window.
(defalias 'bg-mouse-line-to-bottom #[nil "А	ВГ Z\\!‡" [scroll-up bg-mouse-y 2 window-height] 4 (#$ . 4015) nil])
(defalias 'bg-kill-region #[nil "АБ В \"‡" [kill-region region-beginning region-end] 3 nil "*"])
#@144 Insert a copy of the word (actually sexp) that the mouse is pointing at.
Sexp is inserted into the buffer at point (where the text cursor is).
(defalias 'bg-insert-moused-sexp #[nil "ЉА	\n\"€ГД!ѓ Еu€‚ ЖЕ!€ЉЗЕ!€`)`{)Й\n!€Л €nѓ4 М €‚J ЉНu€ГО!?…B ГП!)„J РС!€Р!€l†j ГТ!†j ГУ!ѓe ГФ!†j ЉРС!))‡" [bg-move-point-to-x-y bg-mouse-x bg-mouse-y looking-at "\\s)" 1 forward-sexp backward-sexp moused-text select-window bg-cursor-window delete-horizontal-space indent-according-to-mode -1 "\\s\"" "[`'\"\\]\\|\\s(" insert-string " " "\\s.\\|\\s)" "'" "\\sw"] 3 (#$ . 4301) nil])
#@156 Read from terminal until TERM-CHAR is read, and return intervening number.
If non-numeric not matching TERM-CHAR, reprogram the mouse and signal an error.
(defalias 'bg-get-tty-num #[(term-char) "АБ ВZАYѓ\" ЕXѓ\" \fЖ_\\Б ВZ‰‚ В\\=„2 И €ЙК!€\f*‡" [0 read-char 48 char num 9 10 term-char bg-program-mouse error "Invalid data format in bg-mouse command: mouse reinitialized."] 4 (#$ . 4880)])
#@95 Position cursor in window coordinates.
X and Y are 0-based character positions in the window.
(defalias 'bg-move-point-to-x-y #[(x y) "А	!€iВ ЕVѓ SЖ\f\\\\!*‡" [move-to-window-line y window-hscroll scroll-offset zero-column 0 move-to-column x] 3 (#$ . 5287)])
#@105 Find window corresponding to screen coordinates.
X and Y are 0-based character positions on the screen.
(defalias 'bg-window-from-x-y #[(x y) "А Б\nД =„8 A@W„- Ж8Y„- @W„- И8Yѓ8 Й\n!А\n!‚ \nД =ѓC Б‚M \n„L Д ‚M \n*‡" [window-edges nil window edges selected-window y 3 x 2 next-window] 3 (#$ . 5562)])
(defalias 'bg-command-execute #[(bg-command) "А	!ѓ\n В	!‡Г ‡" [commandp bg-command command-execute ding] 2])
(defalias 'bg-program-mouse #[nil "АБ!‡" [send-string-to-terminal ":0;7;;;360;512;9;16;9;16c"] 2])
(byte-code "А	!„	 В А‡" [keymapp mouse-map make-keymap] 2)
#@43 Bind bg-mouse CLICK-CODE to run FUNCTION.
(defalias 'bind-bg-mouse-click #[(click-code function) "А	В!\f#‡" [define-key mouse-map char-to-string click-code function] 4 (#$ . 6151)])
(byte-code "А	В\"€АД\"€АЖ\"€А	\\З\"€А	\\И\"€А\\Й\"€А	\\\\Й\"€А\n	\\Л\"€А\n\\М\"€А\n\\Н\"€А	\\П\"€А\\Р\"€А\\С\"€А	\\У\"€А\\Ф\"€А\\Х\"€ЦЧ!‡" [bind-bg-mouse-click bg-button-l bg-set-point bg-button-m bg-yank bg-button-r bg-set-mark yank-pop-1 bg-kill-region undo bg-in-modeline scroll-up bg-move-by-percentage scroll-down bg-in-scrollbar bg-mouse-line-to-top bg-mouse-line-to-center bg-mouse-line-to-bottom bg-in-minibuf execute-extended-command suspend-emacs eval-expression provide bg-mouse] 3)