Commit 1acadcfe authored by Nick Roberts's avatar Nick Roberts
Browse files

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

parent f1e73d84
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment