From: seberino@spawar.navy.mil (Christian Seberino)
Subject: Re: How make vc-diff and vc-revert-buffer NOT ask to save files but do it automatically?
Date: 2 Oct 2003 18:03:15 -0700 [thread overview]
Message-ID: <bf23f78f.0310021703.2e75fb6@posting.google.com> (raw)
In-Reply-To: 3F7AEB83.4050500@yahoo.com
Kevin
Indeed the following wrapper for vc-revert-buffer spells out "yes"
when it asks
the last question: "Discard changes? yes or no".
I must still press RETURN to answer the question.
Can I please ask you how to add the RETURN to the "yes" that this
wrapper spells out? Then it will
be done!
(defun cs-vc-revert-buffer() (interactive)
(save-buffer)
(let ((unread-command-events '(?y ?e ?s)))
(vc-revert-buffer)) ; (call-interactively 'vc-revert-buffer)?
)
Chris
P.S. The (save-buffer) is an easy way to avoid the FIRST question
which asks if I want
to save.
Kevin Rodgers <ihs_4664@yahoo.com> wrote in message news:<3F7AEB83.4050500@yahoo.com>...
> [Please don't top-post.]
>
> Christian Seberino wrote:
>
> > Can I please ask you how to avoid 1 more question in
> > vc-revert-buffer???
> >
> > vc-revert-buffer seems to do a vc-diff command and then asks
> > a SECOND question something like... "Are you *sure* you want
> > to discard these changes?"
> >
> > How hardcode answer to this SECOND question to be yes???
>
>
> The same way: by pushing additional characters on to unread-command-events.
>
>
> > I read the emacs online doc on vc-revert-buffer like you suggested
> > but it had no clues. Here it is:
> >
> > vc-revert-buffer is an interactive autoloaded Lisp function in `vc'.
> > It is bound to <menu-bar> <tools> <vc> <vc-revert-buffer>.
> > (vc-revert-buffer)
> ^^^^^^^^^^^^^^^^^^
>
> That tells you that it does not take any arguments.
next prev parent reply other threads:[~2003-10-03 1:03 UTC|newest]
Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-09-23 20:35 How make vc-diff and vc-revert-buffer NOT ask to save files but do it automatically? Christian Seberino
2003-09-23 21:10 ` Stefan Monnier
2003-09-23 22:08 ` Kevin Rodgers
2003-09-24 23:50 ` Christian Seberino
2003-09-25 15:27 ` Kevin Rodgers
2003-09-25 23:32 ` Christian Seberino
2003-09-26 18:42 ` Kevin Rodgers
2003-10-01 0:08 ` Christian Seberino
2003-10-01 0:24 ` Stefan Monnier
2003-10-01 14:58 ` Kevin Rodgers
2003-10-03 1:03 ` Christian Seberino [this message]
2003-10-03 8:51 ` Johan Bockgård
2003-10-06 22:44 ` Christian Seberino
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=bf23f78f.0310021703.2e75fb6@posting.google.com \
--to=seberino@spawar.navy.mil \
/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.