Commit 136351b7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(init_buffer): Init default-directory of minibuffer.

parent 46564c8d
......@@ -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 */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment