comparison src/callproc.c @ 1912:f0d4fb2b9157

* callproc.c (delete_temp_file): Declare this to return Lisp_Object, to smooth type-checking. * callproc.c (init_callproc): Move the initialization of Vprocess_environment to its own function. (set_process_environment): This is that. * emacs.c (main): Call set_process_environment earlier than init_callproc.

1911:d9fc49956cd8

    return build_string (synch_process_death);
  return make_number (synch_process_retcode);
}
#endif

static void
delete_temp_file (name)
     Lisp_Object name;
{
  unlink (XSTRING (name)->data);
}

#endif /* not VMS */

init_callproc ()
{
  register char * sh;
  register char **envp;
  Lisp_Object tempdir;

  {
    char *data_dir = egetenv ("EMACSDATA");
    

  Vshell_file_name = build_string ("*dcl*");
#else
  sh = (char *) getenv ("SHELL");
  Vshell_file_name = build_string (sh ? sh : "/bin/sh");
#endif

  Vprocess_environment = Qnil;
#ifndef CANNOT_DUMP
  if (initialized)
#endif

1912:f0d4fb2b9157

    return build_string (synch_process_death);
  return make_number (synch_process_retcode);
}
#endif

static Lisp_Object
delete_temp_file (name)
     Lisp_Object name;
{
  unlink (XSTRING (name)->data);
}

#endif /* not VMS */

init_callproc ()
{
  register char * sh;
  Lisp_Object tempdir;

  {
    char *data_dir = egetenv ("EMACSDATA");
    

  Vshell_file_name = build_string ("*dcl*");
#else
  sh = (char *) getenv ("SHELL");
  Vshell_file_name = build_string (sh ? sh : "/bin/sh");
#endif
}

set_process_environment ()
{
  register char **envp;

  Vprocess_environment = Qnil;
#ifndef CANNOT_DUMP
  if (initialized)
#endif