mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

(init_buffer): Init default-directory of minibuffer.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-03 22:07:18 +00:00
parent 46564c8d17
commit 136351b742
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/buffer.c
View file

@ -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 */