* lisp/help-fns.el (describe-function-1): Avoid reporting advised

autoloads as aliases.  (Bug#21299)
This commit is contained in:
Glenn Morris 2016-06-13 13:14:35 -04:00
parent d308aa1eee
commit e881070890

View file

@ -514,7 +514,8 @@ FILE is the file where FUNCTION was probably defined."
real-function))
(aliased (or (symbolp def)
;; Advised & aliased function.
(and advised (symbolp real-function))))
(and advised (symbolp real-function)
(not (eq 'autoload (car-safe def))))))
(real-def (cond
(aliased (let ((f real-function))
(while (and (fboundp f)