Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dd9b5663
Commit
dd9b5663
authored
May 14, 2002
by
Jason Rumney
Browse files
(easy-menu-name-match): Match both
displayed text and internal name as string.
parent
af1a0140
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
1 deletion
+10
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emacs-lisp/easymenu.el
lisp/emacs-lisp/easymenu.el
+5
-1
No files found.
lisp/ChangeLog
View file @
dd9b5663
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):
...
...
lisp/emacs-lisp/easymenu.el
View file @
dd9b5663
...
...
@@ -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."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment