Function: image-dired-modify-mark-on-thumb-original-file

image-dired-modify-mark-on-thumb-original-file is a byte-compiled function defined in image-dired.el.gz.

This function is obsolete since 29.1; use image-dired--on-file-in-dired-buffer instead.

Signature

(image-dired-modify-mark-on-thumb-original-file COMMAND)

Documentation

Modify mark in Dired buffer.

COMMAND is one of mark for marking file in Dired, unmark for unmarking file in Dired or flag for flagging file for delete in Dired.

Source Code

;; Defined in /usr/src/emacs/lisp/image/image-dired.el.gz
(defun image-dired-modify-mark-on-thumb-original-file (command)
  "Modify mark in Dired buffer.
COMMAND is one of `mark' for marking file in Dired, `unmark' for
unmarking file in Dired or `flag' for flagging file for delete in
Dired."
  (declare (obsolete image-dired--on-file-in-dired-buffer "29.1"))
  (let ((file-name (image-dired-original-file-name))
        (dired-buf (image-dired-associated-dired-buffer)))
    (if (not (and dired-buf file-name))
        (message "No image, or image with correct properties, at point")
      (with-current-buffer dired-buf
        (message "%s" file-name)
        (when (dired-goto-file file-name)
          (cond ((eq command 'mark) (dired-mark 1))
                ((eq command 'unmark) (dired-unmark 1))
                ((eq command 'toggle)
                 (if (image-dired-dired-file-marked-p)
                     (dired-unmark 1)
                   (dired-mark 1)))
                ((eq command 'flag) (dired-flag-file-deletion 1)))
          (image-dired--thumb-update-marks))))))