# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1021411156 0
# Node ID 948bb97d1e60881739d36fbd505c990f1632b2cc
# Parent  539cd2d3c083f166772bf7e54ac6dfa191074387
(easy-menu-name-match): Match both
displayed text and internal name as string.

diff -r 539cd2d3c083 -r 948bb97d1e60 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Tue May 14 21:11:10 2002 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Tue May 14 21:19:16 2002 +0000
@@ -413,7 +413,11 @@
       (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."