From 278afa4948111249e753e928f95faa35ffbfd0ab Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Dec 2000 07:08:44 +0000 Subject: [PATCH] Don't require `poem'. (binary-insert-file-contents): New function. (binary-write-region): New function. --- mime-def.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/mime-def.el b/mime-def.el index bb75c72..5db2cf9 100644 --- a/mime-def.el +++ b/mime-def.el @@ -25,7 +25,6 @@ ;;; Code: (require 'poe) -(require 'poem) (require 'custom) (require 'mcharset) (require 'alist) @@ -79,7 +78,24 @@ (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))) + ) + ;;; @ about STD 11 ;;; -- 1.7.10.4