From 46301fc25663dbc3f9a0d6ac64b9b63ca4b7c718 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 25 Jul 2019 20:44:07 +0200 Subject: [PATCH] Tweak the sizing of the shr placeholder images on HiDPI screens * lisp/net/shr.el (shr-make-placeholder-image): We have already computed the size of the placeholder including the scale, so force the automatic scale to 1. This will make the placeholder the correct size on HiDPI screen. --- lisp/net/shr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 5001743474a..98b09ab2970 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1745,7 +1745,7 @@ The preference is a float determined from `shr-prefer-media-type'." (svg-gradient svg "background" 'linear '((0 . "#b0b0b0") (100 . "#808080"))) (svg-rectangle svg 0 0 width height :gradient "background" :stroke-width 2 :stroke-color "black") - (let ((image (svg-image svg))) + (let ((image (svg-image svg :scale 1))) (setf (image-property image :ascent) 100) image))) -- 2.39.2