diff options
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/frame.c b/src/frame.c index 5fa54052cd2..95f53569561 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -1157,10 +1157,14 @@ delete_frame (Lisp_Object frame, Lisp_Object force) | |||
| 1157 | 1157 | ||
| 1158 | FOR_EACH_FRAME (frames, this) | 1158 | FOR_EACH_FRAME (frames, this) |
| 1159 | { | 1159 | { |
| 1160 | if (! EQ (this, frame) | 1160 | Lisp_Object fminiw; |
| 1161 | && EQ (frame, | 1161 | |
| 1162 | WINDOW_FRAME (XWINDOW | 1162 | if (EQ (this, frame)) |
| 1163 | (FRAME_MINIBUF_WINDOW (XFRAME (this)))))) | 1163 | continue; |
| 1164 | |||
| 1165 | fminiw = FRAME_MINIBUF_WINDOW (XFRAME (this)); | ||
| 1166 | |||
| 1167 | if (WINDOWP (fminiw) && EQ (frame, WINDOW_FRAME (XWINDOW (fminiw)))) | ||
| 1164 | { | 1168 | { |
| 1165 | /* If we MUST delete this frame, delete the other first. | 1169 | /* If we MUST delete this frame, delete the other first. |
| 1166 | But do this only if FORCE equals `noelisp'. */ | 1170 | But do this only if FORCE equals `noelisp'. */ |