diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-03-21 22:36:48 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-03-21 22:36:48 +0000 |
| commit | 429146fcad08b2a3188dccefaf52a5c1e8257402 (patch) | |
| tree | b16f83eedae5da93562d5d59dfc5ce6ccbb13d78 /lisp/xt-mouse.el | |
| parent | 4c8bb950f03940bbccae0daece30d334019b90d4 (diff) | |
| download | emacs-429146fcad08b2a3188dccefaf52a5c1e8257402.tar.gz emacs-429146fcad08b2a3188dccefaf52a5c1e8257402.tar.bz2 emacs-429146fcad08b2a3188dccefaf52a5c1e8257402.zip | |
(xterm-mouse-event): Remove unused var `time'.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index e83911a78fc..963ed0238ed 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -126,7 +126,6 @@ (let* ((type (- (xterm-mouse-event-read) #o40)) (x (- (xterm-mouse-event-read) #o40 1)) (y (- (xterm-mouse-event-read) #o40 1)) - (time (current-time)) ;; Emulate timestamp information. This is accurate enough ;; for default value of mouse-1-click-follows-link (450msec). (timestamp (truncate @@ -155,7 +154,7 @@ xterm-mouse-y y) (setq last-input-event - (list mouse + (list mouse (let ((event (if w (posn-at-x-y (- x left) (- y top) w t) (append (list nil 'menu-bar) |