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