how to determine the current function?

how to determine the current function?

[Kevin Rodgers]

I could probably find out how to do this by looking into the implementation of
the Emacs Lisp debuggers (debug.el and edebug.el), but I thought I'd be lazy and
ask the experts here first.

I want to know whether I can distinguish between calls to 2 functions defined
like this:

(defun foo () ...)
(fset 'bar 'foo)

within a piece of advice:

(defadvice foo (after ...)
   ;; How can I determine whether called as foo or as bar?
   ...)

Thanks,
-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>

Re: how to determine the current function?

[Stefan Monnier <foo@acm.com>]

>>>>> "Kevin" == Kevin Rodgers <kevin.rodgers@ihs.com> writes:
> I could probably find out how to do this by looking into the
> implementation of the Emacs Lisp debuggers (debug.el and edebug.el), but
> I thought I'd be lazy and ask the experts here first.

It's a function named something like `backtrace'.

> I want to know whether I can distinguish between calls to 2 functions defined
> like this:
> (defun foo () ...)
> (fset 'bar 'foo)
> within a piece of advice:
> (defadvice foo (after ...)
>    ;; How can I determine whether called as foo or as bar?
>    ...)

I recommend you avoid the above-mentioned function and put an advice
around `bar' additionally to an advice around `foo' instead.
The advice around bar could just be

  (defadvice bar (around ...)
    (let ((i-m-in-bar t))
      ad-do-it))


-- Stefan