# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872395225 0
# Node ID fe381b9e19539fcb198f58a36629b24a1c9f6df1
# Parent  fd1ee3c25839ad490c66bd7f7b9654775845505b
(tmm-get-keymap): Ignore any command now disabled for menus.

diff -r fd1ee3c25839 -r fe381b9e1953 lisp/tmm.el
--- a/lisp/tmm.el	Sun Aug 24 03:32:38 1997 +0000
+++ b/lisp/tmm.el	Sun Aug 24 04:00:25 1997 +0000
@@ -426,6 +426,11 @@
 		   (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