* lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".

Fixes: debbugs:12897

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41252ee85a98effe62468d4298cf05ecf6511e92..38aebf972c0b5586e2250abec2c3458be7d393fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-16  Jürgen Hötzel  <juergen@archlinux.org>  (tiny change)
+
+       * eshell/em-unix.el (eshell/mkdir): Handle "--parents" (bug#12897).
+
 2012-11-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * 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 d3ddab8af1bb3c518ae7276a34c4efe34056e9d8..32744c702a6d3c51dc7f58f738564896db548ef4 100644 (file)
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -306,12 +306,13 @@ Remove (unlink) the FILE(s).")
   (eshell-eval-using-options
    "mkdir" args
    '((?h "help" nil nil "show this usage screen")
+     (?p "parents" nil em-parents "make parent directories as needed")
      :external "mkdir"
      :show-usage
      :usage "[OPTION] DIRECTORY...
 Create the DIRECTORY(ies), if they do not already exist.")
    (while args
-     (eshell-funcalln 'make-directory (car args))
+     (eshell-funcalln 'make-directory (car args) em-parents)
      (setq args (cdr args)))
    nil))