# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1220814628 0
# Node ID 78f10c77413c3b113ff5ecb631b38a4216dd2fdb
# Parent  b254f224b1f4ccb02e5cf28354c2c78c61be13f5
(Fcall_process): Canonicalize current directory name.

diff -r b254f224b1f4 -r 78f10c77413c src/callproc.c
--- a/src/callproc.c	Sun Sep 07 19:10:18 2008 +0000
+++ b/src/callproc.c	Sun Sep 07 19:10:28 2008 +0000
@@ -236,9 +236,6 @@
   char *outf, *tempfile;
   int outfilefd;
 #endif
-#if 0
-  int mask;
-#endif
   struct coding_system process_coding; /* coding-system of process output */
   struct coding_system argument_coding;	/* coding-system of arguments */
   /* Set to the return value of Ffind_operation_coding_system.  */
@@ -374,6 +371,8 @@
 	 a sensible default. */
       current_dir = build_string ("~/");
     current_dir = expand_and_dir_to_file (current_dir, Qnil);
+    current_dir = Ffile_name_as_directory (current_dir);
+
     if (NILP (Ffile_accessible_directory_p (current_dir)))
       report_file_error ("Setting current directory",
 			 Fcons (current_buffer->directory, Qnil));
@@ -474,10 +473,6 @@
 	  report_file_error ("Creating process pipe", Qnil);
 	}
 #endif
-#if 0
-      /* Replaced by close_process_descs */
-      set_exclusive_use (fd[0]);
-#endif
     }
 
   {