(Fcall_process): Encode the new current dir.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 08eb9331a37..18bed61738c 100644
--- 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;
 
 /* 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.