From 73d73f03ae44322a613127444b7073843bab2686 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 30 Aug 2002 17:54:07 +0000
Subject: GNU Emacs: avoid using own-clipboard

---
 generic/pg-user.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/pg-user.el b/generic/pg-user.el
index 37deafea..2e26996e 100644
--- a/generic/pg-user.el
+++ b/generic/pg-user.el
@@ -705,7 +705,8 @@ last use time, to discourage saving these into the users database."
      (goto-char (span-end span))
      (skip-chars-backward " \t\n")
      (point)))
-  (own-clipboard (car kill-ring)))
+  (if (fboundp 'own-clipboard)		;; XEmacs function
+      (own-clipboard (car kill-ring))))
 
 ;; 3.3: these functions are experimental, in that they haven't
 ;; been rigorously tested.  They don't work well in FSF Emacs.
-- 
cgit v1.2.3