Revert "Add hook for all events"

This reverts commit 7b31de4d10.
This commit is contained in:
Phillip Lord 2019-03-02 16:52:53 +00:00
parent 5e4b853820
commit 7523a9e8b2
3 changed files with 1 additions and 13 deletions

View file

@ -1293,13 +1293,11 @@ removed.
* Lisp Changes in Emacs 27.1
+++
** 'self-insert-command' takes the char to insert as (optional) argument.
** 'lookup-key' can take a list of keymaps as argument.
** New hook `input-event-functions` run whenever a user-input is read.
+++
** 'condition-case' now accepts 't' to match any error symbol.

View file

@ -1289,12 +1289,6 @@ See `event-start' for a description of the value returned."
The return value is a positive integer."
(if (and (consp event) (integerp (nth 2 event))) (nth 2 event) 1))
(defvar input-event-functions nil
;; BEWARE: If it looks like this is not run anywhere, it's normal:
;; this is run in keyboard.c.
"Special hook run each time a user-input event is read.
Each function is called with one argument: the event.")
(defsubst event-line-count (event)
"Return the line count of EVENT, a mousewheel event.
The return value is a positive integer."

View file

@ -2928,8 +2928,6 @@ read_char (int commandflag, Lisp_Object map,
if (! NILP (also_record))
record_char (also_record);
CALLN (Frun_hook_with_args, Qinput_event_functions, c);
/* Wipe the echo area.
But first, if we are about to use an input method,
save the echo area contents for it to refer to. */
@ -11034,8 +11032,6 @@ syms_of_keyboard (void)
DEFSYM (Qundefined, "undefined");
DEFSYM (Qinput_event_functions, "input-event-functions");
/* Hooks to run before and after each command. */
DEFSYM (Qpre_command_hook, "pre-command-hook");
DEFSYM (Qpost_command_hook, "post-command-hook");