Re: shell-command in Windows 7

[John Mastro]

John Mastro <john.b.mastro@gmail.com> wrote:
>     (defun open-buffer-directory (buffer)
>       (interactive
>        (if current-prefix-arg
>            (read-buffer "Open buffer directory: " nil t)
>          (list (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))))))

Oops, bad `interactive' spec. That should be:

    (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))))))