From: tomo <tomo>
Date: Sun, 9 Mar 2003 16:37:13 +0000 (+0000)
Subject: (Fdefine_char): Refer `=ucs' as same as `ucs'.
X-Git-Tag: r21-4-11-chise-0_20-=ucs~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ade87b130c9c3168021fba1c3fd140035159983;p=chise%2Fxemacs-chise.git

(Fdefine_char): Refer `=ucs' as same as `ucs'.
---

diff --git a/src/chartab.c b/src/chartab.c
index 0e33354..340530e 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -3648,10 +3648,12 @@ Store character's ATTRIBUTES.
        (attributes))
 {
   Lisp_Object rest = attributes;
-  Lisp_Object code = Fcdr (Fassq (Qucs, attributes));
+  Lisp_Object code = Fcdr (Fassq (Qmap_ucs, attributes));
   Lisp_Object character;
 
   if (NILP (code))
+    code = Fcdr (Fassq (Qucs, attributes));
+  if (NILP (code))
     {
       while (CONSP (rest))
 	{