diff options
| -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." | |||
| 380 | (when (= 0 (mod (setq i (1+ i)) thumbs-per-line)) | 380 | (when (= 0 (mod (setq i (1+ i)) thumbs-per-line)) |
| 381 | (newline))) | 381 | (newline))) |
| 382 | (unless (bobp) (newline)) | 382 | (unless (bobp) (newline)) |
| 383 | (if diff (message "Type + to display more images.")))) | 383 | (if (> diff 0) (message "Type + to display more images.")))) |
| 384 | 384 | ||
| 385 | (defun thumbs-show-thumbs-list (list &optional dir same-window) | 385 | (defun thumbs-show-thumbs-list (list &optional dir same-window) |
| 386 | (unless (and (display-images-p) | 386 | (unless (and (display-images-p) |
| @@ -623,8 +623,7 @@ Open another window." | |||
| 623 | (push elt thumbs-marked-list) | 623 | (push elt thumbs-marked-list) |
| 624 | (let ((inhibit-read-only t)) | 624 | (let ((inhibit-read-only t)) |
| 625 | (delete-char 1) | 625 | (delete-char 1) |
| 626 | (save-excursion | 626 | (thumbs-insert-thumb elt t))) |
| 627 | (thumbs-insert-thumb elt t)))) | ||
| 628 | (when (eolp) (forward-char))) | 627 | (when (eolp) (forward-char))) |
| 629 | 628 | ||
| 630 | (defun thumbs-unmark () | 629 | (defun thumbs-unmark () |
| @@ -636,11 +635,9 @@ Open another window." | |||
| 636 | (setq thumbs-marked-list (delete elt thumbs-marked-list)) | 635 | (setq thumbs-marked-list (delete elt thumbs-marked-list)) |
| 637 | (let ((inhibit-read-only t)) | 636 | (let ((inhibit-read-only t)) |
| 638 | (delete-char 1) | 637 | (delete-char 1) |
| 639 | (save-excursion | 638 | (thumbs-insert-thumb elt nil))) |
| 640 | (thumbs-insert-thumb elt nil)))) | ||
| 641 | (when (eolp) (forward-char))) | 639 | (when (eolp) (forward-char))) |
| 642 | 640 | ||
| 643 | |||
| 644 | ;; cleaning of old temp files | 641 | ;; cleaning of old temp files |
| 645 | (mapc 'delete-file | 642 | (mapc 'delete-file |
| 646 | (directory-files (thumbs-temp-dir) t thumbs-temp-prefix)) | 643 | (directory-files (thumbs-temp-dir) t thumbs-temp-prefix)) |