emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

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