(init_buffer): Init default-directory of minibuffer.

136351b7 · Richard M. Stallman · 46564c8d · 136351b7
Commit 136351b7 authored Jun 03, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

src/buffer.c src/buffer.c +4 -0

No files found.
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1972,6 +1972,7 @@ init_buffer ()
  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 @@ init_buffer ()
    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 */