procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust x-clipboard-yank for recent selection ownership changes

Browse source 
* lisp/term/x-win.el (x-clipboard-yank): Don't own CLIPBOARD
inside kill-new.
This commit is contained in:
Po Lu 2022-06-28 18:25:50 +08:00
parent baec3c4974
commit f5293b3364
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/term/x-win.el
View file

@ -1182,8 +1182,12 @@ as returned by `x-server-vendor'."
(interactive "*")
(let ((clipboard-text (gui--selection-value-internal 'CLIPBOARD))
(select-enable-clipboard t))
(if (and clipboard-text (> (length clipboard-text) 0))
(kill-new clipboard-text))
(when (and clipboard-text (> (length clipboard-text) 0))
;; Avoid asserting ownership of CLIPBOARD, which will cause
;; `gui-selection-value' to return nil in the future.
;; (bug#56273)
(let ((select-enable-clipboard nil))
(kill-new clipboard-text)))
(yank)))
(declare-function accelerate-menu "xmenu.c" (&optional frame) t)