From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 21 Jul 2022 07:18:30 +0000 (+0300)
Subject: Make 'describe-function' say "byte-compiled" when appropriate
X-Git-Tag: emacs-28.1.91~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25bc330a6da3e8f224289560aa59958f6b0f3148;p=emacs.git

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.
---

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)