-(or (fboundp 'tl:set-text-properties)
- (defun tl:set-text-properties (start end props &optional buffer)
- (if (or (null buffer) (bufferp buffer))
- (if props
- (while props
- (put-text-property
- start end (car props) (nth 1 props) buffer)
- (setq props (nthcdr 2 props)))
- (remove-text-properties start end ())
- )))
- )
-
-(defun tl:add-text-properties (start end properties &optional object)
- (add-text-properties start end
- (append properties (list 'highlight t))
- object)
- )