mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 20:30:32 -08:00
Code Issues Projects Releases Wiki Activity

(Fcall_interactively): Pass new arg to

Browse source 
Fread_from_minibuffer and Fread_variable.

(Fcall_interactively): Pass new arg to Fcompleting_read.
This commit is contained in:
Richard M. Stallman 1997-05-10 21:44:59 +00:00
parent 435bc8400e
commit ff9cd111c6
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/callint.c
View file

@ -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;