From 3ac946723de017fa8d2cf55510b3f0ff931f1237 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 14 Mar 2011 08:25:21 -0700 Subject: [PATCH] * keyboard.c (Fexit_recursive_edit, Fabort_recursive_edit): Mark with NO_RETURN. --- src/ChangeLog | 1 + src/keyboard.c | 2 ++ 2 files changed, 3 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index c4b4b4b549..1cdeefff89 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 5680f32502..afa7818417 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) -- 2.20.1