Mercurial > emacs
comparison lisp/xt-mouse.el @ 76660:b521c6db4e10
(xterm-mouse-event): Remove unused var `time'.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 21 Mar 2007 22:36:48 +0000 |
parents | 750eeee3d77a |
children | 44b6d7a1ef55 |
comparison
equal
deleted
inserted
replaced
76659:750eeee3d77a | 76660:b521c6db4e10 |
---|---|
124 (defun xterm-mouse-event () | 124 (defun xterm-mouse-event () |
125 "Convert XTerm mouse event to Emacs mouse event." | 125 "Convert XTerm mouse event to Emacs mouse event." |
126 (let* ((type (- (xterm-mouse-event-read) #o40)) | 126 (let* ((type (- (xterm-mouse-event-read) #o40)) |
127 (x (- (xterm-mouse-event-read) #o40 1)) | 127 (x (- (xterm-mouse-event-read) #o40 1)) |
128 (y (- (xterm-mouse-event-read) #o40 1)) | 128 (y (- (xterm-mouse-event-read) #o40 1)) |
129 (time (current-time)) | |
130 ;; Emulate timestamp information. This is accurate enough | 129 ;; Emulate timestamp information. This is accurate enough |
131 ;; for default value of mouse-1-click-follows-link (450msec). | 130 ;; for default value of mouse-1-click-follows-link (450msec). |
132 (timestamp (truncate | 131 (timestamp (truncate |
133 (* 1000 | 132 (* 1000 |
134 (- (float-time) | 133 (- (float-time) |
153 | 152 |
154 (setq xterm-mouse-x x | 153 (setq xterm-mouse-x x |
155 xterm-mouse-y y) | 154 xterm-mouse-y y) |
156 (setq | 155 (setq |
157 last-input-event | 156 last-input-event |
158 (list mouse | 157 (list mouse |
159 (let ((event (if w | 158 (let ((event (if w |
160 (posn-at-x-y (- x left) (- y top) w t) | 159 (posn-at-x-y (- x left) (- y top) w t) |
161 (append (list nil 'menu-bar) | 160 (append (list nil 'menu-bar) |
162 (nthcdr 2 (posn-at-x-y x y w t)))))) | 161 (nthcdr 2 (posn-at-x-y x y w t)))))) |
163 (setcar (nthcdr 3 event) timestamp) | 162 (setcar (nthcdr 3 event) timestamp) |