From: morioka <morioka>
Date: Tue, 11 Aug 1998 02:56:40 +0000 (+0000)
Subject: (write-region-as-raw-text-CRLF): Use `write-region-as-binary' to
X-Git-Tag: apel-8_16~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=48e588aaea2df7b434728846cc5fa44444735706;p=elisp%2Fapel.git

(write-region-as-raw-text-CRLF): Use `write-region-as-binary' to
specify `lockname' in MULE 2.3 based on 19.34; modify regexp to
canonicalize line break code.
---

diff --git a/emu-mule.el b/emu-mule.el
index 6be3828..cbfa40c 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -217,12 +217,12 @@ 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 ((file-coding-system *noconv*))
-	(write-region (point-min)(point-max) filename append visit)
-	))))
+      (write-region-as-binary (point-min)(point-max)
+			      filename append visit lockname)
+      )))
 
 
 ;;; @ MIME charset