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

instead, keep downcased strings for comparison.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c70ccb0d7ff..6347844b6ad 100644
--- 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 78a9e8a08a2..b97ad624d2d 100644
--- 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)))