# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969572993 0
# Node ID 12c10704f00c848562801308fbe76dc5621523e9
# Parent  17e9dd6e4ef309814ded37483b2c39aafd10ca8d
(wrong_type_argument, Fthrow, Fsignal, error): Declare
NO_RETURN.

diff -r 17e9dd6e4ef3 -r 12c10704f00c src/lisp.h
--- a/src/lisp.h	Thu Sep 21 21:49:39 2000 +0000
+++ b/src/lisp.h	Thu Sep 21 21:49:53 2000 +0000
@@ -1889,7 +1889,7 @@
 extern unsigned long cons_to_long P_ ((Lisp_Object));
 extern void args_out_of_range P_ ((Lisp_Object, Lisp_Object));
 extern void args_out_of_range_3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
-extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object));
+extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)) NO_RETURN;
 extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object));
 extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int));
@@ -2288,10 +2288,10 @@
 EXFUN (FletX, UNEVALLED);
 EXFUN (Fwhile, UNEVALLED);
 EXFUN (Fcatch, UNEVALLED);
-EXFUN (Fthrow, 2);
+EXFUN (Fthrow, 2) NO_RETURN;
 EXFUN (Funwind_protect, UNEVALLED);
 EXFUN (Fcondition_case, UNEVALLED);
-EXFUN (Fsignal, 2);
+EXFUN (Fsignal, 2) NO_RETURN;
 EXFUN (Fautoload, 5);
 EXFUN (Fcommandp, 1);
 EXFUN (Feval, 1);
@@ -2315,7 +2315,7 @@
 extern void specbind P_ ((Lisp_Object, Lisp_Object));
 extern void record_unwind_protect P_ ((Lisp_Object (*) (Lisp_Object), Lisp_Object));
 extern Lisp_Object unbind_to P_ ((int, Lisp_Object));
-extern void error P_ ((/* char *, ... */));
+extern void error P_ ((/* char *, ... */)) NO_RETURN;
 extern void do_autoload P_ ((Lisp_Object, Lisp_Object));
 extern Lisp_Object un_autoload P_ ((Lisp_Object));
 EXFUN (Ffetch_bytecode, 1);