# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1171713616 0
# Node ID 9e18371d4dff00cc39137aba21c653f03e066ac9
# Parent  28302e9da5da0309448d194eeb7ad50c3c8e1738
(info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup
of the symbol in index nodes.

diff -r 28302e9da5da -r 9e18371d4dff lisp/info-look.el
--- a/lisp/info-look.el	Sat Feb 17 11:35:22 2007 +0000
+++ b/lisp/info-look.el	Sat Feb 17 12:00:16 2007 +0000
@@ -353,8 +353,11 @@
 	      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)