Mercurial > emacs
changeset 64781:72ec215d0ecf
(Info-dir-remove-duplicates): Avoid case folding in loop;
instead, keep downcased strings for comparison.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Mon, 08 Aug 2005 00:18:02 +0000 |
| parents | 4def766e2c3f |
| children | d54a27bfea5d |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))