[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b7d5a64 1/2: Introduce face for <code> elements in shr
From: |
Lars Ingebrigtsen |
Subject: |
master b7d5a64 1/2: Introduce face for <code> elements in shr |
Date: |
Thu, 20 Feb 2020 08:44:25 -0500 (EST) |
branch: master
commit b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0
Author: Kévin Le Gouguec <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Introduce face for <code> elements in shr
* lisp/net/shr.el (shr-tag-code): Don't use the `default' font,
because it has properties that will override surrounding elements
(like <a...>) (bug#39504).
---
lisp/net/shr.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 55c189b..deddaad 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1440,7 +1440,7 @@ ones, in case fg and bg are nil."
(shr-fontize-dom dom 'underline))
(defun shr-tag-code (dom)
- (let ((shr-current-font 'default))
+ (let ((shr-current-font 'fixed-pitch))
(shr-generic dom)))
(defun shr-tag-tt (dom)