From 65d68537afbe22f080645f12bfa5e07a916b97a4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 2 Feb 2000 15:11:39 +0000 Subject: [PATCH] (ange-ftp-write-region): Handle case that succeeding process operation sets a different coding system. --- lisp/ange-ftp.el | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.39.5