From: tomo <tomo>
Date: Tue, 19 Dec 2000 05:49:26 +0000 (+0000)
Subject: (binary-insert-file-contents): Moved to raw-io.el.
X-Git-Tag: semi21-1_14_0-1~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d770e2950477b627b47abf822ffb62f6776ec2a;p=elisp%2Flemi.git

(binary-insert-file-contents): Moved to raw-io.el.
(binary-write-region): Likewise.
---

diff --git a/mime/mime-def.el b/mime/mime-def.el
index 66dfa00..74158ec 100644
--- a/mime/mime-def.el
+++ b/mime/mime-def.el
@@ -77,23 +77,6 @@
 (defsubst regexp-or (&rest args)
   (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
 
-(eval-when-compile (require 'static))
-
-(static-if (and (featurep 'xemacs)
-		(not (featurep 'utf-2000)))
-    (progn
-      (require 'pces)
-      (defalias 'binary-insert-file-contents 'insert-file-contents-as-binary)
-      (defalias 'binary-write-region 'write-region-as-binary))
-  (defalias 'binary-insert-file-contents 'insert-file-contents-literally)
-  (defun binary-write-region (start end filename
-				    &optional append visit lockname)
-    "Like `write-region', q.v., but don't encode."
-    (let ((coding-system-for-write 'binary)
-	  jka-compr-compression-info-list jam-zcat-filename-list)
-      (write-region start end filename append visit lockname)))
-  )
-
 (or (fboundp 'char-int)
     (defalias 'char-int 'identity))