mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(easy-menu-name-match): Match both

Browse Source 
displayed text and internal name as string.
This commit is contained in:
Jason Rumney 2002-05-14 21:20:24 +00:00
parent af1a014016
commit dd9b56636e
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2002-05-14 Jason Rumney <jasonr@gnu.org>
* emacs-lisp/easymenu.el (easy-menu-name-match): Match both
displayed text and internal name as string.
2002-05-14 Kim F. Storm <storm@cua.dk>
* emulation/cua-rect.el (cua--rectangle-operation):

6
lisp/emacs-lisp/easymenu.el
View File

@ -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."