(Fcall_process): Check type of process cmd args earlier on.

[bpt/emacs.git] / src / callproc.c

diff --git a/src/callproc.c b/src/callproc.c
index 7035aed..6a1cfbc 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -245,6 +245,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
       {
        int must_encode = 0;
 
+       for (i = 4; i < nargs; i++)
+         CHECK_STRING (args[i], i);
+
        for (i = 4; i < nargs; i++)
          if (STRING_MULTIBYTE (args[i]))
            must_encode = 1;
@@ -401,8 +404,6 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     {
       register int i;
 
-      for (i = 4; i < nargs; i++) CHECK_STRING (args[i], i);
-
       if (! CODING_REQUIRE_ENCODING (&argument_coding))
        {
          for (i = 4; i < nargs; i++)