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

autoloads as aliases.  (Bug#21299)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 496deb5c4f1cca4be80599cb9b6015848bb93c4c..26d8839f7cb1cf16c3a5b14d7d07fb9b21e56f41 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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)