From f94f51162be60ab2a50ffd625a0ac775d860bd43 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 7 Sep 2001 07:23:58 +0000 Subject: [PATCH] (get_char_id_table): New inline function. --- src/chartab.h | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/src/chartab.h b/src/chartab.h index b5abc3e..4651d1b 100644 --- a/src/chartab.h +++ b/src/chartab.h @@ -308,7 +308,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); -- 1.7.10.4