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 | 417bd6e72f69fb5ad03fcded490e1606bcb4e57a (patch) | |
| tree | b16246fdf206e84ef57b2cfb9d4505e8c068a1f4 /src/frame.c | |
| parent | 5ea53a8c4fac656b7d011ae561b1802c196888e4 (diff) | |
| download | emacs-417bd6e72f69fb5ad03fcded490e1606bcb4e57a.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. */ |