[PATCH] lisp/org-colview.el: Fix dynamic block when headlines are folded (2nd try)

[Peter Mao]

no edits to this one!

From c02f1c1fd0003d7c8abe2ba32a107c646145243e Mon Sep 17 00:00:00 2001
From: Peter Mao <peter....@gmail.com>
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.
---
 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,11 +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