From a7dc2df1b3f82a1d04432317cd7d2a9104e63273 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Wed, 21 Mar 2007 20:41:23 +0000 Subject: [PATCH] (xt-mouse-epoch): New variable. (xterm-mouse-event): Use float-time. --- lisp/xt-mouse.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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, -- 2.39.5