From a2a6c7abcbb5c2776ab5cdbb415df9ad5daa4e13 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Peter=20M=C3=BCnster?= Date: Fri, 1 Oct 2021 14:49:28 +0200 Subject: [PATCH] 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). --- etc/NEWS | 7 +++++++ lisp/image-dired.el | 9 +++++++++ 2 files changed, 16 insertions(+) diff --git a/etc/NEWS b/etc/NEWS index 18eb248b265..3892ba2c797 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -54,6 +54,13 @@ This change also affects 'cl-macrolet', 'cl-flet*' and * 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. + * New Modes and Packages in Emacs 29.1 diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 3ca47300a99..ec3f988bfbb 100644 --- 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] -- 2.39.5