From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Jul 1995 22:14:00 +0000 (+0000)
Subject: (x_clear_frame_selections): Delete duplicate code.
X-Git-Tag: emacs-19.34~3328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=144025039fa3975df500dd035b36198e38660dbb;p=emacs.git

(x_clear_frame_selections): Delete duplicate code.
---

diff --git a/src/xselect.c b/src/xselect.c
index 2b86e0d862e..ad0cc265861 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -818,25 +818,6 @@ x_clear_frame_selections (f)
   /* 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)))))))
       {