mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

Delete thumbs in image-dired-do-flagged-delete after confirmation

Browse source 
* lisp/image/image-dired.el (image-dired-do-flagged-delete): Remove
thumbnails only after confirming deletion of the files.  (Bug#58255)
This commit is contained in:
Peter Münster 2022-10-02 20:12:32 +02:00 • committed by Stefan Kangas
parent 70b58d3eb4
commit d4f56e9666
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/image/image-dired.el
View file

@ -1347,17 +1347,21 @@ for deletion instead."
(interactive nil image-dired-thumbnail-mode) (interactive nil image-dired-thumbnail-mode)
(unless (derived-mode-p 'image-dired-thumbnail-mode) (unless (derived-mode-p 'image-dired-thumbnail-mode)
(user-error "Not in `image-dired-thumbnail-mode'")) (user-error "Not in `image-dired-thumbnail-mode'"))
(let ((inhibit-read-only t)) (image-dired--with-dired-buffer
(goto-char (point-min)) (dired-do-flagged-delete))
(while (not (eobp)) (let (deletions)
(if (image-dired-thumb-file-flagged-p) (save-excursion
(progn (let ((inhibit-read-only t))
(delete-char 1) (goto-char (point-min))
(forward-char)) (while (not (eobp))
(forward-char 2)))) (let ((file-name (image-dired-original-file-name)))
(image-dired--line-up-with-method) (if (image-dired--with-dired-buffer (dired-goto-file file-name))
(image-dired--on-file-in-dired-buffer (forward-char 2)
(dired-do-flagged-delete))) (delete-char 1)
(forward-char)
(setq deletions t))))))
(if deletions
(image-dired--line-up-with-method))))
(defun image-dired--thumb-update-mark-at-point () (defun image-dired--thumb-update-mark-at-point ()
(with-silent-modifications (with-silent-modifications