[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: defadvice and called-interactively-p
|
From: |
Frank Fischer |
|
Subject: |
Re: defadvice and called-interactively-p |
|
Date: |
Fri, 8 Jun 2012 06:45:29 +0000 (UTC) |
|
User-agent: |
slrn/0.9.9p1 (Linux) |
On 2012-06-08, Juanma Barranquero <lekktu@gmail.com> wrote:
> As an horrible kludge, if you really need a way to make it work and
> don't mind the ugliness:
>
> (defadvice myfunc (around around-myfunc activate)
> (if (called-interactively-p 'any)
> (call-interactively (ad-get-orig-definition 'myfunc))
> ad-do-it))
Thanks a lot, this is exactly what I'm looking for. No idea why I
didn't find `ad-get-orig-definition' on my own :)
Frank