diff options
| author | Philipp Stephani | 2019-04-24 23:12:35 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2019-04-24 23:12:35 +0200 |
| commit | d2e1bac47816fa1f48482faeebf7fa562a5b0e40 (patch) | |
| tree | 85eda43e37e3df0b74a2d82cf313c28bbfefa27c /src/doc.c | |
| parent | 4c90369d77d3db1cbd37df7857e4706176fd7ba2 (diff) | |
| download | emacs-d2e1bac47816fa1f48482faeebf7fa562a5b0e40.tar.gz emacs-d2e1bac47816fa1f48482faeebf7fa562a5b0e40.zip | |
Move definition of Lisp_Module_Function to emacs-module.c.
* src/lisp.h: Remove include of emacs-module.h. Remove definition
of Lisp_Module_Function structure.
* src/emacs-module.c (module_function_documentation)
(module_function_address): New accessor functions for module function
fields.
(emacs_subr, struct Lisp_Module_Function): Move from lisp.h.
* src/print.c (print_vectorlike):
* src/doc.c (Fdocumentation): Use the new accessor functions.
Diffstat (limited to 'src/doc.c')
| -rw-r--r-- | src/doc.c | 4 |
1 files changed, 3 insertions, 1 deletions
| @@ -337,8 +337,10 @@ string is passed through `substitute-command-keys'. */) | |||
| 337 | fun = XCDR (fun); | 337 | fun = XCDR (fun); |
| 338 | if (SUBRP (fun)) | 338 | if (SUBRP (fun)) |
| 339 | doc = make_fixnum (XSUBR (fun)->doc); | 339 | doc = make_fixnum (XSUBR (fun)->doc); |
| 340 | #ifdef HAVE_MODULES | ||
| 340 | else if (MODULE_FUNCTIONP (fun)) | 341 | else if (MODULE_FUNCTIONP (fun)) |
| 341 | doc = XMODULE_FUNCTION (fun)->documentation; | 342 | doc = module_function_documentation (XMODULE_FUNCTION (fun)); |
| 343 | #endif | ||
| 342 | else if (COMPILEDP (fun)) | 344 | else if (COMPILEDP (fun)) |
| 343 | { | 345 | { |
| 344 | if (PVSIZE (fun) <= COMPILED_DOC_STRING) | 346 | if (PVSIZE (fun) <= COMPILED_DOC_STRING) |