diff options
| author | Eli Zaretskii | 2025-03-20 11:03:32 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2025-03-20 11:03:32 +0200 |
| commit | e53b90a5ce21feeb0290fbe035e9a2d6aae34bc3 (patch) | |
| tree | 82ea4540d77e188c3e552af68df14e881f1a9f82 | |
| parent | a7d2aa7e0c1a0984d6d1a3563b407efda123d6ae (diff) | |
| download | emacs-e53b90a5ce21feeb0290fbe035e9a2d6aae34bc3.tar.gz emacs-e53b90a5ce21feeb0290fbe035e9a2d6aae34bc3.zip | |
Improve 'gui-get-selection' on MS-Windows
* lisp/term/w32-win.el (w32--get-selection): Allow UTF8_STRING and
TEXT data types as well, since w32select.c handles that correctly.
| -rw-r--r-- | lisp/term/w32-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index fa7862d9bff..a1959cd11be 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el | |||
| @@ -416,7 +416,7 @@ also be textual." | |||
| 416 | 416 | ||
| 417 | (defun w32--get-selection (&optional type data-type) | 417 | (defun w32--get-selection (&optional type data-type) |
| 418 | (cond ((and (eq type 'CLIPBOARD) | 418 | (cond ((and (eq type 'CLIPBOARD) |
| 419 | (eq data-type 'STRING)) | 419 | (memq data-type '(STRING UTF8_STRING TEXT))) |
| 420 | (with-demoted-errors "w32-get-clipboard-data:%S" | 420 | (with-demoted-errors "w32-get-clipboard-data:%S" |
| 421 | (w32-get-clipboard-data))) | 421 | (w32-get-clipboard-data))) |
| 422 | ((eq data-type 'TARGETS) | 422 | ((eq data-type 'TARGETS) |