Mercurial > emacs
comparison src/keyboard.c @ 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 | eed1282ed6b0 |
children | 8310b2eb6b06 |
comparison
equal
deleted
inserted
replaced
6748:b1cde622fa65 | 6749:c409eb264509 |
---|---|
2006 | 2006 |
2007 Fdelete_frame (event->frame_or_window, Qt); | 2007 Fdelete_frame (event->frame_or_window, Qt); |
2008 kbd_fetch_ptr = event + 1; | 2008 kbd_fetch_ptr = event + 1; |
2009 } | 2009 } |
2010 #endif | 2010 #endif |
2011 else if (event->kind == buffer_switch_event) | |
2012 { | |
2013 /* The value doesn't matter here; only the type is tested. */ | |
2014 XSET (obj, Lisp_Buffer, current_buffer); | |
2015 kbd_fetch_ptr = event + 1; | |
2016 } | |
2011 /* Just discard these, by returning nil. | 2017 /* Just discard these, by returning nil. |
2012 (They shouldn't be found in the buffer, | 2018 (They shouldn't be found in the buffer, |
2013 but on some machines it appears they do show up.) */ | 2019 but on some machines it appears they do show up.) */ |
2014 else if (event->kind == no_event) | 2020 else if (event->kind == no_event) |
2015 kbd_fetch_ptr = event + 1; | 2021 kbd_fetch_ptr = event + 1; |
3248 else | 3254 else |
3249 #endif | 3255 #endif |
3250 read_avail_input (expected); | 3256 read_avail_input (expected); |
3251 #endif | 3257 #endif |
3252 } | 3258 } |
3259 | |
3260 record_asynch_buffer_change () | |
3261 { | |
3262 struct input_event event; | |
3263 event.kind = buffer_switch_event; | |
3264 event.frame_or_window = Qnil; | |
3265 kbd_buffer_store_event (&event); | |
3266 } | |
3253 | 3267 |
3254 #ifndef VMS | 3268 #ifndef VMS |
3255 | 3269 |
3256 /* Read any terminal input already buffered up by the system | 3270 /* Read any terminal input already buffered up by the system |
3257 into the kbd_buffer, but do not wait. | 3271 into the kbd_buffer, but do not wait. |