# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 941000152 0
# Node ID 41fc37a93f9e5cd78547ff3c1bf112232cd6d8f9
# Parent  6526ea25c4ddd5a1e516bfaa797ab729740088ce
(ange-ftp-insert-file-contents): Don't change
last-coding-system-used by the call of ange-ftp-set-ascii-mode.

diff -r 6526ea25c4dd -r 41fc37a93f9e lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Tue Oct 26 23:28:36 1999 +0000
+++ b/lisp/ange-ftp.el	Wed Oct 27 04:55:52 1999 +0000
@@ -3217,7 +3217,10 @@
 				  "FTP Error: %s not arrived or readable"
 				  filename)))))
 		  (if binary
-		      (ange-ftp-set-ascii-mode host user))
+		      ;; We must keep `last-coding-system-used'
+		      ;; unchanged.
+		      (let (last-coding-system-used)
+			(ange-ftp-set-ascii-mode host user)))
 		  (ange-ftp-del-tmp-name temp))
 		(if visit
 		    (progn