From 6ed24d2e3571dd112db3cd149531c26a37cb37b5 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 2 Sep 2003 22:20:29 +0000 Subject: [PATCH] (tsang-quick-converter): Fix broken line-ends from CVS before doing conversion. --- lisp/ChangeLog | 5 +++++ lisp/international/titdic-cnv.el | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 579604522d6..86bb9ddcf3c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-09-02 Jason Rumney + + * international/titdic-cnv.el (tsang-quick-converter): Fix broken + line-ends from CVS before doing conversion. + 2003-09-02 Glenn Morris * calendar/diary-lib.el (diary-header-line-flag) diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 118fe2c2494..759df5fd949 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -768,6 +768,11 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." (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) -- 2.39.2