procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make 'describe-function' say "byte-compiled" when appropriate

Browse source 
* lisp/help-fns.el (help-fns-function-description-header): Say
"byte-compiled" when describing byte-compiled functions.
This commit is contained in:
Eli Zaretskii 2022-07-21 10:18:30 +03:00
parent 2b31e667be
commit 25bc330a6d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/help-fns.el
View file

@ -874,7 +874,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(aliased (aliased
(format-message "an alias for `%s'" real-def)) (format-message "an alias for `%s'" real-def))
((subr-native-elisp-p def) ((subr-native-elisp-p def)
(concat beg "native compiled Lisp function")) (concat beg "native-compiled Lisp function"))
((subrp def) ((subrp def)
(concat beg (if (eq 'unevalled (cdr (subr-arity def))) (concat beg (if (eq 'unevalled (cdr (subr-arity def)))
"special form" "special form"
@ -893,7 +893,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
(macrop function)) (macrop function))
(concat beg "Lisp macro")) (concat beg "Lisp macro"))
((byte-code-function-p def) ((byte-code-function-p def)
(concat beg "compiled Lisp function")) (concat beg "byte-compiled Lisp function"))
((module-function-p def) ((module-function-p def)
(concat beg "module function")) (concat beg "module function"))
((eq (car-safe def) 'lambda) ((eq (car-safe def) 'lambda)