procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Decode the HTML source when displaying it in EWW

Browse source 
* lisp/net/eww.el (eww-view-source): Decode the HTML source
according to its headers.
This commit is contained in:
Eli Zaretskii 2015-10-23 12:23:23 +03:00
parent b3d065d2ef
commit 0f7334147d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/eww.el
View file

@ -564,6 +564,15 @@ Currently this means either text/html or application/xhtml+xml."
(delete-region (point-min) (point-max))
(insert (or source "no source"))
(goto-char (point-min))
;; Decode the source and set the buffer's encoding according
;; to what the HTML source specifies in its 'charset' header,
;; if any.
(let ((cs (find-auto-coding "" (point-max))))
(when (consp cs)
(setq cs (car cs))
(when (coding-system-p cs)
(decode-coding-region (point-min) (point-max) cs)
(setq buffer-file-coding-system last-coding-system-used))))
(when (fboundp 'html-mode)
(html-mode))))
(view-buffer buf)))