master ab11a3a 2/4: image-dired: Add new commands for beginning/end of buffer

[Stefan Kangas]

branch: master
commit ab11a3adf91311e752fae0749113c00a20e6ee4e
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    image-dired: Add new commands for beginning/end of buffer
    
    * 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->'.
---
 lisp/image-dired.el | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index b54404b..cd18ca1 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -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)