From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 24 Sep 2022 18:18:48 +0000 (+0200)
Subject: ; Simplify image-dired-forward-image
X-Git-Tag: emacs-29.0.90~1856^2~244
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e26d5f527eae5e004b85d830701346189ef497a;p=emacs.git

; Simplify image-dired-forward-image

* lisp/image/image-dired.el (image-dired-forward-image): Simplify.
---

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index c519b326545..b8b16343c12 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -675,16 +675,14 @@ point is on the last image, move to the last one and vice versa."
                    (forward-char (if (> arg 0) 1 -1)))
                  (setq pos (point))
                  (image-dired-image-at-point-p)))
-          (progn (goto-char pos)
-                 (image-dired--update-header-line))
+          (goto-char pos)
         (if wrap-around
-            (progn (goto-char (if (> arg 0)
-                                  (point-min)
-                                ;; There are two spaces after the last image.
-                                (- (point-max) 2)))
-                   (image-dired--update-header-line))
-          (message "At %s image" (if (> arg 0) "last" "first"))
-          (image-dired--update-header-line)))))
+            (goto-char (if (> arg 0)
+                           (point-min)
+                         ;; There are two spaces after the last image.
+                         (- (point-max) 2)))
+          (message "At %s image" (if (> arg 0) "last" "first"))))))
+  (image-dired--update-header-line)
   (when image-dired-track-movement
     (image-dired-track-original-file)))