# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822520772 0
# Node ID 63fbb2aeb1f2d6ec0ff6eaf02c6cf9a2aa135230
# Parent  e7e0b0b8a2fe783c3b9e3d7ff0fc74f17a7ba306
(tmm-prompt): Set last-command-event before calling the
selected function.

diff -r e7e0b0b8a2fe -r 63fbb2aeb1f2 lisp/tmm.el
--- a/lisp/tmm.el	Wed Jan 24 21:55:40 1996 +0000
+++ b/lisp/tmm.el	Wed Jan 24 21:59:32 1996 +0000
@@ -214,7 +214,9 @@
 	  ;; 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)))))