(x-cut-buffer-or-selection-value): Fix previous change.

1 files changed, 12 insertions, 12 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 2a09302e19b..1557a6dd5bf 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -592,20 +592,20 @@ This is in addition to the primary selection.")
     (condition-case c
         (setq text (x-get-selection 'PRIMARY 'COMPOUND_TEXT))
       (error nil))
+    (if (null text) 
+        (condition-case c
+            (setq text (x-get-selection 'PRIMARY 'STRING))
+          (error nil)))
     (if (string= text "") (setq text nil))
-    (condition-case c
-        (setq text (x-get-selection 'PRIMARY 'STRING))
-      (error nil))
-    (if (string= text "") (setq text nil))
-
     (when x-select-enable-clipboard
-      (condition-case c
-          (setq text (x-get-selection 'CLIPBOARD 'COMPOUND_TEXT))
-        (error nil))
-      (if (string= text "") (setq text nil))
-      (condition-case c
-          (setq text (x-get-selection 'CLIPBOARD 'STRING))
-        (error nil))
+      (if (null text) 
+          (condition-case c
+              (setq text (x-get-selection 'CLIPBOARD 'COMPOUND_TEXT))
+            (error nil)))
+      (if (null text) 
+          (condition-case c
+              (setq text (x-get-selection 'CLIPBOARD 'STRING))
+            (error nil)))
       (if (string= text "") (setq text nil)))
 
     (or text (setq text (x-get-cut-buffer 0)))