From: Peter Münster <pm@a16n.net>
Date: Mon, 16 Aug 2021 22:19:08 +0000 (+0200)
Subject: Fix deletion of associated image
X-Git-Tag: emacs-28.0.90~1436
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf64342a8ffd8777df10051037ca13ec4f6857a5;p=emacs.git

Fix deletion of associated image

* lisp/image-dired.el (image-dired-delete-marked): Treat original images
first, because point position is used when there are no marked files.
---

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 1e1614af9b6..9455ab1ff08 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -2313,14 +2313,14 @@ non-nil."
           (image-dired-dired-file-marked-p))))))
 
 (defun image-dired-delete-marked ()
-  "Delete marked thumbnails and associated images."
+  "Delete current or marked thumbnails and associated images."
   (interactive)
+  (with-current-buffer (image-dired-associated-dired-buffer)
+    (dired-do-delete))
   (image-dired--with-marked
    (image-dired-delete-char)
    (backward-char))
-  (image-dired--line-up-with-method)
-  (with-current-buffer (image-dired-associated-dired-buffer)
-    (dired-do-delete)))
+  (image-dired--line-up-with-method))
 
 (defun image-dired-thumb-update-marks ()
   "Update the marks in the thumbnail buffer."