(t-mouse-make-event-element): Use timestamp output

from client program, mev, to compute mouse event.

diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index 96e545aa11cb8d691572629f9fdce7d3142b9a38..c8a7e9b6536244d44adc258f30146952703c5f63 100644 (file)
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -134,14 +134,19 @@ For example, \"2\" for /dev/tty2."
 
 (defun t-mouse-make-event-element (x-dot-y-avec-time)
   (let* ((x-dot-y (nth 0 x-dot-y-avec-time))
+        (time (nth 1 x-dot-y-avec-time))
          (x (car x-dot-y))
          (y (cdr x-dot-y))
          (w (window-at x y))
          (ltrb (window-edges w))
          (left (nth 0 ltrb))
-         (top (nth 1 ltrb)))
-    (if w (posn-at-x-y (- x left) (- y top) w t)
-      (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))
+         (top (nth 1 ltrb))
+        (event (if w
+                   (posn-at-x-y (- x left) (- y top) w t)
+                 (append (list nil 'menu-bar)
+                         (nthcdr 2 (posn-at-x-y x y w t))))))
+    (setcar (nthcdr 3 event) time)
+    event))
 
 ;;; This fun is partly Copyright (C) 1994 Per Abrahamsen <abraham@iesd.auc.dk>
 (defun t-mouse-make-event ()