diff options
author | Boris Goldowsky <boris@gnu.org> | 1995-03-06 15:43:56 +0000 |
---|---|---|
committer | Boris Goldowsky <boris@gnu.org> | 1995-03-06 15:43:56 +0000 |
commit | 9c228db6be607c4d676b6fc011aa90516c56f7b1 (patch) | |
tree | b9cae0185b7d041c33e4cd19b33a15604ca77cf4 /src/textprop.c | |
parent | 5d8983542f046000df80d5890abc0a40ba04b9eb (diff) | |
download | emacs-9c228db6be607c4d676b6fc011aa90516c56f7b1.tar.gz |
(Vdefault_properties): New vbl.
Diffstat (limited to 'src/textprop.c')
-rw-r--r-- | src/textprop.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/textprop.c b/src/textprop.c index d55d69bfce3..be55e59aefa 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -64,6 +64,7 @@ Lisp_Object Qfront_sticky, Qrear_nonsticky; #define PLIST_ELT_P(o1, o2) (CONSP (o1) && ((o2)=XCONS (o1)->cdr, CONSP (o2))) Lisp_Object Vinhibit_point_motion_hooks; +Lisp_Object Vdefault_properties; /* Extract the interval at the position pointed to by BEGIN from @@ -1379,6 +1380,12 @@ copy_text_properties (start, end, src, pos, dest, prop) void syms_of_textprop () { + DEFVAR_LISP ("default-properties", &Vdefault_properties, + "Property-list used as default values.\n\ +The value of a property in this list is seen as the value for every character\n\ +that does not have its own value for that property."); + Vdefault_properties = Qnil; + DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, "If non-nil, don't run `point-left' and `point-entered' text properties.\n\ This also inhibits the use of the `intangible' text property."); |