Mercurial > emacs
changeset 68409:7ca2eae4cee2
(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.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 26 Jan 2006 23:03:17 +0000 |
| parents | 22a28dacd64a |
| children | c27d8d7e14fd |
| files | lisp/thumbs.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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))