Commit b499789c authored by Thien-Thi Nguyen's avatar Thien-Thi Nguyen
Browse files

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

instead, keep downcased strings for comparison.
parent bcc7dd61
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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment