# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893618185 0
# Node ID b90287cb111a712f8fe7ede7849618b5a4142333
# Parent  101cc2e8a4b77cbb4b12672347c0c804f622546d
(Fmakunbound): Test keywordness only in initial obarray.
(set_internal): Test keywordness only in initial obarray.

diff -r 101cc2e8a4b7 -r b90287cb111a src/data.c
--- a/src/data.c	Sun Apr 26 19:14:58 1998 +0000
+++ b/src/data.c	Sun Apr 26 19:16:25 1998 +0000
@@ -618,6 +618,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
+	  && XSYMBOL (symbol)->obarray == initial_obarray
 	  && keyword_symbols_constant_flag))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   Fset (symbol, Qunbound);
@@ -969,6 +970,7 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
+	  && XSYMBOL (symbol)->obarray == initial_obarray
 	  && keyword_symbols_constant_flag && ! EQ (newval, symbol)))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   valcontents = XSYMBOL (symbol)->value;