From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 26 Apr 1998 19:16:46 +0000 (+0000)
Subject: (Fintern): Initialize keywords only in initial obarray.
X-Git-Tag: emacs-20.3~1300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdd47b1c07470066742843bee65a90fa1605e98d;p=emacs.git

(Fintern): Initialize keywords only in initial obarray.
---

diff --git a/src/lread.c b/src/lread.c
index 91633d49bf6..14385d3188e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2306,7 +2306,8 @@ it defaults to the value of `obarray'.")
   sym = Fmake_symbol (string);
   XSYMBOL (sym)->obarray = obarray;
 
-  if (XSTRING (string)->data[0] == ':')
+  if ((XSTRING (string)->data[0] == ':')
+      && obarray == initial_obarray)
     XSYMBOL (sym)->value = sym;
 
   ptr = &XVECTOR (obarray)->contents[XINT (tem)];