# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773022907 0
# Node ID a06382fd175dbf2e353c1b4e75de5dff69791a1c
# Parent  e44c31d682b15aeddb0225b1db1d6e7b050ec37d
(Fdelete_frame): Call x_clear_frame_selections.

diff -r e44c31d682b1 -r a06382fd175d src/frame.c
--- a/src/frame.c	Fri Jul 01 00:32:05 1994 +0000
+++ b/src/frame.c	Fri Jul 01 00:35:07 1994 +0000
@@ -834,6 +834,12 @@
       minibuf_window = selected_frame->minibuffer_window;
     }
 
+  /* Clear any X selections for this frame.  */
+#ifdef HAVE_X_WINDOWS
+  if (FRAME_X_P (f))
+    x_clear_frame_selections (f);
+#endif
+
   /* Mark all the windows that used to be on FRAME as deleted, and then
      remove the reference to them.  */
   delete_all_subwindows (XWINDOW (f->root_window));