# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756612009 0
# Node ID 480731ff8e9a4f4560e61c3087be586b7540f1c0
# Parent  63a865489a1ecb330027c22d21e4526d7eecbf8b
(Fcall_process): Call prepare_menu_bars.

(Fgetenv): One arg is maximum.

diff -r 63a865489a1e -r 480731ff8e9a src/callproc.c
--- a/src/callproc.c	Thu Dec 23 01:58:56 1993 +0000
+++ b/src/callproc.c	Thu Dec 23 02:00:09 1993 +0000
@@ -313,6 +313,7 @@
 
   {
     register int nread;
+    int first = 1;
 
     while ((nread = read (fd[0], buf, sizeof buf)) > 0)
       {
@@ -320,7 +321,12 @@
 	if (!NILP (buffer))
 	  insert (buf, nread);
 	if (!NILP (display) && INTERACTIVE)
-	  redisplay_preserve_echo_area ();
+	  {
+	    if (first)
+	      prepare_menu_bars ();
+	    first = 0;
+	    redisplay_preserve_echo_area ();
+	  }
 	immediate_quit = 1;
 	QUIT;
       }
@@ -603,7 +609,7 @@
   return 0;
 }
 
-DEFUN ("getenv", Fgetenv, Sgetenv, 1, 2, 0,
+DEFUN ("getenv", Fgetenv, Sgetenv, 1, 1, 0,
   "Return the value of environment variable VAR, as a string.\n\
 VAR should be a string.  Value is nil if VAR is undefined in the environment.\n\
 This function consults the variable ``process-environment'' for its value.")