diff options
Diffstat (limited to 'lisp')
| -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) |