(Fcall_process): Encode the new current dir.

diff --git a/src/callproc.c b/src/callproc.c
index 08eb9331a37142a7ab03cc4f205169f8744b2fd6..18bed61738cf0b3afa12bebef8f0a29abb4718bc 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -119,6 +119,8 @@ char *synch_process_death;
 int synch_process_retcode;
 
 extern Lisp_Object Vdoc_file_name;
+
+extern Lisp_Object Vfile_name_coding_system;
 \f
 /* Clean up when exiting Fcall_process.
    On MSDOS, delete the temporary file on any kind of termination.
@@ -528,6 +530,10 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
                                   ? build_string (NULL_DEVICE) : error_file),
                                  Qnil));
       }
+
+    current_dir
+      = Fencode_coding_string (current_dir, Vfile_name_coding_system, Qt);
+
 #ifdef MSDOS /* MW, July 1993 */
     /* ??? Someone who knows MSDOG needs to check whether this properly
        closes all descriptors that it opens.