diff options
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 5 |
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 |