From f0490a0bf2ee3707994b6f62b6f9ad501b57099c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 1996 00:51:51 +0000 Subject: [PATCH] (Fcall_interactively): For `N' and `n', if we don't get a number, try again. --- src/callint.c | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/src/callint.c b/src/callint.c index 9e9a1f1d0dc..14f34f3b5f6 100644 --- a/src/callint.c +++ b/src/callint.c @@ -563,9 +563,27 @@ Otherwise, this is done only if an arg is read using the minibuffer.") if (!NILP (prefix_arg)) goto have_prefix_arg; case 'n': /* Read number from minibuffer. */ - do - args[i] = Fread_minibuffer (build_string (callint_message), Qnil); - while (! NUMBERP (args[i])); + { + int first = 1; + do + { + Lisp_Object tem; + if (! first) + { + message ("Please enter a number."); + sit_for (1, 0, 0, 0); + } + first = 0; + + tem = Fread_from_minibuffer (build_string (callint_message), + Qnil, Qnil, Qnil, Qnil); + if (! STRINGP (tem) || XSTRING (tem)->size == 0) + args[i] = Qnil; + else + args[i] = Fread (tem); + } + while (! NUMBERP (args[i])); + } visargs[i] = last_minibuf_string; break; -- 2.39.2