From 07ff4ac605195044af7f0aaab0eac0026a222692 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 7 May 2013 09:54:31 -0400 Subject: [PATCH] * callint.c (Fcall_interactively): Explain what is `visargs'. --- src/callint.c | 5 +++++ 1 file changed, 5 insertions(+) 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++) { -- 2.39.2