/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.315 by rms, Mon Jul 29 01:48:52 2002 UTC revision 1.316 by rms, Mon Sep 9 19:24:53 2002 UTC
# Line 1192  If FORK is a string, it is the name to u Line 1192  If FORK is a string, it is the name to u
1192                                        (progn (search-forward "\n\^_")                                        (progn (search-forward "\n\^_")
1193                                               (1- (point))))                                               (1- (point))))
1194                      (goto-char (point-min))                      (goto-char (point-min))
1195                        ;; Find the subfile we just searched.
1196                      (search-forward (concat "\n" osubfile ": "))                      (search-forward (concat "\n" osubfile ": "))
1197                      (beginning-of-line)                      ;; Skip that one.
1198                        (forward-line 1)
1199                        ;; Make a list of all following subfiles.
1200                        ;; Each elt has the form (VIRT-POSITION . SUBFILENAME).
1201                      (while (not (eobp))                      (while (not (eobp))
1202                        (re-search-forward "\\(^.*\\): [0-9]+$")                        (re-search-forward "\\(^.*\\): [0-9]+$")
1203                        (goto-char (+ (match-end 1) 2))                        (goto-char (+ (match-end 1) 2))
1204                        (setq list (cons (cons (read (current-buffer))                        (setq list (cons (cons (+ (point-min)
1205                                                    (read (current-buffer)))
1206                                               (match-string-no-properties 1))                                               (match-string-no-properties 1))
1207                                         list))                                         list))
1208                        (goto-char (1+ (match-end 0))))                        (goto-char (1+ (match-end 0))))
1209                      (setq list (nreverse list)                      ;; Put in forward order
1210                            current (car (car list))                      (setq list (nreverse list))))
                           list (cdr list))))  
1211                  (while list                  (while list
1212                    (message "Searching subfile %s..." (cdr (car list)))                    (message "Searching subfile %s..." (cdr (car list)))
1213                    (Info-read-subfile (car (car list)))                    (Info-read-subfile (car (car list)))

Legend:
Removed from v.1.315  
changed lines
  Added in v.1.316

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26