From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 Jan 1996 21:59:32 +0000 (+0000)
Subject: (tmm-prompt): Set last-command-event before calling the
X-Git-Tag: emacs-19.34~1578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3132f3193d761665debddad0d4a448864b1038a9;p=emacs.git

(tmm-prompt): Set last-command-event before calling the
selected function.
---

diff --git a/lisp/tmm.el b/lisp/tmm.el
index ed5a93024c9..4215f1b5b72 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -214,7 +214,9 @@ Its value should be an event that has a binding in MENU."
 	  ;; We just handled a menu keymap and found a command.
 	  (choice
 	   (if chosen-string
-	       (call-interactively choice)
+	       (progn
+		 (setq last-command-event chosen-string)
+		 (call-interactively choice))
 	     choice)))))