# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1123460282 0
# Node ID 72ec215d0ecf7507fcc69356529d65d48fbc57fb
# Parent  4def766e2c3fc7f9ad6cdde31e463a593d8134e6
(Info-dir-remove-duplicates): Avoid case folding in loop;
instead, keep downcased strings for comparison.

diff -r 4def766e2c3f -r 72ec215d0ecf lisp/info.el
--- a/lisp/info.el	Sun Aug 07 23:56:33 2005 +0000
+++ b/lisp/info.el	Mon Aug 08 00:18:02 2005 +0000
@@ -1157,8 +1157,9 @@
 	    (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)))