]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/help-fns.el (describe-function-1): Avoid reporting advised
authorGlenn Morris <rgm@gnu.org>
Tue, 7 Jun 2016 20:44:48 +0000 (16:44 -0400)
committerGlenn Morris <rgm@gnu.org>
Tue, 7 Jun 2016 20:44:48 +0000 (16:44 -0400)
aliases as the type of their targets.

lisp/help-fns.el

index 040152a2c9fc249ccc433d6eec7e6130d25d87de..f59139286647e0f74554267a72ee650147c53187 100644 (file)
@@ -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")