(xterm-mouse-event): Set last-input-event so

that (list last-input-event) works as in interactive spec.

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 80927647fbb515e1c60bb3b6d8e2a2914f5e2df2..61f4f17ed2a708f0b1b54594353222ae73bb3598 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -146,10 +146,12 @@
 
     (setq xterm-mouse-x x
          xterm-mouse-y y)
-    (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)))))))
+    (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))))))))
 
 ;;;###autoload
 (define-minor-mode xterm-mouse-mode