xemacs-beta: src/select.c comparison

comparison src/select.c @ 444:576fb035e263 r21-2-37

Import from CVS: tag r21-2-37

author	cvs
date	Mon, 13 Aug 2007 11:36:19 +0200
parents	abe6d1db359e
children	e7ef97881643

comparison

equal deleted inserted replaced

-:a8296e22da4e
+:576fb035e263
 	  return pairs;
 	}
 #endif
 DEFUN ("own-selection-internal", Fown_selection_internal, 2, 5, 0, /*
-Assert a selection of the given NAME with the given VALUE, and
+Give the selection SELECTION-NAME the value SELECTION-VALUE.
-optional window-system DATA-TYPE. HOW-TO-ADD specifies how the
+SELECTION-NAME is a symbol, typically PRIMARY, SECONDARY, or CLIPBOARD.
-selection will be combined with any existing selection(s) - see
+SELECTION-VALUE is typically a string, or a cons of two markers, but may be
-`own-selection' for more information.
-NAME 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-out-alist know about.
+Optional arg HOW-TO-ADD specifies how the selection will be combined
+with any existing selection(s) - see `own-selection' for more
+information.
+Optional arg DATA-TYPE is a window-system-specific type.
+Optional arg DEVICE specifies the device on which to assert the selection.
+It defaults to the selected device.
 */
 (selection_name, selection_value, how_to_add, data_type, device))
 {
 Lisp_Object selection_time, selection_data, prev_value = Qnil,
 value_list = Qnil;
 return Qt;
 }
 DEFUN ("selection-owner-p", Fselection_owner_p, 0, 1, 0, /*
-Return t if current emacs process owns the given Selection.
+Return t if the current emacs process owns SELECTION.
-The arg should be the name of the selection in question, typically one of
+SELECTION 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))
 {
 return NILP (Fassq (selection, Vselection_alist)) ? Qnil : Qt;
 }
 DEFUN ("selection-exists-p", Fselection_exists_p, 0, 3, 0, /*
-Whether there is an owner for the given Selection.
+Whether there is currently an owner for SELECTION.
-The arg should be the name of the selection in question, typically one of
+SELECTION 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.)
-Optionally the DEVICE and the window-system DATA-TYPE may be specified.
+Optionally, the window-system DATA-TYPE and the DEVICE may be specified.
 */
 (selection, data_type, device))
 {
 CHECK_SYMBOL (selection);
 if (NILP (data_type)
 simply return our selection value.  If we are not the owner, this
 will block until all of the data has arrived.
 */
 DEFUN ("get-selection-internal", Fget_selection_internal, 2, 3, 0, /*
 Return text selected from some window-system window.
-SELECTION_SYMBOL is a symbol, typically PRIMARY, SECONDARY, or CLIPBOARD.
+SELECTION is a symbol, typically PRIMARY, SECONDARY, or CLIPBOARD.
-TARGET_TYPE is the type of data desired, typically STRING or COMPOUND_TEXT.
+TARGET-TYPE is the type of data desired, typically STRING or COMPOUND_TEXT.
 Under Mule, if the resultant data comes back as 8-bit data in type
 TEXT or COMPOUND_TEXT, it will be decoded as Compound Text.
 */
-(selection_symbol, target_type, device))
+(selection, target_type, device))
 {
 /* This function can GC */
 Lisp_Object val = Qnil;
 struct gcpro gcpro1, gcpro2;
 GCPRO2 (target_type, val);
-CHECK_SYMBOL (selection_symbol);
+CHECK_SYMBOL (selection);
 if (NILP (device))
 device = Fselected_device (Qnil);
 #ifdef MULE
 /* Used to check that target_type was a symbol. This is no longer
 necessarily the case, because the type might be registered with
 the device (in which case target_type would be a device-specific
 identifier - probably an integer) - ajh */
-val = get_local_selection (selection_symbol, target_type);
+val = get_local_selection (selection, target_type);
 if (!NILP (val))
 {
 /* If we get something from the local cache, we may need to convert
 it slightly - to do this, we call select-coerce */
-val = call3 (Qselect_coerce, selection_symbol, target_type, val);
+val = call3 (Qselect_coerce, selection, target_type, val);
 }
 else if (HAS_DEVMETH_P (XDEVICE (device), get_foreign_selection))
 {
 /* Nothing in the local cache; try the window system */
 val = DEVMETH (XDEVICE (device), get_foreign_selection,
-		     (selection_symbol, target_type));
+		     (selection, target_type));
 }
 if (NILP (val))
 {
 /* Still nothing. Try coercion. */
 /* Try looking in selection-coercible-types to see if any of
 	 them are present for this selection. We try them *in order*;
 	 the first for which a conversion succeeds gets returned. */
 EXTERNAL_LIST_LOOP_2 (element, Vselection_coercible_types)
 	{
-	  val = get_local_selection (selection_symbol, element);
+	  val = get_local_selection (selection, element);
 	  if (NILP (val))
 	    continue;
-	  val = call3 (Qselect_coerce, selection_symbol, target_type, val);
+	  val = call3 (Qselect_coerce, selection, target_type, val);
 	  if (!NILP (val))
 	    break;
 	}
 }

Mercurial > hg > xemacs-beta

comparison src/select.c @ 444:576fb035e263 r21-2-37