Mercurial > emacs

changeset 12531:b36aa014cee4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_clear_frame_selections): Delete duplicate code.
author Karl Heuer <kwzh@gnu.org>
date Mon, 17 Jul 1995 22:14:00 +0000
parents c2b2449231c2
children aa3b050f8a32
files src/xselect.c
diffstat 1 files changed, 0 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- 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)))))))
       {