forked from mirrors/nixpkgs
29 lines
1.2 KiB
Diff
29 lines
1.2 KiB
Diff
diff --git a/ement.el b/ement.el
|
|
index c9596a7..1b33045 100644
|
|
--- a/ement.el
|
|
+++ b/ement.el
|
|
@@ -682,14 +682,15 @@ can cause undesirable underlining."
|
|
"Return a copy of IMAGE set to MAX-WIDTH and MAX-HEIGHT.
|
|
IMAGE should be one as created by, e.g. `create-image'."
|
|
;; It would be nice if the image library had some simple functions to do this sort of thing.
|
|
- (let ((new-image (cl-copy-list image)))
|
|
- (when (fboundp 'imagemagick-types)
|
|
- ;; Only do this when ImageMagick is supported.
|
|
- ;; FIXME: When requiring Emacs 27+, remove this (I guess?).
|
|
- (setf (image-property new-image :type) 'imagemagick))
|
|
- (setf (image-property new-image :max-width) max-width
|
|
- (image-property new-image :max-height) max-height)
|
|
- new-image))
|
|
+ (when image
|
|
+ (let ((new-image (cl-copy-list image)))
|
|
+ (when (fboundp 'imagemagick-types)
|
|
+ ;; Only do this when ImageMagick is supported.
|
|
+ ;; FIXME: When requiring Emacs 27+, remove this (I guess?).
|
|
+ (setf (image-property new-image :type) 'imagemagick))
|
|
+ (setf (image-property new-image :max-width) max-width
|
|
+ (image-property new-image :max-height) max-height)
|
|
+ new-image)))
|
|
|
|
;;;;; Reading/writing sessions
|
|
|