From 98fccfffa5fc60c2c600cf1aae640ad84846515e Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 7 Aug 1998 13:50:04 +0000 Subject: [PATCH] (write-region-as-CRLF): New function. --- emu-20.el | 7 +++++++ 1 file changed, 7 insertions(+) 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. -- 1.7.10.4