tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-colview: Fix previous commit 

* lisp/org-colview.el (org-columns-compute): Fix error introduced in
  last commit.
This commit is contained in:
Nicolas Goaziou 2016-02-18 13:56:27 +01:00
parent 62ec8c0a48
commit 323a945366
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-colview.el
View File

@ -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.