Re: shell-command in Windows 7

[42 147 <aeuster@gmail.com>]

That's much better! I forgot to mention that even when the earlier code 
worked, I always got the follow error:

(Shell command failed with code 1 and no output)

Which slightly annoyed me, even if it was only a side-effect of the 
desired functionality.

But now I get what I want minus the error message.

Am 4/14/2017 um 7:13 PM schrieb John Mastro:
> (defun open-buffer-directory (buffer)
>        (interactive
>         (list (if current-prefix-arg
>                   (read-buffer "Open buffer directory: " nil t)
>                 (current-buffer))))
>        (with-current-buffer buffer
>          (let ((file (buffer-file-name)))
>            (if file
>                (w32-open-file (file-name-directory file))
>              (user-error "Buffer `%s' is not visiting a file" (buffer-name))))))