Mercurial > emacs
comparison src/alloc.c @ 37855:477b46494bad
(Fmake_symbol): Adapt to changes of struct Lisp_Symbol.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 21 May 2001 12:23:54 +0000 |
parents | 184d1fb71cc1 |
children |
comparison
equal
deleted
inserted
replaced
37854:6b08e1812292 | 37855:477b46494bad |
---|---|
2537 XSETSYMBOL (val, &symbol_block->symbols[symbol_block_index++]); | 2537 XSETSYMBOL (val, &symbol_block->symbols[symbol_block_index++]); |
2538 } | 2538 } |
2539 | 2539 |
2540 p = XSYMBOL (val); | 2540 p = XSYMBOL (val); |
2541 p->name = XSTRING (name); | 2541 p->name = XSTRING (name); |
2542 p->obarray = Qnil; | |
2543 p->plist = Qnil; | 2542 p->plist = Qnil; |
2544 p->value = Qunbound; | 2543 p->value = Qunbound; |
2545 p->function = Qunbound; | 2544 p->function = Qunbound; |
2546 p->next = 0; | 2545 p->next = NULL; |
2546 p->interned = SYMBOL_UNINTERNED; | |
2547 p->constant = 0; | |
2548 p->indirect_variable = 0; | |
2547 consing_since_gc += sizeof (struct Lisp_Symbol); | 2549 consing_since_gc += sizeof (struct Lisp_Symbol); |
2548 symbols_consed++; | 2550 symbols_consed++; |
2549 return val; | 2551 return val; |
2550 } | 2552 } |
2551 | 2553 |