diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/data.c b/src/data.c index 59d148166fe..dae8b10ef55 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -906,6 +906,13 @@ Value, if non-nil, is a list (interactive SPEC). */) | |||
| 906 | if (PVSIZE (fun) > COMPILED_INTERACTIVE) | 906 | if (PVSIZE (fun) > COMPILED_INTERACTIVE) |
| 907 | return list2 (Qinteractive, AREF (fun, COMPILED_INTERACTIVE)); | 907 | return list2 (Qinteractive, AREF (fun, COMPILED_INTERACTIVE)); |
| 908 | } | 908 | } |
| 909 | else if (MODULE_FUNCTIONP (fun)) | ||
| 910 | { | ||
| 911 | Lisp_Object form | ||
| 912 | = module_function_interactive_form (XMODULE_FUNCTION (fun)); | ||
| 913 | if (! NILP (form)) | ||
| 914 | return form; | ||
| 915 | } | ||
| 909 | else if (AUTOLOADP (fun)) | 916 | else if (AUTOLOADP (fun)) |
| 910 | return Finteractive_form (Fautoload_do_load (fun, cmd, Qnil)); | 917 | return Finteractive_form (Fautoload_do_load (fun, cmd, Qnil)); |
| 911 | else if (CONSP (fun)) | 918 | else if (CONSP (fun)) |