[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el
From: |
Jason Rumney |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el |
Date: |
Tue, 14 May 2002 17:19:17 -0400 |
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."
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easymenu.el,
Jason Rumney <=