Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.438 emacs/lisp/info.el:1.439
*** emacs/lisp/info.el:1.438 Sat Aug 6 22:13:43 2005
--- emacs/lisp/info.el Mon Aug 8 00:18:02 2005
***************
*** 1157,1164 ****
(goto-char start)
(while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)"
limit 'move)
! (let ((x (match-string 1)))
! (if (member-ignore-case x seen)
(delete-region (match-beginning 0)
(progn (re-search-forward "^[^ \t]" nil t)
(match-beginning 0)))
--- 1157,1165 ----
(goto-char start)
(while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)"
limit 'move)
! ;; 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)))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
