magit-section-hidden: New function

1 files changed, 7 insertions, 0 deletions

diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 9410d86..ea98d61 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -1053,7 +1053,14 @@ global map, this involves advising `tab-bar--define-keys'."
           (t
            (mapc #'magit-section-hide children)))))
 
+(defun magit-section-hidden (section)
+  "Return t if SECTION and/or an ancestor is hidden."
+  (or (oref section hidden)
+      (and-let* ((parent (oref section parent)))
+        (magit-section-hidden parent))))
+
 (defun magit-section-hidden-body (section &optional pred)
+  "Return t if the content of SECTION or of any children is hidden."
   (if-let ((children (oref section children)))
       (funcall (or pred #'seq-some) #'magit-section-hidden-body children)
     (and (oref section content)