diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-08-18 11:06:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-08-18 11:06:30 +0000 |
commit | 7a983715c8799d68773caa7b760b89a6d584a28f (patch) | |
tree | 7de5bac256b3837f76eef65a753a1876500a2268 | |
parent | c2b705904d5cdf7640021fd98d4184d24d200787 (diff) | |
download | emacs-7a983715c8799d68773caa7b760b89a6d584a28f.tar.gz |
(Fcall_interactively): Pass new args to Fread_event
and Fread_char. Let Fread_char do the prompting.
-rw-r--r-- | src/callint.c | 10 |
1 files 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; |