Mercurial > emacs

changeset 19505:fe381b9e1953

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tmm-get-keymap): Ignore any command now disabled for menus.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Aug 1997 04:00:25 +0000
parents fd1ee3c25839
children 92c0e1253d88
files lisp/tmm.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tmm.el	Sun Aug 24 03:32:38 1997 +0000
+++ b/lisp/tmm.el	Sun Aug 24 04:00:25 1997 +0000
@@ -426,6 +426,11 @@
 		   (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