diff options
| author | Richard M. Stallman | 1994-07-27 00:13:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-27 00:13:42 +0000 |
| commit | 0d55704c3b6f8bfa19585961b54d2d927fd70261 (patch) | |
| tree | d82cfd7e25252240cb4aab07dcff410d84b2a1ac /src | |
| parent | e86bf4080542c79308bd1f7e17ed7687b965f1de (diff) | |
| download | emacs-0d55704c3b6f8bfa19585961b54d2d927fd70261.tar.gz emacs-0d55704c3b6f8bfa19585961b54d2d927fd70261.zip | |
(x_get_foreign_selection): Use the new feature
to queue up SelectionRequest events.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xselect.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/xselect.c b/src/xselect.c index e63967ad8e2..bf2b5c76a93 100644 --- a/src/xselect.c +++ b/src/xselect.c | |||
| @@ -1052,6 +1052,7 @@ x_get_foreign_selection (selection_symbol, target_type) | |||
| 1052 | reading_selection_window = requestor_window; | 1052 | reading_selection_window = requestor_window; |
| 1053 | reading_which_selection = selection_atom; | 1053 | reading_which_selection = selection_atom; |
| 1054 | XCONS (reading_selection_reply)->car = Qnil; | 1054 | XCONS (reading_selection_reply)->car = Qnil; |
| 1055 | x_start_queuing_selection_requests (); | ||
| 1055 | UNBLOCK_INPUT; | 1056 | UNBLOCK_INPUT; |
| 1056 | 1057 | ||
| 1057 | /* This allows quits. Also, don't wait forever. */ | 1058 | /* This allows quits. Also, don't wait forever. */ |
| @@ -1062,6 +1063,7 @@ x_get_foreign_selection (selection_symbol, target_type) | |||
| 1062 | BLOCK_INPUT; | 1063 | BLOCK_INPUT; |
| 1063 | x_check_errors ("Cannot get selection: %s"); | 1064 | x_check_errors ("Cannot get selection: %s"); |
| 1064 | x_uncatch_errors (); | 1065 | x_uncatch_errors (); |
| 1066 | x_stop_queuing_selection_requests (); | ||
| 1065 | UNBLOCK_INPUT; | 1067 | UNBLOCK_INPUT; |
| 1066 | 1068 | ||
| 1067 | if (NILP (XCONS (reading_selection_reply)->car)) | 1069 | if (NILP (XCONS (reading_selection_reply)->car)) |