master 474f5b21b4: Add support for <mark> in shr

[Lars Ingebrigtsen]

branch: master
commit 474f5b21b43efd4c2f60bfdfa385c8b522bf12c8
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add support for <mark> in shr
    
    * lisp/net/shr.el (shr-mark): New face (bug#48211).
    (shr-tag-mark): New function
---
 lisp/net/shr.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 0645f4721a..63f313bbf4 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -232,6 +232,11 @@ temporarily blinks with this face."
   "Face used for rendering <code> blocks."
   :version "29.1")
 
+(defface shr-mark
+  '((t :background "yellow" :foreground "black"))
+  "Face used for <mark> elements."
+  :version "29.1")
+
 (defcustom shr-inhibit-images nil
   "If non-nil, inhibit loading images."
   :version "28.1"
@@ -1422,6 +1427,14 @@ ones, in case fg and bg are nil."
   ;; The `tt' tag is deprecated in favor of `code'.
   (shr-tag-code dom))
 
+(defun shr-tag-mark (dom)
+  (when (and (not (bobp))
+             (not (= (char-after (1- (point))) ?\s)))
+    (insert " "))
+  (let ((start (point)))
+    (shr-generic dom)
+    (shr-add-font start (point) 'shr-mark)))
+
 (defun shr-tag-ins (cont)
   (let* ((start (point))
          (color "green")