From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 28 Nov 2005 05:38:49 +0000 (+0000)
Subject: (xterm-mouse-event): Set last-input-event so
X-Git-Tag: emacs-pretest-22.0.90~5628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb666f2dd7cd8ad7e166afe16323fabb4dccd095;p=emacs.git

(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 80927647fbb..61f4f17ed2a 100644
--- 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