From 8ea5d990f6315917bbd9c7b94856c52137405dad Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 7 Jun 2016 16:44:48 -0400 Subject: [PATCH] * lisp/help-fns.el (describe-function-1): Avoid reporting advised aliases as the type of their targets. --- lisp/help-fns.el | 8 ++++---- 1 file 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") -- 2.39.2