mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 14:11:38 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Nick Roberts 2007-03-21 20:43:49 +00:00
parent a7dc2df1b3
commit 4c8bb950f0
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-03-21 Kim F. Storm <storm@cua.dk>
* xt-mouse.el (xt-mouse-epoch): New variable.
(xterm-mouse-event): Use float-time.
2007-03-21 Nick Roberts <nickrob@snap.net.nz>
* xt-mouse.el (xterm-mouse-event): Compute a timestamp using

2
lisp/xt-mouse.el
View file

@ -127,6 +127,8 @@
(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
(* 1000
(- (float-time)