From: tomo <tomo>
Date: Fri, 15 Oct 2004 13:51:28 +0000 (+0000)
Subject: (Fput_char_attribute): Convert char-specs in value of
X-Git-Tag: r21-4-15-u2km-0_21-32-a~2^2~156
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c8e871d9bb105b7b2c9eab976e088f2b3e8e21c;p=chise%2Fxemacs-chise.git-

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

diff --git a/src/chartab.c b/src/chartab.c
index 02ef2df..15acf41 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3508,9 +3508,10 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 	    EQ (attribute, Q_component) ||
 	    EQ (attribute, Q_component_of) ||
 	    !NILP (Fstring_match
-		   (build_string ("^\\(<-\\|->\\)\\(simplified"
-				  "\\|same\\|vulgar\\|wrong"
-				  "\\|original\\|ancient"
+		   (build_string ("^\\(<-\\|->\\)\\("
+				  "fullwidth\\|halfwidth"
+				  "\\|simplified\\|vulgar\\|wrong"
+				  "\\|same\\|original\\|ancient"
 				  "\\)[^*]*$"),
 		    Fsymbol_name (attribute),
 		    Qnil, Qnil)) )