X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=ccfed1106d302191fdd22b2bd620a9004446c7ba;hb=50519fdf6fa99864a0928da44259f486b730cc02;hp=95d0a15355c08c28171ee9dc335b3ce62297415d;hpb=1634394e3d54370865457b09ac9b14357261e87c;p=chise%2Fxemacs-chise.git-

diff --git a/src/chartab.c b/src/chartab.c
index 95d0a15..ccfed11 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -4,7 +4,8 @@
    Copyright (C) 1995, 1996 Ben Wing.
    Copyright (C) 1995, 1997, 1999 Electrotechnical Laboratory, JAPAN.
    Licensed to the Free Software Foundation.
-   Copyright (C) 1999,2000,2001,2002,2003,2004,2005,2006,2008 MORIOKA Tomohiko
+   Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2008,
+     2010 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -354,7 +355,7 @@ save_uint8_byte_table (Lisp_Uint8_Byte_Table *ct, Lisp_Char_Table* root,
     {
       if (ct->property[i] == BT_UINT8_unloaded)
 	{
-	  c1 = c + unit;
+	  c += unit;
 	}
       else if (ct->property[i] != BT_UINT8_unbound)
 	{
@@ -678,7 +679,7 @@ save_uint16_byte_table (Lisp_Uint16_Byte_Table *ct, Lisp_Char_Table* root,
     {
       if (ct->property[i] == BT_UINT16_unloaded)
 	{
-	  c1 = c + unit;
+	  c += unit;
 	}
       else if (ct->property[i] != BT_UINT16_unbound)
 	{
@@ -4232,6 +4233,20 @@ implementation does not coalesce ranges all of whose values are the same.
   return slarg.retval;
 }
 
+static Lisp_Object
+allocate_character ()
+{
+  int cid = XINT (Vnext_defined_char_id);
+
+  if (cid <= 0xE00000)
+    {
+      Vnext_defined_char_id = make_int (cid + 1);
+      return make_char (cid);
+    }
+  else
+    return Qnil;
+}
+
 DEFUN ("define-char", Fdefine_char, 1, 1, 0, /*
 Store character's ATTRIBUTES.
 */
@@ -4280,7 +4295,7 @@ Store character's ATTRIBUTES.
 	    }
 	  rest = Fcdr (rest);
 	}
-#if 1
+#if 0
       {
 	int cid = XINT (Vnext_defined_char_id);
 
@@ -4292,16 +4307,9 @@ Store character's ATTRIBUTES.
 	  }
       }
 #else
-      if ( (!NILP (code = Fcdr (Fassq (Qto_ucs, attributes)))) )
-	{
-	  if (!INTP (code))
-	    signal_simple_error ("Invalid argument", attributes);
-	  else
-	    character = make_char (XINT (code) + 0x100000);
-	  goto setup_attributes;
-	}
+      if ( NILP (character = allocate_character ()) )
 #endif
-      return Qnil;
+	return Qnil;
     }
   else if (!INTP (code))
     signal_simple_error ("Invalid argument", attributes);