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 8722e849f7
)
Backport:
This commit is contained in:
parent
8212135720
commit
9935e7cc8c
1 changed files with 4 additions and 2 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue