aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/eshell/em-unix.el3
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 @@
12012-11-16 Jürgen Hötzel <juergen@archlinux.org> (tiny change)
2
3 * eshell/em-unix.el (eshell/mkdir): Handle "--parents" (bug#12897).
4
12012-11-16 Stefan Monnier <monnier@iro.umontreal.ca> 52012-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...
312Create the DIRECTORY(ies), if they do not already exist.") 313Create 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