# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863300699 0
# Node ID 8b30ef18c48011e1f35a25fde84bcf40e2e42711
# Parent  f379e219ed8eb61b4c1961745c126045749921b2
(Fcall_interactively): Pass new arg to
Fread_from_minibuffer and Fread_variable.

(Fcall_interactively): Pass new arg to Fcompleting_read.

diff -r f379e219ed8e -r 8b30ef18c480 src/callint.c
--- a/src/callint.c	Sat May 10 21:44:11 1997 +0000
+++ b/src/callint.c	Sat May 10 21:44:59 1997 +0000
@@ -465,7 +465,8 @@
 	{
 	case 'a':		/* Symbol defined as a function */
 	  visargs[i] = Fcompleting_read (build_string (callint_message),
-					 Vobarray, Qfboundp, Qt, Qnil, Qnil);
+					 Vobarray, Qfboundp, Qt,
+					 Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
@@ -498,7 +499,8 @@
 
 	case 'C':		/* Command: symbol with interactive function */
 	  visargs[i] = Fcompleting_read (build_string (callint_message),
-					 Vobarray, Qcommandp, Qt, Qnil, Qnil);
+					 Vobarray, Qcommandp,
+					 Qt, Qnil, Qnil, Qnil);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = visargs[i];
 	  args[i] = Fintern (teml, Qnil);
@@ -595,7 +597,7 @@
 		first = 0;
 
 		tem = Fread_from_minibuffer (build_string (callint_message),
-					     Qnil, Qnil, Qnil, Qnil);
+					     Qnil, Qnil, Qnil, Qnil, Qnil);
 		if (! STRINGP (tem) || XSTRING (tem)->size == 0)
 		  args[i] = Qnil;
 		else
@@ -645,7 +647,7 @@
 
 	case 'v':		/* Variable name: symbol that is
 				   user-variable-p. */
-	  args[i] = Fread_variable (build_string (callint_message));
+	  args[i] = Fread_variable (build_string (callint_message), Qnil);
 	  visargs[i] = last_minibuf_string;
 	  break;