# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756610991 0
# Node ID c0bd549865505ddefec810dc758a97e9eb9bacf0
# Parent  13cce14b5a0ce5bc72c2471dd4bda13dbae3ee08
(x_get_foreign_selection): Use x_catch_errors.

(x_handle_selection_clear): Call prepare_menu_bars.

diff -r 13cce14b5a0c -r c0bd54986550 src/xselect.c
--- a/src/xselect.c	Thu Dec 23 01:31:39 1993 +0000
+++ b/src/xselect.c	Thu Dec 23 01:43:11 1993 +0000
@@ -741,6 +741,7 @@
       {
 	for (; CONSP (rest); rest = Fcdr (rest))
 	  call1 (Fcar (rest), selection_symbol);
+	prepare_menu_bars ();
 	redisplay_preserve_echo_area ();
       }
   }
@@ -983,6 +984,7 @@
     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 @@
   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");