diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-05 15:49:28 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-05 15:49:28 +0200 |
commit | 0bbcd89cf52c23e872b5b94d3e2f8f4161e2bf6e (patch) | |
tree | fcabe899c69e557e95c625633e747334786a0b74 /src/keyboard.c | |
parent | 6c1d0d53b34d9350d55ebbd83ea56aa751a55f1b (diff) | |
download | emacs-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.c | 13 |
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"); |