procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/eval.c (Fapply): Simplify last change

Browse source
This commit is contained in:
Stefan Monnier 2020-09-28 23:14:03 -04:00
parent 9f1ca64ffe
commit 9f30a6b1a4
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/eval.c
View file

@ -2383,14 +2383,10 @@ usage: (apply FUNCTION &rest ARGUMENTS) */)
Lisp_Object fun = args[0];
USE_SAFE_ALLOCA;
if (nargs == 1)
/* Special case: FUN is really a list of (FUNCTION . ARGS). */
return CALLN (Fapply, CAR (fun), CDR (fun));
ptrdiff_t numargs = list_length (spread_arg);
if (numargs == 0)
return Ffuncall (nargs - 1, args);
return Ffuncall (max (1, nargs - 1), args);
else if (numargs == 1)
{
args [nargs - 1] = XCAR (spread_arg);