X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/ad9c4a4091df19064a7f7f53bfdb687931e141f6..6ffb560b2a940d19419ac5afe11418588ef8c61f:/src/callint.c

diff --git a/src/callint.c b/src/callint.c
index dd238b976a..43566acfbe 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -509,12 +509,9 @@ invoke it.  If KEYS is omitted or nil, the return value of
   visargs = args + nargs;
   varies = (signed char *) (visargs + nargs);
 
-  for (i = 0; i < nargs; i++)
-    {
-      args[i] = Qnil;
-      visargs[i] = Qnil;
-      varies[i] = 0;
-    }
+  memset (args, 0, nargs * (2 * word_size + 1));
+  if (NIL_IS_NONZERO)
+    memsetnil (args, nargs * 2);
 
   GCPRO5 (prefix_arg, function, *args, *visargs, up_event);
   gcpro3.nvars = nargs;
@@ -781,7 +778,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
 				   argument if no prefix.  */
 	  if (NILP (prefix_arg))
 	    {
-	      args[i] = Qnil;
+	      /* args[i] = Qnil; */
 	      varies[i] = -1;
 	    }
 	  else