mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-22 07:09:47 +00:00
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>
This commit is contained in:
parent
1c7dca9692
commit
a36c15494e
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user