From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 29 Apr 1994 23:21:37 +0000 (+0000)
Subject: (Ffset, Ffmakunbound): Signal an error if SYM is nil or t.
X-Git-Tag: emacs-19.34~8647
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c15c5d408d696928862ca2848a359231e373556c;p=emacs.git

(Ffset, Ffmakunbound): Signal an error if SYM is nil or t.
---

diff --git a/src/data.c b/src/data.c
index 8054379799c..8a345139116 100644
--- a/src/data.c
+++ b/src/data.c
@@ -506,6 +506,8 @@ DEFUN ("fmakunbound", Ffmakunbound, Sfmakunbound, 1, 1, 0, "Make SYMBOL's functi
      register Lisp_Object sym;
 {
   CHECK_SYMBOL (sym, 0);
+  if (NILP (sym) || EQ (sym, Qt))
+    return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
   XSYMBOL (sym)->function = Qunbound;
   return sym;
 }
@@ -546,7 +548,8 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
      register Lisp_Object sym, newdef;
 {
   CHECK_SYMBOL (sym, 0);
-
+  if (NILP (sym) || EQ (sym, Qt))
+    return Fsignal (Qsetting_constant, Fcons (sym, Qnil));
   if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound))
     Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function),
 			     Vautoload_queue);