From: morioka <morioka>
Date: Tue, 11 Aug 1998 03:17:03 +0000 (+0000)
Subject: (write-region-as-raw-text-CRLF): Revert regexp to canonicalize line
X-Git-Tag: apel-8_16~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=36abaf991bbe2524354ee0a2119df94ae32c3ab3;p=elisp%2Fapel.git

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

diff --git a/emu-mule.el b/emu-mule.el
index cbfa40c..6c31639 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -217,7 +217,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-as-binary (point-min)(point-max)