Hi Ihor,
thanks for walking me through the submission process today.

make test did no worse than prior to the patch
make compile ran cleanly

no additional tests or documentation included -- let me know if you need
that.

Peter
From c02f1c1fd0003d7c8abe2ba32a107c646145243e Mon Sep 17 00:00:00 2001
From: Peter Mao <[email protected]>
Date: Sat, 15 Aug 2026 09:25:05 -0700
Subject: [PATCH] lisp/org-colview.el: Fix dynamic block when headlines are
 folded

* lisp/org-colview.el (org-columns-goto-top-level):
Allows `org-update-all-dblocks' to properly generate columnview tables.
Prior to fix, if the source material was folded, the tables would pick
up all entries in the file.
TINYCHANGE
---
 lisp/org-colview.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 66fdb911f..d5548802f 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1074,12 +1074,11 @@ (defun org-columns-goto-top-level
 Also sets `org-columns-top-level-marker' to the new position."
   (goto-char
    (setq org-columns-top-level-marker
-	 (org-move-marker
-	  org-columns-top-level-marker
-	  (cond ((org-before-first-heading-p) (point-min))
-		((org-entry-get nil "COLUMNS" t) org-entry-property-inherited-from)
-		(t (org-back-to-heading) (point)))))))
+         (org-move-marker
+          org-columns-top-level-marker
+          (cond ((org-before-first-heading-p) (point-min))
+                ((org-entry-get nil "COLUMNS" t) org-entry-property-inherited-from)
+                (t (org-back-to-heading t) (point)))))))
 
 (defun org-columns--display-rows (rows)
   "Display the header line and ROWS as column view overlays.
--
2.43.0

Reply via email to