diff options
author | David Arroyo Menendez <davidam9@riseup.net> | 2014-04-22 03:56:56 +0200 |
---|---|---|
committer | David Arroyo Menendez <davidam9@riseup.net> | 2014-04-22 03:56:56 +0200 |
commit | a61417f541ec21e88f6d37b7487acc2b36aca6ac (patch) | |
tree | 95b9d7a284d29ae42214de49e43ced4b10989b08 | |
parent | 903bf2b12cf1b4304ba14b35b8197387a55f889e (diff) | |
download | org-mode-a61417f541ec21e88f6d37b7487acc2b36aca6ac.tar.gz |
org-effectiveness.el (org-effectiveness-plot): fix change of year
* org-effectiveness.el (org-effectiveness-plot): fix change of year
-rw-r--r-- | contrib/lisp/org-effectiveness.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index 9981712..c8d8e53 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -156,7 +156,7 @@ many TODO pending" (let ((month startmonth) (year startyear) (str "")) - (while (and (>= endyear year) (>= endmonth month)) + (while (or (> endyear year) (and (= endyear year) (>= endmonth month))) (setq str (concat str (number-to-string year) "-" (org-effectiveness-month-to-string month) " " (org-effectiveness-in-date (concat (number-to-string year) "-" (org-effectiveness-month-to-string month)) 1) "\n")) (if (= month 12) (progn |