[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bd5d136777: Add a new face shr-code
From: |
Lars Ingebrigtsen |
Subject: |
master bd5d136777: Add a new face shr-code |
Date: |
Mon, 21 Mar 2022 11:02:08 -0400 (EDT) |
branch: master
commit bd5d136777ef30f36807c7e690413846ed38fce1
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add a new face shr-code
* lisp/net/shr.el (shr-code): New face (bug#54480).
(shr-tag-code): Use it.
---
lisp/net/shr.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 386f1d6095..43d34a9d4d 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master bd5d136777: Add a new face shr-code,
Lars Ingebrigtsen <=