From 2ca0d5f1130631c099b865185fc3257331209b6f Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 17 May 2001 11:26:56 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 6 ++++++ lisp/net/ange-ftp.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ed98c45b4c..7608adc8f89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-05-17 Gerd Moellmann + + * net/ange-ftp.el (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. + 2001-05-17 Eli Zaretskii * files.el (switch-to-buffer-other-window) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index e307a7dbfd4..9f3a2ed752e 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -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 @@ system TYPE.") (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)) -- 2.39.5