# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1064740649 0
# Node ID 928f0fb38bfa973e9635fbcf6f2c04e857baec95
# Parent  bd8fcbf75e4fe9b13bd4e777fa15ddc865f93c09
(Info-find-index-name): Search both with and without the " <1>" etc.
suffixes which makeinfo appends to duplicate index entries.

diff -r bd8fcbf75e4f -r 928f0fb38bfa lisp/info.el
--- a/lisp/info.el	Sun Sep 28 09:05:31 2003 +0000
+++ b/lisp/info.el	Sun Sep 28 09:17:29 2003 +0000
@@ -2112,8 +2112,11 @@
 		 (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 ()