mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(keyword_symbols_constant_flag): Removed.

Browse source 
(Fmakunbound, set_internal, syms_of_data): Remove references to
keyword_symbols_constant_flag.
This commit is contained in:
Gerd Moellmann 2000-02-23 10:43:40 +00:00
parent 157b72bb60
commit f50d847af5
1 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/data.c
View file

@ -60,10 +60,6 @@ Boston, MA 02111-1307, USA. */
extern double atof ();
#endif /* !atof */
/* Nonzero means it is an error to set a symbol whose name starts with
colon. */
int keyword_symbols_constant_flag;
Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;
Lisp_Object Qerror_conditions, Qerror_message, Qtop_level;
Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range;
@ -624,8 +620,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] == ':'
&& EQ (XSYMBOL (symbol)->obarray, initial_obarray)
&& keyword_symbols_constant_flag))
&& EQ (XSYMBOL (symbol)->obarray, initial_obarray)))
return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
Fset (symbol, Qunbound);
return symbol;
@ -989,7 +984,7 @@ set_internal (symbol, newval, buf, bindflag)
if (NILP (symbol) || EQ (symbol, Qt)
|| (XSYMBOL (symbol)->name->data[0] == ':'
&& EQ (XSYMBOL (symbol)->obarray, initial_obarray)
&& keyword_symbols_constant_flag && ! EQ (newval, symbol)))
&& !EQ (newval, symbol)))
return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
valcontents = XSYMBOL (symbol)->value;
@ -2829,11 +2824,6 @@ syms_of_data ()
staticpro (&Qbool_vector);
staticpro (&Qhash_table);
DEFVAR_BOOL ("keyword-symbols-constant-flag", &keyword_symbols_constant_flag,
"Non-nil means it is an error to set a keyword symbol.\n\
A keyword symbol is a symbol whose name starts with a colon (`:').");
keyword_symbols_constant_flag = 1;
defsubr (&Seq);
defsubr (&Snull);
defsubr (&Stype_of);