dired-create-directory with arbitrary depth

dired-create-directory with arbitrary depth

[Juri Linkov]

I propose to remove a restriction that `dired-create-directory' can create
only one immediate subdirectory.  The patch below keeps the old behavior
for creating an immediate subdirectory but also allows creating
subdirectories with an arbitrary depth.  It searches for the topmost
nonexistent parent directory and uses it to add a dired entry.  It also
calls `make-directory' with the `parents' arguments to create all parent
directories:

Index: lisp/dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.156
diff -c -r1.156 dired-aux.el
*** lisp/dired-aux.el	25 Sep 2007 10:44:23 -0000	1.156
--- lisp/dired-aux.el	8 Nov 2007 00:44:45 -0000
***************
*** 1528,1537 ****
    "Create a directory called DIRECTORY."
    (interactive
     (list (read-file-name "Create directory: " (dired-current-directory))))
!   (let ((expanded (directory-file-name (expand-file-name directory))))
!     (make-directory expanded)
!     (dired-add-file expanded)
!     (dired-move-to-filename)))
  
  (defun dired-into-dir-with-symlinks (target)
    (and (file-directory-p target)
--- 1542,1557 ----
    "Create a directory called DIRECTORY."
    (interactive
     (list (read-file-name "Create directory: " (dired-current-directory))))
!   (let* ((expanded (directory-file-name (expand-file-name directory)))
! 	 (try expanded) new)
!     ;; Find the topmost nonexistent parent dir (variable `new')
!     (while (and try (not (file-exists-p try)) (not (equal new try)))
!       (setq new try
! 	    try (directory-file-name (file-name-directory try))))
!     (make-directory expanded t)
!     (when new
!       (dired-add-file new)
!       (dired-move-to-filename))))
  
  (defun dired-into-dir-with-symlinks (target)
    (and (file-directory-p target)

-- 
Juri Linkov
http://www.jurta.org/emacs/

Re: dired-create-directory with arbitrary depth

[Richard Stallman]

It sounds good.