procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define a face for shr text

Browse source 
* lisp/net/shr.el (shr-text): New face.
(shr-insert): Use it instead of hard-coding `variable-pitch'.
This commit is contained in:
Lars Ingebrigtsen 2021-11-24 22:01:21 +01:00
parent b469a01551
commit 7fea9c8415
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

@ -162,6 +162,10 @@ cid: URL as the argument.")
(defvar shr-put-image-function #'shr-put-image
"Function called to put image and alt string.")
(defface shr-text '((t :inherit variable-pitch))
"Face used for rendering text."
:version "29.1")
(defface shr-strike-through '((t :strike-through t))
"Face for <s> elements."
:version "24.1")
@ -742,7 +746,7 @@ size, and full-buffer size."
(when shr-use-fonts
(put-text-property font-start (point)
'face
(or shr-current-font 'variable-pitch)))))))))
(or shr-current-font 'shr-text)))))))))
(defun shr-fill-lines (start end)
(if (<= shr-internal-width 0)