Mercurial > hg > xemacs-beta

comparison src/chartab.h @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children a9c41067dd88
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
40 40
41 #ifdef MULE 41 #ifdef MULE
42 42
43 struct Lisp_Char_Table_Entry 43 struct Lisp_Char_Table_Entry
44 { 44 {
45 struct LCRECORD_HEADER header; 45 LISP_OBJECT_HEADER header;
46 46
47 /* In the interests of simplicity, we just use a fixed 96-entry 47 /* In the interests of simplicity, we just use a fixed 96-entry
48 table. If we felt like being smarter, we could make this 48 table. If we felt like being smarter, we could make this
49 variable-size and add an offset value into this structure. */ 49 variable-size and add an offset value into this structure. */
50 Lisp_Object level2[96]; 50 Lisp_Object level2[96];
78 #define NUM_ASCII_CHARS 256 78 #define NUM_ASCII_CHARS 256
79 #endif 79 #endif
80 80
81 struct Lisp_Char_Table 81 struct Lisp_Char_Table
82 { 82 {
83 struct LCRECORD_HEADER header; 83 LISP_OBJECT_HEADER header;
84 84
85 Lisp_Object ascii[NUM_ASCII_CHARS]; 85 Lisp_Object ascii[NUM_ASCII_CHARS];
86 Lisp_Object default_; 86 Lisp_Object default_;
87 Lisp_Object parent; /* #### not yet implemented */ 87 Lisp_Object parent; /* #### not yet implemented */
88 88