mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(Info-fontify-maximum-menu-size): Document the effect of a nil value.

Browse Source 
(Info-fontify-node): Make sure Info-fontify-maximum-menu-size is non-nil before
using it as size.
This commit is contained in:
Eli Zaretskii 2007-02-10 11:10:49 +00:00
parent 7ea2a12d0f
commit 3d0fc0b76d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/info.el
View File

@ -146,7 +146,8 @@ The Lisp code is executed when the node is selected.")
: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 @@ the variable `Info-file-list-for-emacs'."
(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 @@ the variable `Info-file-list-for-emacs'."
(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)