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