mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(Fcall_process): Call prepare_menu_bars.

Browse Source 
(Fgetenv): One arg is maximum.
This commit is contained in:
Richard M. Stallman 1993-12-23 02:00:09 +00:00
parent 08b0527265
commit 0ad477db95
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/callproc.c
View File

@ -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.")