# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1062541229 0
# Node ID 80d4785de4a0aa0960a1829957342a11d012dc7d
# Parent  93ce5f375b467edf3548186dc290e3aa0772b2c1
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.

diff -r 93ce5f375b46 -r 80d4785de4a0 lisp/ChangeLog
--- 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)
diff -r 93ce5f375b46 -r 80d4785de4a0 lisp/international/titdic-cnv.el
--- 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)