Mercurial > emacs
changeset 21981:7f45fb4c0a1f
(set_internal): Properly compare lisp objects.
(Fmakunbound): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 May 1998 20:47:53 +0000 |
| parents | e73c0672d7b3 |
| children | 456f95c03285 |
| files | src/data.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Thu May 07 19:18:29 1998 +0000 +++ b/src/data.c Thu May 07 20:47:53 1998 +0000 @@ -618,7 +618,7 @@ CHECK_SYMBOL (symbol, 0); if (NILP (symbol) || EQ (symbol, Qt) || (XSYMBOL (symbol)->name->data[0] == ':' - && XSYMBOL (symbol)->obarray == initial_obarray + && EQ (XSYMBOL (symbol)->obarray, initial_obarray) && keyword_symbols_constant_flag)) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); Fset (symbol, Qunbound); @@ -970,7 +970,7 @@ CHECK_SYMBOL (symbol, 0); if (NILP (symbol) || EQ (symbol, Qt) || (XSYMBOL (symbol)->name->data[0] == ':' - && XSYMBOL (symbol)->obarray == initial_obarray + && EQ (XSYMBOL (symbol)->obarray, initial_obarray) && keyword_symbols_constant_flag && ! EQ (newval, symbol))) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); valcontents = XSYMBOL (symbol)->value;