;;; compiled by mycroft@hal on Tue Sep 22 05:19:30 1992 ;;; from file /src/emacs-19.0/lisp/sup-mouse.el ;;; emacs version 19.0.426. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (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 (make-byte-code (quote nil) "!!! \"!  S= ?- =  8S=  8SY  @Z  A@Z!\nUe \nUr \nU deZ\" S\"b!  !!\nU \nU Z\\\nU [\\\\\\\"! !\nU \"\n!U \"!\n$U \"`!`\")(\nU1 \" \n+UH \" `\"\n.Ud \" `\"(\nUx \"( \n/U! \nU!\nU!\nU!!6?\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 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 forward-line 0 what-cursor-position window-height sup-move-point-to-x-y mouse-2left kill-word 1 mouse-3left copy-region-as-kill forward-word 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] 7 "\ 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 (make-byte-code (quote (term-char)) " \nY!\nX! \"\nZ\\ \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 (make-byte-code (quote (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 (make-byte-code (quote (x y)) " \n =8 A@W- 8Y- @W- 8Y8\n!\n!\n> *" [window-edges nil window edges selected-window y 3 x 2 next-window] 3 "\ Find window corresponding to frame coordinates. X and Y are 0-based character positions on the frame."))