[Emacs-diffs] /srv/bzr/emacs/trunk r110912: * lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".

[Stefan Monnier]

------------------------------------------------------------
revno: 110912
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12897
author: Jürgen Hötzel <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2012-11-16 13:18:07 -0500
message:
  * lisp/eshell/em-unix.el (eshell/mkdir): Handle "--parents".
modified:
  lisp/ChangeLog
  lisp/eshell/em-unix.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-16 18:02:39 +0000
+++ b/lisp/ChangeLog    2012-11-16 18:18:07 +0000
@@ -1,3 +1,7 @@
+2012-11-16  Jürgen Hötzel  <address@hidden>  (tiny change)
+
+       * eshell/em-unix.el (eshell/mkdir): Handle "--parents" (bug#12897).
+
 2012-11-16  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/advice.el (ad-make-advised-definition): Improve last fix.

=== modified file 'lisp/eshell/em-unix.el'
--- a/lisp/eshell/em-unix.el    2012-09-09 21:11:14 +0000
+++ b/lisp/eshell/em-unix.el    2012-11-16 18:18:07 +0000
@@ -306,12 +306,13 @@
   (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))