[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

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