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

desired node in the subfile.
This commit is contained in:
Richard M. Stallman 2001-05-20 17:03:12 +00:00
parent 9ca00e7182
commit b0e52598a5

View file

@ -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