# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 806704027 0
# Node ID 07ba0f6e9adadcc38b18c060ee877b5857bae806
# Parent  3c0fbefb3833e68a32810306af69a442ed9306f6
(tar-copy): Inhibit use of jka-compr handler
when both to- and from- files would use it.

diff -r 3c0fbefb3833 -r 07ba0f6e9ada lisp/tar-mode.el
--- a/lisp/tar-mode.el	Tue Jul 25 20:26:10 1995 +0000
+++ b/lisp/tar-mode.el	Tue Jul 25 20:27:07 1995 +0000
@@ -789,9 +789,20 @@
 	 (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)))