Mercurial > emacs
changeset 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 | e0bef61003ae |
| children | d7ac9a417f87 |
| files | src/frame.c |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Wed Mar 23 22:29:02 1994 +0000 +++ b/src/frame.c Wed Mar 23 22:29:45 1994 +0000 @@ -527,8 +527,9 @@ while (1) for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) { - Lisp_Object f = XCONS (tail)->car; + Lisp_Object f; + f = XCONS (tail)->car; if (passed) { /* Decide whether this frame is eligible to be returned. */ @@ -586,8 +587,9 @@ prev = Qnil; for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) { - Lisp_Object f = XCONS (tail)->car; + Lisp_Object f; + f = XCONS (tail)->car; if (XTYPE (f) != Lisp_Frame) abort (); @@ -692,8 +694,9 @@ CONSP (frames); frames = XCONS (frames)->cdr) { - Lisp_Object this = XCONS (frames)->car; + Lisp_Object this; + this = XCONS (frames)->car; /* Verify that the frame's window still exists and we can still talk to it. And note any recent change in visibility. */ @@ -829,14 +832,16 @@ Lisp_Object frames; /* The last frame we saw with a minibuffer, minibuffer-only or not. */ - Lisp_Object frame_with_minibuf = Qnil; + Lisp_Object frame_with_minibuf; + frame_with_minibuf = Qnil; for (frames = Vframe_list; CONSP (frames); frames = XCONS (frames)->cdr) { - Lisp_Object this = XCONS (frames)->car; + Lisp_Object this; + this = XCONS (frames)->car; if (XTYPE (this) != Lisp_Frame) abort (); f = XFRAME (this);