diff options
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index c21461d49fe..c2f2f8e4642 100644 --- a/src/frame.c +++ b/src/frame.c @@ -2176,6 +2176,17 @@ delete_frame (Lisp_Object frame, Lisp_Object force) x_clear_frame_selections (f); #endif +#ifdef HAVE_PGTK + if (FRAME_PGTK_P (f)) + { + /* Do special selection events now, in case the window gets + destroyed by this deletion. Does this run Lisp code? */ + swallow_events (false); + + pgtk_clear_frame_selections (f); + } +#endif + /* Free glyphs. This function must be called before the window tree of the frame is deleted because windows contain dynamically allocated |