master c6fc00f5d7: Make image-dired-toggle-mark-thumb-original-file obsolete

[Stefan Kangas]

branch: master
commit c6fc00f5d75a28fd4e99050ccc1af9ad82f66b2b
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make image-dired-toggle-mark-thumb-original-file obsolete
    
    * lisp/image/image-dired.el
    (image-dired-toggle-mark-thumb-original-file): Make obsolete.
    (image-dired-mouse-toggle-mark-1): Don't use above obsolete
    function.
---
 lisp/image/image-dired.el | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 75dcdd8cbc..df4ee07133 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -785,14 +785,6 @@ according to `image-dired-marking-shows-next'."
   (image-dired--do-mark-command t
     (dired-flag-file-deletion 1)))
 
-(defun image-dired-toggle-mark-thumb-original-file ()
-  "Toggle mark on original image file in associated Dired buffer."
-  (interactive nil image-dired-thumbnail-mode image-dired-display-image-mode)
-  (image-dired--do-mark-command nil
-    (if (image-dired-dired-file-marked-p)
-        (dired-unmark 1)
-      (dired-mark 1))))
-
 (defun image-dired-unmark-all-marks ()
   "Remove all marks from all files in associated Dired buffer.
 Also update the marks in the thumbnail buffer."
@@ -1261,7 +1253,10 @@ Track this in associated Dired buffer if
 `image-dired-track-movement' is non-nil."
   (when image-dired-track-movement
     (image-dired-track-original-file))
-  (image-dired-toggle-mark-thumb-original-file))
+  (image-dired--do-mark-command nil
+    (if (image-dired-dired-file-marked-p)
+        (dired-unmark 1)
+      (dired-mark 1))))
 
 (defun image-dired-mouse-toggle-mark (event)
   "Use mouse EVENT to toggle Dired mark for thumbnail.
@@ -1372,6 +1367,15 @@ completely fit)."
 (make-obsolete-variable 'image-dired-display-window-height-correction
                         "no longer used." "29.1")
 
+(defun image-dired-toggle-mark-thumb-original-file ()
+  "Toggle mark on original image file in associated Dired buffer."
+  (declare (obsolete nil "29.1"))
+  (interactive nil image-dired-thumbnail-mode image-dired-display-image-mode)
+  (image-dired--do-mark-command nil
+    (if (image-dired-dired-file-marked-p)
+        (dired-unmark 1)
+      (dired-mark 1))))
+
 (defun image-dired-display-window-width (window)
   "Return width, in pixels, of WINDOW."
   (declare (obsolete nil "29.1"))