master c6b25b55b3 1/2: Make image-dired-rotate-original-{left, right} respect marks

[Stefan Kangas]

branch: master
commit c6b25b55b33d1c558abdc7b4d0c14fc9f17b65f4
Author: Morgan Smith <Morgan.J.Smith@outlook.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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)
---
 lisp/image/image-dired.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 88f4ceaffb..923efa8145 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.