# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 705648413 0
# Node ID 9759addc5671630cc737dff204ba23da3298ffc2
# Parent  b0ddc138b0b58cf79cc74f30b84f875dcd8d2dd1
*** empty log message ***

diff -r b0ddc138b0b5 -r 9759addc5671 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Tue May 12 03:44:17 1992 +0000
+++ b/lisp/term/x-win.el	Tue May 12 05:26:53 1992 +0000
@@ -446,7 +446,16 @@
 (setq suspend-hook
       '(lambda ()
 	 (error "Suspending an emacs running under X makes no sense")))
-(setq interprogram-cut-function 'x-own-selection)
+(setq interprogram-cut-function 'x-select-text)
+
+;; Make TEXT, a string, the primary and clipboard X selections.
+;; If you are running xclipboard, this means you can effectively
+;; have a window on a copy of the kill-ring.
+(defun x-select-text (text)
+  (if (eq window-system 'x)
+      (progn
+	(x-own-selection text 'clipboard)
+	(x-own-selection text))))
 
 ;;; Turn off window-splitting optimization; X is usually fast enough
 ;;; that this is only annoying.