From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 17 Feb 2007 12:03:01 +0000 (+0000)
Subject: (info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup
X-Git-Tag: emacs-pretest-22.0.94~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8d2103a83df75858aade088432fb16c2be9dcd9;p=emacs.git

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