*** info.el.~1.370.~	Thu Jan  1 10:00:01 1970
--- info.el	Sat Sep  6 08:27:56 2003
*************** (defun Info-find-index-name (name)
*** 2112,2119 ****
  		 (search-forward
  		  (format "`%s'" (substring name 0 (match-beginning 1)))
  		  nil t))
! 	    (search-forward name nil t))
! 	(beginning-of-line)
        (goto-char (point-min)))))
  
  (defun Info-undefined ()
--- 2112,2122 ----
  		 (search-forward
  		  (format "`%s'" (substring name 0 (match-beginning 1)))
  		  nil t))
! 	    (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 ()