Mercurial > hg > xemacs-beta

comparison src/casetab.h @ 5133:444a448b2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents a9c41067dd88
children 308d34e9f07d
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
23 #ifndef INCLUDED_casetab_h_ 23 #ifndef INCLUDED_casetab_h_
24 #define INCLUDED_casetab_h_ 24 #define INCLUDED_casetab_h_
25 25
26 struct Lisp_Case_Table 26 struct Lisp_Case_Table
27 { 27 {
28 struct LCRECORD_HEADER header; 28 NORMAL_LISP_OBJECT_HEADER header;
29 Lisp_Object downcase_table; 29 Lisp_Object downcase_table;
30 Lisp_Object upcase_table; 30 Lisp_Object upcase_table;
31 Lisp_Object case_canon_table; 31 Lisp_Object case_canon_table;
32 Lisp_Object case_eqv_table; 32 Lisp_Object case_eqv_table;
33 int dirty; 33 int dirty;
34 }; 34 };
35 typedef struct Lisp_Case_Table Lisp_Case_Table; 35 typedef struct Lisp_Case_Table Lisp_Case_Table;
36 36
37 DECLARE_LRECORD (case_table, Lisp_Case_Table); 37 DECLARE_LISP_OBJECT (case_table, Lisp_Case_Table);
38 #define XCASE_TABLE(x) XRECORD (x, case_table, Lisp_Case_Table) 38 #define XCASE_TABLE(x) XRECORD (x, case_table, Lisp_Case_Table)
39 #define wrap_case_table(p) wrap_record (p, case_table) 39 #define wrap_case_table(p) wrap_record (p, case_table)
40 #define CASE_TABLEP(x) RECORDP (x, case_table) 40 #define CASE_TABLEP(x) RECORDP (x, case_table)
41 #define CHECK_CASE_TABLE(x) CHECK_RECORD (x, case_table) 41 #define CHECK_CASE_TABLE(x) CHECK_RECORD (x, case_table)
42 #define CONCHECK_CASE_TABLE(x) CONCHECK_RECORD (x, case_table) 42 #define CONCHECK_CASE_TABLE(x) CONCHECK_RECORD (x, case_table)