X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fchartab.c;h=b7acb66f682b66b676d063b87152772ce17481be;hb=fa0af390541884932a93ad3126a8186e201aa76a;hp=772c7b9c921dc4298030d07ac74c3e5dbe1b1637;hpb=4325dbbcdcdb80daba5f060ef4bb5c19a6beafe3;p=chise%2Fxemacs-chise.git.1

diff --git a/src/chartab.c b/src/chartab.c
index 772c7b9..b7acb66 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -34,7 +34,7 @@ Boston, MA 02111-1307, USA.  */
              loosely based on the original Mule.
    Jareth Hein: fixed a couple of bugs in the implementation, and
    	     added regex support for categories with check_category_at
-   MORIOKA Tomohiko: Rewritten for XEmacs UTF-2000
+   MORIOKA Tomohiko: Rewritten for XEmacs CHISE
  */
 
 #include <config.h>
@@ -2526,7 +2526,8 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
 	cell_max = i & 0xFF;
 	for (i = cell_min; i <= cell_max; i++)
 	  {
-	    Emchar ch = DECODE_CHAR (range->charset, (range->row << 8) | i);
+	    Emchar ch
+	      = DECODE_CHAR (range->charset, (range->row << 8) | i, 0);
 
 	    if ( charset_code_point (range->charset, ch, 0) >= 0 )
 	      put_char_id_table_0 (ct, ch, val);
@@ -2968,7 +2969,8 @@ map_char_table (Lisp_Char_Table *ct,
 	rainj.type = CHARTAB_RANGE_CHAR;
 	for (retval =0, i = cell_min; i <= cell_max && retval == 0; i++)
 	  {
-	    Emchar ch = DECODE_CHAR (range->charset, (range->row << 8) | i);
+	    Emchar ch
+	      = DECODE_CHAR (range->charset, (range->row << 8) | i, 0);
 
 	    if ( charset_code_point (range->charset, ch, 0) >= 0 )
 	      {
@@ -3945,7 +3947,7 @@ Store character's ATTRIBUTES.
 	      if (CONSP (cell))
 		character = Fmake_char (ccs, Fcar (cell), Fcar (Fcdr (cell)));
 	      else
-		character = Fdecode_char (ccs, cell, Qnil);
+		character = Fdecode_char (ccs, cell, Qnil, Qt);
 	      if (!NILP (character))
 		goto setup_attributes;
 	    }
@@ -4002,7 +4004,7 @@ Retrieve the character of the given ATTRIBUTES.
 	  if (CONSP (cell))
 	    return Fmake_char (ccs, Fcar (cell), Fcar (Fcdr (cell)));
 	  else
-	    return Fdecode_char (ccs, cell, Qnil);
+	    return Fdecode_char (ccs, cell, Qnil, Qnil);
 	}
       rest = Fcdr (rest);
     }