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

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/03/21 20:33:26

Index: xt-mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/xt-mouse.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- xt-mouse.el 21 Jan 2007 03:53:10 -0000      1.34
+++ xt-mouse.el 21 Mar 2007 20:33:26 -0000      1.35
@@ -124,6 +124,8 @@
   (let* ((type (- (xterm-mouse-event-read) #o40))
         (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)))
         (mouse (intern
                 ;; For buttons > 3, the release-event looks
                 ;; differently (see xc/programs/xterm/button.c,
@@ -145,10 +147,13 @@
          xterm-mouse-y y)
     (setq
      last-input-event
-     (if w
-        (list mouse (posn-at-x-y (- x left) (- y top) w t))
        (list mouse
-            (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))))
+          (let ((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) timestamp)
+            event)))))
 
 ;;;###autoload
 (define-minor-mode xterm-mouse-mode