From a4927f9ea530db180efdaea6bb01511c03bb1051 Mon Sep 17 00:00:00 2001 Message-ID: From: Ihor Radchenko Date: Mon, 29 Jan 2024 16:09:29 +0100 Subject: [PATCH] lisp/org-colview.el: Fix computing summary with low-level first child * lisp/org-colview.el (org-columns--compute-spec): Do not assume that all the children of an entry have the same LAST-LEVEL. Handle situation when the first child has lower level: * Heading ****** Child 1 ** Child 2 ** Child 3 Reported-by: Uwe Brauer Link: https://orgmode.org/list/87wn8yj2i5.fsf@localhost --- lisp/org-colview.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index b1b79257b..39ca01502 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1244,9 +1244,9 @@ (defun org-columns--compute-spec (spec &optional update) ;; property `org-summaries', in alist whose key is SPEC. (let* ((summary (and summarize - (let ((values (append (and (/= last-level inminlevel) - (aref lvals last-level)) - (aref lvals inminlevel)))) + (let ((values + (cl-loop for l from (1+ level) to lmax + append (aref lvals l)))) (and values (funcall summarize values printf)))))) ;; Leaf values are not summaries: do not mark them. (when summary -- 2.43.0