X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fselect-x.c;h=05c71a1ec24d9e391e21df54cebffd7d8a4f56c9;hb=1a5e625ffcc6b2e9a9828a89763c062a0b09b361;hp=0332a4585f41c82359c55afd303f315103c568ac;hpb=ea1ea793fe6e244ef5555ed983423a204101af13;p=chise%2Fxemacs-chise.git.1

diff --git a/src/select-x.c b/src/select-x.c
index 0332a45..cc6031a 100644
--- a/src/select-x.c
+++ b/src/select-x.c
@@ -1492,18 +1492,15 @@ initialize_cut_buffers (Display *display, Window window)
   cut_buffers_initialized = 1;
 }
 
-#define CHECK_CUTBUFFER(symbol) do {				\
-  CHECK_SYMBOL (symbol);					\
-  if (! (EQ (symbol, QCUT_BUFFER0) ||				\
-	 EQ (symbol, QCUT_BUFFER1) ||				\
-	 EQ (symbol, QCUT_BUFFER2) ||				\
-	 EQ (symbol, QCUT_BUFFER3) ||				\
-	 EQ (symbol, QCUT_BUFFER4) ||				\
-	 EQ (symbol, QCUT_BUFFER5) ||				\
-	 EQ (symbol, QCUT_BUFFER6) ||				\
-	 EQ (symbol, QCUT_BUFFER7)))				\
-    signal_simple_error ("Doesn't name a cutbuffer", symbol);	\
-} while (0)
+#define CHECK_CUTBUFFER(symbol)						\
+  { CHECK_SYMBOL (symbol);						\
+    if (!EQ((symbol),QCUT_BUFFER0) && !EQ((symbol),QCUT_BUFFER1) &&	\
+	!EQ((symbol),QCUT_BUFFER2) && !EQ((symbol),QCUT_BUFFER3) &&	\
+	!EQ((symbol),QCUT_BUFFER4) && !EQ((symbol),QCUT_BUFFER5) &&	\
+	!EQ((symbol),QCUT_BUFFER6) && !EQ((symbol),QCUT_BUFFER7))	\
+      signal_error (Qerror, list2 (build_string ("Doesn't name a cutbuffer"), \
+                                   (symbol))); \
+  }
 
 DEFUN ("x-get-cutbuffer-internal", Fx_get_cutbuffer_internal, 1, 1, 0, /*
 Return the value of the named CUTBUFFER (typically CUT_BUFFER0).
@@ -1697,25 +1694,19 @@ console_type_create_select_x (void)
 }
 
 void
-reinit_vars_of_xselect (void)
-{
-  reading_selection_reply = 0;
-  reading_which_selection = 0;
-  selection_reply_timed_out = 0;
-  for_whom_the_bell_tolls = 0;
-  prop_location_tick = 0;
-}
-
-void
 vars_of_xselect (void)
 {
-  reinit_vars_of_xselect ();
-
 #ifdef CUT_BUFFER_SUPPORT
   cut_buffers_initialized = 0;
   Fprovide (intern ("cut-buffer"));
 #endif
 
+  reading_selection_reply = 0;
+  reading_which_selection = 0;
+  selection_reply_timed_out = 0;
+  for_whom_the_bell_tolls = 0;
+  prop_location_tick = 0;
+
   DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks /*
 A function or functions to be called after we have responded to some
 other client's request for the value of a selection that we own.  The