diff options
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 770aecfcbef..5ff718292d3 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -243,11 +243,10 @@ which is the \"1006\" extension implemented in Xterm >= 277." (y (nth 2 click)) ;; Emulate timestamp information. This is accurate enough ;; for default value of mouse-1-click-follows-link (450msec). - (timestamp (truncate - (* 1000 - (- (float-time) - (or xt-mouse-epoch - (setq xt-mouse-epoch (float-time))))))) + (timestamp (if (not xt-mouse-epoch) + (progn (setq xt-mouse-epoch (float-time)) 0) + (car (encode-time (time-since xt-mouse-epoch) + 1000)))) (w (window-at x y)) (ltrb (window-edges w)) (left (nth 0 ltrb)) |