Mercurial > hg > xemacs-beta

comparison src/chartab.h @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
40 DECLARE_LRECORD (char_table_entry, struct Lisp_Char_Table_Entry); 40 DECLARE_LRECORD (char_table_entry, struct Lisp_Char_Table_Entry);
41 #define XCHAR_TABLE_ENTRY(x) \ 41 #define XCHAR_TABLE_ENTRY(x) \
42 XRECORD (x, char_table_entry, struct Lisp_Char_Table_Entry) 42 XRECORD (x, char_table_entry, struct Lisp_Char_Table_Entry)
43 #define XSETCHAR_TABLE_ENTRY(x, p) XSETRECORD (x, p, char_table_entry) 43 #define XSETCHAR_TABLE_ENTRY(x, p) XSETRECORD (x, p, char_table_entry)
44 #define CHAR_TABLE_ENTRYP(x) RECORDP (x, char_table_entry) 44 #define CHAR_TABLE_ENTRYP(x) RECORDP (x, char_table_entry)
45 #define GC_CHAR_TABLE_ENTRYP(x) GC_RECORDP (x, char_table_entry)
46 /* #define CHECK_CHAR_TABLE_ENTRY(x) CHECK_RECORD (x, char_table_entry) 45 /* #define CHECK_CHAR_TABLE_ENTRY(x) CHECK_RECORD (x, char_table_entry)
47 char table entries should never escape to Lisp */ 46 char table entries should never escape to Lisp */
48 47
49 struct Lisp_Char_Table_Entry 48 struct Lisp_Char_Table_Entry
50 { 49 {
61 DECLARE_LRECORD (char_table, struct Lisp_Char_Table); 60 DECLARE_LRECORD (char_table, struct Lisp_Char_Table);
62 #define XCHAR_TABLE(x) \ 61 #define XCHAR_TABLE(x) \
63 XRECORD (x, char_table, struct Lisp_Char_Table) 62 XRECORD (x, char_table, struct Lisp_Char_Table)
64 #define XSETCHAR_TABLE(x, p) XSETRECORD (x, p, char_table) 63 #define XSETCHAR_TABLE(x, p) XSETRECORD (x, p, char_table)
65 #define CHAR_TABLEP(x) RECORDP (x, char_table) 64 #define CHAR_TABLEP(x) RECORDP (x, char_table)
66 #define GC_CHAR_TABLEP(x) GC_RECORDP (x, char_table)
67 #define CHECK_CHAR_TABLE(x) CHECK_RECORD (x, char_table) 65 #define CHECK_CHAR_TABLE(x) CHECK_RECORD (x, char_table)
68 #define CONCHECK_CHAR_TABLE(x) CONCHECK_RECORD (x, char_table) 66 #define CONCHECK_CHAR_TABLE(x) CONCHECK_RECORD (x, char_table)
69 67
70 #define CHAR_TABLE_TYPE(ct) ((ct)->type) 68 #define CHAR_TABLE_TYPE(ct) ((ct)->type)
71 #define XCHAR_TABLE_TYPE(ct) CHAR_TABLE_TYPE (XCHAR_TABLE (ct)) 69 #define XCHAR_TABLE_TYPE(ct) CHAR_TABLE_TYPE (XCHAR_TABLE (ct))
184 int map_char_table (struct Lisp_Char_Table *ct, 182 int map_char_table (struct Lisp_Char_Table *ct,
185 struct chartab_range *range, 183 struct chartab_range *range,
186 int (*fn) (struct chartab_range *range, 184 int (*fn) (struct chartab_range *range,
187 Lisp_Object val, void *arg), 185 Lisp_Object val, void *arg),
188 void *arg); 186 void *arg);
189 void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object)); 187 void prune_syntax_tables (void);
190 188
191 EXFUN (Fcopy_char_table, 1); 189 EXFUN (Fcopy_char_table, 1);
192 EXFUN (Fmake_char_table, 1); 190 EXFUN (Fmake_char_table, 1);
193 EXFUN (Fput_char_table, 3); 191 EXFUN (Fput_char_table, 3);
194 EXFUN (Fget_char_table, 2); 192 EXFUN (Fget_char_table, 2);