From 74c7e66da4da8e03045bc678d307f077ec3d28b3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 23 Dec 2002 17:59:04 +0000
Subject: [PATCH] (easy-menu-do-define): Handle nil for SYMBOL.
 (easy-menu-define): Doc fix, say SYMBOL can be nil.

---
 lisp/emacs-lisp/easymenu.el | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 80011694296..43ff02e1b22 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -49,8 +49,10 @@ menus, turn this variable off, otherwise it is probably better to keep it on."
 ;;;###autoload
 (defmacro easy-menu-define (symbol maps doc menu)
   "Define a menu bar submenu in maps MAPS, according to MENU.
-The menu keymap is stored in symbol SYMBOL, both as its value
-and as its function definition.  DOC is used as the doc string for SYMBOL.
+
+If SYMBOL is non-nil, store the menu keymap in the value of SYMBOL,
+and define SYMBOL as a function to pop up the menu, with DOC as its doc string.
+If SYMBOL is nil, just store the menu keymap into MAPS.
 
 The first element of MENU must be a string.  It is the menu bar item name.
 It may be followed by the following keyword argument pairs
@@ -156,19 +158,20 @@ A menu item can be a list with the same format as MENU.  This is a submenu."
   ;; compatible.  Therefore everything interesting is done in this
   ;; function.
   (let ((keymap (easy-menu-create-menu (car menu) (cdr menu))))
-    (set symbol keymap)
-    (fset symbol
-	  `(lambda (event) ,doc (interactive "@e")
-	     ;; FIXME: XEmacs uses popup-menu which calls the binding
-	     ;; while x-popup-menu only returns the selection.
-	     (x-popup-menu event
-			   (or (and (symbolp ,symbol)
-				    (funcall
-				     (or (plist-get (get ,symbol 'menu-prop)
-						    :filter)
-					 'identity)
-				     (symbol-function ,symbol)))
-			       ,symbol))))
+    (when symbol
+      (set symbol keymap)
+      (fset symbol
+	    `(lambda (event) ,doc (interactive "@e")
+	       ;; FIXME: XEmacs uses popup-menu which calls the binding
+	       ;; while x-popup-menu only returns the selection.
+	       (x-popup-menu event
+			     (or (and (symbolp ,symbol)
+				      (funcall
+				       (or (plist-get (get ,symbol 'menu-prop)
+						      :filter)
+					   'identity)
+				       (symbol-function ,symbol)))
+				 ,symbol)))))
     (mapcar (lambda (map)
 	      (define-key map (vector 'menu-bar (easy-menu-intern (car menu)))
 		(cons 'menu-item
-- 
2.11.4.GIT