diff options
| author | Po Lu | 2022-06-09 10:22:14 +0800 |
|---|---|---|
| committer | Po Lu | 2022-06-09 10:22:14 +0800 |
| commit | 7e41b4aa231ed094613fe0ea12e7ec37a396240f (patch) | |
| tree | eef8ae30778c980b9472237bcfc0373a881bf426 | |
| parent | 8d4551cbdb03d74448eafa818005218191621aed (diff) | |
| download | emacs-7e41b4aa231ed094613fe0ea12e7ec37a396240f.tar.gz emacs-7e41b4aa231ed094613fe0ea12e7ec37a396240f.zip | |
Fix dnd-tests on builds without X
* test/lisp/dnd-tests.el (x-get-selection-internal): New
function declaration.
| -rw-r--r-- | test/lisp/dnd-tests.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el index c7e537e53f9..c4b7567f22e 100644 --- a/test/lisp/dnd-tests.el +++ b/test/lisp/dnd-tests.el | |||
| @@ -72,6 +72,8 @@ | |||
| 72 | (signal 'error (list "invalid selection" data))) | 72 | (signal 'error (list "invalid selection" data))) |
| 73 | (setf (alist-get type dnd-tests-selection-table) data)))) | 73 | (setf (alist-get type dnd-tests-selection-table) data)))) |
| 74 | 74 | ||
| 75 | (declare-function x-get-selection-internal "xselect.c") | ||
| 76 | |||
| 75 | (defun dnd-tests-verify-selection-data (type) | 77 | (defun dnd-tests-verify-selection-data (type) |
| 76 | "Return the data of the drag-and-drop selection converted to TYPE." | 78 | "Return the data of the drag-and-drop selection converted to TYPE." |
| 77 | (if (eq window-system 'x) | 79 | (if (eq window-system 'x) |