[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 8ea5d99: * lisp/help-fns.el (describe-function-1):

From: Glenn Morris
Subject: [Emacs-diffs] master 8ea5d99: * lisp/help-fns.el (describe-function-1): Avoid reporting advised
Date: Tue, 7 Jun 2016 20:44:53 +0000 (UTC)

branch: master
commit 8ea5d990f6315917bbd9c7b94856c52137405dad
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * 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 040152a..f591392 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.
                  (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")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]