*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02e4dd3ca73264d4aaa5b300816020821e40da28..dcacdb08bd95162d6faa68118383f2fb001eb407 100644 (file)
--- 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 f4634a72ff5bc44731faec84a803d39c920b1b9f..e83911a78fcd97ce7d23c3996ecda3f77eed9428 100644 (file)
--- 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)