Mercurial > emacs
changeset 1529:d73ee126c15d
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 31 Oct 1992 05:42:28 +0000 |
| parents | 924c8a609582 |
| children | a7f8a1fe258e |
| files | src/=xselect.c.old |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/=xselect.c.old Sat Oct 31 05:41:49 1992 +0000 +++ b/src/=xselect.c.old Sat Oct 31 05:42:28 1992 +0000 @@ -165,9 +165,12 @@ { 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 @@ /* 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 @@ error ("Invalid X selection type"); } -Lisp_Object +static Lisp_Object x_selection_arrival (event, requestor_window, requestor_time) register XSelectionEvent *event; Window requestor_window;