From bb2a0a651e0bd00baa0948a5b8e5013ba049d9e4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 1 Jul 1994 00:35:07 +0000
Subject: [PATCH] (Fdelete_frame): Call x_clear_frame_selections.

---
 src/frame.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/frame.c b/src/frame.c
index 569b0622c7d..6228f4c8499 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -834,6 +834,12 @@ but if the second optional argument FORCE is non-nil, you may do so.")
       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));
-- 
2.39.5