[Emacs-diffs] emacs-26 68e55a0 2/2: image-mode: Do not use default scaling (bug#33990)

[Eli Zaretskii]

branch: emacs-26
commit 68e55a0bfc15d6b39ae7aa5650f375ff6784246d
Author: Benjamin Riefenstahl <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    image-mode: Do not use default scaling (bug#33990)
    
    * lisp/image-mode.el (image-toggle-display-image): Set :scale == 1 so
    that create-image does not apply additional scaling.
---
 lisp/image-mode.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 7dfa691..3666009 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -761,9 +761,11 @@ was inserted."
         (type (if (fboundp 'imagemagick-types)
                   'imagemagick
                 (image-type file-or-data nil data-p)))
+         ;; :scale 1: If we do not set this, create-image will apply
+         ;; default scaling based on font size.
         (image (if (not edges)
-                   (create-image file-or-data type data-p)
-                 (create-image file-or-data type data-p
+                   (create-image file-or-data type data-p :scale 1)
+                 (create-image file-or-data type data-p :scale 1
                                :max-width (- (nth 2 edges) (nth 0 edges))
                                :max-height (- (nth 3 edges) (nth 1 edges)))))
         (inhibit-read-only t)