Docfix and remove one redundant LOC.
authorJohn Sullivan <johnsu01@wjsullivan.net>
Mon, 30 Jun 2008 19:06:02 +0000 (30 15:06 -0400)
committerJohn Sullivan <johnsu01@wjsullivan.net>
Mon, 30 Jun 2008 19:06:02 +0000 (30 15:06 -0400)
ChangeLog
planner.el

index 5a78c18..4256506 100644 (file)
--- 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
index 2bde697..be04ded 100644 (file)
@@ -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)))