diff options
| author | Richard M. Stallman | 1998-05-07 20:47:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-07 20:47:53 +0000 |
| commit | 899cb8f0f3e3204908fa5d89b381f8a1bf572e5b (patch) | |
| tree | d81149e9e2412ac899e1349c1297fa01e6ff6b1e | |
| parent | ced7b4a4270576fc0e2591d2442775e1360aa7ff (diff) | |
| download | emacs-899cb8f0f3e3204908fa5d89b381f8a1bf572e5b.tar.gz emacs-899cb8f0f3e3204908fa5d89b381f8a1bf572e5b.zip | |
(set_internal): Properly compare lisp objects.
(Fmakunbound): Likewise.
| -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 | |||
| 618 | CHECK_SYMBOL (symbol, 0); | 618 | CHECK_SYMBOL (symbol, 0); |
| 619 | if (NILP (symbol) || EQ (symbol, Qt) | 619 | if (NILP (symbol) || EQ (symbol, Qt) |
| 620 | || (XSYMBOL (symbol)->name->data[0] == ':' | 620 | || (XSYMBOL (symbol)->name->data[0] == ':' |
| 621 | && XSYMBOL (symbol)->obarray == initial_obarray | 621 | && EQ (XSYMBOL (symbol)->obarray, initial_obarray) |
| 622 | && keyword_symbols_constant_flag)) | 622 | && keyword_symbols_constant_flag)) |
| 623 | return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); | 623 | return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); |
| 624 | Fset (symbol, Qunbound); | 624 | Fset (symbol, Qunbound); |
| @@ -970,7 +970,7 @@ set_internal (symbol, newval, bindflag) | |||
| 970 | CHECK_SYMBOL (symbol, 0); | 970 | CHECK_SYMBOL (symbol, 0); |
| 971 | if (NILP (symbol) || EQ (symbol, Qt) | 971 | if (NILP (symbol) || EQ (symbol, Qt) |
| 972 | || (XSYMBOL (symbol)->name->data[0] == ':' | 972 | || (XSYMBOL (symbol)->name->data[0] == ':' |
| 973 | && XSYMBOL (symbol)->obarray == initial_obarray | 973 | && EQ (XSYMBOL (symbol)->obarray, initial_obarray) |
| 974 | && keyword_symbols_constant_flag && ! EQ (newval, symbol))) | 974 | && keyword_symbols_constant_flag && ! EQ (newval, symbol))) |
| 975 | return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); | 975 | return Fsignal (Qsetting_constant, Fcons (symbol, Qnil)); |
| 976 | valcontents = XSYMBOL (symbol)->value; | 976 | valcontents = XSYMBOL (symbol)->value; |