Re: [works on the comman line]

[Uwe Brauer]

> I tried to use 

> (defun rcd-zip-file ()
>   "ZIP single file within Dired."
>   (interactive)
>   (let* ((file (car (dired-get-marked-files t)))
>        (zip-file (concat file ".zip")))
>     (when file
>       (start-process "ZIP" "ZIP" "zip" "-9j" zip-file file)
>       (revert-buffer))))
 

> Or


> (defun rcd-zip-file ()
>   "ZIP single file within Dired."
>   (interactive)
>   (let* ((file (car (dired-get-marked-files t)))
>        (zip-file (concat file ".zip")))
>     (when file
>       (start-process "ZIP" "ZIP" "zip" "-9" "-j" zip-file file)
>       (revert-buffer))))

> But not worked. This seems to be cursed!

I have to correct me, sorry.

It works, what happens is the 
dired-do-compress 
does create a new directory.

When I run unzip from the command line it is ok

smime.p7s
Description: S/MIME cryptographic signature