From 0ad477db9592ae28cd1b1e4f737e5357b72ca032 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 02:00:09 +0000 Subject: [PATCH] (Fcall_process): Call prepare_menu_bars. (Fgetenv): One arg is maximum. --- src/callproc.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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.") -- 2.39.5