Commit 5ce8bb89 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent c4f4f2d1
...@@ -1585,8 +1585,17 @@ or multiple mail buffers, etc." ...@@ -1585,8 +1585,17 @@ or multiple mail buffers, etc."
(set-buffer-modified-p (buffer-modified-p)))) ; force mode line update (set-buffer-modified-p (buffer-modified-p)))) ; force mode line update
(defun make-directory (dir &optional parents) (defun make-directory (dir &optional parents)
"Create the directory DIR and any nonexistent parent dirs." "Create the directory DIR and any nonexistent parent dirs.
(interactive "FMake directory: \nP") 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))) (let ((handler (find-file-name-handler dir)))
(if handler (if handler
(funcall handler 'make-directory dir parents) (funcall handler 'make-directory dir parents)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment