From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 25 May 2015 18:31:54 +0000 (+0200)
Subject: Improve fix of debbugs:20634 in tramp-sh.el
X-Git-Tag: emacs-25.0.90~1974
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=175a07a1329eb03176882436af86b3401c91ab77;p=emacs.git

Improve fix of debbugs:20634 in tramp-sh.el
---

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index f2d7d86fa68..493f3d11e5b 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2129,9 +2129,10 @@ KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME."
   (let ((coding-system-for-read 'binary)
 	(coding-system-for-write 'binary)
 	(jka-compr-inhibit t)
+	(inhibit-file-name-operation 'write-region)
 	(inhibit-file-name-handlers
-	 (cons epa-file-handler
-               (remq 'tramp-file-name-handler inhibit-file-name-handlers))))
+	 (cons 'epa-file-handler
+	       (remq 'tramp-file-name-handler inhibit-file-name-handlers))))
     (with-temp-file newname
       (set-buffer-multibyte nil)
       (insert-file-contents-literally filename)))
@@ -3754,9 +3755,11 @@ Only send the definition if it has not already been done."
 	 (tramp-get-connection-process vec) "scripts" (cons name scripts))))))
 
 (defun tramp-set-auto-save ()
-  (when (and ;; ange-ftp has its own auto-save mechanism
+  (when (and ;; ange-ftp has its own auto-save mechanism.
 	     (eq (tramp-find-foreign-file-name-handler (buffer-file-name))
 		 'tramp-sh-file-name-handler)
+             ;; epa has its own auto-save mechanism.
+             (not epa-file-inhibit-auto-save)
              auto-save-default)
     (auto-save-mode 1)))
 (add-hook 'find-file-hooks 'tramp-set-auto-save t)