*** /tmp/ediffbH3AAE	2021-01-27 13:53:52.977038661 +0100
--- /home/albinus/src/tramp/lisp/tramp-adb.el	2021-01-27 13:50:06.700135579 +0100
***************
*** 636,642 ****
        (copy-directory filename newname keep-date t)

      (let ((t1 (tramp-tramp-file-p filename))
! 	  (t2 (tramp-tramp-file-p newname)))
        (with-parsed-tramp-file-name (if t1 filename newname) nil
  	(unless (file-exists-p filename)
  	  (tramp-error
--- 636,645 ----
        (copy-directory filename newname keep-date t)

      (let ((t1 (tramp-tramp-file-p filename))
! 	  (t2 (tramp-tramp-file-p newname))
! 	  ;; We don't want the target file to be compressed, so we
! 	  ;; let-bind `jka-compr-inhibit' to t.
! 	  (jka-compr-inhibit t))
        (with-parsed-tramp-file-name (if t1 filename newname) nil
  	(unless (file-exists-p filename)
  	  (tramp-error
***************
*** 717,723 ****
  	(delete-directory filename 'recursive))

      (let ((t1 (tramp-tramp-file-p filename))
! 	  (t2 (tramp-tramp-file-p newname)))
        (with-parsed-tramp-file-name (if t1 filename newname) nil
  	(unless (file-exists-p filename)
  	  (tramp-error
--- 720,729 ----
  	(delete-directory filename 'recursive))

      (let ((t1 (tramp-tramp-file-p filename))
! 	  (t2 (tramp-tramp-file-p newname))
! 	  ;; We don't want the target file to be compressed, so we
! 	  ;; let-bind `jka-compr-inhibit' to t.
! 	  (jka-compr-inhibit t))
        (with-parsed-tramp-file-name (if t1 filename newname) nil
  	(unless (file-exists-p filename)
  	  (tramp-error