# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945217302 0
# Node ID ea588757e60766a029a5bd001f5e10263da77df6
# Parent  aaf45e665b1428a6b81f73eb0718efb1a165d90d
(Vtext_property_default_nonsticky): New variable
(syms_of_textprop): Declare it as a Lisp variable.

diff -r aaf45e665b14 -r ea588757e607 src/textprop.c
--- a/src/textprop.c	Wed Dec 15 00:21:15 1999 +0000
+++ b/src/textprop.c	Wed Dec 15 00:21:42 1999 +0000
@@ -69,6 +69,7 @@
 
 Lisp_Object Vinhibit_point_motion_hooks;
 Lisp_Object Vdefault_text_properties;
+Lisp_Object Vtext_property_default_nonsticky;
 
 /* verify_interval_modification saves insertion hooks here
    to be run later by report_interval_modification.  */
@@ -1830,6 +1831,17 @@
 This also inhibits the use of the `intangible' text property.");
   Vinhibit_point_motion_hooks = Qnil;
 
+  DEFVAR_LISP ("text-property-default-nonsticky",
+	       &Vtext_property_default_nonsticky,
+    "Alist of properties vs the corresponding non-stickinesses.\n\
+Each element has the form (PROPERTY . NONSTICKINESS).\n\
+\n\
+If a character in a buffer has PROPERTY, new text inserted adjacent to\n\
+the character doesn't inherit PROPERTY if NONSTICKINESS is non-nil,\n\
+inherits it if NONSTICKINESS is nil.  The front-sticky and\n\
+rear-nonsticky properties of the character overrides NONSTICKINESS.");
+  Vtext_property_default_nonsticky = Qnil;
+
   staticpro (&interval_insert_behind_hooks);
   staticpro (&interval_insert_in_front_hooks);
   interval_insert_behind_hooks = Qnil;