;ELC ;;; Compiled by handa@melange.gnu.org on Mon Apr 6 21:50:38 1998 ;;; from file /fs/gd/1/gnu/emacs/lisp/xt-mouse.el ;;; in Emacs version 20.2.892.2 ;;; with bytecomp version 2.38 ;;; 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 "`xt-mouse.el' was compiled for Emacs 19.29 or later")) (byte-code "\302\303\304#\210\305 B\302\207" [function-key-map current-load-list define-key "" xterm-mouse-translate xterm-mouse-last] 4) (defalias 'xterm-mouse-translate #[(event) "\212\300\213)\207" [((byte-code "\203\n\306\307\310!\210\306\311 \211@ A@\211A@\3129\203*\313\f\"\202-\313\f!!\314 \315=\203E\314 \316=\203E\314 \317=\204I\320\321!\210\311 \211@A@\211A@\322>\203\2039\203|\323=\204|\313D\"\202\307\313!\202\307=\203\221C\202\253\324D9\203\237\325\202\252\326\327\330\nT\"! ED9\203\304\323=\204\304\313 D \"\202\307\313 !.\n\207" [transient-mark-mode mark-active xterm-mouse-last down down-command down-data nil run-hooks deactivate-mark-hook xterm-mouse-event key-binding vector read-char 27 91 77 error "Unexpected escape sequence from XTerm" (nil ignore) menu-bar mouse-movement 0 intern format "drag-mouse-%d" down-where down-binding click click-command click-data click-where unread-command-events] 6))] 1]) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-x 0 (#$ . 1546)) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-y 0 (#$ . 1647)) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [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 "\306 \307Z\306 \310Z\306 \310Z \nB\311 \n\"\211\203#\312 \f\"\202$\313\211:\203Y\314\f!\210\315\f!b\210\316 A!\210\317 @i\\\320\321\322 \"\203K\323 [\202L\324\\\324\325 S]\\!\210`\202Z \326\327=\203l\330\331T\"\202t\330\332T\"! !\n\" \f \333\334 8\335\245F.D\207" [type x y point window where read-char 32 33 window-at coordinates-in-window-p menu-bar select-window window-start move-to-window-line move-to-column string-match "\\` \\*Minibuf" buffer-name minibuffer-prompt-width 0 window-hscroll intern 3 format "mouse-%d" "down-mouse-%d" 2 current-time 1000 pos xterm-mouse-last mouse xterm-mouse-x xterm-mouse-y] 7]) (byte-code "\303\300!\204\304\300 B\300\n\236\204\305\nB\304\207" [xterm-mouse-mode current-load-list minor-mode-alist boundp nil (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) "\204 \204\302!\303X\203 \205,\304 \210\305\306\307 !\207 ?\205,\310\311 \210\306\307 !\207" [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 (#$ . 2948) "P"]) (defalias 'turn-on-xterm-mouse-tracking #[nil "\205\301\302!\207" [xterm-mouse-mode send-string-to-terminal "[?1000h"] 2]) (defalias 'turn-off-xterm-mouse-tracking #[nil "\205\301\302!\207" [xterm-mouse-mode send-string-to-terminal "[?1000l"] 2]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\302\"\210\306\307!\207" [add-hook suspend-hook turn-off-xterm-mouse-tracking suspend-resume-hook turn-on-xterm-mouse-tracking kill-emacs-hook provide xt-mouse] 3)