;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:43:05 1993 ;;; from file /era/era-0.80/editor/lisp/packages/sup-mouse.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (defvar sup-mouse-fast-select-window nil "\ *Non-nil for mouse hits to select new window, then execute; else just select.") (byte-code "   " [0 mouse-left 1 mouse-center 2 mouse-right 4 mouse-2left 5 mouse-2center 6 mouse-2right 8 mouse-3left 9 mouse-3center 10 mouse-3right] 1) (fset 'sup-mouse-report #[nil "!!! \"!  S= ? =  8S=  8SY  @Z  A@Z!\nU \nU \nU deZ_ Sby  !!\nU \nU Z\\\nU [\\\\\\ѥ! !g\nU \"\nU \"!\n!U \"`v`\")$\nU \" \n'U \" `\"\n*U \" `\"$\nU \"$ \n+U! \nU!\nU!\nU!!2?\nU \"\nU \" \nU \"$ .\n" [sup-get-tty-num 59 buttons x 99 y sup-pos-to-window window window-edges edges selected-window old-window screen-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 "\ 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" nil]) (fset 'sup-get-tty-num #[(term-char) " \nY\nX _\nZ\\ i\n=! *" [0 read-char char num 48 57 10 term-char error "Invalid data format in mouse command"] 4 "\ Read from terminal until TERM-CHAR is read, and return intervening number. Upon non-numeric not matching TERM-CHAR signal an error."]) (fset 'sup-move-point-to-x-y #[(x y) " ! !" [move-to-window-line y move-to-column x] 2 "\ Position cursor in window coordinates. X and Y are 0-based character positions in the window."]) (fset 'sup-pos-to-window #[(x y) " \n = A@W 8Y @W 8Y\n!\n!S\n *" [window-edges nil window edges selected-window y 3 x 2 next-window] 3 "\ Find window corresponding to screen coordinates. X and Y are 0-based character positions on the screen."])