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

2a9f2437 · Richard M. Stallman · 95772e85 · 2a9f2437
Commit 2a9f2437 authored Aug 24, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

lisp/tmm.el lisp/tmm.el +5 -0

No files found.
--- 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