From b0e52598a54f576d524b912a1b0f1f67c6b84e02 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 May 2001 17:03:12 +0000 Subject: [PATCH] (Info-read-subfile): Widen before finding the desired node in the subfile. --- lisp/info.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.5