Mercurial > emacs
comparison lisp/info.el @ 58152:f3726ecfee76
(Info-search): Save match data for isearch. Skip Tag Table node.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Thu, 11 Nov 2004 21:43:47 +0000 |
| parents | af694410e72f |
| children | c11ef32aabb7 cb7f41387eb3 |
comparison
equal
deleted
inserted
replaced
| 58151:b80bdcafb346 | 58152:f3726ecfee76 |
|---|---|
| 1482 (goto-char (point-min)) | 1482 (goto-char (point-min)) |
| 1483 (search-forward "\n\^_") | 1483 (search-forward "\n\^_") |
| 1484 (1- (point))) | 1484 (1- (point))) |
| 1485 (point-max))) | 1485 (point-max))) |
| 1486 (while (and (not give-up) | 1486 (while (and (not give-up) |
| 1487 (or (null found) | 1487 (save-match-data |
| 1488 (if backward | 1488 (or (null found) |
| 1489 (isearch-range-invisible found beg-found) | 1489 (if backward |
| 1490 (isearch-range-invisible beg-found found)) | 1490 (isearch-range-invisible found beg-found) |
| 1491 ;; Skip node header line | 1491 (isearch-range-invisible beg-found found)) |
| 1492 (save-excursion (forward-line -1) | 1492 ;; Skip node header line |
| 1493 (looking-at "\^_")))) | 1493 (save-excursion (forward-line -1) |
| 1494 (looking-at "\^_")) | |
| 1495 ;; Skip Tag Table node | |
| 1496 (save-excursion | |
| 1497 (and (search-backward "\^_" nil t) | |
| 1498 (looking-at "\^_\nTag Table")))))) | |
| 1494 (if (if backward | 1499 (if (if backward |
| 1495 (re-search-backward regexp bound t) | 1500 (re-search-backward regexp bound t) |
| 1496 (re-search-forward regexp bound t)) | 1501 (re-search-forward regexp bound t)) |
| 1497 (setq found (point) beg-found (if backward (match-end 0) | 1502 (setq found (point) beg-found (if backward (match-end 0) |
| 1498 (match-beginning 0))) | 1503 (match-beginning 0))) |
| 1550 (point-max)) | 1555 (point-max)) |
| 1551 (goto-char (point-max))) | 1556 (goto-char (point-max))) |
| 1552 (setq list (cdr list)) | 1557 (setq list (cdr list)) |
| 1553 (setq give-up nil found nil) | 1558 (setq give-up nil found nil) |
| 1554 (while (and (not give-up) | 1559 (while (and (not give-up) |
| 1555 (or (null found) | 1560 (save-match-data |
| 1556 (if backward | 1561 (or (null found) |
| 1557 (isearch-range-invisible found beg-found) | 1562 (if backward |
| 1558 (isearch-range-invisible beg-found found)) | 1563 (isearch-range-invisible found beg-found) |
| 1559 ;; Skip node header line | 1564 (isearch-range-invisible beg-found found)) |
| 1560 (save-excursion (forward-line -1) | 1565 ;; Skip node header line |
| 1561 (looking-at "\^_")))) | 1566 (save-excursion (forward-line -1) |
| 1567 (looking-at "\^_")) | |
| 1568 ;; Skip Tag Table node | |
| 1569 (save-excursion | |
| 1570 (and (search-backward "\^_" nil t) | |
| 1571 (looking-at "\^_\nTag Table")))))) | |
| 1562 (if (if backward | 1572 (if (if backward |
| 1563 (re-search-backward regexp nil t) | 1573 (re-search-backward regexp nil t) |
| 1564 (re-search-forward regexp nil t)) | 1574 (re-search-forward regexp nil t)) |
| 1565 (setq found (point) beg-found (if backward (match-end 0) | 1575 (setq found (point) beg-found (if backward (match-end 0) |
| 1566 (match-beginning 0))) | 1576 (match-beginning 0))) |