Mercurial > emacs
changeset 37774:a3b587b05ab3
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 17 May 2001 11:24:28 +0000 |
| parents | 9b4454d43e72 |
| children | 79cf203bbd1a |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))