Mercurial > emacs
comparison lisp/thumbs.el @ 68340:5325b795290b
(thumbs-file-alist): Avoid creating duplicate entries.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 23 Jan 2006 01:09:26 +0000 |
| parents | be0164ac55f8 |
| children | 3b10b20b3387 |
comparison
equal
deleted
inserted
replaced
| 68339:5d0717b6a544 | 68340:5325b795290b |
|---|---|
| 496 (with-current-buffer thumbs-buffer | 496 (with-current-buffer thumbs-buffer |
| 497 (save-excursion | 497 (save-excursion |
| 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 |
| 508 (defun thumbs-file-list () | 509 (defun thumbs-file-list () |
| 509 "Make a list of file names for all images in thumb buffer." | 510 "Make a list of file names for all images in thumb buffer." |