Mercurial > hg > xemacs-beta
diff src/chartab.h @ 424:11054d720c21 r21-2-20
Import from CVS: tag r21-2-20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:26:11 +0200 |
| parents | 697ef44129c6 |
| children |
line wrap: on
line diff
--- a/src/chartab.h Mon Aug 13 11:25:03 2007 +0200 +++ b/src/chartab.h Mon Aug 13 11:26:11 2007 +0200 @@ -42,7 +42,6 @@ XRECORD (x, char_table_entry, struct Lisp_Char_Table_Entry) #define XSETCHAR_TABLE_ENTRY(x, p) XSETRECORD (x, p, char_table_entry) #define CHAR_TABLE_ENTRYP(x) RECORDP (x, char_table_entry) -#define GC_CHAR_TABLE_ENTRYP(x) GC_RECORDP (x, char_table_entry) /* #define CHECK_CHAR_TABLE_ENTRY(x) CHECK_RECORD (x, char_table_entry) char table entries should never escape to Lisp */ @@ -63,7 +62,6 @@ XRECORD (x, char_table, struct Lisp_Char_Table) #define XSETCHAR_TABLE(x, p) XSETRECORD (x, p, char_table) #define CHAR_TABLEP(x) RECORDP (x, char_table) -#define GC_CHAR_TABLEP(x) GC_RECORDP (x, char_table) #define CHECK_CHAR_TABLE(x) CHECK_RECORD (x, char_table) #define CONCHECK_CHAR_TABLE(x) CONCHECK_RECORD (x, char_table) @@ -186,7 +184,7 @@ int (*fn) (struct chartab_range *range, Lisp_Object val, void *arg), void *arg); -void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object)); +void prune_syntax_tables (void); EXFUN (Fcopy_char_table, 1); EXFUN (Fmake_char_table, 1);