aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
authorRichard M. Stallman1997-05-15 02:28:34 +0000
committerRichard M. Stallman1997-05-15 02:28:34 +0000
commit55c4d99f912fc990cfb3bbff985aaa388f8fcd05 (patch)
tree8ff0b374223d2344462b0153cdcc537823adacef /src/callint.c
parent1d8d92f4fe0fc2d1d0d0d4d56e7bcbf1ca031a99 (diff)
downloademacs-55c4d99f912fc990cfb3bbff985aaa388f8fcd05.tar.gz
emacs-55c4d99f912fc990cfb3bbff985aaa388f8fcd05.zip
(Fcall_interactively): Pass extra arg to Fread_string.
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c5
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);