andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(xterm-mouse-mode): Pacify the byte compiler.

Browse source
This commit is contained in:
Markus Rost 1998-12-05 18:23:14 +00:00
parent c144230d0c
commit 54eba3537b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/xt-mouse.el
View file

@ -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)))