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

[riece] / lisp / riece-emacs.el

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 5a47337..c4e21d2 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -95,6 +95,12 @@
   (add-text-properties 0 (length string) properties string)
   string)
 
+(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))
+
 (defalias 'riece-facep 'facep)
 
 (provide 'riece-emacs)