# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1004685256 0
# Node ID a48a4d0806b4515abc21b0b6c27b828986c5437a
# Parent  e673a8c97e47338db10dbe6dbae3895e96e14792
(popup-menu): If the user refuses to select
from a menu, don't try to invoke the menu.

diff -r e673a8c97e47 -r a48a4d0806b4 lisp/mouse.el
--- a/lisp/mouse.el	Fri Nov 02 07:12:33 2001 +0000
+++ b/lisp/mouse.el	Fri Nov 02 07:14:16 2001 +0000
@@ -90,7 +90,9 @@
       (message "")
       ;; Maybe try again but with the submap.
       (setq map (if (keymapp cmd) cmd)))
-    (when (functionp cmd)
+    ;; If the user did not cancel by refusing to select,
+    ;; and if the result is a command, run it.
+    (when (and (null map) (commandp cmd))
       (setq prefix-arg prefix)
       ;; `setup-specified-language-environment', for instance,
       ;; expects this to be set from a menu keymap.