diff options
| author | Jürgen Hötzel | 2012-11-16 13:18:07 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2012-11-16 13:18:07 -0500 |
| commit | 60c4ee668296b705cb359f3915c78fddd4bfcfdf (patch) | |
| tree | 54368b7550ae456289d57a8980eb8fb2f319f898 /lisp/eshell | |
| parent | dd0c5bbb364c8a7f6c663c7bd93d048206b2e707 (diff) | |
| download | emacs-60c4ee668296b705cb359f3915c78fddd4bfcfdf.tar.gz emacs-60c4ee668296b705cb359f3915c78fddd4bfcfdf.zip | |
* lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".
Fixes: debbugs:12897
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 | ||