--- a/src/select-msw.c	Mon Aug 13 10:34:15 2007 +0200
+++ b/src/select-msw.c	Mon Aug 13 10:35:03 2007 +0200
@@ -144,6 +144,22 @@
   return ret;
 }
 
+DEFUN ("mswindows-selection-exists-p", Fmswindows_selection_exists_p, 0, 0, 0, /*
+Whether there is an mswindows selection.
+*/
+       ())
+{
+  return IsClipboardFormatAvailable (CF_TEXT) ? Qt : Qnil;
+}
+
+DEFUN ("mswindows-delete-selection", Fmswindows_delete_selection, 0, 0, 0, /*
+Whether there is an mswindows selection.
+*/
+       ())
+{
+  return EmptyClipboard () ? Qt : Qnil;
+}
+
 
 /************************************************************************/
 /*                            initialization                            */
@@ -154,6 +170,8 @@
 {
   DEFSUBR (Fmswindows_set_clipboard);
   DEFSUBR (Fmswindows_get_clipboard);
+  DEFSUBR (Fmswindows_selection_exists_p);
+  DEFSUBR (Fmswindows_delete_selection);
 }
 
 void