From 87dd8ecaf0fa83fc731d01f5bea6c29cc4fddb9b Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 1 Jul 2004 08:27:05 +0000
Subject: [PATCH] (Fput_char_attribute): Convert char-specs in value of
 `{<-|->}ancient[^*]*' to characters and put reverse links.
 (Fsave_char_attribute_table): Use
 `Fchar_refs_simplify_char_specs' for `{<-|->}ancient[^*]*'.

---
 src/chartab.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/chartab.c b/src/chartab.c
index 7746288..65000a0 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3511,7 +3511,7 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	    !NILP (Fstring_match
 		   (build_string ("^\\(<-\\|->\\)\\(simplified"
 				  "\\|same\\|vulgar\\|wrong"
-				  "\\|original"
+				  "\\|original\\|ancient"
 				  "\\)[^*]*$"),
 		    Fsymbol_name (attribute),
 		    Qnil, Qnil)) )
@@ -3835,7 +3835,7 @@ Save values of ATTRIBUTE into database file.
 	   || !NILP (Fstring_match
 		     (build_string ("^\\(<-\\|->\\)\\(simplified"
 				    "\\|same\\|vulgar\\|wrong"
-				    "\\|original"
+				    "\\|original\\|ancient"
 				    "\\)[^*]*$"),
 		      Fsymbol_name (attribute),
 		      Qnil, Qnil)) )
-- 
1.7.10.4