# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770162076 0
# Node ID 2b04194587682d68d9554f75fa69e3b5d85b68a8
# Parent  347191d7ca7db2d41880db88217a0da178645c88
(make-lucid-menu-keymap): Allow any form as the enabler.

diff -r 347191d7ca7d -r 2b0419458768 lisp/emacs-lisp/lmenu.el
--- a/lisp/emacs-lisp/lmenu.el	Sat May 28 21:49:35 1994 +0000
+++ b/lisp/emacs-lisp/lmenu.el	Sat May 28 21:54:36 1994 +0000
@@ -62,7 +62,7 @@
     (while menu-items
       (let* ((item (car menu-items))
 	     (callback (if (vectorp item) (aref item 1)))
-	     command enabler name)
+	     command name)
 	(cond ((stringp item)
 	       (setq command nil)
 	       (setq name (if (string-match "^-+$" item) "" item)))
@@ -72,11 +72,8 @@
 	      ((vectorp item)
 	       (setq command (make-symbol (format "menu-function-%d"
 						  add-menu-item-count)))
-	       (setq enabler (make-symbol (format "menu-function-%d-enabler"
-						  add-menu-item-count)))
 	       (setq add-menu-item-count (1+ add-menu-item-count))
-	       (put command 'menu-enable enabler)
-	       (set enabler (aref item 2))
+	       (put command 'menu-enable (aref item 2))
 	       (setq name (aref item 0))	       
 	       (if (symbolp callback)
 		   (fset command callback)
@@ -421,7 +418,7 @@
  Each menu item should be a vector of three elements:
    - a string, the name of the menu item;
    - a symbol naming a command, or a form to evaluate;
-   - and t or nil, whether this item is selectable.
+   - and a form whose value determines whether this item is selectable.
 BEFORE, if provided, is the name of a menu before which this menu should
  be added, if this menu is not on its parent already.  If the menu is already
  present, it will not be moved."