- (if props
- (put-text-property start end (car props) (cdr props) buffer)
- (remove-text-properties start end ()))))
+ (if (or (null buffer) (bufferp buffer))
+ (if props
+ (put-text-property start end (car props) (cdr props) buffer)
+ (remove-text-properties start end ())))))