2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02e4dd3ca73..dcacdb08bd9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index f4634a72ff5..e83911a78fc 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -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)