# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806019240 0
# Node ID b36aa014cee4ec4a33f50a5b7b6b633ed9600f61
# Parent  c2b2449231c2881367fde90cf21221e26317ede9
(x_clear_frame_selections): Delete duplicate code.

diff -r c2b2449231c2 -r b36aa014cee4 src/xselect.c
--- a/src/xselect.c	Mon Jul 17 22:12:45 1995 +0000
+++ b/src/xselect.c	Mon Jul 17 22:14:00 1995 +0000
@@ -818,25 +818,6 @@
   /* Otherwise, we're really honest and truly being told to drop it.
      Don't use Fdelq as that may QUIT;.  */
 
-  while (!NILP (Vselection_alist)
-	 && EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (Vselection_alist)))))))
-    {
-      /* Let random Lisp code notice that the selection has been stolen.  */
-      Lisp_Object hooks, selection_symbol;
-
-      hooks = Vx_lost_selection_hooks;
-      selection_symbol = Fcar (Vselection_alist);
-
-      if (!EQ (hooks, Qunbound))
-	{
-	  for (; CONSP (hooks); hooks = Fcdr (hooks))
-	    call1 (Fcar (hooks), selection_symbol);
-	  redisplay_preserve_echo_area ();
-	}
-
-      Vselection_alist = Fcdr (Vselection_alist);
-    }
-
   for (rest = Vselection_alist; !NILP (rest); rest = Fcdr (rest))
     if (EQ (frame, Fcar (Fcdr (Fcdr (Fcdr (Fcar (XCONS (rest)->cdr)))))))
       {