From 3e5b780f45dffab7a7852c2a8821f3ce45bc61ad Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Thu, 26 Jan 2006 23:03:17 +0000 Subject: [PATCH] (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. --- lisp/thumbs.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/thumbs.el b/lisp/thumbs.el index f4b283bf7f2..9999dd72812 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -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)) -- 2.39.2