From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 25 Jul 2019 18:44:07 +0000 (+0200)
Subject: Tweak the sizing of the shr placeholder images on HiDPI screens
X-Git-Tag: emacs-27.0.90~1817^2~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46301fc25663dbc3f9a0d6ac64b9b63ca4b7c718;p=emacs.git

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.
---

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