diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-16 23:26:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-16 23:26:11 +0000 |
| commit | 61f944833c9ce032faca77ed97fb6c7deb624ec4 (patch) | |
| tree | e59b15e2eec2c57d81b83a72d9c4699541f6d187 /src/frame.c | |
| parent | 1774d17ed0eee745ad7970af5edb6f6e505642cf (diff) | |
| download | emacs-61f944833c9ce032faca77ed97fb6c7deb624ec4.tar.gz | |
(Fdelete_frame): Use do_switch_frame directly.
(do_switch_frame): No longer static.
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/frame.c b/src/frame.c index ee7b64eded0..5d9c00c5bc8 100644 --- a/src/frame.c +++ b/src/frame.c @@ -407,7 +407,7 @@ Note that changing the size of one terminal frame automatically affects all.") return frame; } -static Lisp_Object +Lisp_Object do_switch_frame (frame, no_enter, track) Lisp_Object frame, no_enter; int track; @@ -955,7 +955,7 @@ but if the second optional argument FORCE is non-nil, you may do so.") /* Don't let the frame remain selected. */ if (f == selected_frame) - Fhandle_switch_frame (next_frame (frame, Qt), Qnil); + do_switch_frame (next_frame (frame, Qt), Qnil, 0); /* Don't allow minibuf_window to remain on a deleted frame. */ if (EQ (f->minibuffer_window, minibuf_window)) @@ -1248,7 +1248,7 @@ but if the second optional argument FORCE is non-nil, you may do so.") #if 0 /* This isn't logically necessary, and it can do GC. */ /* Don't let the frame remain selected. */ if (XFRAME (frame) == selected_frame) - Fhandle_switch_frame (next_frame (frame, Qt), Qnil); + do_switch_frame (next_frame (frame, Qt), Qnil, 0) #endif /* Don't allow minibuf_window to remain on a deleted frame. */ |