From 8ba1358119b4b264e04691a817d183af89a0ceed Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 4 Aug 1997 01:53:36 +0000 Subject: [PATCH] (x-cut-buffer-or-selection-value): Try both COMPOUND_TEXT and STRING as types for the selection. --- lisp/term/x-win.el | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index d991f3b76a8..2a09302e19b 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -590,15 +590,24 @@ This is in addition to the primary selection.") ;; Don't die if x-get-selection signals an error. (condition-case c - (setq text (x-get-selection 'PRIMARY)) + (setq text (x-get-selection 'PRIMARY 'COMPOUND_TEXT)) (error nil)) (if (string= text "") (setq text nil)) - - (if x-select-enable-clipboard - (condition-case c - (setq text (x-get-selection 'CLIPBOARD)) - (error 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 (string= text "") (setq text nil))) + (or text (setq text (x-get-cut-buffer 0))) (if (string= text "") (setq text nil)) -- 2.39.2