diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-09 13:51:45 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-09 13:52:27 +1100 |
| commit | 9935e7cc8ca61bc0852eefe1142e4c8c62416c73 (patch) | |
| tree | 4709ad398bdd37210b7e1ee63e587869c180a058 | |
| parent | 821213572075b3f5a97676f48aeb6733bf437277 (diff) | |
| download | emacs-9935e7cc8ca61bc0852eefe1142e4c8c62416c73.tar.gz | |
Make the `R' command get the correct relative <img>s
* lisp/net/eww.el (eww-readable): Preserve the base URL so
that image expansions are fetched from the right place (bug#22605).
(cherry picked from commit 8722e849f75ceafb82a1c17105e8ab76077a8ebc)
Backport:
| -rw-r--r-- | lisp/net/eww.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 5e24d4fef4e..da920c14aec 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -615,11 +615,13 @@ the like." (condition-case nil (decode-coding-region (point-min) (point-max) 'utf-8) (coding-system-error nil)) - (libxml-parse-html-region (point-min) (point-max))))) + (libxml-parse-html-region (point-min) (point-max)))) + (base (plist-get eww-data :url))) (eww-score-readability dom) (eww-save-history) (eww-display-html nil nil - (eww-highest-readability dom) + (list 'base (list (cons 'href base)) + (eww-highest-readability dom)) nil (current-buffer)) (dolist (elem '(:source :url :title :next :previous :up)) (plist-put eww-data elem (plist-get old-data elem))) |