(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.

lisp/ChangeLog

+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)

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)