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)