From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Jul 1995 20:27:07 +0000 (+0000)
Subject: (tar-copy): Inhibit use of jka-compr handler
X-Git-Tag: emacs-19.34~3197
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4ec0200803c5e90502e55e4e1c71b93f296c992;p=emacs.git

(tar-copy): Inhibit use of jka-compr handler
when both to- and from- files would use it.
---

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index dfc555c97e9..e0cdf304b72 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -789,9 +789,20 @@ the current tar-entry."
 	 (name (tar-header-name tokens))
 	 (size (tar-header-size tokens))
 	 (start (+ (tar-desc-data-start descriptor) tar-header-offset -1))
-	 (end (+ start size)))
+	 (end (+ start size))
+	 (inhibit-file-name-handlers inhibit-file-name-handlers)
+	 (inhibit-file-name-operation inhibit-file-name-operation))
     (save-restriction
       (widen)
+      ;; Inhibit compressing a subfile again if *both* name and
+      ;; to-file are handled by jka-compr
+      (if (and (eq (find-file-name-handler name 'write-region) 'jka-compr-handler)
+	       (eq (find-file-name-handler to-file 'write-region) 'jka-compr-handler))
+	  (setq inhibit-file-name-handlers
+		(cons 'jka-compr-handler
+		      (and (eq inhibit-file-name-operation 'write-region)
+			   inhibit-file-name-handlers))
+		inhibit-file-name-operation 'write-region))
       (write-region start end to-file))
     (message "Copied tar entry %s to %s" name to-file)))