From: tomo <tomo>
Date: Thu, 1 Jul 2004 08:27:05 +0000 (+0000)
Subject: (Fput_char_attribute): Convert char-specs in value of
X-Git-Tag: r21-4-15-chise-0_21-30-si-ancient^2~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87dd8ecaf0fa83fc731d01f5bea6c29cc4fddb9b;p=chise%2Fxemacs-chise.git-

(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[^*]*'.
---

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)) )