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

instead, keep downcased strings for comparison.

1 files changed, 3 insertions, 2 deletions

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)))