From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 31 Mar 2023 14:54:12 +0000 (+0300)
Subject: Preserve peer information for web page in eww-readable
X-Git-Tag: emacs-29.0.90~39
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3619663f9822f7732854a13e6a890cb0925fbfaa;p=emacs.git

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 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)))