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

aliases as the type of their targets.

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 040152a2c9f..f5913928664 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -541,14 +541,14 @@ FILE is the file where FUNCTION was probably defined."
     ;; Print what kind of function-like object FUNCTION is.
     (princ (cond ((or (stringp def) (vectorp def))
                   "a keyboard macro")
-                 ((subrp def)
-                  (if (eq 'unevalled (cdr (subr-arity def)))
-                      (concat beg "special form")
-                    (concat beg "built-in function")))
                  ;; Aliases are Lisp functions, so we need to check
                  ;; aliases before functions.
                  (aliased
                   (format-message "an alias for `%s'" real-def))
+                 ((subrp def)
+                  (if (eq 'unevalled (cdr (subr-arity def)))
+                      (concat beg "special form")
+                    (concat beg "built-in function")))
                  ((autoloadp def)
                   (format "%s autoloaded %s"
                           (if (commandp def) "an interactive" "an")