diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-01-08 06:39:22 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-01-08 06:51:20 +0100 |
| commit | 2ec7396d5d190302c16b8d9bd7da14ac9381a21e (patch) | |
| tree | 309e34f89ee6e5f02c313d4eec57d0bb0f022633 /src/eval.c | |
| parent | 9811f80d252ae14dd655fce031fee5ffa95b689e (diff) | |
Move define_error declaration and docstring
* src/lisp.h (define_error): Move declaration to its proper place, make
external, and move its docstring...
* src/eval.c (define_error): ...to its function definition.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 3e899db4436..a73700419dd 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1992,6 +1992,9 @@ signal_error (const char *s, Lisp_Object arg) xsignal (Qerror, Fcons (build_string (s), arg)); } +/* Simplified version of 'define-error' that works with pure + objects. */ + void define_error (Lisp_Object name, const char *message, Lisp_Object parent) { |