From 2a9f2437c401f997ebdd4f5194d09bd868633e22 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Aug 1997 04:00:25 +0000 Subject: [PATCH] (tmm-get-keymap): Ignore any command now disabled for menus. --- lisp/tmm.el | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 2.39.2