From ff9cd111c68f9d939f2bbe4af77a6b0a3376ead1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 10 May 1997 21:44:59 +0000 Subject: [PATCH] (Fcall_interactively): Pass new arg to Fread_from_minibuffer and Fread_variable. (Fcall_interactively): Pass new arg to Fcompleting_read. --- src/callint.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/callint.c b/src/callint.c index 2e803205a5d..150e70e6526 100644 --- a/src/callint.c +++ b/src/callint.c @@ -465,7 +465,8 @@ Otherwise, this is done only if an arg is read using the minibuffer.") { 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 @@ Otherwise, this is done only if an arg is read using the minibuffer.") 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 @@ Otherwise, this is done only if an arg is read using the minibuffer.") 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 @@ Otherwise, this is done only if an arg is read using the minibuffer.") 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; -- 2.39.5