summaryrefslogtreecommitdiff
path: root/src/keyboard.c
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-08-05 15:49:28 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-08-05 15:49:28 +0200
commit0bbcd89cf52c23e872b5b94d3e2f8f4161e2bf6e (patch)
treefcabe899c69e557e95c625633e747334786a0b74 /src/keyboard.c
parent6c1d0d53b34d9350d55ebbd83ea56aa751a55f1b (diff)
downloademacs-0bbcd89cf52c23e872b5b94d3e2f8f4161e2bf6e.tar.gz
emacs-0bbcd89cf52c23e872b5b94d3e2f8f4161e2bf6e.tar.bz2
emacs-0bbcd89cf52c23e872b5b94d3e2f8f4161e2bf6e.zip
Revert "Make `view-lossage' output of chars read from `read-char' more logical"
This reverts commit 1abf76877847226daa5ab7e07000ac1d4aba3478. This change apparently led to problems with kmacro.
Diffstat (limited to 'src/keyboard.c')
-rw-r--r--src/keyboard.c13
1 files changed, 2 insertions, 11 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index 158daba260c..30686a25898 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -307,7 +307,6 @@ static Lisp_Object command_loop (void);
static void echo_now (void);
static ptrdiff_t echo_length (void);
-static void record_char (Lisp_Object c);
/* Incremented whenever a timer is run. */
unsigned timers_run;
@@ -1422,8 +1421,6 @@ command_loop_1 (void)
Fcons (Qnil, cmd));
if (++recent_keys_index >= NUM_RECENT_KEYS)
recent_keys_index = 0;
- /* Mark this as a complete command in recent_keys. */
- record_char (Qend_of_command);
}
Vthis_command = cmd;
Vreal_this_command = cmd;
@@ -1474,9 +1471,6 @@ command_loop_1 (void)
safe_run_hooks (Qpost_command_hook);
- /* Mark this as a complete command in recent_keys. */
- record_char (Qend_of_command);
-
/* If displaying a message, resize the echo area window to fit
that message's size exactly. Do this only if the echo area
window is the minibuffer window of the selected frame. See
@@ -2095,6 +2089,7 @@ show_help_echo (Lisp_Object help, Lisp_Object window, Lisp_Object object,
static Lisp_Object kbd_buffer_get_event (KBOARD **kbp, bool *used_mouse_menu,
struct timespec *end_time);
+static void record_char (Lisp_Object c);
static Lisp_Object help_form_saved_window_configs;
static void
@@ -10001,9 +9996,7 @@ represented as pseudo-events of the form (nil . COMMAND). */)
do
{
Lisp_Object e = AREF (recent_keys, i);
- if (cmds
- || ((!CONSP (e) || !NILP (XCAR (e)))
- && !EQ (e, Qend_of_command)))
+ if (cmds || !CONSP (e) || !NILP (XCAR (e)))
es = Fcons (e, es);
if (++i >= NUM_RECENT_KEYS)
i = 0;
@@ -11073,8 +11066,6 @@ syms_of_keyboard (void)
DEFSYM (Qundefined, "undefined");
- DEFSYM (Qend_of_command, "end-of-command");
-
/* Hooks to run before and after each command. */
DEFSYM (Qpre_command_hook, "pre-command-hook");
DEFSYM (Qpost_command_hook, "post-command-hook");