# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 964461512 0
# Node ID ad577e2e48d3af8ca6322e6e7845526bbb0da60a
# Parent  a69ca2b45f4ecc3e977c8aabcecd743e5ed746f0
(popup-menu): Set last-command-event.
(mouse-major-mode-menu-prefix): Declare.

diff -r a69ca2b45f4e -r ad577e2e48d3 lisp/mouse.el
--- a/lisp/mouse.el	Mon Jul 24 15:30:58 2000 +0000
+++ b/lisp/mouse.el	Mon Jul 24 17:58:32 2000 +0000
@@ -88,9 +88,14 @@
 	      ;; Try again but with the submap.
 	      (setq map cmd)
 	    (setq prefix-arg prefix)
+	    ;; `setup-specified-language-environment', for instance,
+	    ;; expects this to be set from a menu keymap.
+	    (setq last-command-event (car (last event)))
 	    ;; mouse-major-mode-menu was using `command-execute' instead.
 	    (call-interactively cmd)))))))
-	
+
+(defvar mouse-major-mode-menu-prefix)	; dynamically bound
+
 (defun mouse-major-mode-menu (event prefix)
   "Pop up a mode-specific menu of mouse commands.
 Default to the Edit menu if the major mode doesn't define a menu."