Fix builds without modules
* src/data.c (Finteractive_form): * src/eval.c (Fcommandp): Fix builds without modules.
This commit is contained in:
parent
1749d32d02
commit
1c84b187ab
2 changed files with 4 additions and 0 deletions
|
@ -906,6 +906,7 @@ Value, if non-nil, is a list (interactive SPEC). */)
|
|||
if (PVSIZE (fun) > COMPILED_INTERACTIVE)
|
||||
return list2 (Qinteractive, AREF (fun, COMPILED_INTERACTIVE));
|
||||
}
|
||||
#ifdef HAVE_MODULES
|
||||
else if (MODULE_FUNCTIONP (fun))
|
||||
{
|
||||
Lisp_Object form
|
||||
|
@ -913,6 +914,7 @@ Value, if non-nil, is a list (interactive SPEC). */)
|
|||
if (! NILP (form))
|
||||
return form;
|
||||
}
|
||||
#endif
|
||||
else if (AUTOLOADP (fun))
|
||||
return Finteractive_form (Fautoload_do_load (fun, cmd, Qnil));
|
||||
else if (CONSP (fun))
|
||||
|
|
|
@ -1948,12 +1948,14 @@ then strings and vectors are not accepted. */)
|
|||
else if (COMPILEDP (fun))
|
||||
return (PVSIZE (fun) > COMPILED_INTERACTIVE ? Qt : if_prop);
|
||||
|
||||
#ifdef HAVE_MODULES
|
||||
/* Module functions are interactive if their `interactive_form'
|
||||
field is non-nil. */
|
||||
else if (MODULE_FUNCTIONP (fun))
|
||||
return NILP (module_function_interactive_form (XMODULE_FUNCTION (fun)))
|
||||
? if_prop
|
||||
: Qt;
|
||||
#endif
|
||||
|
||||
/* Strings and vectors are keyboard macros. */
|
||||
if (STRINGP (fun) || VECTORP (fun))
|
||||
|
|
Loading…
Add table
Reference in a new issue