From: Paul Eggert Date: Mon, 14 Mar 2011 15:25:21 +0000 (-0700) Subject: * keyboard.c (Fexit_recursive_edit, Fabort_recursive_edit): Mark with NO_RETURN. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~554^2~111 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ac946723de017fa8d2cf55510b3f0ff931f1237;p=emacs.git * keyboard.c (Fexit_recursive_edit, Fabort_recursive_edit): Mark with NO_RETURN. --- diff --git a/src/ChangeLog b/src/ChangeLog index c4b4b4b5494..1cdeefff899 100644 --- 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 5680f32502c..afa78184179 100644 --- 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)