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

Rework native compiled lisp/d lambda list accessor

Browse source 
* lisp/help.el (help-function-arglist): Logic update for new
	'Fsubr_native_lambda_list'.
	* src/data.c (Fsubr_native_dyn_p): Remove.
	(Fsubr_native_lambda_list): Return t when the input is not a
	compiled lisp/d subr.
	(syms_of_data): Update for 'Fsubr_native_dyn_p' removal.
This commit is contained in:
Andrea Corallo 2020-09-01 10:28:29 +02:00
parent ba0a61d10a
commit 78e8f99154
2 changed files with 5 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/help.el
View file

@ -1337,7 +1337,8 @@ the same names as used in the original source code, when possible."
((and (byte-code-function-p def) (listp (aref def 0))) (aref def 0))
((eq (car-safe def) 'lambda) (nth 1 def))
((eq (car-safe def) 'closure) (nth 2 def))
((subr-native-dyn-p def) (subr-native-lambda-list def))
((and (subrp def) (listp (subr-native-lambda-list def)))
(subr-native-lambda-list def))
((or (and (byte-code-function-p def) (integerp (aref def 0)))
(subrp def) (module-function-p def))
(or (when preserve-names

16
src/data.c
View file

@ -884,26 +884,17 @@ function, nil otherwise. */)
#ifdef HAVE_NATIVE_COMP
DEFUN ("subr-native-dyn-p", Fsubr_native_dyn_p,
Ssubr_native_dyn_p, 1, 1, 0,
doc: /* Return t if the subr is native compiled lisp/d
function, nil otherwise. */)
(Lisp_Object subr)
{
return SUBR_NATIVE_COMPILED_DYNP (subr) ? Qt : Qnil;
}
DEFUN ("subr-native-lambda-list", Fsubr_native_lambda_list,
Ssubr_native_lambda_list, 1, 1, 0,
doc: /* Return the lambda list of native compiled lisp/d
function. */)
doc: /* Return the lambda list for a native compiled lisp/d
function or t otherwise. */)
(Lisp_Object subr)
{
CHECK_SUBR (subr);
return SUBR_NATIVE_COMPILED_DYNP (subr)
? XSUBR (subr)->lambda_list[0]
: Qnil;
: Qt;
}
DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
@ -4051,7 +4042,6 @@ syms_of_data (void)
defsubr (&Ssubr_name);
defsubr (&Ssubr_native_elisp_p);
#ifdef HAVE_NATIVE_COMP
defsubr (&Ssubr_native_dyn_p);
defsubr (&Ssubr_native_lambda_list);
defsubr (&Ssubr_native_comp_unit);
defsubr (&Snative_comp_unit_file);