# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1100209427 0
# Node ID f3726ecfee76538db3fe98dc2afc002280043d38
# Parent  b80bdcafb3465ed0beb6c9b5501d2d93acc7f144
(Info-search): Save match data for isearch.  Skip Tag Table node.

diff -r b80bdcafb346 -r f3726ecfee76 lisp/info.el
--- a/lisp/info.el	Thu Nov 11 21:42:32 2004 +0000
+++ b/lisp/info.el	Thu Nov 11 21:43:47 2004 +0000
@@ -1484,13 +1484,18 @@
 				(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 "\^_"))))
+		      (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,13 +1557,18 @@
 		(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 "\^_"))))
+			    (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))