[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d4f56e9666: Delete thumbs in image-dired-do-flagged-delete after
From: |
Stefan Kangas |
Subject: |
master d4f56e9666: Delete thumbs in image-dired-do-flagged-delete after confirmation |
Date: |
Sun, 2 Oct 2022 14:16:53 -0400 (EDT) |
branch: master
commit d4f56e96665f1d2d98ce645d32d587013e8b8116
Author: Peter Münster <pm@a16n.net>
Commit: Stefan Kangas <stefankangas@gmail.com>
Delete thumbs in image-dired-do-flagged-delete after confirmation
* lisp/image/image-dired.el (image-dired-do-flagged-delete): Remove
thumbnails only after confirming deletion of the files. (Bug#58255)
---
lisp/image/image-dired.el | 26 +++++++++++++++-----------
1 file changed, 15 insertions(+), 11 deletions(-)
diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 8fb89d4502..c9d6741140 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -1347,17 +1347,21 @@ for deletion instead."
(interactive nil image-dired-thumbnail-mode)
(unless (derived-mode-p 'image-dired-thumbnail-mode)
(user-error "Not in `image-dired-thumbnail-mode'"))
- (let ((inhibit-read-only t))
- (goto-char (point-min))
- (while (not (eobp))
- (if (image-dired-thumb-file-flagged-p)
- (progn
- (delete-char 1)
- (forward-char))
- (forward-char 2))))
- (image-dired--line-up-with-method)
- (image-dired--on-file-in-dired-buffer
- (dired-do-flagged-delete)))
+ (image-dired--with-dired-buffer
+ (dired-do-flagged-delete))
+ (let (deletions)
+ (save-excursion
+ (let ((inhibit-read-only t))
+ (goto-char (point-min))
+ (while (not (eobp))
+ (let ((file-name (image-dired-original-file-name)))
+ (if (image-dired--with-dired-buffer (dired-goto-file file-name))
+ (forward-char 2)
+ (delete-char 1)
+ (forward-char)
+ (setq deletions t))))))
+ (if deletions
+ (image-dired--line-up-with-method))))
(defun image-dired--thumb-update-mark-at-point ()
(with-silent-modifications
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d4f56e9666: Delete thumbs in image-dired-do-flagged-delete after confirmation,
Stefan Kangas <=