From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 2 Feb 2000 15:11:39 +0000 (+0000)
Subject: (ange-ftp-write-region): Handle case that
X-Git-Tag: emacs-pretest-21.0.90~5119
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65d68537afbe22f080645f12bfa5e07a916b97a4;p=emacs.git

(ange-ftp-write-region): Handle case that
succeeding process operation sets a different coding system.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 6c822d4604a..fb0b03b52e0 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3185,6 +3185,7 @@ system TYPE.")
 				 (memq (ange-ftp-host-type host user)
 				       '(unix dumb-unix))))
 		     (abbr (ange-ftp-abbreviate-filename filename))
+		     (coding-system-used last-coding-system-used)
 		     size)
 		(unwind-protect
 		    (progn
@@ -3207,6 +3208,7 @@ system TYPE.")
 			   size
 			   (nth 1 (ange-ftp-real-insert-file-contents
 				   temp visit beg end replace))
+			   coding-system-used last-coding-system-used
 			   ;; override autodetection of buffer file type
 			   ;; to ensure buffer is saved in DOS format
 			   buffer-file-type binary)
@@ -3226,6 +3228,7 @@ system TYPE.")
 		    (progn
 		      (set-visited-file-modtime '(0 0))
 		      (setq buffer-file-name filename)))
+		(setq last-coding-system-used coding-system-used)
 		(list filename size))
 	    (signal 'file-error
 		    (list