diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/image.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/image.el b/lisp/image.el index db113020866..b58b1dc9542 100644 --- a/lisp/image.el +++ b/lisp/image.el | |||
| @@ -992,11 +992,12 @@ default is 20%." | |||
| 992 | image)) | 992 | image)) |
| 993 | 993 | ||
| 994 | (defun image--get-imagemagick-and-warn () | 994 | (defun image--get-imagemagick-and-warn () |
| 995 | (unless (or (fboundp 'imagemagick-types) (image-scaling-p)) | 995 | (unless (or (fboundp 'imagemagick-types) (image-transforms-p)) |
| 996 | (error "Cannot rescale images on this terminal")) | 996 | (error "Cannot rescale images on this terminal")) |
| 997 | (let ((image (image--get-image))) | 997 | (let ((image (image--get-image))) |
| 998 | (image-flush image) | 998 | (image-flush image) |
| 999 | (when (fboundp 'imagemagick-types) | 999 | (when (and (fboundp 'imagemagick-types) |
| 1000 | (not (image-transforms-p))) | ||
| 1000 | (plist-put (cdr image) :type 'imagemagick)) | 1001 | (plist-put (cdr image) :type 'imagemagick)) |
| 1001 | image)) | 1002 | image)) |
| 1002 | 1003 | ||