diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-02-02 15:11:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-02-02 15:11:39 +0000 |
| commit | 65d68537afbe22f080645f12bfa5e07a916b97a4 (patch) | |
| tree | da3f89ade47f0914aa23a5b90b1d04b28dce4792 | |
| parent | 3433c43f88f851b40540dac5655122b92f55d2ef (diff) | |
| download | emacs-65d68537afbe22f080645f12bfa5e07a916b97a4.tar.gz | |
(ange-ftp-write-region): Handle case that
succeeding process operation sets a different coding system.
| -rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 3 insertions, 0 deletions
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 |