diff options
Diffstat (limited to 'lisp/emacs-lisp/easymenu.el')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 51b2c3b91e4..fe0a8b841a5 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -413,7 +413,11 @@ NAME can be either a string, or a symbol." (if (symbolp name) (eq (car-safe item) name) (if (stringp name) - (member-ignore-case name item))))) + ;; Match against the text that is displayed to the user. + (or (member-ignore-case name item) + ;; Also check the string version of the symbol name, + ;; for backwards compatibility. + (eq (car-safe item) (intern name))))))) (defun easy-menu-always-true (x) "Return true if form X never evaluates to nil." |