From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Aug 1997 04:00:25 +0000 (+0000)
Subject: (tmm-get-keymap): Ignore any command now disabled for menus.
X-Git-Tag: emacs-20.1~443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a9f2437c401f997ebdd4f5194d09bd868633e22;p=emacs.git

(tmm-get-keymap): Ignore any command now disabled for menus.
---

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 3ca00def6e1..35630aa6d5a 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -426,6 +426,11 @@ It uses the free variable `tmm-table-undef' to keep undefined keys."
 		   (setq str event event nil km (cons 'keymap elt))
 		   )))
       (and km (stringp km) (setq str km))
+      ;; Verify that the command is enabled;
+      ;; if not, don't mention it.
+      (when (and km (symbolp km) (get km 'menu-enable))
+	(unless (eval (get km 'menu-enable))
+	  (setq km nil)))
       (and km str
 	   (or (assoc str tmm-km-list)
 	       (setq tmm-km-list