aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMarkus Rost1998-12-05 18:23:14 +0000
committerMarkus Rost1998-12-05 18:23:14 +0000
commit54eba3537bd62c0f869cc0be64633d4959e48219 (patch)
treeb94519f8a4e84f86fa264ff95a43a4a1f63df559
parentc144230d0c17c175c6291f3a7fc1817c3caef18e (diff)
downloademacs-54eba3537bd62c0f869cc0be64633d4959e48219.tar.gz
emacs-54eba3537bd62c0f869cc0be64633d4959e48219.zip
(xterm-mouse-mode): Pacify the byte compiler.
-rw-r--r--lisp/xt-mouse.el6
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 @@
100(defvar xterm-mouse-y 0 100(defvar xterm-mouse-y 0
101 "Position of last xterm mouse event relative to the frame.") 101 "Position of last xterm mouse event relative to the frame.")
102 102
103;; Indicator for the xterm-mouse mode.
104(defvar xterm-mouse-mode nil)
105
103(defadvice mouse-position (around xterm-mouse activate) 106(defadvice mouse-position (around xterm-mouse activate)
104 "Use last key from xterm-mouse-mode if available." 107 "Use last key from xterm-mouse-mode if available."
105 (let ((answer ad-do-it)) 108 (let ((answer ad-do-it))
@@ -141,9 +144,6 @@
141 (list window pos point 144 (list window pos point
142 (/ (nth 2 (current-time)) 1000))))) 145 (/ (nth 2 (current-time)) 1000)))))
143 146
144;; Indicator for the xterm-mouse mode.
145(defvar xterm-mouse-mode nil)
146
147(or (assq 'xterm-mouse-mode minor-mode-alist) 147(or (assq 'xterm-mouse-mode minor-mode-alist)
148 (setq minor-mode-alist 148 (setq minor-mode-alist
149 (cons '(xterm-mouse-mode (" Mouse")) minor-mode-alist))) 149 (cons '(xterm-mouse-mode (" Mouse")) minor-mode-alist)))