diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2006-01-26 23:03:17 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2006-01-26 23:03:17 +0000 |
commit | 429bd84e32a47e71922125fa0eb62d7ced5361e2 (patch) | |
tree | bcfd885ce7ebed1721edd4ce217098553a8b4085 /lisp/thumbs.el | |
parent | 44e72562a1003365a5687ebf253159c27fa31827 (diff) | |
download | emacs-429bd84e32a47e71922125fa0eb62d7ced5361e2.tar.gz |
(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.
Diffstat (limited to 'lisp/thumbs.el')
-rw-r--r-- | lisp/thumbs.el | 9 |
1 files 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)) |