# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769589401 0
# Node ID 877b3aeaa9b5cb9ba52f68b987382e5a339bed67
# Parent  0dc4969a80385613534dfe5dfe381f1f368d41ef
(easy-menu-create-keymaps):
Renamed from easy-menu-keymap.  Callers changed.

diff -r 0dc4969a8038 -r 877b3aeaa9b5 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Sun May 22 05:26:51 1994 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Sun May 22 06:50:01 1994 +0000
@@ -58,7 +58,7 @@
 is a list of menu items, as above."
   (` (let* ((maps (, maps))
 	    (menu (, menu))
-	    (keymap (easy-menu-keymap (car menu) (cdr menu))))
+	    (keymap (easy-menu-create-keymaps (car menu) (cdr menu))))
        (and (keymapp maps) (setq maps (list maps)))
        (while maps
 	 (define-key (car maps) (vector 'menu-bar (intern (car menu)))
@@ -69,7 +69,7 @@
 
 ;; Return a menu keymap corresponding to a Lucid-style menu list
 ;; MENU-ITEMS, and with name MENU-NAME.
-(defun easy-menu-keymap (menu-name menu-items)
+(defun easy-menu-create-keymaps (menu-name menu-items)
   (let ((menu (make-sparse-keymap menu-name)))
     ;; Process items in reverse order,
     ;; since the define-key loop reverses them again.
@@ -82,7 +82,7 @@
 	       (setq command nil)
 	       (setq name (if (string-match "^-+$" item) "" item)))
 	      ((consp item)
-	       (setq command (easy-menu-keymap (car item) (cdr item)))
+	       (setq command (easy-menu-create-keymaps (car item) (cdr item)))
 	       (setq name (car item)))
 	      ((vectorp item)
 	       (setq command (make-symbol (format "menu-function-%d"