Mercurial > emacs

changeset 75750:9d47b3ad340e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 10 Feb 2007 11:10:49 +0000
parents cb02cf6abcf1
children 8cc088fc5fb2
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)