From 4070fd4bdb9213cecb51caadaab80e871d2c3793 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 10 Aug 1998 18:10:44 +0000 Subject: [PATCH] (write-region-as-raw-text-CRLF): Renamed from `write-region-as-CRLF'. --- emu-20.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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 ;;; -- 1.7.10.4