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

diff --git a/emu-20.el b/emu-20.el
index 329c4f9..d02680b 100644 (file)
--- 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.