Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents a2f645c6b9f8
children 78478c60bfcd
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
3101 #define OBARRAY_SIZE 16411 3101 #define OBARRAY_SIZE 16411
3102 3102
3103 #ifndef Qzero 3103 #ifndef Qzero
3104 Lisp_Object Qzero; 3104 Lisp_Object Qzero;
3105 #endif 3105 #endif
3106 #ifndef Qnull_pointer
3107 Lisp_Object Qnull_pointer;
3108 #endif
3106 3109
3107 /* some losing systems can't have static vars at function scope... */ 3110 /* some losing systems can't have static vars at function scope... */
3108 static struct symbol_value_magic guts_of_unbound_marker = 3111 static struct symbol_value_magic guts_of_unbound_marker =
3109 { { { lrecord_symbol_value_forward }, 0, 69}, SYMVAL_UNBOUND_MARKER }; 3112 { { { lrecord_symbol_value_forward }, 0, 69}, SYMVAL_UNBOUND_MARKER };
3110 3113
3118 XSYMBOL (Qnil)->value = Qnil; /* Nihil ex nihil */ 3121 XSYMBOL (Qnil)->value = Qnil; /* Nihil ex nihil */
3119 XSYMBOL (Qnil)->plist = Qnil; 3122 XSYMBOL (Qnil)->plist = Qnil;
3120 3123
3121 #ifndef Qzero 3124 #ifndef Qzero
3122 Qzero = make_int (0); /* Only used if Lisp_Object is a union type */ 3125 Qzero = make_int (0); /* Only used if Lisp_Object is a union type */
3126 #endif
3127
3128 #ifndef Qnull_pointer
3129 Qnull_pointer.ui = 0;
3123 #endif 3130 #endif
3124 3131
3125 Vobarray = make_vector (OBARRAY_SIZE, Qzero); 3132 Vobarray = make_vector (OBARRAY_SIZE, Qzero);
3126 initial_obarray = Vobarray; 3133 initial_obarray = Vobarray;
3127 staticpro (&initial_obarray); 3134 staticpro (&initial_obarray);