andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a new face shr-code

Browse source 
* lisp/net/shr.el (shr-code): New face (bug#54480).
(shr-tag-code): Use it.
This commit is contained in:
Lars Ingebrigtsen 2022-03-21 16:01:33 +01:00
parent 59a8a0ef0d
commit bd5d136777
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/shr.el
View file

@ -228,6 +228,10 @@ temporarily blinks with this face."
"Face for <h6> elements."
:version "28.1")
(defface shr-code '((t :inherit fixed-pitch))
"Face used for rendering <code> blocks."
:version "29.1")
(defcustom shr-inhibit-images nil
"If non-nil, inhibit loading images."
:version "28.1"
@ -1410,7 +1414,7 @@ ones, in case fg and bg are nil."
(shr-fontize-dom dom 'underline))
(defun shr-tag-code (dom)
(let ((shr-current-font 'fixed-pitch))
(let ((shr-current-font 'shr-code))
(shr-generic dom)))
(defun shr-tag-tt (dom)