# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1133156329 0
# Node ID c1b3620589861007a7ecba5769eb3170766fcd47
# Parent  f056fde1f3619fea75c0a27112c55019698f0a63
(xterm-mouse-event): Set last-input-event so
that (list last-input-event) works as in interactive spec.

diff -r f056fde1f361 -r c1b362058986 lisp/xt-mouse.el
--- a/lisp/xt-mouse.el	Mon Nov 28 05:36:04 2005 +0000
+++ b/lisp/xt-mouse.el	Mon Nov 28 05:38:49 2005 +0000
@@ -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