diff options
| author | Philipp Stephani | 2020-09-13 20:21:41 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2020-09-13 20:26:47 +0200 |
| commit | da0e75e7410226d7fd6d760f0ebe8a04d815506d (patch) | |
| tree | 1c850a5c13e3af18b7ca8cfe1b785d51300d9dde /src/module-env-28.h | |
| parent | 3eb4e0db5ce247f8396daac3156087fbb7aefbd4 (diff) | |
| download | emacs-da0e75e7410226d7fd6d760f0ebe8a04d815506d.tar.gz emacs-da0e75e7410226d7fd6d760f0ebe8a04d815506d.zip | |
Add facility to make module functions interactive (Bug#23486).
* src/module-env-28.h: Add field for 'make_interactive' function.
* src/emacs-module.c (Lisp_Module_Function): Add new field holding the
interactive form.
(allocate_module_function): Adapt to structure layout change.
(module_make_interactive, module_function_interactive_form): New
functions.
(initialize_environment): Use them.
* src/eval.c (Fcommandp):
* src/data.c (Finteractive_form): Also handle interactive module
functions.
* test/data/emacs-module/mod-test.c (Fmod_test_identity): New test
function.
(emacs_module_init): Create two interactive module test functions.
* test/src/emacs-module-tests.el (module/interactive/return-t)
(module/interactive/return-t-int, module/interactive/identity):
New unit tests.
* doc/lispref/internals.texi (Module Functions): Document new
function. Rework paragraph about wrapping module functions, as the
example no longer applies.
* etc/NEWS: Document new facility.
Diffstat (limited to 'src/module-env-28.h')
| -rw-r--r-- | src/module-env-28.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/module-env-28.h b/src/module-env-28.h index 5d884c148c4..40b03b92b52 100644 --- a/src/module-env-28.h +++ b/src/module-env-28.h | |||
| @@ -12,3 +12,7 @@ | |||
| 12 | 12 | ||
| 13 | int (*open_channel) (emacs_env *env, emacs_value pipe_process) | 13 | int (*open_channel) (emacs_env *env, emacs_value pipe_process) |
| 14 | EMACS_ATTRIBUTE_NONNULL (1); | 14 | EMACS_ATTRIBUTE_NONNULL (1); |
| 15 | |||
| 16 | void (*make_interactive) (emacs_env *env, emacs_value function, | ||
| 17 | emacs_value spec) | ||
| 18 | EMACS_ATTRIBUTE_NONNULL (1); | ||