# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 990098668 0
# Node ID a3b587b05ab36f9ff9f6e1b51155b3e0fb6ced29
# Parent  9b4454d43e72a88a2cf1025553631707b0376910
(ange-ftp-write-region): Make sure to record the
last coding system used before calling set-buffer-modified-p
because that function changes last-coding-system.

diff -r 9b4454d43e72 -r a3b587b05ab3 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Thu May 17 11:00:07 2001 +0000
+++ b/lisp/net/ange-ftp.el	Thu May 17 11:24:28 2001 +0000
@@ -1,6 +1,7 @@
 ;;; ange-ftp.el --- transparent FTP support for GNU Emacs
 
-;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 00  Free Software Foundation, Inc.
+;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 2000, 2001
+;;  Free Software Foundation, Inc.
 
 ;; Author: Andy Norman (ange@hplb.hpl.hp.com)
 ;; Maintainer: FSF
@@ -3141,12 +3142,13 @@
 		      (filename (buffer-file-name))
 		      (mod-p (buffer-modified-p)))
 		  (unwind-protect
-		      (ange-ftp-real-write-region start end temp nil visit)
+		      (progn
+			(ange-ftp-real-write-region start end temp nil visit)
+			(setq coding-system-used last-coding-system-used))
 		    ;; cleanup forms
+		    (setq coding-system-used last-coding-system-used)
 		    (setq buffer-file-name filename)
 		    (set-buffer-modified-p mod-p)))
-		;; save value used by the real write-region
-		(setq coding-system-used last-coding-system-used)
 		(if binary
 		    (ange-ftp-set-binary-mode host user))