[71_41] UI: Do not show subparagraph in the section context menu

XmacsLabs · Aug 25, 2024 · d41d863 · d41d863
1 parent 72eff97
commit d41d863
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/TeXmacs/progs/text/text-menu.scm b/TeXmacs/progs/text/text-menu.scm
@@ -848,8 +848,12 @@
 (define (get-verbatim-section-title s indent?)
   `(verbatim ,(tm/section-get-title-string s indent?)))
 
+(define (all-sections)
+  (list-filter (tree-search-sections (buffer-tree))
+    (lambda (x) (not (equal? (tree-label x) 'subparagraph)))))
+
 (tm-menu (focus-section-menu)
-  (for (s (tree-search-sections (buffer-tree)))
+  (for (s (all-sections))
     ((eval (get-verbatim-section-title s #t))
      (when (and (tree->path s) (section-context? s))
        (tree-go-to s 0 :end)))))

diff --git a/src/Data/Tree/tree_traverse.cpp b/src/Data/Tree/tree_traverse.cpp
@@ -719,9 +719,10 @@ void
 search_sections (array<tree>& a, tree t) {
   if (is_atomic (t)) return;
   else if (N (t) == 1 && section_tags->contains (L (t))) a << t;
-  else if (section_traverse_tags->contains (L (t)))
-    for (int i= 0; i < N (t); i++)
-      search_sections (a, t[i]);
+  else if (section_traverse_tags->contains (L (t))) {
+    for (tree subtree : t)
+      search_sections (a, subtree);
+  }
 }
 
 array<tree>