Re: [works on the comman line]

[Uwe Brauer <oub@mat.ucm.es>]

[-- Attachment #1: Type: text/plain, Size: 772 bytes --]


> Uwe Brauer wrote:

> But here -j (the short --junk-paths) doesn't don't add
> anything (?) since the `t' in (dired-get-marked-files t) has
> already removed the path ... so then why doesn't _that_ work?
> Hm ...

> But this works for me:

> (defun dired-zip-files ()
>   (interactive)
>     (dolist (f (dired-get-marked-files))
>       (start-process "zip" nil "zip" "-9" "--junk-path" (concat f ".zip") f)
>       (revert-buffer) ))

Thanks, the point however is, as I said. 

    1. If I open the zip file generated by your method via unzip on the
       command like, it just returns that file without any additional
       directory.

    2. If I use however dired-do-compress then an additional directory
       is created.

Regards

 

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5673 bytes --]