NO_RETURN functions should not return.

* keyboard.c (Ftop_level, Fexit_recursive_edit)
(Fabort_recursive_edit): Remove return statements in NO_RETURN
functions.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6d812d2..9428bd4 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2010-07-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * keyboard.c (Ftop_level, Fexit_recursive_edit)
+       (Fabort_recursive_edit): Remove return statements in NO_RETURN
+       functions.
+
        * frame.h (Qtty_color_mode): Add declaration.
 
        * lisp.h (Ftop_level, Fexit_recursive_edit)

diff --git a/src/keyboard.c b/src/keyboard.c
index 1cc24f9..7d6ada2 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1380,7 +1380,7 @@ This also exits all active minibuffers.  */)
   while (INPUT_BLOCKED_P)
     UNBLOCK_INPUT;
 
-  return Fthrow (Qtop_level, Qnil);
+  Fthrow (Qtop_level, Qnil);
 }
 
 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
@@ -1391,7 +1391,6 @@ DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0,
     Fthrow (Qexit, Qnil);
 
   error ("No recursive edit is in progress");
-  return Qnil;
 }
 
 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
@@ -1402,7 +1401,6 @@ DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0,
     Fthrow (Qexit, Qt);
 
   error ("No recursive edit is in progress");
-  return Qnil;
 }
 \f
 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)