diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-08-08 00:20:19 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2005-08-08 00:20:19 +0000 |
| commit | b499789ca4bc09fc61a6746cb15193a6378f231d (patch) | |
| tree | 79e6a52bda33900cf7559054f5782cf420f656f7 /lisp/info.el | |
| parent | bcc7dd61345b60c5a16ef3caaa96a878d1edbd45 (diff) | |
| download | emacs-b499789ca4bc09fc61a6746cb15193a6378f231d.tar.gz | |
(Info-dir-remove-duplicates): Avoid case folding in loop;
instead, keep downcased strings for comparison.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 5 |
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))) |