[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112498: * callint.c (Fcall_interacti
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112498: * callint.c (Fcall_interactively): Explain what is `visargs'. |
Date: |
Tue, 07 May 2013 09:54:31 -0400 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112498
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-07 09:54:31 -0400
message:
* callint.c (Fcall_interactively): Explain what is `visargs'.
modified:
src/callint.c
=== modified file 'src/callint.c'
--- a/src/callint.c 2013-05-04 19:27:41 +0000
+++ b/src/callint.c 2013-05-07 13:54:31 +0000
@@ -251,6 +251,9 @@
`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 @@
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++)
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112498: * callint.c (Fcall_interactively): Explain what is `visargs'.,
Stefan Monnier <=