[Emacs-diffs] Changes to emacs/lisp/t-mouse.el,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/03/19 20:07:45

Index: t-mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/t-mouse.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- t-mouse.el  20 Jan 2007 08:08:33 -0000      1.7
+++ t-mouse.el  19 Mar 2007 20:07:45 -0000      1.8
@@ -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 <address@hidden>
 (defun t-mouse-make-event ()