From: Nick Roberts <nickrob@snap.net.nz>
Date: Mon, 23 Jan 2006 01:09:26 +0000 (+0000)
Subject: (thumbs-file-alist): Avoid creating duplicate entries.
X-Git-Tag: emacs-pretest-22.0.90~4627
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1acadcfe7f90407ecf87e43d6063b1f73613f721;p=emacs.git

(thumbs-file-alist): Avoid creating duplicate entries.
---

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index df37e50c99c..a33d30ae58e 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -498,10 +498,11 @@ Open another window."
       (let (list)
 	(goto-char (point-min))
 	(while (not (eobp))
-	  (if (thumbs-current-image)
-	      (push (cons (point-marker)
-			  (thumbs-current-image))
-		    list))
+	  (unless (= 0 (mod (point) (1+ thumbs-per-line)))
+	    (if (thumbs-current-image)
+		(push (cons (point-marker)
+			    (thumbs-current-image))
+		    list)))
 	  (forward-char 1))
 	(nreverse list)))))