Mercurial > emacs
comparison src/frame.c @ 6500:551bff5cffde
(next_frame, prev_frame, other_visible_frames, Fdelete_frame): Use assignment,
not initialization.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 22:29:45 +0000 |
| parents | 5012ae9c6075 |
| children | ab9f20a3f502 |
comparison
equal
deleted
inserted
replaced
| 6499:e0bef61003ae | 6500:551bff5cffde |
|---|---|
| 525 CHECK_LIVE_FRAME (frame, 0); | 525 CHECK_LIVE_FRAME (frame, 0); |
| 526 | 526 |
| 527 while (1) | 527 while (1) |
| 528 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) | 528 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
| 529 { | 529 { |
| 530 Lisp_Object f = XCONS (tail)->car; | 530 Lisp_Object f; |
| 531 | 531 |
| 532 f = XCONS (tail)->car; | |
| 532 if (passed) | 533 if (passed) |
| 533 { | 534 { |
| 534 /* Decide whether this frame is eligible to be returned. */ | 535 /* Decide whether this frame is eligible to be returned. */ |
| 535 | 536 |
| 536 /* If we've looped all the way around without finding any | 537 /* If we've looped all the way around without finding any |
| 584 abort (); | 585 abort (); |
| 585 | 586 |
| 586 prev = Qnil; | 587 prev = Qnil; |
| 587 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) | 588 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
| 588 { | 589 { |
| 589 Lisp_Object f = XCONS (tail)->car; | 590 Lisp_Object f; |
| 590 | 591 |
| 592 f = XCONS (tail)->car; | |
| 591 if (XTYPE (f) != Lisp_Frame) | 593 if (XTYPE (f) != Lisp_Frame) |
| 592 abort (); | 594 abort (); |
| 593 | 595 |
| 594 if (EQ (frame, f) && !NILP (prev)) | 596 if (EQ (frame, f) && !NILP (prev)) |
| 595 return prev; | 597 return prev; |
| 690 | 692 |
| 691 for (frames = Vframe_list; | 693 for (frames = Vframe_list; |
| 692 CONSP (frames); | 694 CONSP (frames); |
| 693 frames = XCONS (frames)->cdr) | 695 frames = XCONS (frames)->cdr) |
| 694 { | 696 { |
| 695 Lisp_Object this = XCONS (frames)->car; | 697 Lisp_Object this; |
| 696 | 698 |
| 699 this = XCONS (frames)->car; | |
| 697 /* Verify that the frame's window still exists | 700 /* Verify that the frame's window still exists |
| 698 and we can still talk to it. And note any recent change | 701 and we can still talk to it. And note any recent change |
| 699 in visibility. */ | 702 in visibility. */ |
| 700 #ifdef HAVE_X_WINDOWS | 703 #ifdef HAVE_X_WINDOWS |
| 701 if (FRAME_X_P (XFRAME (this))) | 704 if (FRAME_X_P (XFRAME (this))) |
| 827 if (EQ (frame, Vdefault_minibuffer_frame)) | 830 if (EQ (frame, Vdefault_minibuffer_frame)) |
| 828 { | 831 { |
| 829 Lisp_Object frames; | 832 Lisp_Object frames; |
| 830 | 833 |
| 831 /* The last frame we saw with a minibuffer, minibuffer-only or not. */ | 834 /* The last frame we saw with a minibuffer, minibuffer-only or not. */ |
| 832 Lisp_Object frame_with_minibuf = Qnil; | 835 Lisp_Object frame_with_minibuf; |
| 833 | 836 |
| 837 frame_with_minibuf = Qnil; | |
| 834 for (frames = Vframe_list; | 838 for (frames = Vframe_list; |
| 835 CONSP (frames); | 839 CONSP (frames); |
| 836 frames = XCONS (frames)->cdr) | 840 frames = XCONS (frames)->cdr) |
| 837 { | 841 { |
| 838 Lisp_Object this = XCONS (frames)->car; | 842 Lisp_Object this; |
| 839 | 843 |
| 844 this = XCONS (frames)->car; | |
| 840 if (XTYPE (this) != Lisp_Frame) | 845 if (XTYPE (this) != Lisp_Frame) |
| 841 abort (); | 846 abort (); |
| 842 f = XFRAME (this); | 847 f = XFRAME (this); |
| 843 | 848 |
| 844 if (FRAME_HAS_MINIBUF_P (f)) | 849 if (FRAME_HAS_MINIBUF_P (f)) |