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

; * lisp/select.el (gui--selection-value-internal): Fix comment.

Browse source
This commit is contained in:
Po Lu 2022-02-01 13:24:31 +08:00
parent 7b63c00af4
commit cfbb6359ce
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/select.el
View file

@ -170,11 +170,12 @@ decided by `x-select-request-type'. The return value is already
decoded. If `gui-get-selection' signals an error, return nil."
;; The doc string of `interprogram-paste-function' says to return
;; nil if no other program has provided text to paste.
(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))
(unless (and
;; `gui-backend-selection-owner-p' might be unreliable on
;; some other window systems.
(memq window-system '(x haiku))
(eq type 'CLIPBOARD)
(gui-backend-selection-owner-p type))
(let ((request-type (if (memq window-system '(x pgtk))
(or x-select-request-type
'(UTF8_STRING COMPOUND_TEXT STRING text/plain\;charset=utf-8))