|
@@ -960,16 +960,16 @@ display, or in the #+COLUMNS line of the current buffer."
|
|
|
"Summarize the values of property PROPERTY hierarchically."
|
|
|
(interactive)
|
|
|
(let* ((lmax (if (org-bound-and-true-p org-inlinetask-min-level)
|
|
|
- (1+ org-inlinetask-min-level)
|
|
|
- 30)) ;Hard-code deepest level.
|
|
|
- (lvals (make-vector lmax nil))
|
|
|
+ org-inlinetask-min-level
|
|
|
+ 29)) ;Hard-code deepest level.
|
|
|
+ (lvals (make-vector (1+ lmax) nil))
|
|
|
(spec (assoc-string property org-columns-current-fmt-compiled t))
|
|
|
(format (nth 4 spec))
|
|
|
(printf (nth 5 spec))
|
|
|
(fun (nth 6 spec))
|
|
|
(level 0)
|
|
|
- (inminlevel org-inlinetask-min-level)
|
|
|
- (last-level org-inlinetask-min-level))
|
|
|
+ (inminlevel lmax)
|
|
|
+ (last-level lmax))
|
|
|
(org-with-wide-buffer
|
|
|
;; Find the region to compute.
|
|
|
(goto-char org-columns-top-level-marker)
|
|
@@ -1016,7 +1016,7 @@ display, or in the #+COLUMNS line of the current buffer."
|
|
|
(push (or summary (org-columns-string-to-number value format))
|
|
|
(aref lvals level)))
|
|
|
;; Clear accumulators for deeper levels.
|
|
|
- (cl-loop for l from (1+ level) to (1- lmax) do
|
|
|
+ (cl-loop for l from (1+ level) to lmax do
|
|
|
(aset lvals l nil))))
|
|
|
(value-set
|
|
|
;; Add what we have here to the accumulator for this level.
|