From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 20 May 2001 17:03:12 +0000 (+0000)
Subject: (Info-read-subfile): Widen before finding the
X-Git-Tag: emacs-pretest-21.0.104~421
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0e52598a54f576d524b912a1b0f1f67c6b84e02;p=emacs.git

(Info-read-subfile): Widen before finding the
desired node in the subfile.
---

diff --git a/lisp/info.el b/lisp/info.el
index db502377823..55c658b5369 100644
--- 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