mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(xterm-mouse-event): Compute a timestamp using

Browse Source 
current-time.
This commit is contained in:
Nick Roberts 2007-03-21 20:33:26 +00:00
parent 086b2469dc
commit 915bdfc401
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/xt-mouse.el
View File

@ -124,6 +124,8 @@
(let* ((type (- (xterm-mouse-event-read) #o40))
(x (- (xterm-mouse-event-read) #o40 1))
(y (- (xterm-mouse-event-read) #o40 1))
(time (current-time))
(timestamp (+ ( * (nth 1 time) 1000 ) (/ (nth 2 time) 1000)))
(mouse (intern
;; For buttons > 3, the release-event looks
;; differently (see xc/programs/xterm/button.c,
@ -145,10 +147,13 @@
xterm-mouse-y y)
(setq
last-input-event
(if w
(list mouse (posn-at-x-y (- x left) (- y top) w t))
(list mouse
(append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))))
(list mouse
(let ((event (if w
(posn-at-x-y (- x left) (- y top) w t)
(append (list nil 'menu-bar)
(nthcdr 2 (posn-at-x-y x y w t))))))
(setcar (nthcdr 3 event) timestamp)
event)))))
;;;###autoload
(define-minor-mode xterm-mouse-mode