From: Po Lu Date: Tue, 1 Feb 2022 05:24:31 +0000 (+0800) Subject: ; * lisp/select.el (gui--selection-value-internal): Fix comment. X-Git-Tag: emacs-29.0.90~2603 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfbb6359cebb6c0465bf132ab5a88c095373c4d0;p=emacs.git ; * lisp/select.el (gui--selection-value-internal): Fix comment. --- 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))