Commit 7523a9e8 authored by Phillip Lord's avatar Phillip Lord

Revert "Add hook for all events"

This reverts commit 7b31de4d.
parent 5e4b8538
Pipeline #899 failed with stage
in 48 minutes and 35 seconds
......@@ -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.
......
......@@ -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."
......
......@@ -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");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment