/[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.406 by jurta, Thu Oct 28 09:01:13 2004 UTC revision 1.407 by jurta, Fri Nov 5 19:06:24 2004 UTC
# Line 1476  If DIRECTION is `backward', search in th Line 1476  If DIRECTION is `backward', search in th
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))
# Line 1531  If DIRECTION is `backward', search in th Line 1541  If DIRECTION is `backward', search in th
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))

Legend:
Removed from v.1.406  
changed lines
  Added in v.1.407

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