[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Thu, 11 Nov 2004 17:02:48 -0500 |
Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.408 emacs/lisp/info.el:1.409
*** emacs/lisp/info.el:1.408 Mon Nov 8 16:43:00 2004
--- emacs/lisp/info.el Thu Nov 11 21:43:47 2004
***************
*** 1484,1496 ****
(1- (point)))
(point-max)))
(while (and (not give-up)
! (or (null found)
! (if backward
! (isearch-range-invisible found beg-found)
! (isearch-range-invisible beg-found found))
! ;; Skip node header line
! (save-excursion (forward-line -1)
! (looking-at "\^_"))))
(if (if backward
(re-search-backward regexp bound t)
(re-search-forward regexp bound t))
--- 1484,1501 ----
(1- (point)))
(point-max)))
(while (and (not give-up)
! (save-match-data
! (or (null found)
! (if backward
! (isearch-range-invisible found beg-found)
! (isearch-range-invisible beg-found found))
! ;; Skip node header line
! (save-excursion (forward-line -1)
! (looking-at "\^_"))
! ;; Skip Tag Table node
! (save-excursion
! (and (search-backward "\^_" nil t)
! (looking-at "\^_\nTag Table"))))))
(if (if backward
(re-search-backward regexp bound t)
(re-search-forward regexp bound t))
***************
*** 1552,1564 ****
(setq list (cdr list))
(setq give-up nil found nil)
(while (and (not give-up)
! (or (null found)
! (if backward
! (isearch-range-invisible found beg-found)
! (isearch-range-invisible beg-found found))
! ;; Skip node header line
! (save-excursion (forward-line -1)
! (looking-at "\^_"))))
(if (if backward
(re-search-backward regexp nil t)
(re-search-forward regexp nil t))
--- 1557,1574 ----
(setq list (cdr list))
(setq give-up nil found nil)
(while (and (not give-up)
! (save-match-data
! (or (null found)
! (if backward
! (isearch-range-invisible found beg-found)
! (isearch-range-invisible beg-found found))
! ;; Skip node header line
! (save-excursion (forward-line -1)
! (looking-at "\^_"))
! ;; Skip Tag Table node
! (save-excursion
! (and (search-backward "\^_" nil t)
! (looking-at "\^_\nTag Table"))))))
(if (if backward
(re-search-backward regexp nil t)
(re-search-forward regexp nil t))