procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
instead, keep downcased strings for comparison.
This commit is contained in:
Thien-Thi Nguyen 2005-08-08 00:20:19 +00:00
parent bcc7dd6134
commit b499789ca4
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
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.

5
lisp/info.el
View file

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