Function: image-dired-do-flagged-delete

image-dired-do-flagged-delete is an interactive and byte-compiled function defined in image-dired.el.gz.

Signature

(image-dired-do-flagged-delete)

Documentation

Delete flagged thumbnails and associated images.

Probably introduced at or before Emacs version 29.1.

Key Bindings

Aliases

image-dired-delete-marked (obsolete since 29.1)

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-dired.el.gz
(defun image-dired-do-flagged-delete ()
  "Delete flagged thumbnails and associated images."
  (interactive nil image-dired-thumbnail-mode)
  (unless (derived-mode-p 'image-dired-thumbnail-mode)
    (user-error "Not in `image-dired-thumbnail-mode'"))
  (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))))