Mercurial > emacs

changeset 1259:be61776a20c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 29 Sep 1992 12:31:16 +0000
parents 353663d81b11
children a2d017a57391
files lisp/term/x-win.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))