*** empty log message ***

[gnu-emacs] / src / callproc.c

diff --git a/src/callproc.c b/src/callproc.c
index f8709ee42d032a542b9463d0467a390f63427104..47930819c07d581e4b73ce38dbad6a5a32c0b040 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1,6 +1,6 @@
 /* Synchronous subprocess invocation for GNU Emacs.
 /* Synchronous subprocess invocation for GNU Emacs.

-   Copyright (C) 1985,86,87,88,93,94,95,99, 2000, 2001
-   Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
+                 2002, 2003, 2004, 2005 Free Software Foundation, Inc.

 
 This file is part of GNU Emacs.
 
 
 This file is part of GNU Emacs.
 


@@ -16,8 +16,8 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with GNU Emacs; see the file COPYING.  If not, write to
 
 You should have received a copy of the GNU General Public License
 along with GNU Emacs; see the file COPYING.  If not, write to

-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.  */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA.  */

 
 
 #include <config.h>
 
 
 #include <config.h>


@@ -42,7 +42,7 @@ extern int errno;
 #endif
 
 #include <sys/file.h>
 #endif
 
 #include <sys/file.h>

-#ifdef USG5
+#ifdef HAVE_FCNTL_H

 #define INCLUDED_FCNTL
 #include <fcntl.h>
 #endif
 #define INCLUDED_FCNTL
 #include <fcntl.h>
 #endif


@@ -83,6 +83,7 @@ extern int errno;
 #include "process.h"
 #include "syssignal.h"
 #include "systty.h"
 #include "process.h"
 #include "syssignal.h"
 #include "systty.h"

+#include "blockinput.h"

 
 #ifdef MSDOS
 #include "msdos.h"
 
 #ifdef MSDOS
 #include "msdos.h"


@@ -105,7 +106,7 @@ extern char **environ;
 
 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes;
 Lisp_Object Vdata_directory, Vdoc_directory;
 
 Lisp_Object Vexec_path, Vexec_directory, Vexec_suffixes;
 Lisp_Object Vdata_directory, Vdoc_directory;

-Lisp_Object Vconfigure_info_directory;
+Lisp_Object Vconfigure_info_directory, Vshared_game_score_directory;

 Lisp_Object Vtemp_file_name_pattern;
 
 Lisp_Object Vshell_file_name;
 Lisp_Object Vtemp_file_name_pattern;
 
 Lisp_Object Vshell_file_name;


@@ -123,13 +124,12 @@ int synch_process_alive;
 /* Nonzero => this is a string explaining death of synchronous subprocess.  */
 char *synch_process_death;
 
 /* Nonzero => this is a string explaining death of synchronous subprocess.  */
 char *synch_process_death;
 

+/* Nonzero => this is the signal number that terminated the subprocess.  */
+int synch_process_termsig;
+

 /* If synch_process_death is zero,
    this is exit code of synchronous subprocess.  */
 int synch_process_retcode;
 /* If synch_process_death is zero,
    this is exit code of synchronous subprocess.  */
 int synch_process_retcode;

-
-extern Lisp_Object Vdoc_file_name;
-
-extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system;

 \f
 /* Clean up when exiting Fcall_process.
    On MSDOS, delete the temporary file on any kind of termination.
 \f
 /* Clean up when exiting Fcall_process.
    On MSDOS, delete the temporary file on any kind of termination.


@@ -154,14 +154,14 @@ Lisp_Object
 call_process_cleanup (fdpid)
      Lisp_Object fdpid;
 {
 call_process_cleanup (fdpid)
      Lisp_Object fdpid;
 {

-#if defined (MSDOS) || defined (macintosh)
+#if defined (MSDOS) || defined (MAC_OS8)

   /* for MSDOS fdpid is really (fd . tempfile)  */
   register Lisp_Object file;
   file = Fcdr (fdpid);
   emacs_close (XFASTINT (Fcar (fdpid)));
   /* for MSDOS fdpid is really (fd . tempfile)  */
   register Lisp_Object file;
   file = Fcdr (fdpid);
   emacs_close (XFASTINT (Fcar (fdpid)));

-  if (strcmp (XSTRING (file)-> data, NULL_DEVICE) != 0)
-    unlink (XSTRING (file)->data);
-#else /* not MSDOS and not macintosh */
+  if (strcmp (SDATA (file), NULL_DEVICE) != 0)
+    unlink (SDATA (file));
+#else /* not MSDOS and not MAC_OS8 */

   register int pid = XFASTINT (Fcdr (fdpid));
 
   if (call_process_exited)
   register int pid = XFASTINT (Fcdr (fdpid));
 
   if (call_process_exited)


@@ -172,7 +172,7 @@ call_process_cleanup (fdpid)
 
   if (EMACS_KILLPG (pid, SIGINT) == 0)
     {
 
   if (EMACS_KILLPG (pid, SIGINT) == 0)
     {

-      int count = specpdl_ptr - specpdl;
+      int count = SPECPDL_INDEX ();

       record_unwind_protect (call_process_kill, fdpid);
       message1 ("Waiting for process to die...(type C-g again to kill it instantly)");
       immediate_quit = 1;
       record_unwind_protect (call_process_kill, fdpid);
       message1 ("Waiting for process to die...(type C-g again to kill it instantly)");
       immediate_quit = 1;


@@ -206,22 +206,26 @@ Remaining arguments are strings passed as command arguments to PROGRAM.
 If BUFFER is 0, `call-process' returns immediately with value nil.
 Otherwise it waits for PROGRAM to terminate
 and returns a numeric exit status or a signal description string.
 If BUFFER is 0, `call-process' returns immediately with value nil.
 Otherwise it waits for PROGRAM to terminate
 and returns a numeric exit status or a signal description string.

-If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  */)
+If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.
+
+usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)

      (nargs, args)
      int nargs;
      register Lisp_Object *args;
 {
      (nargs, args)
      int nargs;
      register Lisp_Object *args;
 {

-  Lisp_Object infile, buffer, current_dir, display, path;
+  Lisp_Object infile, buffer, current_dir, path;
+  int display_p;

   int fd[2];
   int filefd;
   register int pid;
   int fd[2];
   int filefd;
   register int pid;

-  char buf[16384];
-  char *bufptr = buf;
-  int bufsize = 16384;
-  int count = specpdl_ptr - specpdl;
-
-  register unsigned char **new_argv
-    = (unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
+#define CALLPROC_BUFFER_SIZE_MIN (16 * 1024)
+#define CALLPROC_BUFFER_SIZE_MAX (4 * CALLPROC_BUFFER_SIZE_MIN)
+  char buf[CALLPROC_BUFFER_SIZE_MAX];
+  int bufsize = CALLPROC_BUFFER_SIZE_MIN;
+  int count = SPECPDL_INDEX ();
+
+  register const unsigned char **new_argv
+    = (const unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));

   struct buffer *old = current_buffer;
   /* File to use for stderr in the child.
      t means use same as standard output.  */
   struct buffer *old = current_buffer;
   /* File to use for stderr in the child.
      t means use same as standard output.  */


@@ -230,7 +234,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   char *outf, *tempfile;
   int outfilefd;
 #endif
   char *outf, *tempfile;
   int outfilefd;
 #endif

-#ifdef macintosh
+#ifdef MAC_OS8

   char *tempfile;
   int outfilefd;
 #endif
   char *tempfile;
   int outfilefd;
 #endif


@@ -245,13 +249,13 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   /* Qt denotes that Ffind_operation_coding_system is not yet called.  */
   coding_systems = Qt;
 
   /* Qt denotes that Ffind_operation_coding_system is not yet called.  */
   coding_systems = Qt;
 

-  CHECK_STRING (args[0], 0);
+  CHECK_STRING (args[0]);

 
   error_file = Qt;
 
 #ifndef subprocesses
   /* Without asynchronous processes we cannot have BUFFER == 0.  */
 
   error_file = Qt;
 
 #ifndef subprocesses
   /* Without asynchronous processes we cannot have BUFFER == 0.  */

-  if (nargs >= 3 
+  if (nargs >= 3

       && (INTEGERP (CONSP (args[2]) ? XCAR (args[2]) : args[2])))
     error ("Operating system cannot handle asynchronous subprocesses");
 #endif /* subprocesses */
       && (INTEGERP (CONSP (args[2]) ? XCAR (args[2]) : args[2])))
     error ("Operating system cannot handle asynchronous subprocesses");
 #endif /* subprocesses */


@@ -267,7 +271,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
        int must_encode = 0;
 
        for (i = 4; i < nargs; i++)
        int must_encode = 0;
 
        for (i = 4; i < nargs; i++)

-         CHECK_STRING (args[i], i);
+         CHECK_STRING (args[i]);

 
        for (i = 4; i < nargs; i++)
          if (STRING_MULTIBYTE (args[i]))
 
        for (i = 4; i < nargs; i++)
          if (STRING_MULTIBYTE (args[i]))


@@ -297,7 +301,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   if (nargs >= 2 && ! NILP (args[1]))
     {
       infile = Fexpand_file_name (args[1], current_buffer->directory);
   if (nargs >= 2 && ! NILP (args[1]))
     {
       infile = Fexpand_file_name (args[1], current_buffer->directory);

-      CHECK_STRING (infile, 1);
+      CHECK_STRING (infile);

     }
   else
     infile = build_string (NULL_DEVICE);
     }
   else
     infile = build_string (NULL_DEVICE);


@@ -333,11 +337,11 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
          buffer = Fget_buffer_create (buffer);
          /* Mention the buffer name for a better error message.  */
          if (NILP (buffer))
          buffer = Fget_buffer_create (buffer);
          /* Mention the buffer name for a better error message.  */
          if (NILP (buffer))

-           CHECK_BUFFER (spec_buffer, 2);
-         CHECK_BUFFER (buffer, 2);
+           CHECK_BUFFER (spec_buffer);
+         CHECK_BUFFER (buffer);

        }
     }
        }
     }

-  else 
+  else

     buffer = Qnil;
 
   /* Make sure that the child will be able to chdir to the current
     buffer = Qnil;
 
   /* Make sure that the child will be able to chdir to the current


@@ -367,9 +371,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     UNGCPRO;
   }
 
     UNGCPRO;
   }
 

-  display = nargs >= 4 ? args[3] : Qnil;
+  display_p = INTERACTIVE && nargs >= 4 && !NILP (args[3]);

 
 

-  filefd = emacs_open (XSTRING (infile)->data, O_RDONLY, 0);
+  filefd = emacs_open (SDATA (infile), O_RDONLY, 0);

   if (filefd < 0)
     {
       report_file_error ("Opening process input file", Fcons (infile, Qnil));
   if (filefd < 0)
     {
       report_file_error ("Opening process input file", Fcons (infile, Qnil));


@@ -379,7 +383,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     struct gcpro gcpro1;
 
     GCPRO1 (current_dir);
     struct gcpro gcpro1;
 
     GCPRO1 (current_dir);

-    openp (Vexec_path, args[0], Vexec_suffixes, &path, 1);
+    openp (Vexec_path, args[0], Vexec_suffixes, &path, make_number (X_OK));

     UNGCPRO;
   }
   if (NILP (path))
     UNGCPRO;
   }
   if (NILP (path))


@@ -387,7 +391,14 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
       emacs_close (filefd);
       report_file_error ("Searching for program", Fcons (args[0], Qnil));
     }
       emacs_close (filefd);
       report_file_error ("Searching for program", Fcons (args[0], Qnil));
     }

-  new_argv[0] = XSTRING (path)->data;
+
+  /* If program file name starts with /: for quoting a magic name,
+     discard that.  */
+  if (SBYTES (path) > 2 && SREF (path, 0) == '/'
+      && SREF (path, 1) == ':')
+    path = Fsubstring (path, make_number (2), Qnil);
+
+  new_argv[0] = SDATA (path);

   if (nargs > 4)
     {
       register int i;
   if (nargs > 4)
     {
       register int i;


@@ -405,7 +416,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
              if (argument_coding.type == coding_type_ccl)
                setup_ccl_program (&(argument_coding.spec.ccl.encoder), Qnil);
            }
              if (argument_coding.type == coding_type_ccl)
                setup_ccl_program (&(argument_coding.spec.ccl.encoder), Qnil);
            }

-         new_argv[i - 3] = XSTRING (args[i])->data;
+         new_argv[i - 3] = SDATA (args[i]);

        }
       UNGCPRO;
       new_argv[nargs - 3] = 0;
        }
       UNGCPRO;
       new_argv[nargs - 3] = 0;


@@ -422,7 +433,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
       *tempfile = '\0';
     }
   dostounix_filename (tempfile);
       *tempfile = '\0';
     }
   dostounix_filename (tempfile);

-  if (*tempfile == '\0' || tempfile[strlen (tempfile) - 1] != '/') 
+  if (*tempfile == '\0' || tempfile[strlen (tempfile) - 1] != '/')

     strcat (tempfile, "/");
   strcat (tempfile, "detmp.XXX");
   mktemp (tempfile);
     strcat (tempfile, "/");
   strcat (tempfile, "detmp.XXX");
   mktemp (tempfile);


@@ -438,12 +449,12 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   fd[1] = outfilefd;
 #endif /* MSDOS */
 
   fd[1] = outfilefd;
 #endif /* MSDOS */
 

-#ifdef macintosh
+#ifdef MAC_OS8

   /* Since we don't have pipes on the Mac, create a temporary file to
      hold the output of the subprocess.  */
   /* Since we don't have pipes on the Mac, create a temporary file to
      hold the output of the subprocess.  */

-  tempfile = (char *) alloca (STRING_BYTES (XSTRING (Vtemp_file_name_pattern)) + 1);
-  bcopy (XSTRING (Vtemp_file_name_pattern)->data, tempfile,
-        STRING_BYTES (XSTRING (Vtemp_file_name_pattern)) + 1);
+  tempfile = (char *) alloca (SBYTES (Vtemp_file_name_pattern) + 1);
+  bcopy (SDATA (Vtemp_file_name_pattern), tempfile,
+        SBYTES (Vtemp_file_name_pattern) + 1);

 
   mktemp (tempfile);
 
 
   mktemp (tempfile);
 


@@ -456,14 +467,14 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     }
   fd[0] = filefd;
   fd[1] = outfilefd;
     }
   fd[0] = filefd;
   fd[1] = outfilefd;

-#endif /* macintosh */
+#endif /* MAC_OS8 */

 
   if (INTEGERP (buffer))
     fd[1] = emacs_open (NULL_DEVICE, O_WRONLY, 0), fd[0] = -1;
   else
     {
 #ifndef MSDOS
 
   if (INTEGERP (buffer))
     fd[1] = emacs_open (NULL_DEVICE, O_WRONLY, 0), fd[0] = -1;
   else
     {
 #ifndef MSDOS

-#ifndef macintosh
+#ifndef MAC_OS8

       errno = 0;
       if (pipe (fd) == -1)
        {
       errno = 0;
       if (pipe (fd) == -1)
        {


@@ -497,17 +508,18 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
        to avoid timing error if process terminates soon.  */
     synch_process_death = 0;
     synch_process_retcode = 0;
        to avoid timing error if process terminates soon.  */
     synch_process_death = 0;
     synch_process_retcode = 0;

+    synch_process_termsig = 0;

 
     if (NILP (error_file))
       fd_error = emacs_open (NULL_DEVICE, O_WRONLY, 0);
     else if (STRINGP (error_file))
       {
 #ifdef DOS_NT
 
     if (NILP (error_file))
       fd_error = emacs_open (NULL_DEVICE, O_WRONLY, 0);
     else if (STRINGP (error_file))
       {
 #ifdef DOS_NT

-       fd_error = emacs_open (XSTRING (error_file)->data,
+       fd_error = emacs_open (SDATA (error_file),

                               O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
                               S_IREAD | S_IWRITE);
 #else  /* not DOS_NT */
                               O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
                               S_IREAD | S_IWRITE);
 #else  /* not DOS_NT */

-       fd_error = creat (XSTRING (error_file)->data, 0666);
+       fd_error = creat (SDATA (error_file), 0666);

 #endif /* not DOS_NT */
       }
 
 #endif /* not DOS_NT */
       }
 


@@ -529,29 +541,29 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
 
     current_dir = ENCODE_FILE (current_dir);
 
 
     current_dir = ENCODE_FILE (current_dir);
 

-#ifdef macintosh
+#ifdef MAC_OS8

     {
       /* Call run_mac_command in sysdep.c here directly instead of doing
          a child_setup as for MSDOS and other platforms.  Note that this
          code does not handle passing the environment to the synchronous
          Mac subprocess.  */
       char *infn, *outfn, *errfn, *currdn;
     {
       /* Call run_mac_command in sysdep.c here directly instead of doing
          a child_setup as for MSDOS and other platforms.  Note that this
          code does not handle passing the environment to the synchronous
          Mac subprocess.  */
       char *infn, *outfn, *errfn, *currdn;

-      
+

       /* close these files so subprocess can write to them */
       close (outfilefd);
       if (fd_error != outfilefd)
         close (fd_error);
       fd1 = -1; /* No harm in closing that one! */
 
       /* close these files so subprocess can write to them */
       close (outfilefd);
       if (fd_error != outfilefd)
         close (fd_error);
       fd1 = -1; /* No harm in closing that one! */
 

-      infn = XSTRING (infile)->data;
+      infn = SDATA (infile);

       outfn = tempfile;
       if (NILP (error_file))
         errfn = NULL_DEVICE;
       else if (EQ (Qt, error_file))
         errfn = outfn;
       else
       outfn = tempfile;
       if (NILP (error_file))
         errfn = NULL_DEVICE;
       else if (EQ (Qt, error_file))
         errfn = outfn;
       else

-        errfn = XSTRING (error_file)->data;
-      currdn = XSTRING (current_dir)->data;
+        errfn = SDATA (error_file);
+      currdn = SDATA (current_dir);

       pid = run_mac_command (new_argv, currdn, infn, outfn, errfn);
 
       /* Record that the synchronous process exited and note its
       pid = run_mac_command (new_argv, currdn, infn, outfn, errfn);
 
       /* Record that the synchronous process exited and note its


@@ -574,7 +586,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
          report_file_error ("Cannot re-open temporary file", Qnil);
        }
     }
          report_file_error ("Cannot re-open temporary file", Qnil);
        }
     }

-#else /* not macintosh */
+#else /* not MAC_OS8 */

 #ifdef MSDOS /* MW, July 1993 */
     /* Note that on MSDOS `child_setup' actually returns the child process
        exit status, not its PID, so we assign it to `synch_process_retcode'
 #ifdef MSDOS /* MW, July 1993 */
     /* Note that on MSDOS `child_setup' actually returns the child process
        exit status, not its PID, so we assign it to `synch_process_retcode'


@@ -610,6 +622,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     pid = child_setup (filefd, fd1, fd_error, (char **) new_argv,
                       0, current_dir);
 #else  /* not WINDOWSNT */
     pid = child_setup (filefd, fd1, fd_error, (char **) new_argv,
                       0, current_dir);
 #else  /* not WINDOWSNT */

+    BLOCK_INPUT;
+

     pid = vfork ();
 
     if (pid == 0)
     pid = vfork ();
 
     if (pid == 0)


@@ -627,13 +641,15 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
        child_setup (filefd, fd1, fd_error, (char **) new_argv,
                     0, current_dir);
       }
        child_setup (filefd, fd1, fd_error, (char **) new_argv,
                     0, current_dir);
       }

+
+    UNBLOCK_INPUT;

 #endif /* not WINDOWSNT */
 
     /* The MSDOS case did this already.  */
     if (fd_error >= 0)
       emacs_close (fd_error);
 #endif /* not MSDOS */
 #endif /* not WINDOWSNT */
 
     /* The MSDOS case did this already.  */
     if (fd_error >= 0)
       emacs_close (fd_error);
 #endif /* not MSDOS */

-#endif /* not macintosh */
+#endif /* not MAC_OS8 */

 
     environ = save_environ;
 
 
     environ = save_environ;
 


@@ -667,14 +683,14 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   /* Enable sending signal if user quits below.  */
   call_process_exited = 0;
 
   /* Enable sending signal if user quits below.  */
   call_process_exited = 0;
 

-#if defined(MSDOS) || defined(macintosh)
+#if defined(MSDOS) || defined(MAC_OS8)

   /* MSDOS needs different cleanup information.  */
   record_unwind_protect (call_process_cleanup,
                         Fcons (make_number (fd[0]), build_string (tempfile)));
 #else
   record_unwind_protect (call_process_cleanup,
                         Fcons (make_number (fd[0]), make_number (pid)));
   /* MSDOS needs different cleanup information.  */
   record_unwind_protect (call_process_cleanup,
                         Fcons (make_number (fd[0]), build_string (tempfile)));
 #else
   record_unwind_protect (call_process_cleanup,
                         Fcons (make_number (fd[0]), make_number (pid)));

-#endif /* not MSDOS and not macintosh */
+#endif /* not MSDOS and not MAC_OS8 */

 
 
   if (BUFFERP (buffer))
 
 
   if (BUFFERP (buffer))


@@ -734,7 +750,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     int first = 1;
     int total_read = 0;
     int carryover = 0;
     int first = 1;
     int total_read = 0;
     int carryover = 0;

-    int display_on_the_fly = !NILP (display) && INTERACTIVE;
+    int display_on_the_fly = display_p;

     struct coding_system saved_coding;
     int pt_orig = PT, pt_byte_orig = PT_BYTE;
     int inserted;
     struct coding_system saved_coding;
     int pt_orig = PT, pt_byte_orig = PT_BYTE;
     int inserted;


@@ -750,7 +766,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
        nread = carryover;
        while (nread < bufsize - 1024)
          {
        nread = carryover;
        while (nread < bufsize - 1024)
          {

-           int this_read = emacs_read (fd[0], bufptr + nread,
+           int this_read = emacs_read (fd[0], buf + nread,

                                        bufsize - nread);
 
            if (this_read < 0)
                                        bufsize - nread);
 
            if (this_read < 0)


@@ -771,11 +787,11 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
 
        /* Now NREAD is the total amount of data in the buffer.  */
        immediate_quit = 0;
 
        /* Now NREAD is the total amount of data in the buffer.  */
        immediate_quit = 0;

-       
+

        if (!NILP (buffer))
          {
            if (! CODING_MAY_REQUIRE_DECODING (&process_coding))
        if (!NILP (buffer))
          {
            if (! CODING_MAY_REQUIRE_DECODING (&process_coding))

-             insert_1_both (bufptr, nread, nread, 0, 1, 0);
+             insert_1_both (buf, nread, nread, 0, 1, 0);

            else
              {                 /* We have to decode the input.  */
                int size;
            else
              {                 /* We have to decode the input.  */
                int size;


@@ -784,28 +800,44 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
              repeat_decoding:
                size = decoding_buffer_size (&process_coding, nread);
                decoding_buf = (char *) xmalloc (size);
              repeat_decoding:
                size = decoding_buffer_size (&process_coding, nread);
                decoding_buf = (char *) xmalloc (size);

-               
+
+               /* We can't use the macro CODING_REQUIRE_DETECTION
+                  because it always returns nonzero if the coding
+                  system requires EOL detection.  Here, we have to
+                  check only whether or not the coding system
+                  requires text-encoding detection.  */
+               if (process_coding.type == coding_type_undecided)
+                 {
+                   detect_coding (&process_coding, buf, nread);
+                   if (process_coding.composing != COMPOSITION_DISABLED)
+                     /* We have not yet allocated the composition
+                        data because the coding type was undecided.  */
+                     coding_allocate_composition_data (&process_coding, PT);
+                 }

                if (process_coding.cmp_data)
                  process_coding.cmp_data->char_offset = PT;
                if (process_coding.cmp_data)
                  process_coding.cmp_data->char_offset = PT;

-               
-               decode_coding (&process_coding, bufptr, decoding_buf,
+
+               decode_coding (&process_coding, buf, decoding_buf,

                               nread, size);
                               nread, size);

-               
+

                if (display_on_the_fly
                    && saved_coding.type == coding_type_undecided
                    && process_coding.type != coding_type_undecided)
                  {
                    /* We have detected some coding system.  But,
                       there's a possibility that the detection was
                if (display_on_the_fly
                    && saved_coding.type == coding_type_undecided
                    && process_coding.type != coding_type_undecided)
                  {
                    /* We have detected some coding system.  But,
                       there's a possibility that the detection was

-                      done by insufficient data.  So, we give up
-                      displaying on the fly.  */
+                      done by insufficient data.  So, we try the code
+                      detection again with more data.  */

                    xfree (decoding_buf);
                    display_on_the_fly = 0;
                    process_coding = saved_coding;
                    carryover = nread;
                    xfree (decoding_buf);
                    display_on_the_fly = 0;
                    process_coding = saved_coding;
                    carryover = nread;

+                   /* This is to make the above condition always
+                      fails in the future.  */
+                   saved_coding.type = coding_type_no_conversion;

                    continue;
                  }
                    continue;
                  }

-               
+

                if (process_coding.produced > 0)
                  insert_1_both (decoding_buf, process_coding.produced_char,
                                 process_coding.produced, 0, 1, 0);
                if (process_coding.produced > 0)
                  insert_1_both (decoding_buf, process_coding.produced_char,
                                 process_coding.produced, 0, 1, 0);


@@ -820,9 +852,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
                        /* CRs have been replaced with LFs.  Undo
                           that in the text inserted above.  */
                        unsigned char *p;
                        /* CRs have been replaced with LFs.  Undo
                           that in the text inserted above.  */
                        unsigned char *p;

-                       
+

                        move_gap_both (PT, PT_BYTE);
                        move_gap_both (PT, PT_BYTE);

-                       
+

                        p = BYTE_POS_ADDR (pt_byte_orig);
                        for (; p < GPT_ADDR; ++p)
                          if (*p == '\n')
                        p = BYTE_POS_ADDR (pt_byte_orig);
                        for (; p < GPT_ADDR; ++p)
                          if (*p == '\n')


@@ -838,7 +870,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
                        old_pt = PT;
                        old_pt_byte = PT_BYTE;
                        nCR = 0;
                        old_pt = PT;
                        old_pt_byte = PT_BYTE;
                        nCR = 0;

-                       
+

                        for (bytepos = PT_BYTE - 1;
                             bytepos >= pt_byte_orig;
                             --bytepos)
                        for (bytepos = PT_BYTE - 1;
                             bytepos >= pt_byte_orig;
                             --bytepos)


@@ -862,19 +894,19 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
                      coding = AREF (eol_type, CODING_EOL_LF);
                    else
                      coding = saved_coding.symbol;
                      coding = AREF (eol_type, CODING_EOL_LF);
                    else
                      coding = saved_coding.symbol;

-                   
+

                    process_coding.symbol = coding;
                    process_coding.eol_type = CODING_EOL_LF;
                    process_coding.mode
                      &= ~CODING_MODE_INHIBIT_INCONSISTENT_EOL;
                  }
                    process_coding.symbol = coding;
                    process_coding.eol_type = CODING_EOL_LF;
                    process_coding.mode
                      &= ~CODING_MODE_INHIBIT_INCONSISTENT_EOL;
                  }

-               
+

                nread -= process_coding.consumed;
                carryover = nread;
                if (carryover > 0)
                  /* As CARRYOVER should not be that large, we had
                     better avoid overhead of bcopy.  */
                nread -= process_coding.consumed;
                carryover = nread;
                if (carryover > 0)
                  /* As CARRYOVER should not be that large, we had
                     better avoid overhead of bcopy.  */

-                 BCOPY_SHORT (bufptr + process_coding.consumed, bufptr,
+                 BCOPY_SHORT (buf + process_coding.consumed, buf,

                               carryover);
                if (process_coding.result == CODING_FINISH_INSUFFICIENT_CMP)
                  {
                               carryover);
                if (process_coding.result == CODING_FINISH_INSUFFICIENT_CMP)
                  {


@@ -891,20 +923,24 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
        if (process_coding.mode & CODING_MODE_LAST_BLOCK)
          break;
 
        if (process_coding.mode & CODING_MODE_LAST_BLOCK)
          break;
 

+#if (CALLPROC_BUFFER_SIZE_MIN != CALLPROC_BUFFER_SIZE_MAX)

        /* Make the buffer bigger as we continue to read more data,
        /* Make the buffer bigger as we continue to read more data,

-          but not past 64k.  */
-       if (bufsize < 64 * 1024 && total_read > 32 * bufsize)
-         {
-           bufsize *= 2;
-           bufptr = (char *) alloca (bufsize);
-         }
+          but not past CALLPROC_BUFFER_SIZE_MAX.  */
+       if (bufsize < CALLPROC_BUFFER_SIZE_MAX && total_read > 32 * bufsize)
+         if ((bufsize *= 2) > CALLPROC_BUFFER_SIZE_MAX)
+           bufsize = CALLPROC_BUFFER_SIZE_MAX;
+#endif

 
 

-       if (!NILP (display) && INTERACTIVE)
+       if (display_p)

          {
            if (first)
              prepare_menu_bars ();
            first = 0;
            redisplay_preserve_echo_area (1);
          {
            if (first)
              prepare_menu_bars ();
            first = 0;
            redisplay_preserve_echo_area (1);

+           /* This variable might have been set to 0 for code
+              detection.  In that case, we set it back to 1 because
+              we should have already detected a coding system.  */
+           display_on_the_fly = 1;

          }
        immediate_quit = 1;
        QUIT;
          }
        immediate_quit = 1;
        QUIT;


@@ -919,7 +955,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
       }
 
     {
       }
 
     {

-      int post_read_count = specpdl_ptr - specpdl;
+      int post_read_count = SPECPDL_INDEX ();

 
       record_unwind_protect (save_excursion_restore, save_excursion_save ());
       inserted = PT - pt_orig;
 
       record_unwind_protect (save_excursion_restore, save_excursion_save ());
       inserted = PT - pt_orig;


@@ -953,6 +989,19 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
 
   unbind_to (count, Qnil);
 
 
   unbind_to (count, Qnil);
 

+  if (synch_process_termsig)
+    {
+      char *signame;
+
+      synchronize_system_messages_locale ();
+      signame = strsignal (synch_process_termsig);
+
+      if (signame == 0)
+        signame = "unknown";
+
+      synch_process_death = signame;
+    }
+

   if (synch_process_death)
     return code_convert_string_norecord (build_string (synch_process_death),
                                         Vlocale_coding_system, 0);
   if (synch_process_death)
     return code_convert_string_norecord (build_string (synch_process_death),
                                         Vlocale_coding_system, 0);


@@ -987,10 +1036,12 @@ t (mix it with ordinary output), or a file name string.
 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.
 Remaining args are passed to PROGRAM at startup as command args.
 
 Sixth arg DISPLAY non-nil means redisplay buffer as output is inserted.
 Remaining args are passed to PROGRAM at startup as command args.
 

-If BUFFER is nil, `call-process-region' returns immediately with value nil.
+If BUFFER is 0, `call-process-region' returns immediately with value nil.

 Otherwise it waits for PROGRAM to terminate
 and returns a numeric exit status or a signal description string.
 Otherwise it waits for PROGRAM to terminate
 and returns a numeric exit status or a signal description string.

-If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  */)
+If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.
+
+usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS)  */)

      (nargs, args)
      int nargs;
      register Lisp_Object *args;
      (nargs, args)
      int nargs;
      register Lisp_Object *args;


@@ -998,7 +1049,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   struct gcpro gcpro1;
   Lisp_Object filename_string;
   register Lisp_Object start, end;
   struct gcpro gcpro1;
   Lisp_Object filename_string;
   register Lisp_Object start, end;

-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();

   /* Qt denotes we have not yet called Ffind_operation_coding_system.  */
   Lisp_Object coding_systems;
   Lisp_Object val, *args2;
   /* Qt denotes we have not yet called Ffind_operation_coding_system.  */
   Lisp_Object coding_systems;
   Lisp_Object val, *args2;


@@ -1028,9 +1079,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
   strcat (tempfile, "detmp.XXX");
 #endif
 #else /* not DOS_NT */
   strcat (tempfile, "detmp.XXX");
 #endif
 #else /* not DOS_NT */

-  char *tempfile = (char *) alloca (STRING_BYTES (XSTRING (Vtemp_file_name_pattern)) + 1);
-  bcopy (XSTRING (Vtemp_file_name_pattern)->data, tempfile,
-        STRING_BYTES (XSTRING (Vtemp_file_name_pattern)) + 1);
+  char *tempfile = (char *) alloca (SBYTES (Vtemp_file_name_pattern) + 1);
+  bcopy (SDATA (Vtemp_file_name_pattern), tempfile,
+        SBYTES (Vtemp_file_name_pattern) + 1);

 #endif /* not DOS_NT */
 
   coding_systems = Qt;
 #endif /* not DOS_NT */
 
   coding_systems = Qt;


@@ -1072,7 +1123,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     }
 
   {
     }
 
   {

-    int count1 = specpdl_ptr - specpdl;
+    int count1 = SPECPDL_INDEX ();

 
     specbind (intern ("coding-system-for-write"), val);
     Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
 
     specbind (intern ("coding-system-for-write"), val);
     Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);


@@ -1080,7 +1131,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.  *
     unbind_to (count1, Qnil);
   }
 
     unbind_to (count1, Qnil);
   }
 

-  /* Note that Fcall_process takes care of binding 
+  /* Note that Fcall_process takes care of binding

      coding-system-for-read.  */
 
   record_unwind_protect (delete_temp_file, filename_string);
      coding-system-for-read.  */
 
   record_unwind_protect (delete_temp_file, filename_string);


@@ -1118,7 +1169,7 @@ static int relocate_fd ();
    of environ around the vfork and the call to this function.
 
    SET_PGRP is nonzero if we should put the subprocess into a separate
    of environ around the vfork and the call to this function.
 
    SET_PGRP is nonzero if we should put the subprocess into a separate

-   process group.  
+   process group.

 
    CURRENT_DIR is an elisp string giving the path of the current
    directory the subprocess should have.  Since we can't really signal
 
    CURRENT_DIR is an elisp string giving the path of the current
    directory the subprocess should have.  Since we can't really signal


@@ -1143,7 +1194,7 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
 
 #ifdef SET_EMACS_PRIORITY
   {
 
 #ifdef SET_EMACS_PRIORITY
   {

-    extern int emacs_priority;
+    extern EMACS_INT emacs_priority;

 
     if (emacs_priority < 0)
       nice (- emacs_priority);
 
     if (emacs_priority < 0)
       nice (- emacs_priority);


@@ -1169,7 +1220,7 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
     register char *temp;
     register int i;
 
     register char *temp;
     register int i;
 

-    i = STRING_BYTES (XSTRING (current_dir));
+    i = SBYTES (current_dir);

 #ifdef MSDOS
     /* MSDOS must have all environment variables malloc'ed, because
        low-level libc functions that launch subsidiary processes rely
 #ifdef MSDOS
     /* MSDOS must have all environment variables malloc'ed, because
        low-level libc functions that launch subsidiary processes rely


@@ -1180,7 +1231,7 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
 #endif
     temp = pwd_var + 4;
     bcopy ("PWD=", pwd_var, 4);
 #endif
     temp = pwd_var + 4;
     bcopy ("PWD=", pwd_var, 4);

-    bcopy (XSTRING (current_dir)->data, temp, i);
+    bcopy (SDATA (current_dir), temp, i);

     if (!IS_DIRECTORY_SEP (temp[i - 1])) temp[i++] = DIRECTORY_SEP;
     temp[i] = 0;
 
     if (!IS_DIRECTORY_SEP (temp[i - 1])) temp[i++] = DIRECTORY_SEP;
     temp[i] = 0;
 


@@ -1234,7 +1285,7 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
         tem = XCDR (tem))
       {
        char **ep = env;
         tem = XCDR (tem))
       {
        char **ep = env;

-       char *string = (char *) XSTRING (XCAR (tem))->data;
+       char *string = (char *) SDATA (XCAR (tem));

        /* See if this string duplicates any string already in the env.
           If so, don't put it in.
           When an env var has multiple definitions,
        /* See if this string duplicates any string already in the env.
           If so, don't put it in.
           When an env var has multiple definitions,


@@ -1261,7 +1312,7 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
   }
 #ifdef WINDOWSNT
   prepare_standard_handles (in, out, err, handles);
   }
 #ifdef WINDOWSNT
   prepare_standard_handles (in, out, err, handles);

-  set_process_dir (XSTRING (current_dir)->data);
+  set_process_dir (SDATA (current_dir));

 #else  /* not WINDOWSNT */
   /* Make sure that in, out, and err are not actually already in
      descriptors zero, one, or two; this could happen if Emacs is
 #else  /* not WINDOWSNT */
   /* Make sure that in, out, and err are not actually already in
      descriptors zero, one, or two; this could happen if Emacs is


@@ -1386,18 +1437,18 @@ getenv_internal (var, varlen, value, valuelen)
 
       entry = XCAR (scan);
       if (STRINGP (entry)
 
       entry = XCAR (scan);
       if (STRINGP (entry)

-         && STRING_BYTES (XSTRING (entry)) > varlen
-         && XSTRING (entry)->data[varlen] == '='
+         && SBYTES (entry) > varlen
+         && SREF (entry, varlen) == '='

 #ifdef WINDOWSNT
          /* NT environment variables are case insensitive.  */
 #ifdef WINDOWSNT
          /* NT environment variables are case insensitive.  */

-         && ! strnicmp (XSTRING (entry)->data, var, varlen)
+         && ! strnicmp (SDATA (entry), var, varlen)

 #else  /* not WINDOWSNT */
 #else  /* not WINDOWSNT */

-         && ! bcmp (XSTRING (entry)->data, var, varlen)
+         && ! bcmp (SDATA (entry), var, varlen)

 #endif /* not WINDOWSNT */
          )
        {
 #endif /* not WINDOWSNT */
          )
        {

-         *value    = (char *) XSTRING (entry)->data + (varlen + 1);
-         *valuelen = STRING_BYTES (XSTRING (entry)) - (varlen + 1);
+         *value    = (char *) SDATA (entry) + (varlen + 1);
+         *valuelen = SBYTES (entry) - (varlen + 1);

          return 1;
        }
     }
          return 1;
        }
     }


@@ -1415,8 +1466,8 @@ This function consults the variable ``process-environment'' for its value.  */)
   char *value;
   int valuelen;
 
   char *value;
   int valuelen;
 

-  CHECK_STRING (var, 0);
-  if (getenv_internal (XSTRING (var)->data, STRING_BYTES (XSTRING (var)),
+  CHECK_STRING (var);
+  if (getenv_internal (SDATA (var), SBYTES (var),

                       &value, &valuelen))
     return make_string (value, valuelen);
   else
                       &value, &valuelen))
     return make_string (value, valuelen);
   else


@@ -1441,7 +1492,7 @@ egetenv (var)
 #endif /* not VMS */
 \f
 /* This is run before init_cmdargs.  */
 #endif /* not VMS */
 \f
 /* This is run before init_cmdargs.  */

-  
+

 void
 init_callproc_1 ()
 {
 void
 init_callproc_1 ()
 {


@@ -1449,7 +1500,7 @@ init_callproc_1 ()
   char *doc_dir = egetenv ("EMACSDOC");
 
   Vdata_directory
   char *doc_dir = egetenv ("EMACSDOC");
 
   Vdata_directory

-    = Ffile_name_as_directory (build_string (data_dir ? data_dir 
+    = Ffile_name_as_directory (build_string (data_dir ? data_dir

                                             : PATH_DATA));
   Vdoc_directory
     = Ffile_name_as_directory (build_string (doc_dir ? doc_dir
                                             : PATH_DATA));
   Vdoc_directory
     = Ffile_name_as_directory (build_string (doc_dir ? doc_dir


@@ -1468,7 +1519,7 @@ void
 init_callproc ()
 {
   char *data_dir = egetenv ("EMACSDATA");
 init_callproc ()
 {
   char *data_dir = egetenv ("EMACSDATA");

-    
+

   register char * sh;
   Lisp_Object tempdir;
 
   register char * sh;
   Lisp_Object tempdir;
 


@@ -1481,8 +1532,12 @@ init_callproc ()
 #ifndef DOS_NT
          /* MSDOS uses wrapped binaries, so don't do this.  */
       if (NILP (Fmember (tem, Vexec_path)))
 #ifndef DOS_NT
          /* MSDOS uses wrapped binaries, so don't do this.  */
       if (NILP (Fmember (tem, Vexec_path)))

-       Vexec_path = nconc2 (Vexec_path, Fcons (tem, Qnil));
-      
+       {
+         Vexec_path = decode_env_path ("EMACSPATH", PATH_EXEC);
+         Vexec_path = Fcons (tem, Vexec_path);
+         Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
+       }
+

       Vexec_directory = Ffile_name_as_directory (tem);
 #endif /* not DOS_NT */
 
       Vexec_directory = Ffile_name_as_directory (tem);
 #endif /* not DOS_NT */
 


@@ -1504,12 +1559,15 @@ init_callproc ()
      source directory.  */
   if (data_dir == 0)
     {
      source directory.  */
   if (data_dir == 0)
     {

-      Lisp_Object tem, tem1, newdir;
+      Lisp_Object tem, tem1, srcdir;

 
 

+      srcdir = Fexpand_file_name (build_string ("../src/"),
+                                 build_string (PATH_DUMPLOADSEARCH));

       tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory);
       tem1 = Ffile_exists_p (tem);
       tem = Fexpand_file_name (build_string ("GNU"), Vdata_directory);
       tem1 = Ffile_exists_p (tem);

-      if (NILP (tem1))
+      if (!NILP (Fequal (srcdir, Vinvocation_directory)) || NILP (tem1))

        {
        {

+         Lisp_Object newdir;

          newdir = Fexpand_file_name (build_string ("../etc/"),
                                      build_string (PATH_DUMPLOADSEARCH));
          tem = Fexpand_file_name (build_string ("GNU"), newdir);
          newdir = Fexpand_file_name (build_string ("../etc/"),
                                      build_string (PATH_DUMPLOADSEARCH));
          tem = Fexpand_file_name (build_string ("GNU"), newdir);


@@ -1524,13 +1582,13 @@ init_callproc ()
 #endif
     {
       tempdir = Fdirectory_file_name (Vexec_directory);
 #endif
     {
       tempdir = Fdirectory_file_name (Vexec_directory);

-      if (access (XSTRING (tempdir)->data, 0) < 0)
+      if (access (SDATA (tempdir), 0) < 0)

        dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n",
                     Vexec_directory);
     }
 
   tempdir = Fdirectory_file_name (Vdata_directory);
        dir_warning ("Warning: arch-dependent data dir (%s) does not exist.\n",
                     Vexec_directory);
     }
 
   tempdir = Fdirectory_file_name (Vdata_directory);

-  if (access (XSTRING (tempdir)->data, 0) < 0)
+  if (access (SDATA (tempdir), 0) < 0)

     dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n",
                 Vdata_directory);
 
     dir_warning ("Warning: arch-independent data dir (%s) does not exist.\n",
                 Vdata_directory);
 


@@ -1554,6 +1612,14 @@ init_callproc ()
   else
     Vtemp_file_name_pattern = build_string ("/tmp/emacsXXXXXX");
 #endif
   else
     Vtemp_file_name_pattern = build_string ("/tmp/emacsXXXXXX");
 #endif

+
+#ifdef DOS_NT
+  Vshared_game_score_directory = Qnil;
+#else
+  Vshared_game_score_directory = build_string (PATH_GAME);
+  if (NILP (Ffile_directory_p (Vshared_game_score_directory)))
+    Vshared_game_score_directory = Qnil;
+#endif

 }
 
 void
 }
 
 void


@@ -1611,6 +1677,15 @@ Emacs's info files; the default value for Info-default-directory-list
 includes this.  */);
   Vconfigure_info_directory = build_string (PATH_INFO);
 
 includes this.  */);
   Vconfigure_info_directory = build_string (PATH_INFO);
 

+  DEFVAR_LISP ("shared-game-score-directory", &Vshared_game_score_directory,
+              doc: /* Directory of score files for games which come with GNU Emacs.
+If this variable is nil, then Emacs is unable to use a shared directory.  */);
+#ifdef DOS_NT
+  Vshared_game_score_directory = Qnil;
+#else
+  Vshared_game_score_directory = build_string (PATH_GAME);
+#endif
+

   DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern,
               doc: /* Pattern for making names for temporary files.
 This is used by `call-process-region'.  */);
   DEFVAR_LISP ("temp-file-name-pattern", &Vtemp_file_name_pattern,
               doc: /* Pattern for making names for temporary files.
 This is used by `call-process-region'.  */);


@@ -1622,7 +1697,10 @@ Each element should be a string of the form ENVVARNAME=VALUE.
 If multiple entries define the same variable, the first one always
 takes precedence.
 The environment which Emacs inherits is placed in this variable
 If multiple entries define the same variable, the first one always
 takes precedence.
 The environment which Emacs inherits is placed in this variable

-when Emacs starts.  */);
+when Emacs starts.
+Non-ASCII characters are encoded according to the initial value of
+`locale-coding-system', i.e. the elements must normally be decoded for use.
+See `setenv' and `getenv'.  */);

 
 #ifndef VMS
   defsubr (&Scall_process);
 
 #ifndef VMS
   defsubr (&Scall_process);


@@ -1630,3 +1708,6 @@ when Emacs starts.  */);
 #endif
   defsubr (&Scall_process_region);
 }
 #endif
   defsubr (&Scall_process_region);
 }

+
+/* arch-tag: 769b8045-1df7-4d2b-8968-e3fb49017f95
+   (do not change this comment) */