diff options
| author | Po Lu | 2022-02-01 13:24:31 +0800 |
|---|---|---|
| committer | Po Lu | 2022-02-01 13:24:55 +0800 |
| commit | cfbb6359cebb6c0465bf132ab5a88c095373c4d0 (patch) | |
| tree | 15ddb09af3731409355b7c705737401eb174289d | |
| parent | 7b63c00af48237e837daf41ea0b41c756a2d8265 (diff) | |
| download | emacs-cfbb6359cebb6c0465bf132ab5a88c095373c4d0.tar.gz emacs-cfbb6359cebb6c0465bf132ab5a88c095373c4d0.zip | |
; * lisp/select.el (gui--selection-value-internal): Fix comment.
| -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 | |||
| 170 | decoded. If `gui-get-selection' signals an error, return nil." | 170 | decoded. If `gui-get-selection' signals an error, return nil." |
| 171 | ;; The doc string of `interprogram-paste-function' says to return | 171 | ;; The doc string of `interprogram-paste-function' says to return |
| 172 | ;; nil if no other program has provided text to paste. | 172 | ;; nil if no other program has provided text to paste. |
| 173 | (unless (and (memq window-system '(x haiku)) | 173 | (unless (and |
| 174 | ;; gui-backend-selection-p might be unreliable on other | 174 | ;; `gui-backend-selection-owner-p' might be unreliable on |
| 175 | ;; window systems. | 175 | ;; some other window systems. |
| 176 | (eq type 'CLIPBOARD) | 176 | (memq window-system '(x haiku)) |
| 177 | (gui-backend-selection-owner-p type)) | 177 | (eq type 'CLIPBOARD) |
| 178 | (gui-backend-selection-owner-p type)) | ||
| 178 | (let ((request-type (if (memq window-system '(x pgtk)) | 179 | (let ((request-type (if (memq window-system '(x pgtk)) |
| 179 | (or x-select-request-type | 180 | (or x-select-request-type |
| 180 | '(UTF8_STRING COMPOUND_TEXT STRING text/plain\;charset=utf-8)) | 181 | '(UTF8_STRING COMPOUND_TEXT STRING text/plain\;charset=utf-8)) |