# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 963563848 0
# Node ID 584fa6f665f10298d4eefe32408fbbe48f4af6e3
# Parent  0f93b32d6add7f179e648bbdcdfb0d598ef0b854
(easy-menu-convert-item-1): Intern the label.

diff -r 0f93b32d6add -r 584fa6f665f1 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Fri Jul 14 02:08:34 2000 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Fri Jul 14 08:37:28 2000 +0000
@@ -351,11 +351,15 @@
 		 (or (null cache) (stringp cache) (vectorp cache)))
 	    (setq prop (cons :key-sequence (cons cache prop))))))
      (t (error "Invalid menu item in easymenu")))
-    (cons name (and (not remove)
-		    (cons 'menu-item
-			  (cons label
-				(and name
-				     (cons command prop))))))))
+    ;; `intern' the name so as to merge multiple entries with the same name.
+    ;; It also makes it easier/possible to lookup/change menu bindings
+    ;; via keymap functions.
+    (cons (intern name)
+	  (and (not remove)
+	       (cons 'menu-item
+		     (cons label
+			   (and name
+				(cons command prop))))))))
 
 (defun easy-menu-define-key-intern (menu key item &optional before)
   "Like easy-menu-define-key, but interns KEY and BEFORE if they are strings."