Mercurial > emacs
changeset 21775:b90287cb111a
(Fmakunbound): Test keywordness only in initial obarray.
(set_internal): Test keywordness only in initial obarray.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 26 Apr 1998 19:16:25 +0000 |
| parents | 101cc2e8a4b7 |
| children | 0b8510aab527 |
| files | src/data.c |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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;