From ba9f70a221600c589ba39c77f02f8301ab7d5503 Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 14 May 1996 19:01:53 +0000
Subject: (QCLIPBOARD): New symbol. (Fx_selection_exists_p): New function.
 (syms_of_win32select): Initialize/staticpro and defsubr them.

---
 src/w32select.c | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

(limited to 'src/w32select.c')

diff --git a/src/w32select.c b/src/w32select.c
index b99e94a6472..6b3b0acf8b0 100644
--- a/src/w32select.c
+++ b/src/w32select.c
@@ -27,6 +27,8 @@ Boston, MA 02111-1307, USA.  */
 #include "frame.h"	/* Need this to get the X window of selected_frame */
 #include "blockinput.h"
 
+Lisp_Object QCLIPBOARD;
+
 #if 0
 DEFUN ("win32-open-clipboard", Fwin32_open_clipboard, Swin32_open_clipboard, 0, 1, 0,
        "This opens the clipboard with the given frame pointer.")
@@ -243,6 +245,44 @@ DEFUN ("win32-get-clipboard-data", Fwin32_get_clipboard_data, Swin32_get_clipboa
   return (ret);
 }
 
+/* Support checking for a clipboard selection. */
+
+DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
+  0, 1, 0,
+  "Whether there is an owner for the given X Selection.\n\
+The arg should be the name of the selection in question, typically one of\n\
+the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\
+\(Those are literal upper-case symbol names, since that's what X expects.)\n\
+For convenience, the symbol nil is the same as `PRIMARY',\n\
+and t is the same as `SECONDARY'.")
+  (selection)
+     Lisp_Object selection;
+{
+  CHECK_SYMBOL (selection, 0);
+
+  /* Return nil for PRIMARY and SECONDARY selections; for CLIPBOARD, check
+     if the clipboard currently has valid text format contents. */
+
+  if (EQ (selection, QCLIPBOARD))
+    {
+      Lisp_Object val = Qnil;
+
+      if (OpenClipboard (NULL))
+	{
+	  int format = 0;
+	  while (format = EnumClipboardFormats (format))
+	    if (format == CF_TEXT)
+	      {
+		val = Qt;
+		break;
+	      }
+	  CloseClipboard ();
+	}
+      return val;
+    }
+  return Qnil;
+}
+
 void 
 syms_of_win32select ()
 {
@@ -253,4 +293,7 @@ syms_of_win32select ()
 #endif
   defsubr (&Swin32_set_clipboard_data);
   defsubr (&Swin32_get_clipboard_data);
+  defsubr (&Sx_selection_exists_p);
+
+  QCLIPBOARD = intern ("CLIPBOARD");	staticpro (&QCLIPBOARD);
 }
-- 
cgit v1.2.1