From: morioka <morioka>
Date: Tue, 11 Aug 1998 03:19:08 +0000 (+0000)
Subject: (write-region-as-raw-text-CRLF): Fix regexp to canonicalize line break
X-Git-Tag: apel-8_16~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=45812e5866d527f7bd1a0d4629473e46c68d8643;p=elisp%2Fapel.git

(write-region-as-raw-text-CRLF): Fix regexp to canonicalize line break
code.
---

diff --git a/emu-latin1.el b/emu-latin1.el
index eb03753..45bc9a6 100644
--- a/emu-latin1.el
+++ b/emu-latin1.el
@@ -193,7 +193,7 @@ find-file-hooks, etc.
     (with-temp-buffer
       (insert-buffer-substring the-buf start end)
       (goto-char (point-min))
-      (while (re-search-forward "\\([^\r]\\)\n" nil t)
+      (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
 	(replace-match "\\1\r\n")
 	)
       (write-region (point-min)(point-max) filename append visit lockname)
diff --git a/emu-nemacs.el b/emu-nemacs.el
index b06466f..1c53e14 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -254,7 +254,7 @@ find-file-hooks, etc.
     (with-temp-buffer
       (insert-buffer-substring the-buf start end)
       (goto-char (point-min))
-      (while (re-search-forward "\\([^\r]\\)\n" nil t)
+      (while (re-search-forward "\\(\\=\\|[^\r]\\)\n" nil t)
 	(replace-match "\\1\r\n")
 	)
       (let (kanji-flag)