procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Nick Roberts 2006-01-23 01:09:26 +00:00
parent f1e73d841b
commit 1acadcfe7f
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/thumbs.el
View file

@ -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)))))