procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-24 04:00:25 +00:00
parent 95772e852d
commit 2a9f2437c4
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/tmm.el
View file

@ -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