diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-05-07 09:54:31 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-05-07 09:54:31 -0400 |
| commit | 07ff4ac605195044af7f0aaab0eac0026a222692 (patch) | |
| tree | e35687e9d39badaa631c5414d1ec979b7aaed324 /src/callint.c | |
| parent | 269db0534b0b70d1806053112e539222c82fed89 (diff) | |
| download | emacs-07ff4ac605195044af7f0aaab0eac0026a222692.tar.gz emacs-07ff4ac605195044af7f0aaab0eac0026a222692.tar.bz2 emacs-07ff4ac605195044af7f0aaab0eac0026a222692.zip | |
* callint.c (Fcall_interactively): Explain what is `visargs'.
Diffstat (limited to 'src/callint.c')
| -rw-r--r-- | src/callint.c | 5 |
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++) { |