1 files changed, 5 insertions, 0 deletions

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++)
         {