(Info-fontify-maximum-menu-size): New variable.

(Info-fontify-node): Use that variable.

diff --git a/lisp/info.el b/lisp/info.el
index 3bfc692e18c7b191462ba432f10468508b6da84e..a86d718bd22a218e233d0893d53ab6996742b424 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -50,6 +50,8 @@ in paths.el.")
 (defvar Info-fontify t
   "*Non-nil enables highlighting and fonts in Info nodes.")
 
+(defvar Info-fontify-maximum-menu-size 30000
+  "*Maximum size of menu to fontify if `Info-fontify' is non-nil.")
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
        (sep (if (eq system-type 'ms-dos) ";" ":"))
@@ -1611,7 +1613,7 @@ The command is found by looking up in Emacs manual's Command Index."
       (if (and (search-forward "\n* Menu:" nil t)
               (not (string-match "\\<Index\\>" Info-current-node))
               ;; Don't take time to annotate huge menus
-              (< (- (point-max) (point)) 30000))
+              (< (- (point-max) (point)) Info-fontify-maximum-menu-size))
          (let ((n 0))
            (while (re-search-forward "^\\* \\([^:\t\n]*\\):" nil t)
              (setq n (1+ n))