From: yamaoka Date: Fri, 22 Dec 2000 08:18:36 +0000 (+0000) Subject: * raw-io.el: Require `pces' X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a8718a81e89ad74f5d19fb59079b3a5e883403ed;p=elisp%2Fflim.git * raw-io.el: Require `pces' (binary-insert-file-contents): Alias to `insert-file-contents-as-binary'. (binary-write-region): Alias to `write-region-as-binary'. (binary-find-file-noselect): Alias to `find-file-noselect-as-binary'. (binary-open-network-stream): Alias to `open-network-stream-as-binary'. (binary-start-process): Use `as-binary-process'. (binary-start-process-shell-command): Use `as-binary-process'. (raw-text-insert-file-contents): Alias to `insert-file-contents-as-raw-text'. (raw-message-write-region): Alias to `write-region-as-raw-text-CRLF'. --- diff --git a/raw-io.el b/raw-io.el index 0074dea..19de7be 100644 --- a/raw-io.el +++ b/raw-io.el @@ -25,12 +25,10 @@ ;;; Code: (eval-when-compile (require 'static)) + (require 'pces) -(static-if (and (featurep 'xemacs) - (not (featurep 'utf-2000))) - (defalias 'binary-insert-file-contents 'insert-file-contents-as-binary) - (defalias 'binary-insert-file-contents 'insert-file-contents-literally)) +(defalias 'binary-insert-file-contents 'insert-file-contents-as-binary) (defalias 'binary-write-region 'write-region-as-binary)