From 8edd4a2b64e78462eb9d50f905e9e72d20381dd9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 26 Jun 2012 19:09:09 -0400 Subject: [PATCH] * src/eval.c (Fapply): Allow calling it with a single argument. --- src/ChangeLog | 6 +++++- src/eval.c | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index ef1f210ba66..9b412fd01e3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2012-06-26 Stefan Monnier + + * eval.c (Fapply): Allow calling it with a single argument. + 2012-06-26 Eli Zaretskii * s/ms-w32.h (strcasecmp, strncasecmp) [_MSC_VER]: Redirect to @@ -9,7 +13,7 @@ * alloc.c (allocate_window): Zero out non-Lisp part of newly allocated window. (allocate_process): Likewise for new process. - (allocate_terminal): Changed to use offsetof. + (allocate_terminal): Change to use offsetof. (allocate_frame): Likewise. * frame.c (make_frame): Omit redundant initialization. * window.c (make_parent_window): Use memset. diff --git a/src/eval.c b/src/eval.c index 3360a6b9a56..bff997439e0 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2242,7 +2242,7 @@ eval_sub (Lisp_Object form) return val; } -DEFUN ("apply", Fapply, Sapply, 2, MANY, 0, +DEFUN ("apply", Fapply, Sapply, 1, MANY, 0, doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. Then return the value FUNCTION returns. Thus, (apply '+ 1 2 '(3 4)) returns 10. -- 2.39.5