Revert "Don't output spurious prefixes in read-char-exclusive"

This reverts commit 701ec0bda2b15fc97af6ca68fb842fb1ec9aac35.

This change broke display of `C-q-' when doing the `C-q' command,
so it has to be fixed a different way.

diff --git a/src/keyboard.c b/src/keyboard.c
index 9242e8dc624aca620a6d9a600a0c805e414be76c..441c23e10c79c0bf7ef6551fb09fb3b37129b8a5 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3059,13 +3059,12 @@ read_char (int commandflag, Lisp_Object map,
 
   /* Now wipe the echo area, except for help events which do their
      own stuff with the echo area.  */
-  if (!NILP (Vecho_keystrokes)
-      && (!CONSP (c)
-         || (!(EQ (Qhelp_echo, XCAR (c)))
-             && !(EQ (Qswitch_frame, XCAR (c)))
-             /* Don't wipe echo area for select window events: These might
-                get delayed via `mouse-autoselect-window' (Bug#11304).  */
-             && !(EQ (Qselect_window, XCAR (c))))))
+  if (!CONSP (c)
+      || (!(EQ (Qhelp_echo, XCAR (c)))
+         && !(EQ (Qswitch_frame, XCAR (c)))
+         /* Don't wipe echo area for select window events: These might
+            get delayed via `mouse-autoselect-window' (Bug#11304).  */
+         && !(EQ (Qselect_window, XCAR (c)))))
     {
       if (!NILP (echo_area_buffer[0]))
        {

diff --git a/src/lread.c b/src/lread.c
index ec54d2d81add3150a8d7b4d6a6f90eb94e4473ff..9910db27de7c9c25df821962bef45ce3dc23eb55 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -705,13 +705,8 @@ read_filtered_event (bool no_switch_frame, bool ascii_required,
   /* Read until we get an acceptable event.  */
  retry:
   do
-    {
-      ptrdiff_t count = SPECPDL_INDEX ();
-      specbind (Qecho_keystrokes, Qnil);
-      val = read_char (0, Qnil, (input_method ? Qnil : Qt), 0,
-                      NUMBERP (seconds) ? &end_time : NULL);
-      unbind_to (count, Qnil);
-    }
+    val = read_char (0, Qnil, (input_method ? Qnil : Qt), 0,
+                    NUMBERP (seconds) ? &end_time : NULL);
   while (FIXNUMP (val) && XFIXNUM (val) == -2); /* wrong_kboard_jmpbuf */
 
   if (BUFFERP (val))