all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Kaushal Modi <kaushal.modi@gmail.com>
To: Michael Heerdegen <michael_heerdegen@web.de>
Cc: Help Gnu Emacs mailing list <help-gnu-emacs@gnu.org>
Subject: Re: A way for interactive to modify a let-bound variable?
Date: Fri, 12 Feb 2016 13:49:00 -0500	[thread overview]
Message-ID: <CAFyQvY27G27PQUztJoxSBeVMdpkR=4uqS7Gy=NBLRbvW8XEfEg@mail.gmail.com> (raw)
In-Reply-To: <87a8n5zsd5.fsf@web.de>

> FWIW, for the side effect you want, a :before advice is still
> sufficient.

I ended up using :around, because I need to call (message ..) *after*
(apply orig-fun args). I need my message to be displayed last in the echo
area after whatever orig-fun could be displaying.

> Well, `let' returns the result of the evaluation of the last form, so
> you have to arrange that this last form is your (apply ...), or evals to
> the result of it.

It's a bit tricky if I put let inside interactive. If I do that, the let
form has to return the list that interactive needs. But I also need the
let-bound msg variable after calling (apply orig-fun args). So that implies
that I would need something like (interactive (let (msg) .. (apply orig-fun
args) (message msg))), which does not look right (and also does not work).

> It may work, but that doesn't define an interactive spec for your
> function, so again you change the function you want to advice, which you
> wanted to avoid.

Exactly, that does not work at all. The (interactive ..) form in there is
as good as it not being there, because it doesn't do anything if it is
wrapped in (let ..).


  reply	other threads:[~2016-02-12 18:49 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2016-02-12 16:41 A way for interactive to modify a let-bound variable? Kaushal Modi
2016-02-12 16:57 ` Drew Adams
2016-02-12 17:17   ` Michael Heerdegen
2016-02-12 18:18     ` Kaushal Modi
2016-02-12 18:38       ` Michael Heerdegen
2016-02-12 18:49         ` Kaushal Modi [this message]
2016-02-12 19:12           ` Michael Heerdegen
2016-02-12 19:20             ` Kaushal Modi
2016-02-12 19:30     ` Marcin Borkowski

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='CAFyQvY27G27PQUztJoxSBeVMdpkR=4uqS7Gy=NBLRbvW8XEfEg@mail.gmail.com' \
    --to=kaushal.modi@gmail.com \
    --cc=help-gnu-emacs@gnu.org \
    --cc=michael_heerdegen@web.de \
    /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.