diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-04-12 06:41:01 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-04-12 06:41:01 +0000 |
| commit | 120821e11c6d9f81288ab8b00b779b7370179b94 (patch) | |
| tree | 1811188b251e0c8d52d91042d47c534e2146e82c /src/data.c | |
| parent | ad61e7bc2585a6673cc673ecf903b37bfd818fbf (diff) | |
| download | emacs-120821e11c6d9f81288ab8b00b779b7370179b94.tar.gz | |
(set_internal, Fmakunbound): Fix previous change.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index 0eb415e978b..7daf6716986 100644 --- a/src/data.c +++ b/src/data.c @@ -617,8 +617,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] == ':' - && keyword_symbols_constant_flag - && ! EQ (XSYMBOL (symbol)->value, symbol))) + && keyword_symbols_constant_flag)) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); Fset (symbol, Qunbound); return symbol; @@ -969,8 +968,7 @@ set_internal (symbol, newval, bindflag) CHECK_SYMBOL (symbol, 0); if (NILP (symbol) || EQ (symbol, Qt) || (XSYMBOL (symbol)->name->data[0] == ':' - && keyword_symbols_constant_flag - && ! EQ (XSYMBOL (symbol)->value, symbol))) + && keyword_symbols_constant_flag && ! EQ (newval, symbol))) return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); valcontents = XSYMBOL (symbol)->value; |