瀏覽代碼

org-colview: Fix previous commit

* lisp/org-colview.el (org-columns-compute): Fix error introduced in
  last commit.
Nicolas Goaziou 9 年之前
父節點
當前提交
323a945366
共有 1 個文件被更改,包括 6 次插入6 次删除
  1. 6 6
      lisp/org-colview.el

+ 6 - 6
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.