From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 26 Jul 2010 17:11:43 +0000 (-0700)
Subject: NO_RETURN functions should not return.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~49^2~130
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=977105dcbf011d1ee119aae22a9b0ae85646a686;p=emacs.git

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 6d812d2de93..9428bd4c0bc 100644
--- 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 1cc24f95bdc..7d6ada2c28d 100644
--- 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;
 }
 
 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)