diff options
| author | Markus Rost | 1998-12-05 18:23:14 +0000 |
|---|---|---|
| committer | Markus Rost | 1998-12-05 18:23:14 +0000 |
| commit | 54eba3537bd62c0f869cc0be64633d4959e48219 (patch) | |
| tree | b94519f8a4e84f86fa264ff95a43a4a1f63df559 | |
| parent | c144230d0c17c175c6291f3a7fc1817c3caef18e (diff) | |
| download | emacs-54eba3537bd62c0f869cc0be64633d4959e48219.tar.gz emacs-54eba3537bd62c0f869cc0be64633d4959e48219.zip | |
(xterm-mouse-mode): Pacify the byte compiler.
| -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 @@ | |||
| 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))) |