Clean up section headers for consistency

Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-28 10:09:55 +00:00
parent 868ba038d9
commit 121662dee8

17
tp.el
View File

@ -3036,11 +3036,10 @@ NAME can be nil for an unnamed layer."
start end obj) start end obj)
nil)) nil))
;;; Layer query functions ;;; --- Layer Query Functions ---
(defun tp-layer-list (start end &optional object) (defun tp-layer-list (start end &optional object)
"Return list of all layer names in region from START to END. "Return list of all layer names in region from START to END."
OBJECT defaults to current buffer."
(let ((layers nil)) (let ((layers nil))
(tp-intervals-map (tp-intervals-map
(lambda (_i-start _i-end top belows) (lambda (_i-start _i-end top belows)
@ -3075,18 +3074,10 @@ OBJECT defaults to current buffer."
(when-let ((intervals (tp-intervals start end object))) (when-let ((intervals (tp-intervals start end object)))
(plist-get (nth 2 (car intervals)) 'tp-name))) (plist-get (nth 2 (car intervals)) 'tp-name)))
;;; Layer property manipulation functions ;;; --- Layer Property Manipulation Functions ---
(defun tp-add-to-layers (idx-or-layer-name-list start-or-string &optional end-or-plist plist-or-object &rest rest) (defun tp-add-to-layers (idx-or-layer-name-list start-or-string &optional end-or-plist plist-or-object &rest rest)
"Add/merge properties to specified layers. "Add/merge properties to specified layers."
This function supports two calling conventions:
1. Buffer/string region:
(tp-add-to-layers IDX-OR-LAYER-NAME-LIST START END PLIST OBJECT)
2. Entire string:
(tp-add-to-layers IDX-OR-LAYER-NAME-LIST STRING PROP VAL ...)
IDX-OR-LAYER-NAME-LIST is a list of layer indices (integers) or IDX-OR-LAYER-NAME-LIST is a list of layer indices (integers) or
layer names (symbols) specifying which layers to add properties to. layer names (symbols) specifying which layers to add properties to.