From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 26 Jun 2012 23:09:09 +0000 (-0400)
Subject: * src/eval.c (Fapply): Allow calling it with a single argument.
X-Git-Tag: emacs-24.2.90~1199^2~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8edd4a2b64e78462eb9d50f905e9e72d20381dd9;p=emacs.git

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

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.