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

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  <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 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.