From 5e26d5f527eae5e004b85d830701346189ef497a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sat, 24 Sep 2022 20:18:48 +0200 Subject: [PATCH] ; 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 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))) -- 2.39.2