diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-10 21:44:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-10 21:44:59 +0000 |
| commit | ff9cd111c68f9d939f2bbe4af77a6b0a3376ead1 (patch) | |
| tree | b575b80fb2833973992d6486f91302fed5c2efe9 /src | |
| parent | 435bc8400e6cde55bb92302aff9f82d75a3da103 (diff) | |
| download | emacs-ff9cd111c68f9d939f2bbe4af77a6b0a3376ead1.tar.gz emacs-ff9cd111c68f9d939f2bbe4af77a6b0a3376ead1.tar.bz2 emacs-ff9cd111c68f9d939f2bbe4af77a6b0a3376ead1.zip | |
(Fcall_interactively): Pass new arg to
Fread_from_minibuffer and Fread_variable.
(Fcall_interactively): Pass new arg to Fcompleting_read.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 10 |
1 files 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; |