diff options
author | Kévin Le Gouguec <kevin.legouguec@gmail.com> | 2020-02-20 14:30:45 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-02-20 14:30:54 +0100 |
commit | b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0 (patch) | |
tree | 7cf83f1ec4578932f38be93759d2c6b7c844ef64 | |
parent | 734eb7e457da8a9b2c91798d591c03285c6967ce (diff) | |
download | emacs-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.el | 2 |
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) |