diff options
| -rw-r--r-- | etc/NEWS | 4 | ||||
| -rw-r--r-- | lisp/subr.el | 6 | ||||
| -rw-r--r-- | src/keyboard.c | 4 |
3 files changed, 1 insertions, 13 deletions
@@ -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 5c8b84b8e9c..5b0330745fa 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 c2d8b860e4e..6e805ec7e69 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"); |