mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-17 03:10:58 -08:00
Populate the ':title' in EWW when defaulting to readable mode
Do not merge to master. * lisp/net/eww.el (eww-display-document): Always render the full document first to populate ':title' (bug#77299).
This commit is contained in:
parent
e51ff3ee66
commit
db6cbee742
1 changed files with 6 additions and 0 deletions
|
|
@ -828,6 +828,12 @@ This replaces the region with the preprocessed HTML."
|
||||||
(unless document
|
(unless document
|
||||||
(let ((dom (eww--parse-html-region (point) (point-max) charset)))
|
(let ((dom (eww--parse-html-region (point) (point-max) charset)))
|
||||||
(when (eww-default-readable-p url)
|
(when (eww-default-readable-p url)
|
||||||
|
;; HACK: Work around bug#77299. By displaying the full
|
||||||
|
;; document first, we can ensure that the `:title' property in
|
||||||
|
;; `eww-data' gets set properly. This is inefficient, since
|
||||||
|
;; it requires rendering the document twice.
|
||||||
|
(let ((shr-inhibit-images t))
|
||||||
|
(eww-display-document (eww-document-base url dom) point buffer))
|
||||||
(eww-score-readability dom)
|
(eww-score-readability dom)
|
||||||
(setq dom (eww-highest-readability dom))
|
(setq dom (eww-highest-readability dom))
|
||||||
(with-current-buffer buffer
|
(with-current-buffer buffer
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue