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

(make-directory): By default create dir default-dir.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-12 06:54:14 +00:00
parent c4f4f2d12f
commit 5ce8bb89cf
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/files.el
View file

@ -1585,8 +1585,17 @@ or multiple mail buffers, etc."
(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)