* riece-xemacs.el (riece-put-text-property-nonsticky): New function.

[riece] / lisp / riece-xemacs.el

diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 72ce435..aa75f04 100644 (file)
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -124,6 +124,11 @@
 
 (defalias 'riece-facep 'find-face)
 
+(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))
+
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here