diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-05-20 17:03:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-05-20 17:03:12 +0000 |
| commit | e49ca402ba1871b68cbabac5d8fd18c75c364b97 (patch) | |
| tree | 7f1eb8dedb28da378725cf1ee5110fdecfe33532 /lisp/info.el | |
| parent | 27da2e9aa56cd254f0d23e9ae02b2528dde36570 (diff) | |
| download | emacs-e49ca402ba1871b68cbabac5d8fd18c75c364b97.tar.gz | |
(Info-read-subfile): Widen before finding the
desired node in the subfile.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |