diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-08-24 04:00:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-08-24 04:00:25 +0000 |
commit | 94089ff6aada480c499914b8b3abb3863212078d (patch) | |
tree | b5caea74affdd1d2cccca36dbb2881c7b79ec2c6 /lisp/tmm.el | |
parent | 34fd0fd13b3943c6e884859b26bdf8dbc878fcce (diff) | |
download | emacs-94089ff6aada480c499914b8b3abb3863212078d.tar.gz |
(tmm-get-keymap): Ignore any command now disabled for menus.
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 |