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

(info-lookup): For ease of use try item

Browse Source 
case-insensitive if not found case-sensitive.
Do case sensitive search in index nodes, so items differing only in
case go correctly to their respective nodes.
This commit is contained in:
Richard M. Stallman 2002-12-23 17:54:31 +00:00
parent c6d5732507
commit 7c3da01bf2
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/info-look.el
View File

@ -318,9 +318,10 @@ If optional argument QUERY is non-nil, query for the help mode."
(or mode (setq mode (info-lookup-select-mode)))
(or (info-lookup->mode-value topic mode)
(error "No %s help available for `%s'" topic mode))
(let ((entry (or (assoc (if (info-lookup->ignore-case topic mode)
(downcase item) item)
(info-lookup->completions topic 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)
(error "Not documented as a %s: %s" topic (or item ""))))
(modes (info-lookup->all-modes topic mode))
(window (selected-window))
@ -356,7 +357,12 @@ If optional argument QUERY is non-nil, query for the help mode."
nil))
(condition-case nil
(progn
(Info-menu (or (cdr entry) item))
;; Don't use Info-menu, it forces case-fold-search to t
(let ((case-fold-search nil))
(re-search-forward
(concat "^\\* " (regexp-quote (or (cdr entry) (car entry)))
":")))
(Info-follow-nearest-node)
(setq found t)
(if (or prefix suffix)
(let ((case-fold-search
@ -364,12 +370,12 @@ If optional argument QUERY is non-nil, query for the help mode."
(buffer-read-only nil))
(goto-char (point-min))
(re-search-forward
(concat prefix (regexp-quote item) suffix))
(concat prefix (regexp-quote (car entry)) suffix))
(goto-char (match-beginning 0))
(and (display-color-p) info-lookup-highlight-face
;; Search again for ITEM so that the first
;; occurrence of ITEM will be highlighted.
(re-search-forward (regexp-quote item))
(re-search-forward (regexp-quote (car entry)))
(let ((start (match-beginning 0))
(end (match-end 0)))
(if (overlayp info-lookup-highlight-overlay)
@ -382,6 +388,11 @@ If optional argument QUERY is non-nil, query for the help mode."
(error nil)))
(setq doc-spec (cdr doc-spec)))
(setq modes (cdr modes)))
;; Alert the user if case was munged, and do this after bringing up the
;; info buffer since that can print messages
(unless (or ignore-case
(string-equal item (car entry)))
(message "Found in differnt case: %s" (car entry)))
(or doc-found
(error "Info documentation for lookup was not found"))
;; Don't leave the Info buffer if the help item couldn't be looked up.