From: Morgan Smith <Morgan.J.Smith@outlook.com>
Date: Thu, 8 Sep 2022 00:09:52 +0000 (+0200)
Subject: Make image-dired-rotate-original-{left,right} respect marks
X-Git-Tag: emacs-29.0.90~1856^2~675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6b25b55b33d1c558abdc7b4d0c14fc9f17b65f4;p=emacs.git

Make image-dired-rotate-original-{left,right} respect marks

* lisp/image/image-dired.el (image-dired-rotate-original-left)
(image-dired-rotate-original-right): Rotate all marked
files.  (Bug#57651)
---

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 88f4ceaffb4..923efa8145e 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -1126,7 +1126,8 @@ and a confirmation is needed before the original image files is
 overwritten.  This confirmation can be turned off using
 `image-dired-rotate-original-ask-before-overwrite'."
   (interactive nil image-dired-thumbnail-mode)
-  (image-dired-rotate-original "270"))
+  (image-dired--with-marked
+   (image-dired-rotate-original "270")))
 
 (defun image-dired-rotate-original-right ()
   "Rotate original image right (clockwise) 90 degrees.
@@ -1135,7 +1136,8 @@ and a confirmation is needed before the original image files is
 overwritten.  This confirmation can be turned off using
 `image-dired-rotate-original-ask-before-overwrite'."
   (interactive nil image-dired-thumbnail-mode)
-  (image-dired-rotate-original "90"))
+  (image-dired--with-marked
+   (image-dired-rotate-original "90")))
 
 (defun image-dired-display-next-thumbnail-original (&optional arg)
   "Move to the next image in the thumbnail buffer and display it.