From dd9b56636e148d19a34a0fee5b8155227b0146ad Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 14 May 2002 21:20:24 +0000 Subject: (easy-menu-name-match): Match both displayed text and internal name as string. --- lisp/emacs-lisp/easymenu.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') 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." -- cgit v1.2.3