martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* xselect.c (own_selection): selection_type is an X Atom value,

Browse Source 
not a Lisp_Object.
	(x_selection_arrival): Declare this static, and add a forward
	declaration at the top of the page.
This commit is contained in:
Jim Blandy
1992-10-31 05:42:28 +00:00
parent a6605e5cca
commit de02ad0bc7
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/xselect.c.old
View File

@@ -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;