From 7a983715c8799d68773caa7b760b89a6d584a28f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Aug 1998 11:06:30 +0000 Subject: [PATCH] (Fcall_interactively): Pass new args to Fread_event and Fread_char. Let Fread_char do the prompting. --- src/callint.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/callint.c b/src/callint.c index c3591c8acb6..59b207c3a1d 100644 --- a/src/callint.c +++ b/src/callint.c @@ -498,11 +498,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") break; case 'c': /* Character */ - /* Use message_with_string rather than message1_nolog here, - so that nothing bad happens if callint_message is changed - within Fread_char (by a timer, for example). */ - message_with_string ("%s", build_string (callint_message), 0); - args[i] = Fread_char (); + args[i] = Fread_char (build_string (callint_message), Qnil); message1_nolog ((char *) 0); /* Passing args[i] directly stimulates compiler bug */ teml = args[i]; @@ -566,7 +562,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") teml = Fget (teml, intern ("event-symbol-elements")); tem2 = Fmemq (intern ("down"), teml); if (! NILP (tem2)) - Fread_event (); + Fread_event (Qnil, Qnil); } } break; @@ -593,7 +589,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.") teml = Fget (teml, intern ("event-symbol-elements")); tem2 = Fmemq (intern ("down"), teml); if (! NILP (tem2)) - Fread_event (); + Fread_event (Qnil, Qnil); } } break; -- 2.39.5