From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 7 May 2013 13:54:31 +0000 (-0400)
Subject: * callint.c (Fcall_interactively): Explain what is `visargs'.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07ff4ac605195044af7f0aaab0eac0026a222692;p=emacs.git

* callint.c (Fcall_interactively): Explain what is `visargs'.
---

diff --git a/src/callint.c b/src/callint.c
index 389f9410625..d9bdc8d9ffe 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -251,6 +251,9 @@ invoke it.  If KEYS is omitted or nil, the return value of
 `this-command-keys-vector' is used.  */)
   (Lisp_Object function, Lisp_Object record_flag, Lisp_Object keys)
 {
+  /* `args' will contain the array of arguments to pass to the function.
+     `visargs' will contain the same list but in a nicer form, so that if we
+     pass it to `Fformat' it will be understandable to a human.  */
   Lisp_Object *args, *visargs;
   Lisp_Object specs;
   Lisp_Object filter_specs;
@@ -790,6 +793,8 @@ invoke it.  If KEYS is omitted or nil, the return value of
 
   if (arg_from_tty || !NILP (record_flag))
     {
+      /* We don't need `visargs' any more, so let's recycle it since we need
+	 an array of just the same size.  */
       visargs[0] = function;
       for (i = 1; i < nargs; i++)
 	{