[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: shell-command in Windows 7
From: |
John Mastro |
Subject: |
Re: shell-command in Windows 7 |
Date: |
Fri, 14 Apr 2017 10:13:22 -0700 |
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))))))
- shell-command in Windows 7, 42 147, 2017/04/14
- Re: shell-command in Windows 7, John Mastro, 2017/04/14
- Re: shell-command in Windows 7,
John Mastro <=
- Re: shell-command in Windows 7, 42 147, 2017/04/14
- Re: shell-command in Windows 7, 42 147, 2017/04/14
- Re: shell-command in Windows 7, John Mastro, 2017/04/14
- Re: shell-command in Windows 7, 42 147, 2017/04/15
- Re: shell-command in Windows 7, Eli Zaretskii, 2017/04/15
- Re: shell-command in Windows 7, 42 147, 2017/04/15
- Re: shell-command in Windows 7, Eli Zaretskii, 2017/04/15
- Re: shell-command in Windows 7, 42 147, 2017/04/15
- RE: shell-command in Windows 7, Drew Adams, 2017/04/15
- Re: shell-command in Windows 7, 42 147, 2017/04/15