diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/data.c b/src/data.c index 613d9db6a64..c4473c8cbd3 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -518,6 +518,9 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, | |||
| 518 | register Lisp_Object sym, newdef; | 518 | register Lisp_Object sym, newdef; |
| 519 | { | 519 | { |
| 520 | CHECK_SYMBOL (sym, 0); | 520 | CHECK_SYMBOL (sym, 0); |
| 521 | if (NILP (sym) || EQ (sym, Qt)) | ||
| 522 | return Fsignal (Qsetting_constant, Fcons (sym, Qnil)); | ||
| 523 | |||
| 521 | if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound)) | 524 | if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound)) |
| 522 | Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function), | 525 | Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function), |
| 523 | Vautoload_queue); | 526 | Vautoload_queue); |