- (tl:add-text-properties from to
- (append (and tm:mouse-face
- (list 'mouse-face tm:mouse-face))
- (list 'tm-callback func)
- (and data (list 'tm-data data))
- ))
+ (add-text-properties from to
+ (append (and tm:mouse-face
+ (list 'mouse-face tm:mouse-face))
+ (list 'tm-callback func)
+ (and data (list 'tm-data data))
+ ))