Mercurial > emacs

comparison src/textprop.c @ 26872:ea588757e607

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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;