comparison lisp/net/ange-ftp.el @ 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.

37773:9b4454d43e72

;;; 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.

;; Author: Andy Norman ([e-mail])
;; Maintainer: FSF
;; Keywords: comm

	      (progn
		(let ((executing-kbd-macro t)
		      (filename (buffer-file-name))
		      (mod-p (buffer-modified-p)))
		  (unwind-protect
		      (ange-ftp-real-write-region start end temp nil visit)
		    ;; cleanup forms
		    (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))

		;; tell the process filter what size the transfer will be.
		(let ((attr (file-attributes temp)))

37774:a3b587b05ab3

;;; ange-ftp.el --- transparent FTP support for GNU Emacs

;; Copyright (C) 1989,90,91,92,93,94,95,96,98, 2000, 2001
;;  Free Software Foundation, Inc.

;; Author: Andy Norman ([e-mail])
;; Maintainer: FSF
;; Keywords: comm

	      (progn
		(let ((executing-kbd-macro t)
		      (filename (buffer-file-name))
		      (mod-p (buffer-modified-p)))
		  (unwind-protect
		      (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)))
		(if binary
		    (ange-ftp-set-binary-mode host user))

		;; tell the process filter what size the transfer will be.
		(let ((attr (file-attributes temp)))