(Info-dir-remove-duplicates): Avoid case folding in loop;

instead, keep downcased strings for comparison.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c70ccb0d7ff8b0060d9a7f6884b9ae163e4be757..6347844b6ad45a8057882f97582a0830172994d1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-08-08  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * info.el (Info-dir-remove-duplicates): Avoid case folding
+       in loop; instead, keep downcased strings for comparison.
+       Suggested by Helmut Eller.
+
 2005-08-07  Michael Albinus  <michael.albinus@gmx.de>
 
        Sync with Tramp 2.0.50.

diff --git a/lisp/info.el b/lisp/info.el
index 78a9e8a08a2d9622efe9b0727f45c8df956c2273..b97ad624d2dde27e51fefa5eb29851c69ab08b4b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1157,8 +1157,9 @@ a case-insensitive match is tried."
            (goto-char start)
            (while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)"
                                      limit 'move)
-             (let ((x (match-string 1)))
-               (if (member-ignore-case x seen)
+             ;; Fold case straight away; `member-ignore-case' here wasteful.
+             (let ((x (downcase (match-string 1))))
+               (if (member x seen)
                    (delete-region (match-beginning 0)
                                   (progn (re-search-forward "^[^ \t]" nil t)
                                          (match-beginning 0)))