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

fix bug

Browse Source
This commit is contained in:
Kinneyzhang 2026-01-07 02:11:06 +08:00
parent 25a8daa36e
commit 02ffc7f70f
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

@ -1846,7 +1846,7 @@ If PROPERTY is a layer name, all properties added by that layer are removed."
(if new-value (if new-value
(put-text-property pos next-pos prop-name new-value object) (put-text-property pos next-pos prop-name new-value object)
(remove-text-properties pos next-pos (list prop-name nil) object)))) (remove-text-properties pos next-pos (list prop-name nil) object))))
(setq pos next-pos)))))))) (setq pos next-pos)))))))))
(defun tp-remove (start-or-string end-or-prop &optional prop-or-sub &rest rest) (defun tp-remove (start-or-string end-or-prop &optional prop-or-sub &rest rest)
"Remove properties from text. "Remove properties from text.