diff options
| author | Richard M. Stallman | 1995-07-30 07:02:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-07-30 07:02:13 +0000 |
| commit | dac4ea74ccf14a7e759253fb20d6acf2d2f2acc0 (patch) | |
| tree | f65187465cd5402b56f31b5d25d983ca7de0fca8 | |
| parent | e47d38f615079949f284a3e75a42fb7837772ec3 (diff) | |
| download | emacs-dac4ea74ccf14a7e759253fb20d6acf2d2f2acc0.tar.gz emacs-dac4ea74ccf14a7e759253fb20d6acf2d2f2acc0.zip | |
(cd): When reading arg, use just directory as the default.
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 01705e3c57a..1a7ca53a855 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -298,7 +298,9 @@ Not actually set up until the first time you you use it.") | |||
| 298 | "Make DIR become the current buffer's default directory. | 298 | "Make DIR become the current buffer's default directory. |
| 299 | If your environment includes a `CDPATH' variable, try each one of that | 299 | If your environment includes a `CDPATH' variable, try each one of that |
| 300 | colon-separated list of directories when resolving a relative directory name." | 300 | colon-separated list of directories when resolving a relative directory name." |
| 301 | (interactive "FChange default directory: ") | 301 | (interactive |
| 302 | (list (read-file-name "Change default directory: " | ||
| 303 | default-directory default-directory))) | ||
| 302 | (if (file-name-absolute-p dir) | 304 | (if (file-name-absolute-p dir) |
| 303 | (cd-absolute (expand-file-name dir)) | 305 | (cd-absolute (expand-file-name dir)) |
| 304 | (if (null cd-path) | 306 | (if (null cd-path) |