Commit dd9b5663 authored by Jason Rumney's avatar Jason Rumney
Browse files

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

displayed text and internal name as string.
parent af1a0140
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):
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment