From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 02:00:09 +0000 (+0000)
Subject: (Fcall_process): Call prepare_menu_bars.
X-Git-Tag: emacs-19.34~10600
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ad477db9592ae28cd1b1e4f737e5357b72ca032;p=emacs.git

(Fcall_process): Call prepare_menu_bars.

(Fgetenv): One arg is maximum.
---

diff --git a/src/callproc.c b/src/callproc.c
index 8d43ffe67f3..d46d8a32498 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -313,6 +313,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
 
   {
     register int nread;
+    int first = 1;
 
     while ((nread = read (fd[0], buf, sizeof buf)) > 0)
       {
@@ -320,7 +321,12 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
 	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 @@ getenv_internal (var, varlen, value, valuelen)
   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.")