procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Simplify image-dired-forward-image

Browse source 
* lisp/image/image-dired.el (image-dired-forward-image): Simplify.
This commit is contained in:
Stefan Kangas 2022-09-24 20:18:48 +02:00
parent 0e6c15bbaf
commit 5e26d5f527
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/image/image-dired.el
View file

@ -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)))