# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 817691512 0
# Node ID dfbef4de96f01dd96d40925d7b1e061531f2386d
# Parent  197f7ae5493dc9ccacaac545fabd702d60b1b493
(Fcall_interactively): In `c' case, clear out the message
after reading the character.

diff -r 197f7ae5493d -r dfbef4de96f0 src/callint.c
--- a/src/callint.c	Thu Nov 30 00:30:38 1995 +0000
+++ b/src/callint.c	Thu Nov 30 00:31:52 1995 +0000
@@ -481,6 +481,7 @@
         case 'c':		/* Character */
 	  message1 (callint_message);
 	  args[i] = Fread_char ();
+	  message1 ((char *) 0);
 	  /* Passing args[i] directly stimulates compiler bug */
 	  teml = args[i];
 	  visargs[i] = Fchar_to_string (teml);