diff options
| author | Benjamin Riefenstahl <b.riefenstahl@turtle-trading.net> | 2019-01-14 23:37:03 +0100 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-01-25 10:23:41 +0200 |
| commit | 68e55a0bfc15d6b39ae7aa5650f375ff6784246d (patch) | |
| tree | ef1a7bf6601e0467609fff55b6b38851bd2c1bdf | |
| parent | b6c762a520c041d8c69a8557b9ee5ffdd3004b1f (diff) | |
| download | emacs-68e55a0bfc15d6b39ae7aa5650f375ff6784246d.tar.gz | |
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.
| -rw-r--r-- | lisp/image-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 7dfa691065c..3666009c7e0 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) |