From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 May 1997 02:28:34 +0000 (+0000)
Subject: (Fcall_interactively): Pass extra arg to Fread_string.
X-Git-Tag: emacs-20.1~2139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55c4d99f912fc990cfb3bbff985aaa388f8fcd05;p=emacs.git

(Fcall_interactively): Pass extra arg to Fread_string.
---

diff --git a/src/callint.c b/src/callint.c
index 150e70e6526..819a39ad38e 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -634,12 +634,13 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 	  break;
 
 	case 's':		/* String read via minibuffer.  */
-	  args[i] = Fread_string (build_string (callint_message), Qnil, Qnil);
+	  args[i] = Fread_string (build_string (callint_message),
+				  Qnil, Qnil, Qnil);
 	  break;
 
 	case 'S':		/* Any symbol.  */
 	  visargs[i] = Fread_string (build_string (callint_message),
-				     Qnil, Qnil);
+				     Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);