Re: Creating a directory target for dired-do-copy

[Kevin Rodgers <ihs_4664@yahoo.com>]

Luis O. Silva wrote:
 > On Sun, 30 Jan 2005 12:17:25 -0600, "Luis O. Silva" 
<l.o.silva@mail.ru> said:
 >
 >    LS> I'm very grateful for your help, unfortunately it
 >    LS> doesn't work for me. I put the previous snippet in my
 >    LS> .emacs file and, after reloading, I typed `C' within
 >    LS> dired. Then in the minibuffer I typed after Copy [-p]
 >    LS> file-test to:
 >
 >    LS>  ~/temporary/non-existing-file/
 >
 > Sorry for answering my own post, but it was written
 > incorrectly.
 >
 >    LS> where non-existing-file is a non-existing file.
 >
 > Here I mean non-existing directory.

Right, I'd guessed that.

 >    LS>  Emacs says
 >
 >    LS> File exists: /home/silva/temporary/non-existing-file/
 >
 >    LS> Actually after loading the snippet, Emacs says the
 >    LS> same even for an existing directory!
 >
 >    LS> I tried to correct the code, but it seems that I
 >    LS> don't understand it. Any hint will be enormously
 >    LS> appreciated.

It turns out the code tries to be too smart and do too much.  Just
delete the second form in the advice (and the second sentence of its doc
string), leaving:

(defadvice dired-mark-read-file-name (after make-directory activate)
   "Create non-existent directories for the result, as necessary."
   (let ((directory (file-name-directory ad-return-value)))
     (unless (file-directory-p directory)
       (make-directory directory t))))

-- 
Kevin Rodgers