diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-29 23:21:37 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-29 23:21:37 +0000 |
| commit | c15c5d408d696928862ca2848a359231e373556c (patch) | |
| tree | 1140b585bb4b36962da9c5c99d5f9af3a82ec121 /src | |
| parent | 6ba93f9d7ba1b20ee69c441ecba2cbb8cce5203c (diff) | |
| download | emacs-c15c5d408d696928862ca2848a359231e373556c.tar.gz | |
(Ffset, Ffmakunbound): Signal an error if SYM is nil or t.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 4 insertions, 1 deletions
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); |