Mercurial > emacs
comparison src/textprop.c @ 26872:ea588757e607
(Vtext_property_default_nonsticky): New variable
(syms_of_textprop): Declare it as a Lisp variable.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 15 Dec 1999 00:21:42 +0000 |
parents | 46168cb41ba0 |
children | 6f7f86b93247 |
comparison
equal
deleted
inserted
replaced
26871:aaf45e665b14 | 26872:ea588757e607 |
---|---|
67 traversing plists. */ | 67 traversing plists. */ |
68 #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCDR (o1), CONSP (o2))) | 68 #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCDR (o1), CONSP (o2))) |
69 | 69 |
70 Lisp_Object Vinhibit_point_motion_hooks; | 70 Lisp_Object Vinhibit_point_motion_hooks; |
71 Lisp_Object Vdefault_text_properties; | 71 Lisp_Object Vdefault_text_properties; |
72 Lisp_Object Vtext_property_default_nonsticky; | |
72 | 73 |
73 /* verify_interval_modification saves insertion hooks here | 74 /* verify_interval_modification saves insertion hooks here |
74 to be run later by report_interval_modification. */ | 75 to be run later by report_interval_modification. */ |
75 Lisp_Object interval_insert_behind_hooks; | 76 Lisp_Object interval_insert_behind_hooks; |
76 Lisp_Object interval_insert_in_front_hooks; | 77 Lisp_Object interval_insert_in_front_hooks; |
1827 | 1828 |
1828 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, | 1829 DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, |
1829 "If non-nil, don't run `point-left' and `point-entered' text properties.\n\ | 1830 "If non-nil, don't run `point-left' and `point-entered' text properties.\n\ |
1830 This also inhibits the use of the `intangible' text property."); | 1831 This also inhibits the use of the `intangible' text property."); |
1831 Vinhibit_point_motion_hooks = Qnil; | 1832 Vinhibit_point_motion_hooks = Qnil; |
1833 | |
1834 DEFVAR_LISP ("text-property-default-nonsticky", | |
1835 &Vtext_property_default_nonsticky, | |
1836 "Alist of properties vs the corresponding non-stickinesses.\n\ | |
1837 Each element has the form (PROPERTY . NONSTICKINESS).\n\ | |
1838 \n\ | |
1839 If a character in a buffer has PROPERTY, new text inserted adjacent to\n\ | |
1840 the character doesn't inherit PROPERTY if NONSTICKINESS is non-nil,\n\ | |
1841 inherits it if NONSTICKINESS is nil. The front-sticky and\n\ | |
1842 rear-nonsticky properties of the character overrides NONSTICKINESS."); | |
1843 Vtext_property_default_nonsticky = Qnil; | |
1832 | 1844 |
1833 staticpro (&interval_insert_behind_hooks); | 1845 staticpro (&interval_insert_behind_hooks); |
1834 staticpro (&interval_insert_in_front_hooks); | 1846 staticpro (&interval_insert_in_front_hooks); |
1835 interval_insert_behind_hooks = Qnil; | 1847 interval_insert_behind_hooks = Qnil; |
1836 interval_insert_in_front_hooks = Qnil; | 1848 interval_insert_in_front_hooks = Qnil; |