From 6ed24d2e3571dd112db3cd149531c26a37cb37b5 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Tue, 2 Sep 2003 22:20:29 +0000 Subject: (tsang-quick-converter): Fix broken line-ends from CVS before doing conversion. --- lisp/international/titdic-cnv.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/international/titdic-cnv.el') 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) -- cgit v1.2.1