# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 815444340 0
# Node ID b44cc5a629419783d5375d9a8f9295f57bf92469
# Parent  c18547cf191f7427d9506063bf552ef8444a271c
[!MULTI_FRAME] (Fmodify_frame_parameters): Add missing
declaration and initialization.
[MULTI_FRAME] (choose_minibuf_frame): Moved to minibuf.c; now
unconditional.

diff -r c18547cf191f -r b44cc5a62941 src/frame.c
--- a/src/frame.c	Sat Nov 04 00:12:52 1995 +0000
+++ b/src/frame.c	Sat Nov 04 00:19:00 1995 +0000
@@ -1963,26 +1963,6 @@
 }
 
 
-/* Put minibuf on currently selected frame's minibuffer.
-   We do this whenever the user starts a new minibuffer
-   or when a minibuffer exits.  */
-
-choose_minibuf_frame ()
-{
-  if (selected_frame != 0
-      && !EQ (minibuf_window, selected_frame->minibuffer_window))
-    {
-      /* I don't think that any frames may validly have a null minibuffer
-	 window anymore.  */
-      if (NILP (selected_frame->minibuffer_window))
-	abort ();
-
-      Fset_window_buffer (selected_frame->minibuffer_window,
-			  XWINDOW (minibuf_window)->buffer);
-      minibuf_window = selected_frame->minibuffer_window;
-    }
-}
-
 syms_of_frame ()
 {
   syms_of_frame_1 ();
@@ -2387,6 +2367,15 @@
      Lisp_Object frame, alist;
 {
   Lisp_Object tail, elt, prop, val;
+  FRAME_PTR f;
+
+  if (NILP (frame))
+    f = selected_frame;
+  else
+    {
+      CHECK_LIVE_FRAME (frame, 0);
+      f = XFRAME (frame);
+    }
 
 #ifdef MSDOS
   if (FRAME_X_P (frame))
@@ -2433,7 +2422,7 @@
 {
   return Fcons (Fselected_frame (), Qnil);
 }
-
+
 syms_of_frame ()
 {
   syms_of_frame_1 ();