summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-18 13:56:27 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-18 13:56:27 +0100
commit323a9453664b876841cdfc338e70fcd3c3f2394c (patch)
tree7aa12e70396ae32152e9680e576a7e6301d0240d
parent62ec8c0a48fb8eac664ef24c95538544afc13e0d (diff)
downloadorg-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.el12
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.