From: Jürgen Hötzel <juergen@archlinux.org>
Date: Fri, 16 Nov 2012 18:18:07 +0000 (-0500)
Subject: * lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".
X-Git-Tag: emacs-24.3.90~173^2~18^2~91
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60c4ee668296b705cb359f3915c78fddd4bfcfdf;p=emacs.git

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

Fixes: debbugs:12897
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41252ee85a9..38aebf972c0 100644
--- 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 d3ddab8af1b..32744c702a6 100644
--- 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))