comparison src/frame.c @ 56453:b8b142a8e2c6

(Fdelete_frame): If we're in single_bboard_state on this kboard, and we delete its last frame, go to any_kboard_state.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Jul 2004 14:45:01 +0000
parents 8787289602d1
children c9c9e7be868f 3864ee1088e9 b9eee0a7bef5
comparison
equal deleted inserted replaced
56452:ff1b3d52a8cd 56453:b8b142a8e2c6
1324 last_nonminibuf_frame = f; 1324 last_nonminibuf_frame = f;
1325 break; 1325 break;
1326 } 1326 }
1327 } 1327 }
1328 } 1328 }
1329
1330 /* If there's no other frame on the same kboard, get out of
1331 single-kboard state if we're in it for this kboard. */
1332 {
1333 Lisp_Object frames;
1334 /* Some frame we found on the same kboard, or nil if there are none. */
1335 Lisp_Object frame_on_same_kboard;
1336
1337 frame_on_same_kboard = Qnil;
1338
1339 for (frames = Vframe_list;
1340 CONSP (frames);
1341 frames = XCDR (frames))
1342 {
1343 Lisp_Object this;
1344 struct frame *f1;
1345
1346 this = XCAR (frames);
1347 if (!FRAMEP (this))
1348 abort ();
1349 f1 = XFRAME (this);
1350
1351 if (FRAME_KBOARD (f) == FRAME_KBOARD (f1))
1352 frame_on_same_kboard = this;
1353 }
1354
1355 if (NILP (frame_on_same_kboard))
1356 not_single_kboard_state (FRAME_KBOARD (f));
1357 }
1358
1329 1359
1330 /* If we've deleted this keyboard's default_minibuffer_frame, try to 1360 /* If we've deleted this keyboard's default_minibuffer_frame, try to
1331 find another one. Prefer minibuffer-only frames, but also notice 1361 find another one. Prefer minibuffer-only frames, but also notice
1332 frames with other windows. */ 1362 frames with other windows. */
1333 if (EQ (frame, FRAME_KBOARD (f)->Vdefault_minibuffer_frame)) 1363 if (EQ (frame, FRAME_KBOARD (f)->Vdefault_minibuffer_frame))