(xt-mouse-epoch): New variable.

(xterm-mouse-event): Use float-time.

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 39333f74868a1141b724980353636d8c56616674..f4634a72ff5bc44731faec84a803d39c920b1b9f 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -105,6 +105,8 @@
 (defvar xterm-mouse-y 0
   "Position of last xterm mouse event relative to the frame.")
 
+(defvar xt-mouse-epoch nil)
+
 ;; Indicator for the xterm-mouse mode.
 
 (defun xterm-mouse-position-function (pos)
@@ -125,7 +127,11 @@
         (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)))
+        (timestamp (truncate
+                    (* 1000
+                       (- (float-time)
+                          (or xt-mouse-epoch
+                              (setq xt-mouse-epoch (float-time)))))))
         (mouse (intern
                 ;; For buttons > 3, the release-event looks
                 ;; differently (see xc/programs/xterm/button.c,