mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

* data.c (Ffset): Refuse to set the function value of t or nil.

Browse source
This commit is contained in:
Jim Blandy 1993-05-04 02:26:53 +00:00
parent 8b0c35d952
commit e3fa7dfc18
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/data.c
View file

@ -518,6 +518,9 @@ 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);