emacs-29 3619663f982: Preserve peer information for web page in eww-readable

[Eli Zaretskii]

branch: emacs-29
commit 3619663f9822f7732854a13e6a890cb0925fbfaa
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eli Zaretskii <eliz@gnu.org>

    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)
---
 lisp/net/eww.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 22b078217bd..eac47e592b2 100644
--- 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)))