From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 6 Apr 1999 23:23:23 +0000 (+0000)
Subject: (Info-find-node): Check for an anchor at the
X-Git-Tag: emacs-20.4~369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=635173de4a78b645a082682ffc9552c80db1c99e;p=emacs.git

(Info-find-node): Check for an anchor at the
proper place, before reading an indirect file.
---

diff --git a/lisp/info.el b/lisp/info.el
index 0deffb71bda..bec7d0ac96d 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -475,6 +475,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
             (if (marker-position Info-tag-table-marker)
 
                 (let (found-in-tag-table
+		      found-anchor
                       found-mode
                       (m Info-tag-table-marker))
                   (save-excursion
@@ -484,7 +485,9 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
 
                     ;; Search tag table
                     (setq found-in-tag-table
-                          (re-search-forward regexp nil t))
+                          (re-search-forward regexp nil t)
+			  found-anchor
+			  (string-equal "Ref:" (match-string 1)))
                     (if found-in-tag-table
                         (setq guesspos (1+ (read (current-buffer)))))
                     (setq found-mode major-mode))
@@ -503,9 +506,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
                             (setq guesspos (Info-read-subfile guesspos)))))
 
                   ;; Handle anchor
-                  (if (and found-in-tag-table
-                           (string-equal "Ref:" (match-string 1)))
-                      (goto-char guesspos)
+                  (if found-anchor (goto-char guesspos)
 
                     ;; Else we may have a node, which we search for:
 		    (goto-char (max (point-min)