From: tomo <tomo>
Date: Fri, 22 Jul 2011 16:32:58 +0000 (+0000)
Subject: (Fput_char_attribute): Accept nil as a value of CCS-feature [it means
X-Git-Tag: r21-4-22-chise-0_25-10^20~295
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=db9d6060083d0b67086746491e474cbce07cfcd2;p=chise%2Fxemacs-chise.git-

(Fput_char_attribute): Accept nil as a value of CCS-feature [it means
that specified object does not have code-point of the CCS-feature].
---

diff --git a/src/chartab.c b/src/chartab.c
index b97f39d..7967606 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3568,7 +3568,8 @@ Store CHARACTER's ATTRIBUTE with VALUE.
 
   if (!NILP (ccs))
     {
-      value = put_char_ccs_code_point (character, ccs, value);
+      if ( !NILP (value) )
+	value = put_char_ccs_code_point (character, ccs, value);
       attribute = XCHARSET_NAME (ccs);
     }
   else if (