[Emacs-diffs] Changes to emacs/lisp/thumbs.el

[Nick Roberts]

Index: emacs/lisp/thumbs.el
diff -u emacs/lisp/thumbs.el:1.26 emacs/lisp/thumbs.el:1.27
--- emacs/lisp/thumbs.el:1.26   Tue Jan 24 20:54:23 2006
+++ emacs/lisp/thumbs.el        Thu Jan 26 23:03:17 2006
@@ -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))