From: morioka <morioka>
Date: Mon, 10 Aug 1998 18:10:44 +0000 (+0000)
Subject: (write-region-as-raw-text-CRLF): Renamed from `write-region-as-CRLF'.
X-Git-Tag: apel-8_16~36
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4070fd4bdb9213cecb51caadaab80e871d2c3793;p=elisp%2Fapel.git

(write-region-as-raw-text-CRLF): Renamed from `write-region-as-CRLF'.
---

diff --git a/emu-20.el b/emu-20.el
index ea174fd..4a60397 100644
--- a/emu-20.el
+++ b/emu-20.el
@@ -70,13 +70,6 @@ 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.
@@ -89,6 +82,13 @@ code."
     (insert-file-contents filename visit beg end replace)
     ))
 
+(defun write-region-as-raw-text-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)
+    ))
+
 
 ;;; @@ Mule emulating aliases
 ;;;