From 1acadcfe7f90407ecf87e43d6063b1f73613f721 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Mon, 23 Jan 2006 01:09:26 +0000 Subject: [PATCH] (thumbs-file-alist): Avoid creating duplicate entries. --- lisp/thumbs.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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))))) -- 2.39.2