diff options
| author | Richard M. Stallman | 1997-05-15 02:28:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-15 02:28:34 +0000 |
| commit | 55c4d99f912fc990cfb3bbff985aaa388f8fcd05 (patch) | |
| tree | 8ff0b374223d2344462b0153cdcc537823adacef /src | |
| parent | 1d8d92f4fe0fc2d1d0d0d4d56e7bcbf1ca031a99 (diff) | |
| download | emacs-55c4d99f912fc990cfb3bbff985aaa388f8fcd05.tar.gz emacs-55c4d99f912fc990cfb3bbff985aaa388f8fcd05.zip | |
(Fcall_interactively): Pass extra arg to Fread_string.
Diffstat (limited to 'src')
| -rw-r--r-- | src/callint.c | 5 |
1 files changed, 3 insertions, 2 deletions
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.") | |||
| 634 | break; | 634 | break; |
| 635 | 635 | ||
| 636 | case 's': /* String read via minibuffer. */ | 636 | case 's': /* String read via minibuffer. */ |
| 637 | args[i] = Fread_string (build_string (callint_message), Qnil, Qnil); | 637 | args[i] = Fread_string (build_string (callint_message), |
| 638 | Qnil, Qnil, Qnil); | ||
| 638 | break; | 639 | break; |
| 639 | 640 | ||
| 640 | case 'S': /* Any symbol. */ | 641 | case 'S': /* Any symbol. */ |
| 641 | visargs[i] = Fread_string (build_string (callint_message), | 642 | visargs[i] = Fread_string (build_string (callint_message), |
| 642 | Qnil, Qnil); | 643 | Qnil, Qnil, Qnil); |
| 643 | /* Passing args[i] directly stimulates compiler bug */ | 644 | /* Passing args[i] directly stimulates compiler bug */ |
| 644 | teml = visargs[i]; | 645 | teml = visargs[i]; |
| 645 | args[i] = Fintern (teml, Qnil); | 646 | args[i] = Fintern (teml, Qnil); |