mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 05:32:08 -08:00
Code Issues Projects Releases Wiki Activity

image-dired: Add new commands for beginning/end of buffer

Browse source 
* lisp/image-dired.el (image-dired-beginning-of-buffer)
(image-dired-end-of-buffer): New commands.
(image-dired-thumbnail-mode-map): Bind new beginning of buffer command
to '<' and 'M-<', and end of buffer command to '>' and 'M->'.
This commit is contained in:
Stefan Kangas 2021-10-27 03:23:49 +02:00
parent 203279a024
commit ab11a3adf9
1 changed files with 27 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/image-dired.el
View file

@ -1444,6 +1444,28 @@ image."
(image-dired-track-original-file))
(image-dired-display-thumb-properties))
(defun image-dired-beginning-of-buffer ()
"Move to the first image in the buffer and display properties."
(interactive nil image-dired-thumbnail-mode)
(goto-char (point-min))
(while (and (not (image-at-point-p))
(not (eobp)))
(forward-char 1))
(when image-dired-track-movement
(image-dired-track-original-file))
(image-dired-display-thumb-properties))
(defun image-dired-end-of-buffer ()
"Move to the last image in the buffer and display properties."
(interactive nil image-dired-thumbnail-mode)
(goto-char (point-max))
(while (and (not (image-at-point-p))
(not (bobp)))
(forward-char -1))
(when image-dired-track-movement
(image-dired-track-original-file))
(image-dired-display-thumb-properties))
(defun image-dired-format-properties-string (buf file props comment)
"Format display properties.
BUF is the associated dired buffer, FILE is the original image file
@ -1590,6 +1612,11 @@ You probably want to use this together with
(define-key map "\C-p" 'image-dired-previous-line)
(define-key map "\C-n" 'image-dired-next-line)
(define-key map "<" 'image-dired-beginning-of-buffer)
(define-key map ">" 'image-dired-end-of-buffer)
(define-key map (kbd "M-<") 'image-dired-beginning-of-buffer)
(define-key map (kbd "M->") 'image-dired-end-of-buffer)
(define-key map "d" 'image-dired-flag-thumb-original-file)
(define-key map [delete] 'image-dired-flag-thumb-original-file)
(define-key map "m" 'image-dired-mark-thumb-original-file)