Commit 3e5b780f authored by Nick Roberts's avatar Nick Roberts
Browse files

(thumbs-do-thumbs-insertion): Suppress message when

there are no more images to display.
(thumbs-mark, thumbs-unmark): Revert change so that they move to
the next image.
parent 6045b8ef
......@@ -380,7 +380,7 @@ If MARKED is non-nil, the image is marked."
(when (= 0 (mod (setq i (1+ i)) thumbs-per-line))
(newline)))
(unless (bobp) (newline))
(if diff (message "Type + to display more images."))))
(if (> diff 0) (message "Type + to display more images."))))
(defun thumbs-show-thumbs-list (list &optional dir same-window)
(unless (and (display-images-p)
......@@ -623,8 +623,7 @@ Open another window."
(push elt thumbs-marked-list)
(let ((inhibit-read-only t))
(delete-char 1)
(save-excursion
(thumbs-insert-thumb elt t))))
(thumbs-insert-thumb elt t)))
(when (eolp) (forward-char)))
(defun thumbs-unmark ()
......@@ -636,11 +635,9 @@ Open another window."
(setq thumbs-marked-list (delete elt thumbs-marked-list))
(let ((inhibit-read-only t))
(delete-char 1)
(save-excursion
(thumbs-insert-thumb elt nil))))
(thumbs-insert-thumb elt nil)))
(when (eolp) (forward-char)))
;; cleaning of old temp files
(mapc 'delete-file
(directory-files (thumbs-temp-dir) t thumbs-temp-prefix))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment