diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2007-03-21 20:41:23 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2007-03-21 20:41:23 +0000 |
| commit | a7dc2df1b3f82a1d04432317cd7d2a9104e63273 (patch) | |
| tree | d5185362cadb6ab99f1d360b5bca2108e8a22a54 /lisp/xt-mouse.el | |
| parent | 915bdfc401c04cf19b8ca0d28c08ad8fa820bd56 (diff) | |
| download | emacs-a7dc2df1b3f82a1d04432317cd7d2a9104e63273.tar.gz | |
(xt-mouse-epoch): New variable.
(xterm-mouse-event): Use float-time.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 8 |
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, |