Mercurial > emacs
changeset 52415:80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Tue, 02 Sep 2003 22:20:29 +0000 |
| parents | 93ce5f375b46 |
| children | 79fdcc780508 |
| files | lisp/ChangeLog lisp/international/titdic-cnv.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 02 19:14:00 2003 +0000 +++ b/lisp/ChangeLog Tue Sep 02 22:20:29 2003 +0000 @@ -1,3 +1,8 @@ +2003-09-02 Jason Rumney <jasonr@gnu.org> + + * international/titdic-cnv.el (tsang-quick-converter): Fix broken + line-ends from CVS before doing conversion. + 2003-09-02 Glenn Morris <gmorris@ast.cam.ac.uk> * calendar/diary-lib.el (diary-header-line-flag)
--- a/lisp/international/titdic-cnv.el Tue Sep 02 19:14:00 2003 +0000 +++ b/lisp/international/titdic-cnv.el Tue Sep 02 22:20:29 2003 +0000 @@ -768,6 +768,11 @@ (insert "(quail-define-rules\n") (save-excursion (set-buffer dicbuf) + ;; Handle double CR line ends, which result when checking out of + ;; CVS on MS-Windows. + (goto-char (point-min)) + (while (re-search-forward "\r\r$" nil t) + (replace-match "")) (goto-char (point-min)) (search-forward "A440") (beginning-of-line)