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

1 files changed, 5 insertions, 0 deletions

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