Commit 4c8bb950 authored by Nick Roberts's avatar Nick Roberts
Browse files

*** empty log message ***

parent a7dc2df1
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> 2007-03-21 Nick Roberts <nickrob@snap.net.nz>
   
* xt-mouse.el (xterm-mouse-event): Compute a timestamp using * xt-mouse.el (xterm-mouse-event): Compute a timestamp using
...@@ -127,6 +127,8 @@ ...@@ -127,6 +127,8 @@
(x (- (xterm-mouse-event-read) #o40 1)) (x (- (xterm-mouse-event-read) #o40 1))
(y (- (xterm-mouse-event-read) #o40 1)) (y (- (xterm-mouse-event-read) #o40 1))
(time (current-time)) (time (current-time))
;; Emulate timestamp information. This is accurate enough
;; for default value of mouse-1-click-follows-link (450msec).
(timestamp (truncate (timestamp (truncate
(* 1000 (* 1000
(- (float-time) (- (float-time)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment