New command for unmarking all images in image-dired

* lisp/image-dired.el (image-dired-unmark-all-marks): Remove marks from
Dired buffer and update the view of the thumbnails (bug#50920).

diff --git a/etc/NEWS b/etc/NEWS
index 18eb248b2659e4ed56efa5aa0ce7b44e9cb86793..3892ba2c797e380c2b347667be6f499e5454fdc9 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -54,6 +54,13 @@ This change also affects 'cl-macrolet', 'cl-flet*' and
 \f
 * Changes in Specialized Modes and Packages in Emacs 29.1
 
+** image-dired
+
+---
+*** New command for the thumbnail buffer.
+The new command 'image-dired-unmark-all-marks' has been added with a
+binding in the menu.
+
 \f
 * New Modes and Packages in Emacs 29.1
 

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index 3ca47300a996d889bb212c7e14c3050d83140d89..ec3f988bfbb0a011d666f22b4f6b6c210597b13d 100644 (file)
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -1433,6 +1433,14 @@ dired."
   (interactive)
   (image-dired-modify-mark-on-thumb-original-file 'toggle))
 
+(defun image-dired-unmark-all-marks ()
+  "Remove all marks from all files.
+Do this in the Dired buffer and update this thumbnail buffer."
+  (interactive)
+  (with-current-buffer (image-dired-associated-dired-buffer)
+    (dired-unmark-all-marks))
+  (image-dired-thumb-update-marks))
+
 (defun image-dired-jump-original-dired-buffer ()
   "Jump to the dired buffer associated with the current image file.
 You probably want to use this together with
@@ -1536,6 +1544,7 @@ You probably want to use this together with
         ["Quit" quit-window]
         ["Delete thumbnail from buffer" image-dired-delete-char]
         ["Delete marked images" image-dired-delete-marked]
+        ["Unmark all marks" image-dired-unmark-all-marks]
         ["Remove tag from current or marked thumbnails"
          image-dired-tag-thumbnail-remove]
         ["Tag current or marked thumbnails" image-dired-tag-thumbnail]