From: morioka <morioka>
Date: Thu, 14 May 1998 07:10:11 +0000 (+0000)
Subject: (write-region-as-binary): fixed.
X-Git-Tag: apel-8_12~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92adc7434ddc9e7eb5130bbf3c2c0000203edf9b;p=elisp%2Fapel.git

(write-region-as-binary): fixed.
---

diff --git a/emu-20.el b/emu-20.el
index 463dce7..d718ed7 100644
--- a/emu-20.el
+++ b/emu-20.el
@@ -53,7 +53,7 @@
 (defun write-region-as-binary (start end filename
 				     &optional append visit lockname)
   "Like `write-region', q.v., but don't code conversion."
-  (let ((coding-system-for-read 'binary))
+  (let ((coding-system-for-write 'binary))
     (write-region start end filename append visit lockname)
     ))