Mercurial > emacs

changeset 5244:c0bd54986550

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_get_foreign_selection): Use x_catch_errors. (x_handle_selection_clear): Call prepare_menu_bars.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 01:43:11 +0000
parents 13cce14b5a0c
children 4a9b93b0eac3
files src/xselect.c
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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");