From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 23 Sep 2022 15:34:46 +0000 (+0200)
Subject: Inhibit image-crop when there's overlays
X-Git-Tag: emacs-29.0.90~1856^2~292
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6fb4f4ad80a660200365b57f22b3912e59ffe9dd;p=emacs.git

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).
---

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