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-28 17:51:13 +08:00
parent af5ba6b214
commit e52a9e8cd8
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tp.el
View File

@ -528,8 +528,9 @@ the new end position after any text replacement."
(let ((tp-text-val (plist-get props 'tp-text)))
(cond
;; tp-text is nil - initialize it to the current text
((null tp-text-val)
(let ((current-text (if (stringp object)
((not (null tp-text-val))
(let ((current-text
(if (stringp object)
(substring object start end)
(if object
(with-current-buffer object
@ -569,7 +570,8 @@ the new end position after any text replacement."
(let ((new-end (+ start (length tp-text-val))))
;; Re-apply existing properties to new text region if preserving
(when existing-props
(cl-loop for (key val) on existing-props by #'cddr
(cl-loop
for (key val) on existing-props by #'cddr
do (put-text-property start new-end key val object)))
(list props new-end)))))))
;; Other types - return unchanged