# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892317852 0
# Node ID 78c4044476c0e8b3e2bf6b6a173ec92aa76b9a02
# Parent  1f46ca9f3ff37f47e4c13ccef2b9c074936cb6ab
(set_internal, Fmakunbound): No error if setting
a keyword to itself.

diff -r 1f46ca9f3ff3 -r 78c4044476c0 src/data.c
--- a/src/data.c	Sat Apr 11 02:19:18 1998 +0000
+++ b/src/data.c	Sat Apr 11 18:04:12 1998 +0000
@@ -617,7 +617,8 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && keyword_symbols_constant_flag))
+	  && keyword_symbols_constant_flag
+	  && ! EQ (XSYMBOL (symbol)->value, symbol)))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   Fset (symbol, Qunbound);
   return symbol;
@@ -968,7 +969,8 @@
   CHECK_SYMBOL (symbol, 0);
   if (NILP (symbol) || EQ (symbol, Qt)
       || (XSYMBOL (symbol)->name->data[0] == ':'
-	  && keyword_symbols_constant_flag))
+	  && keyword_symbols_constant_flag
+	  && ! EQ (XSYMBOL (symbol)->value, symbol)))
     return Fsignal (Qsetting_constant, Fcons (symbol, Qnil));
   valcontents = XSYMBOL (symbol)->value;