diff options
| author | Jason Rumney <jasonr@gnu.org> | 2003-09-02 22:20:29 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2003-09-02 22:20:29 +0000 |
| commit | 6ed24d2e3571dd112db3cd149531c26a37cb37b5 (patch) | |
| tree | 0b06c21c8a276a038fdc035edff39ec708939271 /lisp/international/titdic-cnv.el | |
| parent | a2fcf0296f411f5658bfb1445233e8a58ecbc281 (diff) | |
| download | emacs-6ed24d2e3571dd112db3cd149531c26a37cb37b5.tar.gz | |
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Diffstat (limited to 'lisp/international/titdic-cnv.el')
| -rw-r--r-- | lisp/international/titdic-cnv.el | 5 |
1 files changed, 5 insertions, 0 deletions
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) |