procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

image-mode: Do not use default scaling (bug#33990)

Browse source 
* lisp/image-mode.el (image-toggle-display-image): Set :scale == 1 so
that create-image does not apply additional scaling.
This commit is contained in:
Benjamin Riefenstahl 2019-01-14 23:37:03 +01:00 • committed by Eli Zaretskii
parent b6c762a520
commit 68e55a0bfc
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/image-mode.el
View file

@ -761,9 +761,11 @@ was inserted."
(type (if (fboundp 'imagemagick-types) (type (if (fboundp 'imagemagick-types)
'imagemagick 'imagemagick
(image-type file-or-data nil data-p))) (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) (image (if (not edges)
(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 (create-image file-or-data type data-p :scale 1
:max-width (- (nth 2 edges) (nth 0 edges)) :max-width (- (nth 2 edges) (nth 0 edges))
:max-height (- (nth 3 edges) (nth 1 edges))))) :max-height (- (nth 3 edges) (nth 1 edges)))))
(inhibit-read-only t) (inhibit-read-only t)