From 951eadeb77c665c9d419e982b3651f401ad5240a Mon Sep 17 00:00:00 2001 From: Benjamin Riefenstahl Date: Mon, 14 Jan 2019 23:37:03 +0100 Subject: [PATCH 1/4] 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 3570c7cba4..7f290719bb 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -741,9 +741,11 @@ image-toggle-display-image (type (if (image--imagemagick-wanted-p filename) '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) -- 2.11.0