X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.h;h=7d62ac2100cbabeae466145ae3b1c4a7bdf4d5d2;hb=7dc29a1c9d81ba0db724b28d96232a7aaae91a75;hp=b5abc3e45f32f2f701a67ac99308a4c43b166f76;hpb=68995e1711ad6fce6ef6c4f4f210335698f0da0c;p=chise%2Fxemacs-chise.git-

diff --git a/src/chartab.h b/src/chartab.h
index b5abc3e..7d62ac2 100644
--- a/src/chartab.h
+++ b/src/chartab.h
@@ -31,6 +31,12 @@ Boston, MA 02111-1307, USA.  */
 
 #ifdef UTF2000
 
+EXFUN (Fmake_char, 3);
+EXFUN (Fdecode_char, 3);
+
+EXFUN (Fput_char_attribute, 3);
+
+
 /************************************************************************/
 /*			    Char-ID Tables                              */
 /************************************************************************/
@@ -308,7 +314,23 @@ extern Lisp_Object Vall_syntax_tables;
 
 #ifdef UTF2000
 
-Lisp_Object get_char_id_table (Lisp_Char_Table* cit, Emchar ch);
+INLINE_HEADER Lisp_Object get_char_id_table (Lisp_Char_Table* cit, Emchar ch);
+INLINE_HEADER Lisp_Object
+get_char_id_table (Lisp_Char_Table* cit, Emchar ch)
+{
+  Lisp_Object val = get_byte_table (get_byte_table
+				    (get_byte_table
+				     (get_byte_table
+				      (cit->table,
+				       (unsigned char)(ch >> 24)),
+				      (unsigned char) (ch >> 16)),
+				     (unsigned char)  (ch >> 8)),
+				    (unsigned char)    ch);
+  if (UNBOUNDP (val))
+    return cit->default_value;
+  else
+    return val;
+}
 
 INLINE_HEADER void
 put_char_id_table_0 (Lisp_Char_Table* cit, Emchar code, Lisp_Object value);