Mercurial > emacs

changeset 62302:587868b19cb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tmm-get-keymap): Include only active menus and menu items.
author Nick Roberts <nickrob@snap.net.nz>
date Fri, 13 May 2005 23:23:42 +0000
parents 2acfd9cf6713
children 178dce14498b
files lisp/tmm.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tmm.el	Fri May 13 23:22:42 2005 +0000
+++ b/lisp/tmm.el	Fri May 13 23:23:42 2005 +0000
@@ -395,7 +395,7 @@
 `x-popup-menu' argument (when IN-X-MENU is not-nil).
 This function adds the element only if it is not already present.
 It uses the free variable `tmm-table-undef' to keep undefined keys."
-  (let (km str cache plist filter visible (event (car elt)))
+  (let (km str cache plist filter visible enable (event (car elt)))
     (setq elt (cdr elt))
     (if (eq elt 'undefined)
 	(setq tmm-table-undef (cons (cons event nil) tmm-table-undef))
@@ -436,6 +436,9 @@
 	       (setq visible (plist-get plist :visible))
 	       (if visible
 		   (setq km (and (eval visible) km)))
+	       (setq enable (plist-get plist :enable))
+	       (if enable
+		   (setq km (and (eval enable) km)))
 	       (and str
 		    (consp (nth 3 elt))
 		    (stringp (cdr (nth 3 elt))) ; keyseq cache