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> 2002-05-14 Kim F. Storm <storm@cua.dk>
* emulation/cua-rect.el (cua--rectangle-operation): * emulation/cua-rect.el (cua--rectangle-operation):
......
...@@ -413,7 +413,11 @@ NAME can be either a string, or a symbol." ...@@ -413,7 +413,11 @@ NAME can be either a string, or a symbol."
(if (symbolp name) (if (symbolp name)
(eq (car-safe item) name) (eq (car-safe item) name)
(if (stringp 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) (defun easy-menu-always-true (x)
"Return true if form X never evaluates to nil." "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