Mercurial > emacs
changeset 3672:3eaec128c91e
(make-directory): By default create dir default-dir.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 12 Jun 1993 06:54:14 +0000 |
| parents | dffbfae75c92 |
| children | 8ab0a7453577 |
| files | lisp/files.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat Jun 12 02:18:02 1993 +0000 +++ b/lisp/files.el Sat Jun 12 06:54:14 1993 +0000 @@ -1585,8 +1585,17 @@ (set-buffer-modified-p (buffer-modified-p)))) ; force mode line update (defun make-directory (dir &optional parents) - "Create the directory DIR and any nonexistent parent dirs." - (interactive "FMake directory: \nP") + "Create the directory DIR and any nonexistent parent dirs. +Interactively, the default choice of directory to create +is the current default directory for file names. +That is useful when you have visited a file in a nonexistint directory. + +Noninteractively, the second (optional) argument PARENTS says whether +to create parent directories if they don't exist." + (interactive + (list (read-file-name "Make directory: " default-directory default-directory + nil nil) + t)) (let ((handler (find-file-name-handler dir))) (if handler (funcall handler 'make-directory dir parents)