(info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup

of the symbol in index nodes.

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 234030a9a7b..0f7b528ba3c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-17  Eli Zaretskii  <eliz@gnu.org>
+
+        * info-look.el (info-lookup): Bind Info-fontify-maximum-menu-size
+        to nil to speed up lookup of the symbol in index nodes.
+
 2007-02-17  Alin C. Soare  <alinsoar@voila.fr>  (tiny change)
 
         * emacs-lisp/lisp-mode.el (calculate-lisp-indent): Added
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)