;ELC ;;; compiled by rms@psilocin.gnu.ai.mit.edu on Thu Jun 6 10:28:02 1996 ;;; from file /home/fsf/rms/e19/lisp/xt-mouse.el ;;; emacs version 19.31.2. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`xt-mouse.el' was compiled for Emacs 19.29 or later")) (byte-code "À ÂÃ#ˆÄ BÀ‡" [define-key function-key-map "" xterm-mouse-translate xterm-mouse-last current-load-list] 4) (defalias 'xterm-mouse-translate #[(event) "ŠÀ‹)‡" [((byte-code "ƒ\nÁÃÄ!ˆÁÆ ‰@A@‰ A@\nË\n9ƒ/Ì\n\"‚3Ì!! Î Ï=ƒKÎ Ð=ƒKÎ Ñ=„OÒÓ!ˆÆ ‰@A@‰A@ Ø>ƒ‰9ƒ‚Ù=„‚ÌD\"‚ÑÌ!‚Ñ\n=ƒ—C‚²ÚD\n9ƒ¥Û‚±ÜÝ Þ\\P! ED\n9ƒÍ\nÙ=„ÍÌ\n D\"‚ÑÌ!.\n‡" [transient-mark-mode nil mark-active run-hooks deactivate-mark-hook xterm-mouse-last xterm-mouse-event down down-command down-data down-where key-binding vector down-binding read-char 27 91 77 error "Unexpected escape sequence from XTerm" click click-command click-data click-where (nil ignore) menu-bar mouse-movement 0 intern "drag-mouse-" 1 unread-command-events] 6))] 1]) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-x 0 (#$ . 1266)) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-y 0 (#$ . 1367)) (byte-code "ÀÁÂÃÄ$ˆÅÁÄ\"‡" [ad-add-advice mouse-position (xterm-mouse nil t (advice lambda nil "Use last key from xterm-mouse-mode if available." (let ((answer ad-do-it)) (setq ad-return-value (if xterm-mouse-mode (cons (car answer) (cons xterm-mouse-x xterm-mouse-y)) answer))))) around nil ad-activate-on] 5) (defalias 'xterm-mouse-event #[nil "À ÁZÀ ÃZÀ ÃZ\f BÇ\f \"‰ƒ'É\"‚(ʉ :ƒbÌ!ˆÍ!bˆÎ A!ˆÏ @i\\ÐÑÒ \"ƒTÓ [‚UÔ\\ÔÕ S]\\!ˆ`‚d ×\nØ=ƒvÙÛ\\P‚~\nÜ\nÛ\\P!\f àá 8â¥F.D‡" [read-char 32 type 33 x y point window-at window coordinates-in-window-p menu-bar where select-window window-start move-to-window-line move-to-column string-match "\\` \\*Minibuf" buffer-name minibuffer-prompt-width 0 window-hscroll pos intern 3 "mouse-" xterm-mouse-last 1 "down-mouse-" mouse xterm-mouse-x xterm-mouse-y 2 current-time 1000] 7]) (byte-code "ÀÁ!„ÂÁ BÁ\fž„Å\fB‡" [boundp xterm-mouse-mode nil current-load-list minor-mode-alist (xterm-mouse-mode (" Mouse"))] 2) #@167 Toggle XTerm mouse mode. With prefix arg, turn XTerm mouse mode on iff arg is positive. Turn it on to use emacs mouse commands, and off to use xterm mouse commands. (defalias 'xterm-mouse-mode #[(arg) "„ „Â!ÃXƒ …,Ä ˆÅÆÇ !‡ ?…,ÈÉ ˆÆÇ !‡" [arg xterm-mouse-mode prefix-numeric-value 0 turn-off-xterm-mouse-tracking nil set-buffer-modified-p buffer-modified-p t turn-on-xterm-mouse-tracking] 2 (#$ . 2471) "P"]) (defalias 'turn-on-xterm-mouse-tracking #[nil "…ÁÂ!‡" [xterm-mouse-mode send-string-to-terminal "[?1000h"] 2]) (defalias 'turn-off-xterm-mouse-tracking #[nil "…ÁÂ!‡" [xterm-mouse-mode send-string-to-terminal "[?1000l"] 2]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÂ\"ˆÆÇ!‡" [add-hook suspend-hook turn-off-xterm-mouse-tracking suspend-resume-hook turn-on-xterm-mouse-tracking kill-emacs-hook provide xt-mouse] 3)