org-clock.el: Fix column count for :formula %

* lisp/org-clock.el (org-clocktable-write-default): Count properties
columns when using special :formula %

The previous count did not consider properties columns, so the generated
formula was incorrect.
This commit is contained in:
Fernando Varesi 2016-01-11 13:56:27 -03:00 committed by Nicolas Goaziou
parent 93fe1072f6
commit 47c92146a9
1 changed files with 2 additions and 0 deletions

View File

@ -2646,12 +2646,14 @@ from the dynamic block definition."
((eq formula '%)
;; compute the column where the % numbers need to go
(setq pcol (+ 2
(length properties)
(if multifile 1 0)
(if level-p 1 0)
(if timestamp 1 0)
(min maxlevel (or ntcol 100))))
;; compute the column where the total time is
(setq tcol (+ 2
(length properties)
(if multifile 1 0)
(if level-p 1 0)
(if timestamp 1 0)))