Mercurial > emacs
changeset 5552:e8d95be8bc19
(Fdelete_frame): Call x_sync.
(Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before
testing visibility of a frame.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jan 1994 22:20:56 +0000 |
| parents | 2b8f405f5103 |
| children | 22a65d8c0b9a |
| files | src/frame.c |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Mon Jan 10 21:30:25 1994 +0000 +++ b/src/frame.c Mon Jan 10 22:20:56 1994 +0000 @@ -617,7 +617,6 @@ return prev_frame (frame, miniframe); } - DEFUN ("delete-frame", Fdelete_frame, Sdelete_frame, 0, 2, "", "Delete FRAME, permanently eliminating it from use.\n\ @@ -657,6 +656,14 @@ { Lisp_Object this = XCONS (frames)->car; +#ifdef HAVE_X_WINDOWS + if (FRAME_X_P (XFRAME (this))) + { + x_sync (this); + FRAME_SAMPLE_VISIBILITY (XFRAME (this)); + } +#endif + if (FRAME_VISIBLE_P (XFRAME (this)) || FRAME_ICONIFIED_P (XFRAME (this)) /* Allow deleting the terminal frame when at least