Commit 54eba353 authored by Markus Rost's avatar Markus Rost
Browse files

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

parent c144230d
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment