Mercurial > emacs

diff lisp/international/titdic-cnv.el @ 52415:80d4785de4a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0fda57976189
children 181520e900b2 375f2633d815
line wrap: on
line diff
--- 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)