Use better fix.
authorMichael Olson <mwolson@gnu.org>
Mon, 30 Jun 2008 14:00:03 +0000 (30 07:00 -0700)
committerMichael Olson <mwolson@gnu.org>
Mon, 30 Jun 2008 14:00:03 +0000 (30 07:00 -0700)
For some reason, add-to-list was doing strange things to the resulting
list.

planner.el

index 86e916e..2bde697 100644 (file)
@@ -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