From e8d2103a83df75858aade088432fb16c2be9dcd9 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 17 Feb 2007 12:03:01 +0000 Subject: [PATCH] (info-lookup): Bind Info-fontify-maximum-menu-size to nil to speed up lookup of the symbol in index nodes. --- lisp/ChangeLog | 5 +++++ lisp/info-look.el | 7 +++++-- 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 + + * 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 (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) -- 2.39.2