From: John Sullivan <johnsu01@wjsullivan.net>
Date: Mon, 30 Jun 2008 19:06:02 +0000 (-0400)
Subject: Docfix and remove one redundant LOC.
X-Git-Url: https://repo.or.cz/w/planner-el.git/commitdiff_plain/62b3f5994ffded33aba465042c46509af7a977f5

Docfix and remove one redundant LOC.
---

diff --git a/ChangeLog b/ChangeLog
index 5a78c18..4256506 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-06-30  John Sullivan  <john@wjsullivan.net>
+
+	* planner.el (planner-list-daily-files): Clarify docstring.
+	(planner-get-day-pages): planner-list-daily-files only returns
+	date pages, no need to test for this.
+
 2008-06-30  Michael Olson  <mwolson@gnu.org>
 
 	* planner.el (planner-list-daily-files): Fix Bug #11932, where
diff --git a/planner.el b/planner.el
index 2bde697..be04ded 100644
--- a/planner.el
+++ b/planner.el
@@ -1235,7 +1235,7 @@ This makes the bad link face in the linking buffer go away."
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defun planner-list-daily-files (&optional exclude-temp)
-  "Return an unsorted list of daily files.
+  "Return an unsorted, unique list of daily files.
 If EXCLUDE-TEMP is non-nil, ignore unsaved buffers."
   ;; get a list of all files
   ;; (save-some-buffers t (lambda () (equal 'planner-mode major-mode)))
@@ -1266,7 +1266,6 @@ If EXCLUDE-TEMP is non-nil, ignore unsaved pages."
                (lambda (item)
                  (and
                   (car item)
-                  (string-match planner-date-regexp (car item))
                   (or (not from)
                       (string-lessp from (car item))
                       (equal from (car item)))