parent
5e4b853820
commit
7523a9e8b2
3 changed files with 1 additions and 13 deletions
4
etc/NEWS
4
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.
|
||||
|
||||
|
|
|
@ -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");
|
||||
|
|
Loading…
Add table
Reference in a new issue