summaryrefslogtreecommitdiff
path: root/lisp/select.el
diff options
context:
space:
mode:
authorPo Lu <luangruo@yahoo.com>2022-02-01 10:13:15 +0800
committerPo Lu <luangruo@yahoo.com>2022-02-01 10:13:15 +0800
commit99c637499ec2bc0babb5d98b16f9c578952d54fd (patch)
treea5ea9bd5e0eef5a86139434dc04ff2dea646f98e /lisp/select.el
parent16174d796f86fe31c4a20ece471bed10f23c229f (diff)
downloademacs-99c637499ec2bc0babb5d98b16f9c578952d54fd.tar.gz
emacs-99c637499ec2bc0babb5d98b16f9c578952d54fd.tar.bz2
emacs-99c637499ec2bc0babb5d98b16f9c578952d54fd.zip
Only apply last change to the clipboard
* lisp/select.el (gui--selection-value-internal): Only return nil if we own the clipboard.
Diffstat (limited to 'lisp/select.el')
-rw-r--r--lisp/select.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/select.el b/lisp/select.el
index 420967c1b00..d9f537cfce6 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -173,6 +173,7 @@ decoded. If `gui-get-selection' signals an error, return nil."
(unless (and (memq window-system '(x haiku))
;; gui-backend-selection-p might be unreliable on other
;; window systems.
+ (eq type 'CLIPBOARD)
(gui-backend-selection-owner-p type))
(let ((request-type (if (memq window-system '(x pgtk))
(or x-select-request-type