(Info-read-subfile): Widen before finding the

desired node in the subfile.

diff --git a/lisp/info.el b/lisp/info.el
index db50237782389971613b4d99eba5ade833599b52..55c658b53697c0fb377881a89d4bd23e4c859fa9 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -951,6 +951,8 @@ a case-insensitive match is tried."
          (info-insert-file-contents lastfilename)
          (set-buffer-modified-p nil)
          (setq Info-current-subfile lastfilename)))
+    ;; Widen in case we are in the same subfile as before.
+    (widen)
     (goto-char (point-min))
     (if (looking-at "\^_")
        (forward-char 1)
@@ -1193,7 +1195,6 @@ If FORK is a string, it is the name to use for the new buffer."
                  (message "Searching subfile %s..." (cdr (car list)))
                  (Info-read-subfile (car (car list)))
                  (setq list (cdr list))
-;;;            (goto-char (point-min))
                  (if (re-search-forward regexp nil t)
                      (setq found (point) list ())))
                (if found