comparison lisp/info.el @ 70791:e8009af8c1e1

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

70790:3495dd448af9

	  (setq current-node Info-current-node))
	(message "Searching indices...")
	(goto-char (point-min))
	(re-search-forward "\\* Menu: *\n" nil t)
	(while (re-search-forward "\\*.*: *(\\([^)]+\\))" nil t)
	  (setq manuals (cons (match-string 1) manuals)))
	(dolist (manual (nreverse manuals))
	  (message "Searching %s" manual)
	  (condition-case err
	      (if (setq nodes (Info-index-nodes (Info-find-file manual)))
                  (save-excursion

70791:e8009af8c1e1

	  (setq current-node Info-current-node))
	(message "Searching indices...")
	(goto-char (point-min))
	(re-search-forward "\\* Menu: *\n" nil t)
	(while (re-search-forward "\\*.*: *(\\([^)]+\\))" nil t)
	  ;; 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
	      (if (setq nodes (Info-index-nodes (Info-find-file manual)))
                  (save-excursion