diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-05 18:23:14 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 1998-12-05 18:23:14 +0000 |
| commit | 203077111e75fadb23e1492f92f37013e5f5c80c (patch) | |
| tree | 7d10f78659e097626fd6a263159cccd78f04b66b /lisp/xt-mouse.el | |
| parent | b054922c9e9fb16b5b98f8b7cd828f507abea423 (diff) | |
| download | emacs-203077111e75fadb23e1492f92f37013e5f5c80c.tar.gz | |
(xterm-mouse-mode): Pacify the byte compiler.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index dbd741e5e6c..66afcb016a7 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -100,6 +100,9 @@ (defvar xterm-mouse-y 0 "Position of last xterm mouse event relative to the frame.") +;; Indicator for the xterm-mouse mode. +(defvar xterm-mouse-mode nil) + (defadvice mouse-position (around xterm-mouse activate) "Use last key from xterm-mouse-mode if available." (let ((answer ad-do-it)) @@ -141,9 +144,6 @@ (list window pos point (/ (nth 2 (current-time)) 1000))))) -;; Indicator for the xterm-mouse mode. -(defvar xterm-mouse-mode nil) - (or (assq 'xterm-mouse-mode minor-mode-alist) (setq minor-mode-alist (cons '(xterm-mouse-mode (" Mouse")) minor-mode-alist))) |