Mercurial > hg > xemacs-beta
comparison src/event-stream.c @ 5801:0e9f791cc655
Support `function-key-map' in #'read-char{,-exclusive}, sync API with GNU
lisp/ChangeLog addition:
2014-07-02 Aidan Kehoe <kehoea@parhasard.net>
* cmdloop.el:
* cmdloop.el (read-char-1): New.
* cmdloop.el (read-char, read-char-exclusive):
Use #'read-char-1 in these function; sync their API with that of
GNU, respect `function-key-map' where we didn't before, add
initial support for Quail input methods.
* keymap.el (next-key-event):
Accept EVENT and PROMPT arguments, as does #'next-command-event.
* keymap.el (event-apply-modifiers):
Use #'functionp here, no need to exclude lambdas from
`function-key-map'.
* keymap.el (synthesize-keysym):
Correct this function's docstring.
src/ChangeLog addition:
2014-07-02 Aidan Kehoe <kehoea@parhasard.net>
* event-stream.c (Fnext_command_event):
Only snooze displaying keystrokes if PROMPT is nil. If prompt is
non-nil, our callers want to see it.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 02 Jul 2014 16:32:19 +0100 |
| parents | 3192994c49ca |
| children | b79e1e02bf01 |
comparison
equal
deleted
inserted
replaced
| 5800:be3ca9e58c92 | 5801:0e9f791cc655 |
|---|---|
| 2434 struct gcpro gcpro1; | 2434 struct gcpro gcpro1; |
| 2435 GCPRO1 (event); | 2435 GCPRO1 (event); |
| 2436 | 2436 |
| 2437 maybe_echo_keys (XCOMMAND_BUILDER | 2437 maybe_echo_keys (XCOMMAND_BUILDER |
| 2438 (XCONSOLE (Vselected_console)-> | 2438 (XCONSOLE (Vselected_console)-> |
| 2439 command_builder), 0); /* #### This sucks bigtime */ | 2439 command_builder), |
| 2440 /* Only snooze displaying keystrokes if we don't have a | |
| 2441 prompt. (If we have a prompt, our callers want us to | |
| 2442 show it!) */ | |
| 2443 !NILP (prompt)); | |
| 2440 | 2444 |
| 2441 for (;;) | 2445 for (;;) |
| 2442 { | 2446 { |
| 2443 event = Fnext_event (event, prompt); | 2447 event = Fnext_event (event, prompt); |
| 2444 if (command_event_p (event)) | 2448 if (command_event_p (event)) |