diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-06-07 16:44:48 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-06-07 16:44:48 -0400 |
| commit | 8ea5d990f6315917bbd9c7b94856c52137405dad (patch) | |
| tree | d34822fa7ba5b925ab6904e3b5e6879789b5d114 | |
| parent | b7adc2f23787eb72015cd705b873e229db6a5049 (diff) | |
* lisp/help-fns.el (describe-function-1): Avoid reporting advised
aliases as the type of their targets.
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 040152a2c9..f591392866 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") |