diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-18 13:56:27 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-18 13:56:27 +0100 |
commit | 323a9453664b876841cdfc338e70fcd3c3f2394c (patch) | |
tree | 7aa12e70396ae32152e9680e576a7e6301d0240d | |
parent | 62ec8c0a48fb8eac664ef24c95538544afc13e0d (diff) | |
download | org-mode-323a9453664b876841cdfc338e70fcd3c3f2394c.tar.gz |
org-colview: Fix previous commit
* lisp/org-colview.el (org-columns-compute): Fix error introduced in
last commit.
-rw-r--r-- | lisp/org-colview.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 5319e5a..a7eb0d8 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -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. |