mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

(set_internal, Fmakunbound): Fix previous change.

Browse Source
This commit is contained in:
Karl Heuer 1998-04-12 06:41:01 +00:00
parent ad61e7bc25
commit 120821e11c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/data.c
View File

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