From 7cfc8ad4effd5820d1bdef2027148df8219b8408 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Peter=20M=C3=BCnster?= Date: Tue, 17 Aug 2021 00:19:08 +0200 Subject: [PATCH 3/6] 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. --- lisp/image-dired.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 1d8e27d39e..5ae6b21766 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -2312,14 +2312,14 @@ image-dired-thumb-file-marked-p (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." -- 2.26.2