diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-02-01 13:24:31 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-02-01 13:24:55 +0800 |
| commit | cfbb6359cebb6c0465bf132ab5a88c095373c4d0 (patch) | |
| tree | 15ddb09af3731409355b7c705737401eb174289d /lisp/select.el | |
| parent | 7b63c00af48237e837daf41ea0b41c756a2d8265 (diff) | |
| download | emacs-cfbb6359cebb6c0465bf132ab5a88c095373c4d0.tar.gz emacs-cfbb6359cebb6c0465bf132ab5a88c095373c4d0.tar.bz2 emacs-cfbb6359cebb6c0465bf132ab5a88c095373c4d0.zip | |
; * lisp/select.el (gui--selection-value-internal): Fix comment.
Diffstat (limited to 'lisp/select.el')
| -rw-r--r-- | lisp/select.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/select.el b/lisp/select.el index d9f537cfce6..ca9061c0b03 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -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)) |