From a36c15494e6c09dbcf961feee29db3867488378c Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 15 Oct 2015 00:03:36 +0200 Subject: [PATCH] org-clock: Fix quarterly clock reports * lisp/org-clock.el (org-clock-special-range): Properly set Q according to block specification. Reported-by: "L.C. Karssen" --- lisp/org-clock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 84d032cd8..fd5856ebd 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2179,11 +2179,11 @@ have priority." key 'week))) ((string-match "\\`\\([0-9]+\\)-[qQ]\\([1-4]\\)\\'" skey) (require 'cal-iso) + (setq q (string-to-number (match-string 2 skey))) (let ((date (calendar-gregorian-from-absolute (calendar-iso-to-absolute (org-quarter-to-date - (string-to-number (match-string 2 skey)) - (string-to-number (match-string 1 skey))))))) + q (string-to-number (match-string 1 skey))))))) (setq d (nth 1 date) month (car date) y (nth 2 date) -- 2.11.4.GIT