From 6fb4f4ad80a660200365b57f22b3912e59ffe9dd Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 23 Sep 2022 17:34:46 +0200 Subject: [PATCH] Inhibit image-crop when there's overlays * lisp/image/image-crop.el (image-crop): Don't mess with overlays, because they're a pain to reconstruct (bug#58027). --- lisp/image/image-crop.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el index 8ec4679b9ba..61ed7e1db17 100644 --- a/lisp/image/image-crop.el +++ b/lisp/image/image-crop.el @@ -143,6 +143,8 @@ After cropping an image, you can save it by `M-x image-save' or (let ((image (get-text-property (point) 'display))) (unless (imagep image) (user-error "No image under point")) + (when (overlays-at (point)) + (user-error "Can't edit images that have overlays")) ;; We replace the image under point with an SVG image that looks ;; just like that image. That allows us to draw lines over it. ;; At the end, we replace that SVG with a cropped version of the -- 2.39.2