From b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?K=C3=A9vin=20Le=20Gouguec?= <kevin.legouguec@gmail.com>
Date: Thu, 20 Feb 2020 14:30:45 +0100
Subject: [PATCH] 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 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)
-- 
2.39.2