Mercurial > hg > xemacs-beta
diff src/frame-x.c @ 209:41ff10fd062f r20-4b3
Import from CVS: tag r20-4b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:04:58 +0200 |
parents | e45d5e7c476e |
children | 78478c60bfcd |
line wrap: on
line diff
--- a/src/frame-x.c Mon Aug 13 10:03:54 2007 +0200 +++ b/src/frame-x.c Mon Aug 13 10:04:58 2007 +0200 @@ -2511,28 +2511,14 @@ x_delete_frame (struct frame *f) { Widget w = FRAME_X_SHELL_WIDGET (f); - Lisp_Object popup, frame; + Lisp_Object frame; #ifndef HAVE_SESSION if (FRAME_X_TOP_LEVEL_FRAME_P (f)) x_wm_maybe_move_wm_command (f); #endif /* HAVE_SESSION */ - /* Frames with the popup property are using other frames as their - widget parent. Deleting them are their parent has already been - deleted can lead to crashes. */ XSETFRAME (frame, f); - popup = Fframe_property (frame, Qpopup, Qnil); - if (!NILP (popup)) - { - /* If popup isn't nil then it means the frame has that property - and the value is supposed to be the parent frame. The FRAMEP - check is to safeguard against it not being a frame. */ - if (!FRAMEP (popup) || !FRAME_LIVE_P (XFRAME (popup))) - popup = Qt; - else - popup = Qnil; - } #ifdef EXTERNAL_WIDGET { @@ -2548,8 +2534,7 @@ x_error_occurred_p (dpy); } #else - if (NILP (popup)) - XtDestroyWidget (w); + XtDestroyWidget (w); #endif /* EXTERNAL_WIDGET */ if (FRAME_X_GEOM_FREE_ME_PLEASE (f))