diff options
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-unix.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el index d3ddab8af1b..32744c702a6 100644 --- a/lisp/eshell/em-unix.el +++ b/lisp/eshell/em-unix.el | |||
| @@ -306,12 +306,13 @@ Remove (unlink) the FILE(s).") | |||
| 306 | (eshell-eval-using-options | 306 | (eshell-eval-using-options |
| 307 | "mkdir" args | 307 | "mkdir" args |
| 308 | '((?h "help" nil nil "show this usage screen") | 308 | '((?h "help" nil nil "show this usage screen") |
| 309 | (?p "parents" nil em-parents "make parent directories as needed") | ||
| 309 | :external "mkdir" | 310 | :external "mkdir" |
| 310 | :show-usage | 311 | :show-usage |
| 311 | :usage "[OPTION] DIRECTORY... | 312 | :usage "[OPTION] DIRECTORY... |
| 312 | Create the DIRECTORY(ies), if they do not already exist.") | 313 | Create the DIRECTORY(ies), if they do not already exist.") |
| 313 | (while args | 314 | (while args |
| 314 | (eshell-funcalln 'make-directory (car args)) | 315 | (eshell-funcalln 'make-directory (car args) em-parents) |
| 315 | (setq args (cdr args))) | 316 | (setq args (cdr args))) |
| 316 | nil)) | 317 | nil)) |
| 317 | 318 | ||