From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 21 Mar 2022 15:01:33 +0000 (+0100)
Subject: Add a new face shr-code
X-Git-Tag: emacs-29.0.90~1931^2~1014
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd5d136777ef30f36807c7e690413846ed38fce1;p=emacs.git

Add a new face shr-code

* lisp/net/shr.el (shr-code): New face (bug#54480).
(shr-tag-code): Use it.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 386f1d6095d..43d34a9d4d1 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -228,6 +228,10 @@ temporarily blinks with this face."
   "Face for <h6> elements."
   :version "28.1")
 
+(defface shr-code '((t :inherit fixed-pitch))
+  "Face used for rendering <code> blocks."
+  :version "29.1")
+
 (defcustom shr-inhibit-images nil
   "If non-nil, inhibit loading images."
   :version "28.1"
@@ -1410,7 +1414,7 @@ ones, in case fg and bg are nil."
   (shr-fontize-dom dom 'underline))
 
 (defun shr-tag-code (dom)
-  (let ((shr-current-font 'fixed-pitch))
+  (let ((shr-current-font 'shr-code))
     (shr-generic dom)))
 
 (defun shr-tag-tt (dom)