1476 |
(save-excursion |
(save-excursion |
1477 |
(save-restriction |
(save-restriction |
1478 |
(widen) |
(widen) |
1479 |
|
(when backward |
1480 |
|
;; Hide Info file header for backward search |
1481 |
|
(narrow-to-region (save-excursion |
1482 |
|
(goto-char (point-min)) |
1483 |
|
(search-forward "\n\^_") |
1484 |
|
(1- (point))) |
1485 |
|
(point-max))) |
1486 |
(while (and (not give-up) |
(while (and (not give-up) |
1487 |
(or (null found) |
(or (null found) |
1488 |
(if backward |
(if backward |
1489 |
(isearch-range-invisible found beg-found) |
(isearch-range-invisible found beg-found) |
1490 |
(isearch-range-invisible beg-found found)))) |
(isearch-range-invisible beg-found found)) |
1491 |
|
;; Skip node header line |
1492 |
|
(save-excursion (forward-line -1) |
1493 |
|
(looking-at "\^_")))) |
1494 |
(if (if backward |
(if (if backward |
1495 |
(re-search-backward regexp bound t) |
(re-search-backward regexp bound t) |
1496 |
(re-search-forward regexp bound t)) |
(re-search-forward regexp bound t)) |
1541 |
(while list |
(while list |
1542 |
(message "Searching subfile %s..." (cdr (car list))) |
(message "Searching subfile %s..." (cdr (car list))) |
1543 |
(Info-read-subfile (car (car list))) |
(Info-read-subfile (car (car list))) |
1544 |
(if backward (goto-char (point-max))) |
(when backward |
1545 |
|
;; Hide Info file header for backward search |
1546 |
|
(narrow-to-region (save-excursion |
1547 |
|
(goto-char (point-min)) |
1548 |
|
(search-forward "\n\^_") |
1549 |
|
(1- (point))) |
1550 |
|
(point-max)) |
1551 |
|
(goto-char (point-max))) |
1552 |
(setq list (cdr list)) |
(setq list (cdr list)) |
1553 |
(setq give-up nil found nil) |
(setq give-up nil found nil) |
1554 |
(while (and (not give-up) |
(while (and (not give-up) |
1555 |
(or (null found) |
(or (null found) |
1556 |
(if backward |
(if backward |
1557 |
(isearch-range-invisible found beg-found) |
(isearch-range-invisible found beg-found) |
1558 |
(isearch-range-invisible beg-found found)))) |
(isearch-range-invisible beg-found found)) |
1559 |
|
;; Skip node header line |
1560 |
|
(save-excursion (forward-line -1) |
1561 |
|
(looking-at "\^_")))) |
1562 |
(if (if backward |
(if (if backward |
1563 |
(re-search-backward regexp nil t) |
(re-search-backward regexp nil t) |
1564 |
(re-search-forward regexp nil t)) |
(re-search-forward regexp nil t)) |