| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 |
- (defvar bg-mouse-fast-select-window nil "\
- *Non-nil for mouse hits to select new window, then execute; else just select.")
- (defun bg-mouse-report nil "\
- Read and parse BBN BitGraph mouse report, and do what it asks.
- 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 | a starred command on a nonselected window
- -C- move point and yank * | just selects 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 reenable the mouse if terminal is reset, type ESC : RET ." (interactive) (byte-code "͈ÎÏ!ˆÐ SÑÎÏ!Ò\"^Ó SÑÎÏ!Ô\"ZÕÎÖ!×\"Ø \"Ù ! Ú Ó S= ?…?
= Û 8S= Ü 8SY Ý 8Z‰ˆ Þ 8Z‰ˆƒŸ ß !ˆ
- àUƒu á ‚˜
- ÞUƒ€ â ‚˜
- ÜU…˜ ÑãdeZ\"ä S\"bˆå ˆæ ˆß
!‚° ƒã ß !ˆá
- àUƒ³ ‚Û
- ÞUƒÂ Üç Z\\‚Û
- ÜUƒÖ ÑèÜ ç [$Ü\"‚Û Ê…Û Ý!ˆß
!‚°ƒH
- àUƒõ é \"‚E
- ÞUƒê ˆé \"ˆë ‚E
- ìUƒíî `\"‚E
- ÜUƒ+é \"ˆï‰ ˆï ‚E
- ðUƒ7ñÞ!‚E
- ÛU†@
- òU…Eó ‚°ƒp
- ÞUƒYôõ!‚m
- àUƒeôö!‚m
- ÜU…m÷ ‚°Ê…°ß !ˆ ?†°
- àUƒ‹é \"‚°
- ÞUƒžê ˆé \"ˆë ‚°
- ÜU…°é \"ˆï‰ ˆï .
- ‡" [x y buttons window edges old-window in-minibuf-p same-window-p in-modeline-p in-scrollbar-p t this-command bg-mouse-fast-select-window nil bg-get-tty-num 59 screen-width / 9 screen-height 16 % 99 8 bg-pos-to-window window-edges selected-window 3 2 0 1 select-window 4 scroll-up scroll-down * window-width beginning-of-line what-cursor-position window-height + bg-move-point-to-x-y push-mark exchange-point-and-mark 5 kill-region mark yank 6 yank-pop 7 undo call-interactively eval-expression execute-extended-command suspend-emacs] 50))
- (defun bg-get-tty-num (term-char) "\
- Read from terminal until TERM-CHAR is read, and return intervening number.
- Upon non-numeric not matching TERM-CHAR, reprogram the mouse and signal an error." (byte-code "ÃrÄZ ÃY… ÅX…$ ÆÇ\" \\‰ˆrÄZ‰ˆ‚ ˆ
- Ä\\=†3 È ˆÉÊ!ˆ*‡" [num char term-char 0 48 9 * 10 bg-program-mouse error "Invalid data format in mouse command"] 4))
- (defun bg-move-point-to-x-y (x y) "\
- Position cursor in window coordinates.
- X and Y are 0-based character positions in the window." (byte-code "Â!ˆÃ !‡" [y x move-to-window-line move-to-column] 3))
- (defun bg-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 bg-program-mouse nil (byte-code "ÀÁ!‡" [send-string-to-terminal ":0;7;;;360;512;9;16;9;16c"] 2))
|
