(Info-search): Skip `Local Variables' node.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3aa80e6446b7bccce21bf8daf3b160dd82f1e1a9..6efd23663201c985cb05cd53be39f0ba4cf4b579 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2006-02-17  Juri Linkov  <juri@jurta.org>
+
+       * ffap.el (ffap) <defface>: Add explicit face declaration.
+       (ffap-highlight): Use face `ffap' directly instead of checking
+       for its existence.
+
+       * icomplete.el (icomplete-get-keys): Use `t' for the second arg
+       `visible-ok' of `other-buffer' to find the right original buffer.
+
+       * info.el (Info-search): Skip `Local Variables' node.
+
 2006-02-17  Juri Linkov  <juri@jurta.org>
 
        * info.el (Info-find-file): Check for symbols `apropos', `history',

diff --git a/lisp/info.el b/lisp/info.el
index e2baa3aa583bfb974a4f92e4039ece5fb3f7751b..e9d7f5ca2de13b6f708fb7d154a5767a5784a23d 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1640,7 +1640,8 @@ If DIRECTION is `backward', search in the reverse direction."
                            ;; Skip Tag Table node
                            (save-excursion
                              (and (search-backward "\^_" nil t)
-                                  (looking-at "\^_\nTag Table"))))))
+                                  (looking-at
+                                   "\^_\n\\(Tag Table\\|Local Variables\\)"))))))
            (let ((search-spaces-regexp Info-search-whitespace-regexp))
              (if (if backward
                      (re-search-backward regexp bound t)
@@ -1728,7 +1729,8 @@ If DIRECTION is `backward', search in the reverse direction."
                                  ;; Skip Tag Table node
                                  (save-excursion
                                    (and (search-backward "\^_" nil t)
-                                        (looking-at "\^_\nTag Table"))))))
+                                        (looking-at
+                                         "\^_\n\\(Tag Table\\|Local Variables\\)"))))))
                  (let ((search-spaces-regexp Info-search-whitespace-regexp))
                    (if (if backward
                            (re-search-backward regexp nil t)