diff options
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))) |