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

(info-lookup): Use assoc-string.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-12-29 19:18:09 +00:00
parent 7f18ce220c
commit 0445150caf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/info-look.el
View File

@ -321,7 +321,7 @@ If optional argument QUERY is non-nil, query for the help mode."
(let* ((completions (info-lookup->completions topic mode))
(ignore-case (info-lookup->ignore-case topic mode))
(entry (or (assoc (if ignore-case (downcase item) item) completions)
(assoc-ignore-case item completions)
(assoc-string item completions t)
(error "Not documented as a %s: %s" topic (or item ""))))
(modes (info-lookup->all-modes topic mode))
(window (selected-window))