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

of the symbol in index nodes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 234030a..0f7b528 100644 (file)
--- 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 828fd3e..a4280e9 100644 (file)
--- 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)