diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-05-07 20:47:53 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-05-07 20:47:53 +0000 |
commit | 57a50f3e22998b5a04c12af9f5b2cf96fbd28b89 (patch) | |
tree | 8d373633153cd0b0e5c0a07252a02c89d1cea42f /src/data.c | |
parent | 6583817c1005790dc076e90e604485fc22b9f64b (diff) | |
download | emacs-57a50f3e22998b5a04c12af9f5b2cf96fbd28b89.tar.gz |
(set_internal): Properly compare lisp objects.
(Fmakunbound): Likewise.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index eb1cbf77bbc..eb04f5a39aa 100644 --- a/src/data.c +++ b/src/data.c @@ -618,7 +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 + && EQ (XSYMBOL (symbol)->obarray, initial_obarray) && keyword_symbols_constant_flag)) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); Fset (symbol, Qunbound); @@ -970,7 +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 + && EQ (XSYMBOL (symbol)->obarray, initial_obarray) && keyword_symbols_constant_flag && ! EQ (newval, symbol))) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); valcontents = XSYMBOL (symbol)->value; |