mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(Info-fontify-node): Use that variable.
This commit is contained in:
Richard M. Stallman 1994-07-11 00:55:56 +00:00
parent f1d238efb3
commit 34a0a4ee43
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/info.el
View File

@ -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))