From 635173de4a78b645a082682ffc9552c80db1c99e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 6 Apr 1999 23:23:23 +0000 Subject: [PATCH] (Info-find-node): Check for an anchor at the proper place, before reading an indirect file. --- lisp/info.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 0deffb71bd..bec7d0ac96 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -475,6 +475,7 @@ In standalone mode, \\\\[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-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-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) -- 2.20.1