From 403394a4b31a81af669fbadc4fe5c8ef1c0e8f3e Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 4 Oct 2001 08:52:10 +0000
Subject: [PATCH] (Fmake_symbol): Adapt to changes of struct Lisp_Symbol.

---
 src/alloc.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index b4989c4691b..00171011ccc 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2541,11 +2541,13 @@ Its value and function definition are void, and its property list is nil.")
   
   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;
-- 
2.39.5