geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

improve code

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-24 22:01:07 +08:00
parent 104b5b1d5c
commit 7fd38e451e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tp.el
View File

@ -2049,6 +2049,7 @@ the text properties explicitly.
If a layer with the same NAME already exists, it will be overwritten. If a layer with the same NAME already exists, it will be overwritten.
The layer is stored in `tp-layer-alist'." The layer is stored in `tp-layer-alist'."
(declare (indent defun))
(let* ((parsed (tp--parse-define-layer-args args)) (let* ((parsed (tp--parse-define-layer-args args))
(properties (plist-get parsed :props)) (properties (plist-get parsed :props))
(data (plist-get parsed :data)) (data (plist-get parsed :data))
@ -2270,6 +2271,7 @@ Example:
If a layer group with the same NAME already exists, it will be overwritten. If a layer group with the same NAME already exists, it will be overwritten.
Individual layers created by the group are stored in `tp-layer-alist', Individual layers created by the group are stored in `tp-layer-alist',
and the group itself is stored in `tp-layer-groups'." and the group itself is stored in `tp-layer-groups'."
(declare (indent defun))
(let ((layer-names nil) (let ((layer-names nil)
(idx 0)) (idx 0))
(dolist (element elements) (dolist (element elements)