Mercurial > hg > xemacs-beta

comparison src/chartab.h @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
133 133
134 Lisp_Object get_non_ascii_char_table_value (Lisp_Char_Table *ct, 134 Lisp_Object get_non_ascii_char_table_value (Lisp_Char_Table *ct,
135 int leading_byte, 135 int leading_byte,
136 Emchar c); 136 Emchar c);
137 137
138 INLINE Lisp_Object 138 INLINE_HEADER Lisp_Object
139 CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (Lisp_Char_Table *ct, Emchar ch); 139 CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (Lisp_Char_Table *ct, Emchar ch);
140 INLINE Lisp_Object 140 INLINE_HEADER Lisp_Object
141 CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (Lisp_Char_Table *ct, Emchar ch) 141 CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (Lisp_Char_Table *ct, Emchar ch)
142 { 142 {
143 unsigned char lb = CHAR_LEADING_BYTE (ch); 143 unsigned char lb = CHAR_LEADING_BYTE (ch);
144 if (!CHAR_TABLE_ENTRYP ((ct)->level1[lb - MIN_LEADING_BYTE])) 144 if (!CHAR_TABLE_ENTRYP ((ct)->level1[lb - MIN_LEADING_BYTE]))
145 return (ct)->level1[lb - MIN_LEADING_BYTE]; 145 return (ct)->level1[lb - MIN_LEADING_BYTE];
155 #else /* not MULE */ 155 #else /* not MULE */
156 156
157 #define CHAR_TABLE_VALUE_UNSAFE(ct, ch) ((ct)->ascii[(unsigned char) (ch)]) 157 #define CHAR_TABLE_VALUE_UNSAFE(ct, ch) ((ct)->ascii[(unsigned char) (ch)])
158 158
159 #endif /* not MULE */ 159 #endif /* not MULE */
160
161 #define XCHAR_TABLE_VALUE_UNSAFE(ct, ch) \
162 CHAR_TABLE_VALUE_UNSAFE (XCHAR_TABLE (ct), ch)
160 163
161 enum chartab_range_type 164 enum chartab_range_type
162 { 165 {
163 CHARTAB_RANGE_ALL, 166 CHARTAB_RANGE_ALL,
164 #ifdef MULE 167 #ifdef MULE