(defun riece-put-text-property-nonsticky (start end prop value
&optional object)
- (add-text-property start end
- (list prop value 'front-sticky nil 'rear-nonsticky t)
- object))
+ (add-text-properties start end
+ (list prop value 'front-sticky nil 'rear-nonsticky t)
+ object))
(defalias 'riece-facep 'facep)
(defun riece-put-text-property-nonsticky (start end prop value
&optional object)
- (add-text-property start end (list prop value 'start-open t 'end-open t)
- object))
+ (add-text-properties start end (list prop value 'start-open t 'end-open t)
+ object))
(provide 'riece-xemacs)