(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 0deffb71bda8a22d4350d0a423e75967c27ea351..bec7d0ac96d61070a7942d54b9e32456aa7d6a83 100644 (file)
--- 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)