From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 21 Mar 2007 20:41:23 +0000 (+0000)
Subject: (xt-mouse-epoch): New variable.
X-Git-Tag: emacs-pretest-22.0.97~247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7dc2df1b3f82a1d04432317cd7d2a9104e63273;p=emacs.git

(xt-mouse-epoch): New variable.
(xterm-mouse-event): Use float-time.
---

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,