From: Po Lu <luangruo@yahoo.com>
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))