[Emacs-diffs] Changes to emacs/lisp/info.el

[Eli Zaretskii]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.370 emacs/lisp/info.el:1.371
*** emacs/lisp/info.el:1.370    Mon Sep  1 11:45:13 2003
--- emacs/lisp/info.el  Sun Sep 28 05:17:29 2003
***************
*** 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 ()