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 | 2a9f2437c401f997ebdd4f5194d09bd868633e22 (patch) | |
| tree | b8a83510d5e270c263db56b5594d3301fff693b4 /lisp/tmm.el | |
| parent | 95772e852d156374a4c83b2d3322d36a731f530e (diff) | |
| download | emacs-2a9f2437c401f997ebdd4f5194d09bd868633e22.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 |