[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el

[Jason Rumney]

Index: emacs/lisp/emacs-lisp/easymenu.el
diff -c emacs/lisp/emacs-lisp/easymenu.el:1.47 
emacs/lisp/emacs-lisp/easymenu.el:1.48
*** emacs/lisp/emacs-lisp/easymenu.el:1.47      Wed Apr 24 19:18:42 2002
--- emacs/lisp/emacs-lisp/easymenu.el   Tue May 14 17:19:16 2002
***************
*** 413,419 ****
        (if (symbolp name) 
          (eq (car-safe item) name)
        (if (stringp name)
!           (member-ignore-case name item)))))
  
  (defun easy-menu-always-true (x)
    "Return true if form X never evaluates to nil."
--- 413,423 ----
        (if (symbolp name) 
          (eq (car-safe item) name)
        (if (stringp name)
!           ;; 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."