changeset 12286:723569a0028c

(Fdelete_frame): Use do_switch_frame directly. (do_switch_frame): No longer static.
author Richard M. Stallman <rms@gnu.org>
date Fri, 16 Jun 1995 23:26:11 +0000
parents 1aad1cc93e3f
children 7020a83cd08c
files src/frame.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/frame.c	Fri Jun 16 22:59:48 1995 +0000
+++ b/src/frame.c	Fri Jun 16 23:26:11 1995 +0000
@@ -407,7 +407,7 @@
   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 @@
 
   /* 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 @@
 #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.  */