changeset 27818:cfcb7f5e473e

(keyword_symbols_constant_flag): Removed. (Fmakunbound, set_internal, syms_of_data): Remove references to keyword_symbols_constant_flag.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 23 Feb 2000 10:43:40 +0000
parents 09ce77df2610
children 2a6f200db73d
files src/data.c
diffstat 1 files changed, 2 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Wed Feb 23 10:42:36 2000 +0000
+++ b/src/data.c	Wed Feb 23 10:43:40 2000 +0000
@@ -60,10 +60,6 @@
 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 @@
   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 @@
   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 @@
   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);