# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1023567875 0
# Node ID c9e70e34b426369aef4b9b2e138ed43dcb062576
# Parent  85f61bf6ce1d8c4f085197a1f0da552bd6196683
(Vchar_property_alias_alist): New variable.
(syms_of_textprop) <Vchar_property_alias_alist>: DEFVAR_LISP.

diff -r 85f61bf6ce1d -r c9e70e34b426 src/textprop.c
--- a/src/textprop.c	Sat Jun 08 18:33:56 2002 +0000
+++ b/src/textprop.c	Sat Jun 08 20:24:35 2002 +0000
@@ -70,6 +70,7 @@
 
 Lisp_Object Vinhibit_point_motion_hooks;
 Lisp_Object Vdefault_text_properties;
+Lisp_Object Vchar_property_alias_alist;
 Lisp_Object Vtext_property_default_nonsticky;
 
 /* verify_interval_modification saves insertion hooks here
@@ -2177,6 +2178,15 @@
 character that does not have its own value for that property.  */);
   Vdefault_text_properties = Qnil;
 
+  DEFVAR_LISP ("char-property-alias-alist", &Vchar_property_alias_alist,
+	       doc: /* Alist of alternative properties for properties without a value.
+Each element should look like (PROPERTY ALTERNATIVE1 ALTERNATIVE2...).
+If a piece of text has no direct value for a particular property, then
+this alist is consulted.  If that property appears in the alist, then
+the first non-nil value from the associated alternative properties is
+returned. */);
+  Vchar_property_alias_alist = Qnil;
+
   DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks,
 	       doc: /* If non-nil, don't run `point-left' and `point-entered' text properties.
 This also inhibits the use of the `intangible' text property.  */);