Preserve peer information for web page in eww-readable

The :peer property in eww-data affects the face of the page title
in 'header-line-format' as set by 'eww-update-header-line-format'.
Preserving this property in eww-readable avoids having the header
line's appearance change when this command is called.
* lisp/net/eww.el (eww-readable): Preserve eww-data's :peer
property.  (Bug#62574)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 22b078217bdde4346f3d209edc3105771ed8e3cc..eac47e592b2de79c01ff49113bd1710f10babd6b 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1012,7 +1012,7 @@ the like."
                       (list 'base (list (cons 'href base))
                             (eww-highest-readability dom))
                      nil (current-buffer))
-    (dolist (elem '(:source :url :title :next :previous :up))
+    (dolist (elem '(:source :url :title :next :previous :up :peer))
       (plist-put eww-data elem (plist-get old-data elem)))
     (eww--after-page-change)))