mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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
Show Stats 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)
(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