[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7fea9c8: Define a face for shr text
From: |
Lars Ingebrigtsen |
Subject: |
master 7fea9c8: Define a face for shr text |
Date: |
Thu, 25 Nov 2021 05:51:52 -0500 (EST) |
branch: master
commit 7fea9c8415bd04100be7857a138ad03e5a7ec4aa
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Define a face for shr text
* lisp/net/shr.el (shr-text): New face.
(shr-insert): Use it instead of hard-coding `variable-pitch'.
---
lisp/net/shr.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 87bacd4..d59b0ed 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7fea9c8: Define a face for shr text,
Lars Ingebrigtsen <=