* keyboard.c (Fexit_recursive_edit, Fabort_recursive_edit): Mark with NO_RETURN.

diff --git a/src/ChangeLog b/src/ChangeLog
index c4b4b4b5494d376de449396a8ac4ea1e182f56fa..1cdeefff8999ccda80ff808e65c5990d82988f41 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -9,6 +9,7 @@
        (parse_tool_bar_item, read_key_sequence, Fread_key_sequence):
        (Fread_key_sequence_vector): Rename locals to avoid shadowing.
        (read_key_sequence): Mark locals as initialized.
+       (Fexit_recursive_edit, Fabort_recursive_edit): Mark with NO_RETURN.
 
        * keyboard.h (make_ctrl_char): New decl.
        (mark_kboards): Move decl here ...

diff --git a/src/keyboard.c b/src/keyboard.c
index 5680f32502cda0fd1e5a7561d8db582db3b14708..afa781841796fd2b450bb4c2c3cd4f63d779aeee 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1169,6 +1169,7 @@ This also exits all active minibuffers.  */)
   Fthrow (Qtop_level, Qnil);
 }
 
+Lisp_Object Fexit_recursive_edit (void) NO_RETURN;
 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
        doc: /* Exit from the innermost recursive edit or minibuffer.  */)
   (void)
@@ -1179,6 +1180,7 @@ DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0,
   error ("No recursive edit is in progress");
 }
 
+Lisp_Object Fabort_recursive_edit (void) NO_RETURN;
 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
        doc: /* Abort the command that requested this recursive edit or minibuffer input.  */)
   (void)