Mark functions as NO_RETURN.

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

Mark functions as NO_RETURN.
* src/lisp.h (Ftop_level, Fexit_recursive_edit) (Fabort_recursive_edit): Mark as NO_RETURN.
ccaf0336 · Dan Nicolaescu · ef00b293 · ccaf0336 · ccaf0336
Commit ccaf0336 authored Jul 25, 2010 by Dan Nicolaescu
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

src/ChangeLog src/ChangeLog +5 -0

src/lisp.h src/lisp.h +3 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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

--- 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);