;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:53:35 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/xt-mouse.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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) #@44 Read a click and release event from XTerm. (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\316 @!\"\211\204V\317 \320=\203R\317 \321=\203R\317 \322=\204V\323\324!\210\203_ \202a\311 \211@ A@\211!A@\"\325>\203\231\"9\203\222\"\326=\204\222\313\"!D\"\202\335\313!\202\335\"=\203\247C\202\301\327!D9\203\265\330\202\300\331\332\333\nT\"! !ED#9\203\332\326=\204\332\313 D \"\202\335\313 !. \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 string-match "^mouse" symbol-name 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 is-click click click-command click-data click-where unread-command-events] 6))] 1 (#$ . 761)]) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-x 0 (#$ . 1783)) #@59 Position of last xterm mouse event relative to the frame. (defvar xterm-mouse-y 0 (#$ . 1884)) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list xterm-mouse-mode boundp nil] 2) #@57 Bound to `mouse-position-function' in XTerm mouse mode. (defalias 'xterm-mouse-position-function #[(pos) " \nB\241\210\207" [pos xterm-mouse-x xterm-mouse-y] 3 (#$ . 2086)]) #@49 Convert XTerm mouse event to Emacs mouse event. (defalias 'xterm-mouse-event #[nil "\306 \307Z\306 \310Z\306 \310Z \nB\311 \n\"\211\203#\312 \f\"\202$\313\211:\203i\314\f!\210\315\f!b\210\316 A!\204@\"\203D\317\202E\320Z!\210\321 @i\\\322\323\324 \"\203[\325 [\202\\\320\\\320\326 S]\\!\210`\202j #\327\330Y\203|\331\332\333Z\"\202\223\334U\203\213\331\332$T\"\202\223$\331\335T\"!% &\n'%\f# \336\337 8\340\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 1 0 move-to-column string-match "\\` \\*Minibuf" buffer-name minibuffer-prompt-width window-hscroll intern 64 format "mouse-%d" 60 3 "down-mouse-%d" 2 current-time 1000 header-line-format default-header-line-format pos xterm-mouse-last mouse xterm-mouse-x xterm-mouse-y] 7 (#$ . 2268)]) (byte-code "\301\236\204\n\302B\301\207" [minor-mode-alist xterm-mouse-mode (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\304!\305X\203 \2054\306 \210\307\307\310\311 !\207 \206% ?\2054\312\313\314 \210\310\311 !\207" [arg xterm-mouse-mode mouse-position-function window-system prefix-numeric-value 0 turn-off-xterm-mouse-tracking nil set-buffer-modified-p buffer-modified-p t xterm-mouse-position-function turn-on-xterm-mouse-tracking] 2 (#$ . 3265) "P"]) #@39 Enable Emacs mouse tracking in xterm. (defalias 'turn-on-xterm-mouse-tracking #[nil "\205\301\302!\207" [xterm-mouse-mode send-string-to-terminal "[?1000h"] 2 (#$ . 3834)]) #@48 Disable disable Emacs mouse tracking in xterm. (defalias 'turn-off-xterm-mouse-tracking #[nil "\205\301\302!\207" [xterm-mouse-mode send-string-to-terminal "[?1000l"] 2 (#$ . 4017)]) (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)