diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-10-15 00:03:36 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-10-15 00:03:36 +0200 |
commit | a36c15494e6c09dbcf961feee29db3867488378c (patch) | |
tree | ca15983f58b1cce6eb59b4ab792073a817842dd7 | |
parent | 1c7dca9692c935918da41bb14dee83b93454bbc3 (diff) | |
download | org-mode-a36c15494e6c09dbcf961feee29db3867488378c.tar.gz |
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" <lennart@karssen.org>
<http://permalink.gmane.org/gmane.emacs.orgmode/101899>
-rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 84d032c..fd5856e 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) |