(kbd_buffer_get_event): Make buffer_switch_event lispy.

(record_asynch_buffer_change): New function.  Enqueue the event.

diff --git a/src/keyboard.c b/src/keyboard.c
index f09b7fadbc203338b33f385f9b64dc500ccab9b2..dcda52ba4410ba99e7a3e6c0d9564efce370a7cf 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2008,6 +2008,12 @@ kbd_buffer_get_event ()
          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 @@ gobble_input (expected)
     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);
+}
 \f
 #ifndef VMS