Merged in changes from CVS trunk.

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-653
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-654
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-655
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-656
   Update from CVS: lisp/man.el (Man-xref-normal-file): Fix help-echo.

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-657
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-659
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-661
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-662
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-663
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-664
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-665
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-666
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-667
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-668
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-670
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-671
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-64
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-65
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-66
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-67
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-68
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-264

1 files changed, 25 insertions, 66 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 475479b66a3..35bfd1402c9 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3694,36 +3694,26 @@ kbd_buffer_store_event_hold (event, hold_quit)
      Discard the event if it would fill the last slot.  */
   if (kbd_fetch_ptr - 1 != kbd_store_ptr)
     {
+      *kbd_store_ptr = *event;
+      ++kbd_store_ptr;
+    }
+}
 
-#if 0 /* The SELECTION_REQUEST_EVENT case looks bogus, and it's error
-         prone to assign individual members for other events, in case
-         the input_event structure is changed.  --2000-07-13, gerd.  */
-      struct input_event *sp = kbd_store_ptr;
-      sp->kind = event->kind;
-      if (event->kind == SELECTION_REQUEST_EVENT)
-        {
-          /* We must not use the ordinary copying code for this case,
-             since `part' is an enum and copying it might not copy enough
-             in this case.  */
-          bcopy (event, (char *) sp, sizeof (*event));
-        }
-      else
 
-        {
-          sp->code = event->code;
-          sp->part = event->part;
-          sp->frame_or_window = event->frame_or_window;
-          sp->arg = event->arg;
-          sp->modifiers = event->modifiers;
-          sp->x = event->x;
-          sp->y = event->y;
-          sp->timestamp = event->timestamp;
-        }
-#else
-      *kbd_store_ptr = *event;
-#endif
+/* Put an input event back in the head of the event queue.  */
 
-      ++kbd_store_ptr;
+void
+kbd_buffer_unget_event (event)
+     register struct input_event *event;
+{
+  if (kbd_fetch_ptr == kbd_buffer)
+    kbd_fetch_ptr = kbd_buffer + KBD_BUFFER_SIZE;
+
+  /* Don't let the very last slot in the buffer become full,  */
+  if (kbd_fetch_ptr - 1 != kbd_store_ptr)
+    {
+      --kbd_fetch_ptr;
+      *kbd_fetch_ptr = *event;
     }
 }
 
@@ -3938,7 +3928,8 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
       /* These two kinds of events get special handling
          and don't actually appear to the command loop.
          We return nil for them.  */
-      if (event->kind == SELECTION_REQUEST_EVENT)
+      if (event->kind == SELECTION_REQUEST_EVENT
+          || event->kind == SELECTION_CLEAR_EVENT)
         {
 #ifdef HAVE_X11
           struct input_event copy;
@@ -3949,7 +3940,7 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
           copy = *event;
           kbd_fetch_ptr = event + 1;
           input_pending = readable_events (0);
-          x_handle_selection_request (&copy);
+          x_handle_selection_event (&copy);
 #else
           /* We're getting selection request events, but we don't have
              a window system.  */
@@ -3957,22 +3948,6 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
 #endif
         }
 
-      else if (event->kind == SELECTION_CLEAR_EVENT)
-        {
-#ifdef HAVE_X11
-          struct input_event copy;
-
-          /* Remove it from the buffer before processing it.  */
-          copy = *event;
-          kbd_fetch_ptr = event + 1;
-          input_pending = readable_events (0);
-          x_handle_selection_clear (&copy);
-#else
-          /* We're getting selection request events, but we don't have
-             a window system.  */
-          abort ();
-#endif
-        }
 #if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS)
       else if (event->kind == DELETE_WINDOW_EVENT)
         {
@@ -4201,7 +4176,8 @@ swallow_events (do_display)
 
       /* These two kinds of events get special handling
          and don't actually appear to the command loop.  */
-      if (event->kind == SELECTION_REQUEST_EVENT)
+      if (event->kind == SELECTION_REQUEST_EVENT
+          || event->kind == SELECTION_CLEAR_EVENT)
         {
 #ifdef HAVE_X11
           struct input_event copy;
@@ -4212,25 +4188,7 @@ swallow_events (do_display)
           copy = *event;
           kbd_fetch_ptr = event + 1;
           input_pending = readable_events (0);
-          x_handle_selection_request (&copy);
-#else
-          /* We're getting selection request events, but we don't have
-             a window system.  */
-          abort ();
-#endif
-        }
-
-      else if (event->kind == SELECTION_CLEAR_EVENT)
-        {
-#ifdef HAVE_X11
-          struct input_event copy;
-
-          /* Remove it from the buffer before processing it,  */
-          copy = *event;
-
-          kbd_fetch_ptr = event + 1;
-          input_pending = readable_events (0);
-          x_handle_selection_clear (&copy);
+          x_handle_selection_event (&copy);
 #else
           /* We're getting selection request events, but we don't have
              a window system.  */
@@ -11590,7 +11548,8 @@ mark_kboards ()
       {
         if (event == kbd_buffer + KBD_BUFFER_SIZE)
           event = kbd_buffer;
-        if (event->kind != SELECTION_REQUEST_EVENT)
+        if (event->kind != SELECTION_REQUEST_EVENT
+            && event->kind != SELECTION_CLEAR_EVENT)
           {
             mark_object (event->x);
             mark_object (event->y);