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

diff --git a/src/chartab.c b/src/chartab.c
index 0e33354..340530e 100644 (file)
--- 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))
        {