(Info-fontify-maximum-menu-size): Bump to 1000000.

(Info-fontify-node): Do fontify indices.
This commit is contained in:
Chong Yidong 2006-12-22 19:49:08 +00:00
parent 13a87fcec7
commit 195256fee1

View file

@ -145,7 +145,7 @@ The Lisp code is executed when the node is selected.")
:type 'boolean
:group 'info)
(defcustom Info-fontify-maximum-menu-size 100000
(defcustom Info-fontify-maximum-menu-size 1000000
"*Maximum size of menu to fontify if `font-lock-mode' is non-nil."
:type 'integer
:group 'info)
@ -3939,7 +3939,6 @@ the variable `Info-file-list-for-emacs'."
(goto-char (point-min))
(when (and (or not-fontified-p fontify-visited-p)
(search-forward "\n* Menu:" nil t)
(not (Info-index-node))
;; Don't take time to annotate huge menus
(< (- (point-max) (point)) Info-fontify-maximum-menu-size))
(let ((n 0)