summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Arroyo Menendez <davidam9@riseup.net>2014-04-22 03:56:56 +0200
committerDavid Arroyo Menendez <davidam9@riseup.net>2014-04-22 03:56:56 +0200
commita61417f541ec21e88f6d37b7487acc2b36aca6ac (patch)
tree95b9d7a284d29ae42214de49e43ced4b10989b08
parent903bf2b12cf1b4304ba14b35b8197387a55f889e (diff)
downloadorg-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.el2
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