diff options
| author | Kévin Le Gouguec | 2020-02-20 14:30:45 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-02-20 14:30:54 +0100 |
| commit | b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0 (patch) | |
| tree | 7cf83f1ec4578932f38be93759d2c6b7c844ef64 | |
| parent | 734eb7e457da8a9b2c91798d591c03285c6967ce (diff) | |
| download | emacs-b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0.tar.gz emacs-b7d5a64f40bd4868ee0cc8b70b75e8b635e1c6c0.zip | |
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." | |||
| 1440 | (shr-fontize-dom dom 'underline)) | 1440 | (shr-fontize-dom dom 'underline)) |
| 1441 | 1441 | ||
| 1442 | (defun shr-tag-code (dom) | 1442 | (defun shr-tag-code (dom) |
| 1443 | (let ((shr-current-font 'default)) | 1443 | (let ((shr-current-font 'fixed-pitch)) |
| 1444 | (shr-generic dom))) | 1444 | (shr-generic dom))) |
| 1445 | 1445 | ||
| 1446 | (defun shr-tag-tt (dom) | 1446 | (defun shr-tag-tt (dom) |