# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 717769876 0
# Node ID be61776a20c4feb0a5b304129478b1a45dd01926
# Parent  353663d81b11f8a35d76da279eba2aa276075291
*** empty log message ***

diff -r 353663d81b11 -r be61776a20c4 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Tue Sep 29 11:32:13 1992 +0000
+++ b/lisp/term/x-win.el	Tue Sep 29 12:31:16 1992 +0000
@@ -473,7 +473,6 @@
 ;;; Also, set the value of X cut buffer 0, for backward compatibility
 ;;; with older X application.
 (defun x-select-text (text)
-  (x-own-selection text 'cut-buffer0)
   (x-own-selection text 'clipboard)
   (x-own-selection text)
   (setq x-last-selected-text text))
@@ -482,9 +481,9 @@
 ;;; with older X applications, this checks cut buffer 0 before
 ;;; retrieving the value of the primary selection.
 (defun x-cut-buffer-or-selection-value ()
-  (let ((text (or (x-selection-value 'cut-buffer0)
-		  (x-selection-value))))
-    (if (string= text x-last-selected-text)
+  (let ((text (or (x-selection-value))))
+    (if (or (string= text x-last-selected-text)
+	    (string= ""))
 	nil
       (setq x-last-selected-text nil)
       text)))