changeset 14282:63fbb2aeb1f2

(tmm-prompt): Set last-command-event before calling the selected function.
author Karl Heuer <kwzh@gnu.org>
date Wed, 24 Jan 1996 21:59:32 +0000
parents e7e0b0b8a2fe
children b747e8369639
files lisp/tmm.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))))