Commit 2ca0d5f1 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(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.
parent 8f7cad1f
2001-05-17 Gerd Moellmann <gerd@gnu.org>
* 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 <eliz@is.elta.co.il>
 
* files.el (switch-to-buffer-other-window)
......
;;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment