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 | |
| parent | dd0c5bbb364c8a7f6c663c7bd93d048206b2e707 (diff) | |
| download | emacs-60c4ee668296b705cb359f3915c78fddd4bfcfdf.tar.gz emacs-60c4ee668296b705cb359f3915c78fddd4bfcfdf.zip | |
* lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".
Fixes: debbugs:12897
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/eshell/em-unix.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 41252ee85a9..38aebf972c0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2012-11-16 Jürgen Hötzel <juergen@archlinux.org> (tiny change) | ||
| 2 | |||
| 3 | * eshell/em-unix.el (eshell/mkdir): Handle "--parents" (bug#12897). | ||
| 4 | |||
| 1 | 2012-11-16 Stefan Monnier <monnier@iro.umontreal.ca> | 5 | 2012-11-16 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 6 | ||
| 3 | * emacs-lisp/advice.el (ad-make-advised-definition): Improve last fix. | 7 | * emacs-lisp/advice.el (ad-make-advised-definition): Improve last fix. |
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 | ||