diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-04-26 19:16:25 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-04-26 19:16:25 +0000 |
commit | 454fa457655175a3458f5a7c4ef00222eeb97416 (patch) | |
tree | adceea3ccd6b50f069071fd9d107de41c0d6c30f /src/data.c | |
parent | 393306dd073415f59e6d2c035a9963ef44d0579b (diff) |
(Fmakunbound): Test keywordness only in initial obarray.
(set_internal): Test keywordness only in initial obarray.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/data.c b/src/data.c index c9493c05711..18354046210 100644 --- a/src/data.c +++ b/src/data.c @@ -618,6 +618,7 @@ DEFUN ("makunbound", Fmakunbound, Smakunbound, 1, 1, 0, "Make SYMBOL's value be 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 @@ set_internal (symbol, newval, bindflag) 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; |