procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(info-apropos): Speed up by using add-to-list instead of manual consing.

Browse source
This commit is contained in:
Eli Zaretskii 2006-05-20 20:16:59 +00:00
parent 59ad6ae53b
commit 9ef5b4323d
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/info.el
View file

@ -2918,7 +2918,9 @@ Build a menu of the possible matches."
(goto-char (point-min))
(re-search-forward "\\* Menu: *\n" nil t)
(while (re-search-forward "\\*.*: *(\\([^)]+\\))" nil t)
(setq manuals (cons (match-string 1) manuals)))
;; add-to-list makes sure we don't have duplicates in `manuals',
;; so that the following dolist loop runs faster.
(add-to-list 'manuals (match-string 1)))
(dolist (manual (nreverse manuals))
(message "Searching %s" manual)
(condition-case err