(Fdefine_char): Fix problem with non-UCS character.

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 3643403..324a610 100644 (file)
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -522,7 +522,7 @@ Store character's ATTRIBUTES.
                  continue;
                }
              character = make_char (code);
-             break;
+             goto setup_attributes;
            }
          rest = Fcdr (rest);
        }
@@ -533,6 +533,7 @@ Store character's ATTRIBUTES.
   else
     character = make_char (XINT (code));
 
+ setup_attributes:
   rest = attributes;
   while (CONSP (rest))
     {