; * lisp/transient.el: Fix section outline levels.

In [1: 77a4c63fda5] "all" code sections were needlessly nested
below the ";;; Code:" section, which I do not like but can live
with.  However, a few sections were missed; nest them here too.
Also put the "frontmatter" code, which in my libraries usually
is the only code located in the ";;; Code:" section, into a new
";;;; Frontmatter" sub-section.  That way it is possible again
to cycle to the "show all headings but no code" state.

1: 2025-06-04 77a4c63fda5ca5d4c6d82092eaa06f1eb9b51302
   (outline--hidden-headings-paths): Fix slow saves (bug#78665)
(cherry picked from commit d4615d026bdfc0d40982070149fe9c55f0a661ee)

diff --git a/lisp/transient.el b/lisp/transient.el
index 794cd2fe10adc9797ed2a270ba990c79dab365a5..7df961eca644ed6aa60ef585021b2877f52355fd 100644 (file)
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -31,6 +31,7 @@
 ;; used to implement similar menus in other packages.
 
 ;;; Code:
+;;;; Frontmatter
 
 (defconst transient-version "v0.9.1-7-gd7d2c1c2-builtin")
 
@@ -4945,7 +4946,7 @@ This is used when a tooltip is needed.")
         (let ((message-log-max nil))
           (message "%s" doc))))))
 
-;;; Menu Navigation
+;;;; Menu Navigation
 
 (defun transient-scroll-up (&optional arg)
   "Scroll text of transient's menu window upward ARG lines.
@@ -5012,7 +5013,7 @@ See `forward-button' for information about N."
           beg (next-single-property-change
                beg 'face nil (line-end-position))))))
 
-;;; Compatibility
+;;;; Compatibility
 ;;;; Menu Isearch
 
 (defvar-keymap transient--isearch-mode-map
@@ -5243,7 +5244,7 @@ as stand-in for elements of exhausted lists."
     (propertize (prin1-to-string value t) 'face
                 (if value 'transient-value 'transient-inactive-value))))
 
-;;; _
+;;;; _
 (provide 'transient)
 ;; Local Variables:
 ;; indent-tabs-mode: nil