From 5d770e2950477b627b47abf822ffb62f6776ec2a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 05:49:26 +0000 Subject: [PATCH] (binary-insert-file-contents): Moved to raw-io.el. (binary-write-region): Likewise. --- mime/mime-def.el | 17 ----------------- 1 file changed, 17 deletions(-) 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)) -- 1.7.10.4