diff options
| author | Nick Roberts | 2006-01-23 01:09:26 +0000 |
|---|---|---|
| committer | Nick Roberts | 2006-01-23 01:09:26 +0000 |
| commit | 1acadcfe7f90407ecf87e43d6063b1f73613f721 (patch) | |
| tree | 03c444e16353d3162e26dec4cef0cf20efb88ae4 | |
| parent | f1e73d841b90e7a8dd190c28c6eb2f41fa76d656 (diff) | |
| download | emacs-1acadcfe7f90407ecf87e43d6063b1f73613f721.tar.gz emacs-1acadcfe7f90407ecf87e43d6063b1f73613f721.zip | |
(thumbs-file-alist): Avoid creating duplicate entries.
| -rw-r--r-- | lisp/thumbs.el | 9 |
1 files 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." | |||
| 498 | (let (list) | 498 | (let (list) |
| 499 | (goto-char (point-min)) | 499 | (goto-char (point-min)) |
| 500 | (while (not (eobp)) | 500 | (while (not (eobp)) |
| 501 | (if (thumbs-current-image) | 501 | (unless (= 0 (mod (point) (1+ thumbs-per-line))) |
| 502 | (push (cons (point-marker) | 502 | (if (thumbs-current-image) |
| 503 | (thumbs-current-image)) | 503 | (push (cons (point-marker) |
| 504 | list)) | 504 | (thumbs-current-image)) |
| 505 | list))) | ||
| 505 | (forward-char 1)) | 506 | (forward-char 1)) |
| 506 | (nreverse list))))) | 507 | (nreverse list))))) |
| 507 | 508 | ||