[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.
(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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8ea5d99: * lisp/help-fns.el (describe-function-1): Avoid reporting advised,
Glenn Morris <=