(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)