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.

(cherry picked from commit 2ec7396d5d190302c16b8d9bd7da14ac9381a21e)

diff --git a/src/eval.c b/src/eval.c
index 3e899db4436bca101d3b40602dd6a6ec400de974..a73700419dd5c7c425b41dd56abb1329ea1a11bc 100644 (file)
--- 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)
 {

diff --git a/src/lisp.h b/src/lisp.h
index 9da654cf9af6f60b289ddc93f65e40dafe2a9af6..4217dd9e347a4b50bc48402ff9ab89669354da7e 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -4867,6 +4867,7 @@ extern AVOID xsignal2 (Lisp_Object, Lisp_Object, Lisp_Object);
 extern AVOID xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
 extern AVOID signal_error (const char *, Lisp_Object);
 extern AVOID overflow_error (void);
+extern void define_error (Lisp_Object name, const char *message, Lisp_Object parent);
 extern bool FUNCTIONP (Lisp_Object);
 extern Lisp_Object funcall_subr (struct Lisp_Subr *subr, ptrdiff_t numargs, Lisp_Object *arg_vector);
 extern Lisp_Object eval_sub (Lisp_Object form);
@@ -5975,11 +5976,6 @@ maybe_gc (void)
     maybe_garbage_collect ();
 }
 
-/* Simplified version of 'define-error' that works with pure
-   objects.  */
-void
-define_error (Lisp_Object name, const char *message, Lisp_Object parent);
-
 INLINE_HEADER_END
 
 #endif /* EMACS_LISP_H */