[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 25bc330a6d: Make 'describe-function' say "byte-compiled" when a
From: |
Eli Zaretskii |
Subject: |
emacs-28 25bc330a6d: Make 'describe-function' say "byte-compiled" when appropriate |
Date: |
Thu, 21 Jul 2022 03:20:26 -0400 (EDT) |
branch: emacs-28
commit 25bc330a6da3e8f224289560aa59958f6b0f3148
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
Make 'describe-function' say "byte-compiled" when appropriate
* lisp/help-fns.el (help-fns-function-description-header): Say
"byte-compiled" when describing byte-compiled functions.
---
lisp/help-fns.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index f78c6ab0df..6a7951d160 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -874,7 +874,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED
REAL-DEF)."
(aliased
(format-message "an alias for `%s'" real-def))
((subr-native-elisp-p def)
- (concat beg "native compiled Lisp function"))
+ (concat beg "native-compiled Lisp function"))
((subrp def)
(concat beg (if (eq 'unevalled (cdr (subr-arity def)))
"special form"
@@ -893,7 +893,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED
REAL-DEF)."
(macrop function))
(concat beg "Lisp macro"))
((byte-code-function-p def)
- (concat beg "compiled Lisp function"))
+ (concat beg "byte-compiled Lisp function"))
((module-function-p def)
(concat beg "module function"))
((eq (car-safe def) 'lambda)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 25bc330a6d: Make 'describe-function' say "byte-compiled" when appropriate,
Eli Zaretskii <=