changeset 8193:0be48d0d16fd

(Info-fontify-maximum-menu-size): New variable. (Info-fontify-node): Use that variable.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jul 1994 00:55:56 +0000
parents 091cd6243cae
children b11f71df59d9
files lisp/info.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Mon Jul 11 00:48:47 1994 +0000
+++ b/lisp/info.el	Mon Jul 11 00:55:56 1994 +0000
@@ -50,6 +50,8 @@
 (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 @@
       (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))