(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 (file)
--- 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 (file)
--- 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)