Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ange-ftp-write-region): Handle case that

Browse source 
succeeding process operation sets a different coding system.
This commit is contained in:
Gerd Moellmann 2000-02-02 15:11:39 +00:00
parent 3433c43f88
commit 65d68537af
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ange-ftp.el
View file

@ -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