From de02ad0bc7f6b4f198ce9eea520c1eb5e4ab8286 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sat, 31 Oct 1992 05:42:28 +0000
Subject: [PATCH] * xselect.c (own_selection): selection_type is an X Atom
 value, 	not a Lisp_Object. 	(x_selection_arrival): Declare this
 static, and add a forward 	declaration at the top of the page.

---
 src/xselect.c.old | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/xselect.c.old b/src/xselect.c.old
index 6adedd96cf3..3ed83c9c05a 100644
--- a/src/xselect.c.old
+++ b/src/xselect.c.old
@@ -165,9 +165,12 @@ own_selection (selection_type, time)
 {
   Window owner_window, selecting_window;
 
-  if ((EQ (selection_type, Qprimary) && !NILP (Vx_selection_value))
-      || ((EQ (selection_type, Qsecondary)) && !NILP (Vx_secondary_selection_value))
-      || ((EQ (selection_type, Qclipboard)) && !NILP (Vx_clipboard_value)))
+  if ((selection_type == XA_PRIMARY
+       && !NILP (Vx_selection_value))
+      || (selection_type == XA_SECONDARY
+          && !NILP (Vx_secondary_selection_value))
+      || (selection_type == Xatom_clipboard
+          && !NILP (Vx_clipboard_value)))
     return 1;
 
   selecting_window = FRAME_X_WINDOW (selected_frame);
@@ -570,6 +573,8 @@ x_send_incremental (event)
 
 /* Requesting the value of a selection.  */
 
+static Lisp_Object x_selection_arrival ();
+
 /* Predicate function used to match a requested event. */
 
 Bool
@@ -668,7 +673,7 @@ selection, but optional argument TYPE may specify secondary or clipboard.")
     error ("Invalid X selection type");
 }
 
-Lisp_Object
+static Lisp_Object
 x_selection_arrival (event, requestor_window, requestor_time)
      register XSelectionEvent *event;
      Window requestor_window;