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

(Fdefconst, Fdefvar): Error if too many arguments.

Browse source
This commit is contained in:
Richard M. Stallman 1994-12-15 00:42:19 +00:00
parent b448bfa028
commit a42ba017bc
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/eval.c
View file

@ -571,18 +571,21 @@ If INITVALUE is missing, SYMBOL's value is not set.")
(args)
Lisp_Object args;
{
register Lisp_Object sym, tem;
register Lisp_Object sym, tem, tail;
sym = Fcar (args);
tem = Fcdr (args);
if (!NILP (tem))
tail = Fcdr (args);
if (!NILP (Fcdr (Fcdr (tail))))
error ("too many arguments");
if (!NILP (tail))
{
tem = Fdefault_boundp (sym);
if (NILP (tem))
Fset_default (sym, Feval (Fcar (Fcdr (args))));
}
tem = Fcar (Fcdr (Fcdr (args)));
if (!NILP (tem))
tail = Fcdr (Fcdr (args));
if (!NILP (Fcar (tail)))
{
if (!NILP (Vpurify_flag))
tem = Fpurecopy (tem);
@ -612,6 +615,9 @@ it would override the user's choice.")
register Lisp_Object sym, tem;
sym = Fcar (args);
if (!NILP (Fcdr (Fcdr (Fcdr (args)))))
error ("too many arguments");
Fset_default (sym, Feval (Fcar (Fcdr (args))));
tem = Fcar (Fcdr (Fcdr (args)));
if (!NILP (tem))