From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 14 Jul 2000 08:43:32 +0000 (+0000)
Subject: (easy-menu-convert-item-1): Only intern if the label is a string.
X-Git-Tag: emacs-pretest-21.0.90~2837
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=115f38ae502d6b529be52557f96e226170915406;p=emacs.git

(easy-menu-convert-item-1): Only intern if the label is a string.
---

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 49eaa551e13..3ab4fc0afa6 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -354,7 +354,7 @@ MENU, just change it, otherwise put it last in MENU."
     ;; `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)
+    (cons (if (stringp name) (intern name) name)
 	  (and (not remove)
 	       (cons 'menu-item
 		     (cons label