From: John Mastro <john.b.mastro@gmail.com>
To: "help-gnu-emacs@gnu.org" <help-gnu-emacs@gnu.org>
Cc: 42 147 <aeuster@gmail.com>
Subject: Re: shell-command in Windows 7
Date: Fri, 14 Apr 2017 10:13:22 -0700 [thread overview]
Message-ID: <CAOj2CQRbYExbYbMYicT8ztnqbhm_Wbdk1L5+0UPXG06jd6--zg@mail.gmail.com> (raw)
In-Reply-To: <CAOj2CQTKebQdV7nYfqhi3aXQn=oAo346-J9RM2ruNjDyFnOAUw@mail.gmail.com>
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))))))
next prev parent reply other threads:[~2017-04-14 17:13 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-04-14 8:53 shell-command in Windows 7 42 147
2017-04-14 17:11 ` John Mastro
2017-04-14 17:13 ` John Mastro [this message]
2017-04-14 17:49 ` 42 147
2017-04-14 19:48 ` 42 147
2017-04-14 20:04 ` John Mastro
2017-04-15 7:40 ` 42 147
2017-04-15 8:30 ` Eli Zaretskii
2017-04-15 10:06 ` 42 147
2017-04-15 10:19 ` Eli Zaretskii
2017-04-15 17:17 ` 42 147
2017-04-15 18:02 ` Drew Adams
2017-04-15 18:33 ` 42 147
2017-04-15 19:54 ` John Mastro
2017-04-15 20:08 ` John Mastro
2017-04-15 21:33 ` 42 147
2017-04-20 23:43 ` white line appears irregularly on left side of Emacs frame in GNU / Linux virtual machine 42 147
2017-04-15 7:04 ` shell-command in Windows 7 Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAOj2CQRbYExbYbMYicT8ztnqbhm_Wbdk1L5+0UPXG06jd6--zg@mail.gmail.com \
--to=john.b.mastro@gmail.com \
--cc=aeuster@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.