From 96370ccd89bbd24a769136785972eb17aac6f859 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Dec 1998 10:07:11 +0000 Subject: [PATCH] * poem-20.el (write-region-as-binary): Bind `jam-zcat-filename-list' with nil. * poem-xm.el (insert-file-contents-as-binary): Likewise. * poem.el: Require `tcp' if the function `open-network-stream' does not exist. --- ChangeLog | 9 +++++++++ poem-20.el | 2 +- poem-xm.el | 1 + poem.el | 4 ++++ 4 files changed, 15 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index bb5bdf0..b89b8f7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +1998-12-08 Katsumi Yamaoka + + * poem-20.el (write-region-as-binary): Bind + `jam-zcat-filename-list' with nil. + * poem-xm.el (insert-file-contents-as-binary): Likewise. + + * poem.el: Require `tcp' if the function `open-network-stream' + does not exist. + 1998-12-04 Katsumi Yamaoka * poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el diff --git a/poem-20.el b/poem-20.el index a8ae858..8ac9b23 100644 --- a/poem-20.el +++ b/poem-20.el @@ -51,7 +51,7 @@ &optional append visit lockname) "Like `write-region', q.v., but don't encode." (let ((coding-system-for-write 'binary) - jka-compr-compression-info-list) + jka-compr-compression-info-list jam-zcat-filename-list) (write-region start end filename append visit lockname))) ;; `insert-file-contents-literally' of Emacs 20 supports diff --git a/poem-xm.el b/poem-xm.el index e64b8bd..e1e7bfb 100644 --- a/poem-xm.el +++ b/poem-xm.el @@ -109,6 +109,7 @@ This function ensures that none of these modifications will take place." (coding-system-for-read 'binary) (coding-system-for-write 'binary) (jka-compr-compression-info-list nil) + (jam-zcat-filename-list nil) (find-buffer-file-type-function (if (fboundp 'find-buffer-file-type) (symbol-function 'find-buffer-file-type) diff --git a/poem.el b/poem.el index 443b576..fabbaae 100644 --- a/poem.el +++ b/poem.el @@ -26,6 +26,10 @@ (require 'poe) +(eval-and-compile + (unless (fboundp 'open-network-stream) + (require 'tcp))) + (cond ((featurep 'mule) (cond ((featurep 'xemacs) (require 'poem-xm) -- 1.7.10.4