(xt-mouse-epoch): New variable.

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

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 39333f74868..f4634a72ff5 100644
--- 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,