1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

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).
This commit is contained in:
Kévin Le Gouguec 2020-02-20 14:30:45 +01:00 committed by Lars Ingebrigtsen
parent 734eb7e457
commit b7d5a64f40

View file

@ -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)