aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2018-03-02 10:44:44 +0200
committerEli Zaretskii2018-03-02 10:44:44 +0200
commit04da8f4c292bf9cd666f883181afd1de32d0f67f (patch)
tree149b9260372fb59b1c86ba6249f66a46419703d9
parent832b9ece366bc79b410d8628bbad877bdb245080 (diff)
downloademacs-04da8f4c292bf9cd666f883181afd1de32d0f67f.tar.gz
emacs-04da8f4c292bf9cd666f883181afd1de32d0f67f.zip
Fix downloading non-text files in EWW
* lisp/net/eww.el (eww-download-callback): Bind coding-system-for-read to 'no-conversion', to avoid any code- or EOL-conversions in downloaded files. (Bug#30664)
-rw-r--r--lisp/net/eww.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index caac96a4859..66b1767b563 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1532,7 +1532,8 @@ Differences in #targets are ignored."
1532 eww-download-directory))) 1532 eww-download-directory)))
1533 (goto-char (point-min)) 1533 (goto-char (point-min))
1534 (re-search-forward "\r?\n\r?\n") 1534 (re-search-forward "\r?\n\r?\n")
1535 (write-region (point) (point-max) file) 1535 (let ((coding-system-for-write 'no-conversion))
1536 (write-region (point) (point-max) file))
1536 (message "Saved %s" file)))) 1537 (message "Saved %s" file))))
1537 1538
1538(defun eww-decode-url-file-name (string) 1539(defun eww-decode-url-file-name (string)