Mercurial > emacs
changeset 6749:c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
(record_asynch_buffer_change): New function. Enqueue the event.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 08 Apr 1994 05:59:03 +0000 |
| parents | b1cde622fa65 |
| children | a864110c6fc7 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Fri Apr 08 05:58:12 1994 +0000 +++ b/src/keyboard.c Fri Apr 08 05:59:03 1994 +0000 @@ -2008,6 +2008,12 @@ kbd_fetch_ptr = event + 1; } #endif + else if (event->kind == buffer_switch_event) + { + /* The value doesn't matter here; only the type is tested. */ + XSET (obj, Lisp_Buffer, current_buffer); + kbd_fetch_ptr = event + 1; + } /* Just discard these, by returning nil. (They shouldn't be found in the buffer, but on some machines it appears they do show up.) */ @@ -3250,6 +3256,14 @@ read_avail_input (expected); #endif } + +record_asynch_buffer_change () +{ + struct input_event event; + event.kind = buffer_switch_event; + event.frame_or_window = Qnil; + kbd_buffer_store_event (&event); +} #ifndef VMS