From: Michael Olson <mwolson@gnu.org>
Date: Mon, 30 Jun 2008 14:00:03 +0000 (-0700)
Subject: Use better fix.
X-Git-Url: https://repo.or.cz/w/planner-el.git/commitdiff_plain/f4b002dc4dd16133890e6a1b503d416ed0d56cae

Use better fix.

For some reason, add-to-list was doing strange things to the resulting
list.
---

diff --git a/planner.el b/planner.el
index 86e916e..2bde697 100644
--- a/planner.el
+++ b/planner.el
@@ -1243,7 +1243,8 @@ If EXCLUDE-TEMP is non-nil, ignore unsaved buffers."
         files)
     (mapcar (lambda (item)
               (when (string-match planner-date-regexp (car item))
-                (add-to-list 'files (cons item files))))
+                (unless (rassoc (cdr item) files)
+                  (setq files (cons item files)))))
             (planner-file-alist))
     (unless exclude-temp
       (while buffers