bug#789: find-function fails on advised subrs

[Glenn Morris]

martin rudalics wrote:

> I attached a tentative fix.  Please try it.

Hi martin, I finally tried this...

> !     (cond
> !      ((and (symbolp fun-or-var) (featurep 'advice)
> !        (ad-get-advice-info fun-or-var))
> !       (setq advised t))
> !      ((not type)
> !       (setq fun-or-var (indirect-function fun-or-var))))

This fails if I have an alias to an advised function.

> !      ;; Get the real definition.
> !      (def (if (symbolp real-function)
> !               (symbol-function real-function)
> !             function))
> !      file-name string aliases)

file-name and string seem unused.

> !     (cond
> !      (advised
> !       (message "This function is advised"))

Should this function be printing if something is advised?
Again, what about aliases to advised functions?

Otherwise, it seems to work ok.