diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2007-02-17 12:03:01 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2007-02-17 12:03:01 +0000 |
| commit | e8d2103a83df75858aade088432fb16c2be9dcd9 (patch) | |
| tree | 1856bef054936b1709fe7bee2c80ca8379ed8126 /lisp/info-look.el | |
| parent | 8e1ac0634abc10422d0739b078a096e381447786 (diff) | |
| download | emacs-e8d2103a83df75858aade088432fb16c2be9dcd9.tar.gz | |
(info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup
of the symbol in index nodes.
Diffstat (limited to 'lisp/info-look.el')
| -rw-r--r-- | lisp/info-look.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el index 828fd3e6118..a4280e97c99 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -353,8 +353,11 @@ If optional argument QUERY is non-nil, query for the help mode." suffix (nth 3 (car doc-spec))) (when (condition-case error-data (progn - (Info-goto-node node) - (setq doc-found t)) + ;; Don't need Index menu fontifications here, and + ;; they slow down the lookup. + (let (Info-fontify-maximum-menu-size) + (Info-goto-node node) + (setq doc-found t))) (error (message "Cannot access Info node %s" node) (sit-for 1) |