# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1138316597 0
# Node ID 7ca2eae4cee29c132203f469eb75250602b07a85
# Parent  22a28dacd64ae4a3f2dd368ff70fe9d93b761535
(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.

diff -r 22a28dacd64a -r 7ca2eae4cee2 lisp/thumbs.el
--- a/lisp/thumbs.el	Thu Jan 26 23:02:38 2006 +0000
+++ b/lisp/thumbs.el	Thu Jan 26 23:03:17 2006 +0000
@@ -380,7 +380,7 @@
       (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 @@
     (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 @@
     (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))