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." |