diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-10 22:20:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-10 22:20:56 +0000 |
| commit | 5e7b7c5bda1e59bda842ba8e2381b8b2ec57184a (patch) | |
| tree | 45dd3cd9599d92ed12de64c982e4ce1ff6e9abed | |
| parent | af1d6f09ce1b864c69bec7829a594f45e65ae8cb (diff) | |
| download | emacs-5e7b7c5bda1e59bda842ba8e2381b8b2ec57184a.tar.gz | |
(Fdelete_frame): Call x_sync.
(Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before
testing visibility of a frame.
| -rw-r--r-- | src/frame.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/frame.c b/src/frame.c index a400fa4eadf..654c9e5c3bd 100644 --- a/src/frame.c +++ b/src/frame.c @@ -617,7 +617,6 @@ If MINIFRAME is non-nil and not a window, include all frames.") 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 @@ but if the second optional argument FORCE is non-nil, you may do so.") { 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 |