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