Mercurial > emacs
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))