Mark functions as NO_RETURN.

* src/lisp.h (Ftop_level, Fexit_recursive_edit)
(Fabort_recursive_edit): Mark as NO_RETURN.

diff --git a/src/ChangeLog b/src/ChangeLog
index 3e750aed54b620c43d7eb5a53f0cda42d04fc227..8d01797b63c18c6d5d7d311eec3ded8689833983 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-26  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * lisp.h (Ftop_level, Fexit_recursive_edit)
+       (Fabort_recursive_edit): Mark as NO_RETURN.
+
 2010-07-26  Kenichi Handa  <handa@m17n.org>
 
        * font.c (Ffont_shape_gstring): Terminate GSTRING by nil if the

diff --git a/src/lisp.h b/src/lisp.h
index 6b5de400c063b0d5f75fa19eedd4f6a9d886b638..85f271fa19385e50a88fede0f1b73b5c876cf617 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3155,7 +3155,9 @@ extern Lisp_Object Vthrow_on_input;
 extern int input_pending;
 EXFUN (Fdiscard_input, 0);
 EXFUN (Frecursive_edit, 0);
-EXFUN (Ftop_level, 0);
+EXFUN (Ftop_level, 0) NO_RETURN;
+EXFUN (Fexit_recursive_edit, 0) NO_RETURN;
+EXFUN (Fabort_recursive_edit, 0) NO_RETURN;
 EXFUN (Fcommand_execute, 4);
 EXFUN (Finput_pending_p, 0);
 extern Lisp_Object menu_bar_items (Lisp_Object);