changeset 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 6b08e1812292
children 25012435e865
files src/alloc.c
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon May 21 12:23:34 2001 +0000
+++ b/src/alloc.c	Mon May 21 12:23:54 2001 +0000
@@ -2539,11 +2539,13 @@
   
   p = XSYMBOL (val);
   p->name = XSTRING (name);
-  p->obarray = Qnil;
   p->plist = Qnil;
   p->value = Qunbound;
   p->function = Qunbound;
-  p->next = 0;
+  p->next = NULL;
+  p->interned = SYMBOL_UNINTERNED;
+  p->constant = 0;
+  p->indirect_variable = 0;
   consing_since_gc += sizeof (struct Lisp_Symbol);
   symbols_consed++;
   return val;