From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 9 Dec 1997 22:47:45 +0000 (+0000)
Subject: (Fcall_process): Don't clobber new_argv[0]
X-Git-Tag: emacs-20.3~2626
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db54baaa69641fe652ab660748428fca4c7e8346;p=emacs.git

(Fcall_process): Don't clobber new_argv[0]
in the case of no args.
---

diff --git a/src/callproc.c b/src/callproc.c
index 44edd572e80..4ded0e8efa5 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -452,8 +452,10 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
 	    }
 	  UNGCPRO;
 	}
+      new_argv[nargs - 3] = 0;
     }
-  new_argv[nargs - 3] = 0;
+  else
+    new_argv[1] = 0;
 
 #ifdef MSDOS /* MW, July 1993 */
   if ((outf = egetenv ("TMP")) || (outf = egetenv ("TEMP")))