diff options
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 7f9f4fad414..91a17755244 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -410,6 +410,10 @@ Currently this means either text/html or application/xhtml+xml." (condition-case nil (decode-coding-region (point) (point-max) encode) (coding-system-error nil)) + (save-excursion + ;; Remove CRLF before parsing. + (while (re-search-forward "\r$" nil t) + (replace-match "" t t))) (libxml-parse-html-region (point) (point-max)))))) (source (and (null document) (buffer-substring (point) (point-max))))) @@ -1531,11 +1535,10 @@ If CHARSET is nil then use UTF-8." (defun eww-toggle-fonts () "Toggle whether to use monospaced or font-enabled layouts." (interactive) - (message "Fonts are now %s" - (if (setq shr-use-fonts (not shr-use-fonts)) - "on" - "off")) - (eww-reload)) + (setq shr-use-fonts (not shr-use-fonts)) + (eww-reload) + (message "Proportional fonts are now %s" + (if shr-use-fonts "on" "off"))) (defun eww-toggle-colors () "Toggle whether to use HTML-specified colors or not." |