From: yamaoka <yamaoka>
Date: Tue, 8 Dec 1998 10:07:11 +0000 (+0000)
Subject: * poem-20.el (write-region-as-binary): Bind `jam-zcat-filename-list' with nil.
X-Git-Tag: apel-199812081900~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=96370ccd89bbd24a769136785972eb17aac6f859

* 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.
---

diff --git a/ChangeLog b/ChangeLog
index bb5bdf0..b89b8f7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1998-12-08  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* 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   <yamaoka@jpl.org>
 
 	* 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)