From: Kenichi Handa <handa@m17n.org>
Date: Wed, 27 Oct 1999 04:59:52 +0000 (+0000)
Subject: (ange-ftp-insert-file-contents): Don't change
X-Git-Tag: emacs-pretest-21.0.90~6285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a21da928c0a018d7d7330e77f0feba2b6a82aaf3;p=emacs.git

(ange-ftp-insert-file-contents): Don't change
last-coding-system-used by the call of ange-ftp-set-ascii-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e8065ccbeb..edfa5da9b9e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-27  Kenichi Handa  <handa@etl.go.jp>
+
+	* ange-ftp.el (ange-ftp-insert-file-contents): Don't change
+	last-coding-system-used by the call of ange-ftp-set-ascii-mode.
+
 1999-10-27  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
 	* emacs-lisp/advice.el (ad-activate-internal): Renamed from
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index d9cfc0e246d..68f8f954253 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3217,7 +3217,10 @@ system TYPE.")
 				  "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