mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

(x_get_foreign_selection): Use x_catch_errors.

Browse source 
(x_handle_selection_clear): Call prepare_menu_bars.
This commit is contained in:
Richard M. Stallman 1993-12-23 01:43:11 +00:00
parent 7c79a68415
commit 7c6b2ea4a6
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/xselect.c
View file

@ -741,6 +741,7 @@ x_handle_selection_clear (event)
{
for (; CONSP (rest); rest = Fcdr (rest))
call1 (Fcar (rest), selection_symbol);
prepare_menu_bars ();
redisplay_preserve_echo_area ();
}
}
@ -983,6 +984,7 @@ x_get_foreign_selection (selection_symbol, target_type)
type_atom = symbol_to_x_atom (display, target_type);
BLOCK_INPUT;
x_catch_errors ();
XConvertSelection (display, selection_atom, type_atom, target_property,
requestor_window, requestor_time);
XFlushQueue ();
@ -998,6 +1000,11 @@ x_get_foreign_selection (selection_symbol, target_type)
usecs = (x_selection_timeout % 1000) * 1000;
wait_reading_process_input (secs, usecs, reading_selection_reply, 0);
BLOCK_INPUT;
x_check_errors ("Cannot get selection: %s");
x_uncatch_errors ();
UNBLOCK_INPUT;
if (NILP (XCONS (reading_selection_reply)->car))
error ("timed out waiting for reply from selection owner");