From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Aug 1996 00:51:51 +0000 (+0000)
Subject: (Fcall_interactively): For `N' and `n',
X-Git-Tag: emacs-20.1~3983
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0490a0bf2ee3707994b6f62b6f9ad501b57099c;p=emacs.git

(Fcall_interactively): For `N' and `n',
if we don't get a number, try again.
---

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;