# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739145238 0
# Node ID aa78c7babb8ef65451c71de1652f9e42ed96e2cb
# Parent  2624c18df76426e8d09f6f562ce99d34be88efd3
(init_buffer): Init default-directory of minibuffer.

diff -r 2624c18df764 -r aa78c7babb8e src/buffer.c
--- a/src/buffer.c	Thu Jun 03 21:02:22 1993 +0000
+++ b/src/buffer.c	Thu Jun 03 22:07:18 1993 +0000
@@ -1972,6 +1972,7 @@
   char buf[MAXPATHLEN+1];
   char *pwd;
   struct stat dotstat, pwdstat;
+  Lisp_Object temp;
 
   Fset_buffer (Fget_buffer_create (build_string ("*scratch*")));
 
@@ -1994,6 +1995,9 @@
     strcat (buf, "/");
 #endif /* not VMS */
   current_buffer->directory = build_string (buf);
+
+  temp = get_minibuffer (0);
+  XBUFFER (temp)->directory = current_buffer->directory;
 }
 
 /* initialize the buffer routines */