From: morioka <morioka>
Date: Fri, 7 Aug 1998 13:50:04 +0000 (+0000)
Subject: (write-region-as-CRLF): New function.
X-Git-Tag: apel-8_16~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=98fccfffa5fc60c2c600cf1aae640ad84846515e;p=elisp%2Fapel.git

(write-region-as-CRLF): New function.
---

diff --git a/emu-20.el b/emu-20.el
index 329c4f9..d02680b 100644
--- a/emu-20.el
+++ b/emu-20.el
@@ -70,6 +70,13 @@ code conversion will not take place."
     (insert-file-contents filename visit beg end replace)
     ))
 
+(defun write-region-as-CRLF (start end filename
+				   &optional append visit lockname)
+  "Like `write-region', q.v., but write as network representation."
+  (let ((coding-system-for-write 'raw-text-dos))
+    (write-region start end filename append visit lockname)
+    ))
+
 (defun insert-file-contents-as-raw-text (filename
 					 &optional visit beg end replace)
   "Like `insert-file-contents', q.v., but don't code and format conversion.