[Emacs-diffs] master 7523a9e 3/3: Revert "Add hook for all events"

[Phillip Lord]

branch: master
commit 7523a9e8b26f763eecd50981a3f2d6e705284324
Author: Phillip Lord <address@hidden>
Commit: Phillip Lord <address@hidden>

    Revert "Add hook for all events"
    
    This reverts commit 7b31de4d107302ed91ce7519cd778b340a9880ee.
---
 etc/NEWS       | 4 +---
 lisp/subr.el   | 6 ------
 src/keyboard.c | 4 ----
 3 files changed, 1 insertion(+), 13 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 5b4d948..b265185 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -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.
 
diff --git a/lisp/subr.el b/lisp/subr.el
index 5c8b84b..5b03307 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -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."
diff --git a/src/keyboard.c b/src/keyboard.c
index c2d8b86..6e805ec 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -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");