[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el
From: |
Jason Rumney |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/titdic-cnv.el |
Date: |
Tue, 02 Sep 2003 18:19:28 -0400 |
Index: emacs/lisp/international/titdic-cnv.el
diff -c emacs/lisp/international/titdic-cnv.el:1.38
emacs/lisp/international/titdic-cnv.el:1.39
*** emacs/lisp/international/titdic-cnv.el:1.38 Mon Sep 1 17:35:48 2003
--- emacs/lisp/international/titdic-cnv.el Tue Sep 2 18:19:28 2003
***************
*** 768,773 ****
--- 768,778 ----
(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)