# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1142338497 0
# Node ID 48921c9f3f33326cddf83d9969265f6e9c4822be
# Parent  190ec6fe5153a392cbf9d338aad3968fb58df66f
(Info-fontify-node): Check if already fontified or not
by next-single-property-change.

diff -r 190ec6fe5153 -r 48921c9f3f33 lisp/info.el
--- a/lisp/info.el	Tue Mar 14 07:53:00 2006 +0000
+++ b/lisp/info.el	Tue Mar 14 12:14:57 2006 +0000
@@ -3675,7 +3675,8 @@
            (case-fold-search t)
            paragraph-markers
            (not-fontified-p ; the node hasn't already been fontified
-            (not (let ((where (next-property-change (point-min))))
+            (not (let ((where (next-single-property-change (point-min) 
+							   'font-lock-face)))
                    (and where (not (= where (point-max)))))))
            (fontify-visited-p ; visited nodes need to be re-fontified
             (and Info-fontify-visited-nodes