Mercurial > emacs
changeset 76659:750eeee3d77a
*** empty log message ***
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 21 Mar 2007 20:43:49 +0000 |
| parents | 384739d4e5e7 |
| children | b521c6db4e10 |
| files | lisp/ChangeLog lisp/xt-mouse.el |
| diffstat | 2 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Mar 21 20:41:23 2007 +0000 +++ b/lisp/ChangeLog Wed Mar 21 20:43:49 2007 +0000 @@ -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
--- a/lisp/xt-mouse.el Wed Mar 21 20:41:23 2007 +0000 +++ b/lisp/xt-mouse.el Wed Mar 21 20:43:49 2007 +0000 @@ -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)