mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 20:50:52 -08:00
Code Issues Projects Releases Wiki Activity

(set_internal): Properly compare lisp objects.

Browse source 
(Fmakunbound): Likewise.
This commit is contained in:
Richard M. Stallman 1998-05-07 20:47:53 +00:00
parent ced7b4a427
commit 899cb8f0f3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/data.c
View file

@ -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;