From ccaf03362bc881c0f9d92d2bc28a5df1897886dc Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 25 Jul 2010 23:37:26 -0700 Subject: [PATCH] Mark functions as NO_RETURN. * src/lisp.h (Ftop_level, Fexit_recursive_edit) (Fabort_recursive_edit): Mark as NO_RETURN. --- src/ChangeLog | 5 +++++ src/lisp.h | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3e750aed54b..8d01797b63c 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-07-26 Dan Nicolaescu + + * lisp.h (Ftop_level, Fexit_recursive_edit) + (Fabort_recursive_edit): Mark as NO_RETURN. + 2010-07-26 Kenichi Handa * font.c (Ffont_shape_gstring): Terminate GSTRING by nil if the diff --git a/src/lisp.h b/src/lisp.h index 6b5de400c06..85f271fa193 100644 --- 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); -- 2.39.2