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 18:15:34 +08:00
parent e0a56f7475
commit 5562ef98ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tp.el
View File

@ -529,7 +529,7 @@ NEW-OBJECT is the new string object (only different for strings with tp-text)."
(let ((tp-text-val (plist-get props 'tp-text))) (let ((tp-text-val (plist-get props 'tp-text)))
(cond (cond
;; tp-text is nil - initialize it to the current text ;; tp-text is nil - initialize it to the current text
((not (null tp-text-val)) ((null tp-text-val)
(let ((current-text (let ((current-text
(if (stringp object) (if (stringp object)
(substring object start end) (substring object start end)