]> git.eshelyaron.com Git - emacs.git/commitdiff
Inhibit image-crop when there's overlays
authorLars Ingebrigtsen <larsi@gnus.org>
Fri, 23 Sep 2022 15:34:46 +0000 (17:34 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 23 Sep 2022 15:38:19 +0000 (17:38 +0200)
* 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

index 8ec4679b9ba86af8404f49908863478f2f97343e..61ed7e1db1794ff619e94b85d1117b7fc6ddb36d 100644 (file)
@@ -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