From: Nick Roberts <nickrob@snap.net.nz>
Date: Wed, 21 Mar 2007 20:43:49 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-22.0.97~246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c8bb950f03940bbccae0daece30d334019b90d4;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02e4dd3ca73..dcacdb08bd9 100644
--- 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 f4634a72ff5..e83911a78fc 100644
--- 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)