Re: bug in copy-directory

[Thierry Volpiatto]

Michael Albinus <address@hidden> writes:

> Thierry Volpiatto <address@hidden> writes:
>
>> Michael Albinus <address@hidden> writes:
>>
>>> Thierry Volpiatto <address@hidden> writes:
>>>
>>>>> Ah! yes didn't notice it create a third /test nested in the second one.
>>>> Can you try this one now (interactively and not):
>>>> It should work.
>>>
>>> It doesn't.
>> Sorry, this one work now interactively and not.
>
> It still doesn't.
It work here.

> What do you think about testing yourself? I have given the recipe.
Of course i did:

,----
| - Create directory /tmp/test/test
| - Create file /tmp/test/a
| - Create file /tmp/test/test/b
| 
| - Apply (copy-directory "/tmp/test" "~/")
|   Everything is fine
| 
| - Apply again (copy-directory "/tmp/test" "~/")
|   The target directory structure is broken.
`----


,----
| - _Create the structure in /tmp_
| 
| (make-directory "/tmp/test")
| nil
| 
| (make-directory "/tmp/test/test")
| nil
| 
| (with-current-buffer (find-file-noselect "/tmp/test/a")
|   (insert "test1")
|   (save-buffer))
| 
| (with-current-buffer (find-file-noselect "/tmp/test/test/b")
|   (insert "test2")
|   (save-buffer))
| 
| (directory-files "/tmp/test")
| ("." ".." "a" "test")
| 
| (directory-files "/tmp/test/test")
| ("." ".." "b")
| 
| - _Copy the structure in ~/_
| 
| (copy-directory "/tmp/test" "~/")
| nil
| 
| (directory-files "~/test")
| ("." ".." "a" "test")
| 
| (directory-files "~/test/test")
| ("." ".." "b")
| 
| - _Copy again the same structure in ~/ (Overwrite)_
| 
| (copy-directory "/tmp/test" "~/")
| nil
| 
| (directory-files "~/test")
| ("." ".." "a" "test")
| 
| (directory-files "~/test/test")
| ("." ".." "b")
`----

As you can see the structure is always the same.
Or did i miss something?

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997