[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Sat, 20 May 2006 20:16:59 +0000 |
Index: emacs/lisp/info.el
diff -u emacs/lisp/info.el:1.484 emacs/lisp/info.el:1.485
--- emacs/lisp/info.el:1.484 Sat May 20 20:06:45 2006
+++ emacs/lisp/info.el Sat May 20 20:16:59 2006
@@ -2918,7 +2918,9 @@
(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