[Emacs-diffs] Changes to emacs/src/keyboard.c

[Richard M. Stallman]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.679 emacs/src/keyboard.c:1.680
*** emacs/src/keyboard.c:1.679  Mon May 20 10:49:57 2002
--- emacs/src/keyboard.c        Tue Jun 11 15:29:40 2002
***************
*** 3259,3266 ****
    if (do_timers_now)
      timer_check (do_timers_now);
  
    if (kbd_fetch_ptr != kbd_store_ptr)
!     return 1;
  #ifdef HAVE_MOUSE
    if (!NILP (do_mouse_tracking) && some_mouse_moved ())
      return 1;
--- 3259,3285 ----
    if (do_timers_now)
      timer_check (do_timers_now);
  
+   /* If the buffer contains only FOCUS_IN_EVENT events,
+      report it as empty.  */
    if (kbd_fetch_ptr != kbd_store_ptr)
!     {
!       struct input_event *event;
! 
!       event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
!              ? kbd_fetch_ptr
!              : kbd_buffer);
! 
!       while (event->kind == FOCUS_IN_EVENT)
!       {
!         event++;
!         if (event == kbd_buffer + KBD_BUFFER_SIZE)
!           event = kbd_buffer;
!         if (event == kbd_store_ptr)
!           return 0;
!       }
!       return 1;
!     }
! 
  #ifdef HAVE_MOUSE
    if (!NILP (do_mouse_tracking) && some_mouse_moved ())
      return 1;