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

update

Browse Source
This commit is contained in:
Kinneyzhang 2026-01-13 18:11:40 +08:00
parent 9aace2f6fe
commit 29b2ee54d3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tp.el
View File

@ -730,13 +730,16 @@ the batch completes. Layer definitions are still updated immediately.
Uses `tp--equal-including-string-properties' for comparison to properly detect Uses `tp--equal-including-string-properties' for comparison to properly detect
changes in text properties when the text content is the same." changes in text properties when the text content is the same."
(when (and (not (tp--equal-including-string-properties (symbol-value symbol) newval)) (when (and (not (tp--equal-including-string-properties
(when (boundp symbol)
(symbol-value symbol))
newval))
(eq operation 'set)) (eq operation 'set))
(tp-debug-log "Variable %s changed: %S -> %S (where: %s)" (tp-debug-log "Variable %s changed: %S -> %S (where: %s)"
symbol (symbol-value symbol) newval symbol (when (boundp symbol) (symbol-value symbol)) newval
(if where (buffer-name where) "global")) (if where (buffer-name where) "global"))
(let ((deps (cdr (assoc symbol tp-reactive-deps))) (let ((deps (cdr (assoc symbol tp-reactive-deps)))
(oldval (symbol-value symbol)) (oldval (when (boundp symbol) (symbol-value symbol)))
;; Create override alist with the new value ;; Create override alist with the new value
;; (watcher is called before the variable is actually updated) ;; (watcher is called before the variable is actually updated)
(override-alist (list (cons symbol newval)))) (override-alist (list (cons symbol newval))))