From 25bc330a6da3e8f224289560aa59958f6b0f3148 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 21 Jul 2022 10:18:30 +0300 Subject: [PATCH] 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 f78c6ab0dfa..6a7951d160e 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) -- 2.39.2