From a21da928c0a018d7d7330e77f0feba2b6a82aaf3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 27 Oct 1999 04:59:52 +0000 Subject: [PATCH] (ange-ftp-insert-file-contents): Don't change last-coding-system-used by the call of ange-ftp-set-ascii-mode. --- lisp/ChangeLog | 5 +++++ lisp/ange-ftp.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.5