diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-07-14 08:43:32 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-07-14 08:43:32 +0000 |
| commit | 115f38ae502d6b529be52557f96e226170915406 (patch) | |
| tree | c9a8dcc05cf123f43fb6a4196fe1c77ce85bb03b /lisp/emacs-lisp/easymenu.el | |
| parent | 3a4f3f86ef4217d557b1969aef898cf66b7c64e5 (diff) | |
| download | emacs-115f38ae502d6b529be52557f96e226170915406.tar.gz emacs-115f38ae502d6b529be52557f96e226170915406.tar.bz2 emacs-115f38ae502d6b529be52557f96e226170915406.zip | |
(easy-menu-convert-item-1): Only intern if the label is a string.
Diffstat (limited to 'lisp/emacs-lisp/easymenu.el')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |