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

(Info-find-index-name): Search both with and without the " <1>" etc.

Browse Source 
suffixes which makeinfo appends to duplicate index entries.
This commit is contained in:
Eli Zaretskii 2003-09-28 09:17:29 +00:00
parent ca388882bf
commit bbe054f74b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/info.el
View File

@ -2112,8 +2112,11 @@ Give a blank topic name to go to the Index node itself."
(search-forward
(format "`%s'" (substring name 0 (match-beginning 1)))
nil t))
(search-forward name nil t))
(beginning-of-line)
(search-forward name nil t)
;; Try again without the " <1>" makeinfo can append
(and (string-match "\\`\\(.*\\) <[0-9]+>\\'" name)
(Info-find-index-name (match-string 1 name))))
(progn (beginning-of-line) t) ;; non-nil for recursive call
(goto-char (point-min)))))
(defun Info-undefined ()