xemacs-beta: src/xselect.c comparison

comparison src/xselect.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	131b0175ea99

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 }
 static Lisp_Object Qx_selection_reply_timeout_internal;
 DEFUN ("x-selection-reply-timeout-internal",
-Fx_selection_reply_timeout_internal,
+Fx_selection_reply_timeout_internal, 1, 1, 0, /*
-Sx_selection_reply_timeout_internal, 1, 1, 0 /*
+*/
-*/ )
+(arg))
-(arg)
-Lisp_Object arg;
 {
 selection_reply_timed_out = 1;
 reading_selection_reply = 0;
 return Qnil;
 }
 reading_selection_reply = 0; /* we're done now. */
 }
-DEFUN ("x-own-selection-internal",
+DEFUN ("x-own-selection-internal", Fx_own_selection_internal, 2, 2, 0, /*
-Fx_own_selection_internal, Sx_own_selection_internal,
-2, 2, 0 /*
 Assert an X selection of the given TYPE with the given VALUE.
 TYPE is a symbol, typically PRIMARY, SECONDARY, or CLIPBOARD.
 VALUE is typically a string, or a cons of two markers, but may be
 anything that the functions on selection-converter-alist know about.
-*/ )
+*/
-(selection_name, selection_value)
+(selection_name, selection_value))
-Lisp_Object selection_name, selection_value;
 {
 CHECK_SYMBOL (selection_name);
 if (NILP (selection_value)) error ("selection-value may not be nil.");
 x_own_selection (selection_name, selection_value);
 return selection_value;
 /* Request the selection value from the owner.  If we are the owner,
 simply return our selection value.  If we are not the owner, this
 will block until all of the data has arrived.
 */
-DEFUN ("x-get-selection-internal",
+DEFUN ("x-get-selection-internal", Fx_get_selection_internal, 2, 2, 0, /*
-Fx_get_selection_internal, Sx_get_selection_internal, 2, 2, 0 /*
 Return text selected from some X window.
 SELECTION is a symbol, typically PRIMARY, SECONDARY, or CLIPBOARD.
 TYPE is the type of data desired, typically STRING.
-*/ )
+*/
-(selection_symbol, target_type)
+(selection_symbol, target_type))
-Lisp_Object selection_symbol, target_type;
 {
 /* This function can GC */
 Lisp_Object val = Qnil;
 struct gcpro gcpro1, gcpro2;
 GCPRO2 (target_type, val); /* we store newly consed data into these */
 DONE_LABEL:
 UNGCPRO;
 return val;
 }
-DEFUN ("x-disown-selection-internal",
+DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal, 1, 2, 0, /*
-Fx_disown_selection_internal, Sx_disown_selection_internal, 1, 2, 0 /*
 If we own the named selection, then disown it (make there be no selection).
-*/ )
+*/
-(selection, timeval)
+(selection, timeval))
-Lisp_Object selection;
-Lisp_Object timeval;
 {
 struct device *d = decode_x_device (Qnil);
 Display *display = DEVICE_X_DISPLAY (d);
 Time timestamp;
 Atom selection_atom;
 return Qt;
 }
-DEFUN ("x-selection-owner-p",
+DEFUN ("x-selection-owner-p", Fx_selection_owner_p, 0, 1, 0, /*
-Fx_selection_owner_p, Sx_selection_owner_p, 0, 1, 0 /*
 Whether the current emacs process owns the given X Selection.
 The arg should be the name of the selection in question, typically one of
 the symbols PRIMARY, SECONDARY, or CLIPBOARD.  (For convenience, the symbol
 nil is the same as PRIMARY, and t is the same as SECONDARY.)
-*/ )
+*/
-(selection)
+(selection))
-Lisp_Object selection;
 {
 CHECK_SYMBOL (selection);
 if (EQ (selection, Qnil)) selection = QPRIMARY;
 if (EQ (selection, Qt)) selection = QSECONDARY;
 if (NILP (Fassq (selection, Vselection_alist)))
 return Qnil;
 return Qt;
 }
-DEFUN ("x-selection-exists-p",
+DEFUN ("x-selection-exists-p", Fx_selection_exists_p, 0, 1, 0, /*
-Fx_selection_exists_p, Sx_selection_exists_p, 0, 1, 0 /*
 Whether there is an owner for the given X Selection.
 The arg should be the name of the selection in question, typically one of
 the symbols PRIMARY, SECONDARY, or CLIPBOARD.  (For convenience, the symbol
 nil is the same as PRIMARY, and t is the same as SECONDARY.)
-*/ )
+*/
-(selection)
+(selection))
-Lisp_Object selection;
 {
 Window owner;
 struct device *d = decode_x_device (Qnil);
 Display *dpy = DEVICE_X_DISPLAY (d);
 CHECK_SYMBOL (selection);
 	!EQ((symbol),QCUT_BUFFER6) && !EQ((symbol),QCUT_BUFFER7))	\
 signal_error (Qerror, list2 (build_string ("Doesn't name a cutbuffer"), \
 (symbol))); \
 }
-DEFUN ("x-get-cutbuffer-internal", Fx_get_cutbuffer_internal,
+DEFUN ("x-get-cutbuffer-internal", Fx_get_cutbuffer_internal, 1, 1, 0, /*
-Sx_get_cutbuffer_internal, 1, 1, 0 /*
 Return the value of the named CUTBUFFER (typically CUT_BUFFER0).
-*/ )
+*/
-(cutbuffer)
+(cutbuffer))
-Lisp_Object cutbuffer;
 {
 struct device *d = decode_x_device (Qnil);
 Display *display = DEVICE_X_DISPLAY (d);
 Window window = RootWindow (display, 0); /* Cutbuffers are on frame 0 */
 Atom cut_buffer_atom;
 xfree (data);
 return ret;
 }
-DEFUN ("x-store-cutbuffer-internal", Fx_store_cutbuffer_internal,
+DEFUN ("x-store-cutbuffer-internal", Fx_store_cutbuffer_internal, 2, 2, 0, /*
-Sx_store_cutbuffer_internal, 2, 2, 0 /*
 Set the value of the named CUTBUFFER (typically CUT_BUFFER0) to STRING.
-*/ )
+*/
-(cutbuffer, string)
+(cutbuffer, string))
-Lisp_Object cutbuffer, string;
 {
 struct device *d = decode_x_device (Qnil);
 Display *display = DEVICE_X_DISPLAY (d);
 Window window = RootWindow (display, 0); /* Cutbuffers are on frame 0 */
 Atom cut_buffer_atom;
 }
 return string;
 }
-DEFUN ("x-rotate-cutbuffers-internal", Fx_rotate_cutbuffers_internal,
+DEFUN ("x-rotate-cutbuffers-internal", Fx_rotate_cutbuffers_internal, 1, 1, 0, /*
-Sx_rotate_cutbuffers_internal, 1, 1, 0 /*
 Rotate the values of the cutbuffers by the given number of steps;
 positive means move values forward, negative means backward.
-*/ )
+*/
-(n)
+(n))
-Lisp_Object n;
 {
 struct device *d = decode_x_device (Qnil);
 Display *display = DEVICE_X_DISPLAY (d);
 Window window = RootWindow (display, 0); /* Cutbuffers are on frame 0 */
 Atom props [8];
 /************************************************************************/
 void
 syms_of_xselect (void)
 {
-defsubr (&Sx_get_selection_internal);
+DEFSUBR (Fx_get_selection_internal);
-defsubr (&Sx_own_selection_internal);
+DEFSUBR (Fx_own_selection_internal);
-defsubr (&Sx_disown_selection_internal);
+DEFSUBR (Fx_disown_selection_internal);
-defsubr (&Sx_selection_owner_p);
+DEFSUBR (Fx_selection_owner_p);
-defsubr (&Sx_selection_exists_p);
+DEFSUBR (Fx_selection_exists_p);
 #ifdef CUT_BUFFER_SUPPORT
-defsubr (&Sx_get_cutbuffer_internal);
+DEFSUBR (Fx_get_cutbuffer_internal);
-defsubr (&Sx_store_cutbuffer_internal);
+DEFSUBR (Fx_store_cutbuffer_internal);
-defsubr (&Sx_rotate_cutbuffers_internal);
+DEFSUBR (Fx_rotate_cutbuffers_internal);
 #endif /* CUT_BUFFER_SUPPORT */
 /* Unfortunately, timeout handlers must be lisp functions. */
 defsymbol (&Qx_selection_reply_timeout_internal,
 "x-selection-reply-timeout-internal");
-defsubr (&Sx_selection_reply_timeout_internal);
+DEFSUBR (Fx_selection_reply_timeout_internal);
 defsymbol (&QPRIMARY, "PRIMARY");
 defsymbol (&QSECONDARY, "SECONDARY");
 defsymbol (&QSTRING, "STRING");
 defsymbol (&QINTEGER, "INTEGER");

Mercurial > hg > xemacs-beta

comparison src/xselect.c @ 20:859a2309aef8 r19-15b93