diff options
| author | Richard M. Stallman | 1993-06-03 22:07:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-03 22:07:18 +0000 |
| commit | 136351b74209e0a8ee9241b600cf5d5d2f67d30d (patch) | |
| tree | 6dbb6353f8e651335c9113275aeb24a616c495bb /src/buffer.c | |
| parent | 46564c8d17466bc7d74c78109a0f7d710e268723 (diff) | |
| download | emacs-136351b74209e0a8ee9241b600cf5d5d2f67d30d.tar.gz emacs-136351b74209e0a8ee9241b600cf5d5d2f67d30d.zip | |
(init_buffer): Init default-directory of minibuffer.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/buffer.c b/src/buffer.c index c6212beda77..be94972ee87 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -1972,6 +1972,7 @@ init_buffer () | |||
| 1972 | char buf[MAXPATHLEN+1]; | 1972 | char buf[MAXPATHLEN+1]; |
| 1973 | char *pwd; | 1973 | char *pwd; |
| 1974 | struct stat dotstat, pwdstat; | 1974 | struct stat dotstat, pwdstat; |
| 1975 | Lisp_Object temp; | ||
| 1975 | 1976 | ||
| 1976 | Fset_buffer (Fget_buffer_create (build_string ("*scratch*"))); | 1977 | Fset_buffer (Fget_buffer_create (build_string ("*scratch*"))); |
| 1977 | 1978 | ||
| @@ -1994,6 +1995,9 @@ init_buffer () | |||
| 1994 | strcat (buf, "/"); | 1995 | strcat (buf, "/"); |
| 1995 | #endif /* not VMS */ | 1996 | #endif /* not VMS */ |
| 1996 | current_buffer->directory = build_string (buf); | 1997 | current_buffer->directory = build_string (buf); |
| 1998 | |||
| 1999 | temp = get_minibuffer (0); | ||
| 2000 | XBUFFER (temp)->directory = current_buffer->directory; | ||
| 1997 | } | 2001 | } |
| 1998 | 2002 | ||
| 1999 | /* initialize the buffer routines */ | 2003 | /* initialize the buffer routines */ |