* src/eval.c (Fapply): Allow calling it with a single argument.

diff --git a/src/ChangeLog b/src/ChangeLog
index ef1f210ba66fda4ab1bb6b1fa38492ee4e8b714d..9b412fd01e3fc571a25f11f3c7a8d7edd137cc16 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * eval.c (Fapply): Allow calling it with a single argument.
+
 2012-06-26  Eli Zaretskii  <eliz@gnu.org>
 
        * 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 3360a6b9a56cc96b69654370d0093aea112a1c73..bff997439e0aacb2dc66727d448fb141831aca28 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2242,7 +2242,7 @@ eval_sub (Lisp_Object form)
   return val;
 }
 \f
-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.