summaryrefslogtreecommitdiff
path: root/lisp/net/ange-ftp.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2011-06-09 12:40:51 +0300
committerEli Zaretskii <eliz@gnu.org>2011-06-09 12:40:51 +0300
commit638e9005f1a275c6f8f3298ae7aaca4dba3abb25 (patch)
tree23daaad5b163011c0b24cf89f63d3164e5b87d2a /lisp/net/ange-ftp.el
parent499719b7762b7dea99f0306b9d907ba50432215e (diff)
downloademacs-638e9005f1a275c6f8f3298ae7aaca4dba3abb25.tar.gz
Fix bug #8780 with decoding files after using ange-ftp.
lisp/net/ange-ftp.el (ange-ftp-insert-file-contents): Let-bind buffer-file-type before setting its value, to avoid disastrous global effects on decoding files for DOS/Windows systems.
Diffstat (limited to 'lisp/net/ange-ftp.el')
-rw-r--r--lisp/net/ange-ftp.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index c009671ce7c..a3a11756253 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3290,6 +3290,7 @@ system TYPE.")
(binary (or (ange-ftp-binary-file filename)
(memq (ange-ftp-host-type host user)
'(unix dumb-unix))))
+ (buffer-file-type buffer-file-type)
(abbr (ange-ftp-abbreviate-filename filename))
(coding-system-used last-coding-system-used)
size)