From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 12 Apr 1998 06:41:01 +0000 (+0000)
Subject: (set_internal, Fmakunbound): Fix previous change.
X-Git-Tag: emacs-20.3~1598
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=120821e11c6d9f81288ab8b00b779b7370179b94;p=emacs.git

(set_internal, Fmakunbound): Fix previous change.
---

diff --git a/src/data.c b/src/data.c
index 0eb415e978b..7daf6716986 100644
--- a/src/data.c
+++ b/src/data.c
@@ -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;