[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master decd6f830c: Revert "Don't output spurious prefixes in read-char-e
From: |
Lars Ingebrigtsen |
Subject: |
master decd6f830c: Revert "Don't output spurious prefixes in read-char-exclusive" |
Date: |
Thu, 27 Jan 2022 10:20:44 -0500 (EST) |
branch: master
commit decd6f830c9b65da654f93d9c99c6a5b99c05977
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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.
---
src/keyboard.c | 13 ++++++-------
src/lread.c | 9 ++-------
2 files changed, 8 insertions(+), 14 deletions(-)
diff --git a/src/keyboard.c b/src/keyboard.c
index 9242e8dc62..441c23e10c 100644
--- 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 ec54d2d81a..9910db27de 100644
--- 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master decd6f830c: Revert "Don't output spurious prefixes in read-char-exclusive",
Lars Ingebrigtsen <=