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-20 21:51:32 +08:00
parent b2ac7eac15
commit 73bc2df78e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tp.el
View File

@ -234,7 +234,8 @@ Only 'set' operations trigger updates because:
;; Call user-defined watch callbacks for this layer ;; Call user-defined watch callbacks for this layer
(tp--invoke-layer-watchers layer-name symbol newval oldval) (tp--invoke-layer-watchers layer-name symbol newval oldval)
;; Update computed properties for this layer ;; Update computed properties for this layer
(let ((updated-override (tp--update-layer-computed layer-name override-alist))) (let ((updated-override
(tp--update-layer-computed layer-name override-alist)))
(when reactive-props (when reactive-props
;; Resolve the reactive props with the new value override ;; Resolve the reactive props with the new value override
(let ((resolved-props (tp--resolve-reactive-symbols (let ((resolved-props (tp--resolve-reactive-symbols
@ -244,7 +245,8 @@ Only 'set' operations trigger updates because:
(when current-props (when current-props
;; Merge the resolved reactive props into the current layer props ;; Merge the resolved reactive props into the current layer props
(cl-loop for (key val) on resolved-props by #'cddr (cl-loop for (key val) on resolved-props by #'cddr
do (setq current-props (plist-put current-props key val))) do (setq current-props
(plist-put current-props key val)))
(tp--set-layer-props layer-name current-props)))))) (tp--set-layer-props layer-name current-props))))))
;; Update text regions with this layer ;; Update text regions with this layer
;; If WHERE is a buffer (setq-local), only update that buffer ;; If WHERE is a buffer (setq-local), only update that buffer