# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1171105849 0
# Node ID 9d47b3ad340e94eae79d1b3d4000e9553f2f0238
# Parent  cb02cf6abcf1e9cf91ca53b2df16409f69c5269f
(Info-fontify-maximum-menu-size): Document the effect of a nil value.
(Info-fontify-node): Make sure Info-fontify-maximum-menu-size is non-nil before
using it as size.

diff -r cb02cf6abcf1 -r 9d47b3ad340e lisp/info.el
--- a/lisp/info.el	Sat Feb 10 00:10:52 2007 +0000
+++ b/lisp/info.el	Sat Feb 10 11:10:49 2007 +0000
@@ -146,7 +146,8 @@
   :group 'info)
 
 (defcustom Info-fontify-maximum-menu-size 1000000
-  "*Maximum size of menu to fontify if `font-lock-mode' is non-nil."
+  "*Maximum size of menu to fontify if `font-lock-mode' is non-nil.
+Set to nil to disable node fontification."
   :type 'integer
   :group 'info)
 
@@ -3705,6 +3706,7 @@
            (fontify-visited-p ; visited nodes need to be re-fontified
             (and Info-fontify-visited-nodes
                  ;; Don't take time to refontify visited nodes in huge nodes
+		 Info-fontify-maximum-menu-size
                  (< (- (point-max) (point-min)) Info-fontify-maximum-menu-size)))
            rbeg rend)
 
@@ -3940,6 +3942,7 @@
       (when (and (or not-fontified-p fontify-visited-p)
                  (search-forward "\n* Menu:" nil t)
                  ;; Don't take time to annotate huge menus
+		 Info-fontify-maximum-menu-size
                  (< (- (point-max) (point)) Info-fontify-maximum-menu-size))
         (let ((n 0)
               cont)