Mercurial > emacs
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)) |