emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 5e26d5f527 3/3: ; Simplify image-dired-forward-image


From: Stefan Kangas
Subject: master 5e26d5f527 3/3: ; Simplify image-dired-forward-image
Date: Sat, 24 Sep 2022 14:38:00 -0400 (EDT)

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

    ; Simplify image-dired-forward-image
    
    * lisp/image/image-dired.el (image-dired-forward-image): Simplify.
---
 lisp/image/image-dired.el | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index c519b32654..b8b16343c1 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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]