# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1174334865 0
# Node ID 0073c48648d0cb138b52b837a8ea5a7f151672dc
# Parent  f5dd43c10eda40f5768ad0f3dc59b816de08dff0
(t-mouse-make-event-element): Use timestamp output
from client program, mev, to compute mouse event.

diff -r f5dd43c10eda -r 0073c48648d0 lisp/t-mouse.el
--- a/lisp/t-mouse.el	Mon Mar 19 20:07:23 2007 +0000
+++ b/lisp/t-mouse.el	Mon Mar 19 20:07:45 2007 +0000
@@ -134,14 +134,19 @@
 
 (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 ()