From: tomo <tomo>
Date: Sat, 19 Jun 2004 17:16:04 +0000 (+0000)
Subject: (Fput_char_attribute): Convert char-specs in value of
X-Git-Tag: r21-4-14-chise-0_21-29-si-original^2~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7166a36137d32a77710bbcc677fc710868c628c;p=chise%2Fxemacs-chise.git.1

(Fput_char_attribute): Convert char-specs in value of
`{<-|->}original[^*]*' to characters and put reverse links.
(Fsave_char_attribute_table): Use `Fchar_refs_simplify_char_specs' for
`{<-|->}original[^*]*'.
---

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