summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKévin Le Gouguec <kevin.legouguec@gmail.com>2020-02-20 14:30:45 +0100
committerLars Ingebrigtsen <larsi@gnus.org>2020-02-20 14:30:54 +0100
commitb7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0 (patch)
tree7cf83f1ec4578932f38be93759d2c6b7c844ef64
parent734eb7e457da8a9b2c91798d591c03285c6967ce (diff)
downloademacs-b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0.tar.gz
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).
-rw-r--r--lisp/net/shr.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 55c189baa85..deddaad15cb 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)