comparison src/frame.c @ 13396:b44cc5a62941

[!MULTI_FRAME] (Fmodify_frame_parameters): Add missing declaration and initialization. [MULTI_FRAME] (choose_minibuf_frame): Moved to minibuf.c; now unconditional.

13395:c18547cf191f

  return Qt;
}


/* 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 ();

  staticpro (&Vframe_list);

  0)
  (frame, alist)
     Lisp_Object frame, alist;
{
  Lisp_Object tail, elt, prop, val;

#ifdef MSDOS
  if (FRAME_X_P (frame))
    IT_set_frame_parameters (XFRAME (frame), alist);
  else

  0)
  ()
{
  return Fcons (Fselected_frame (), Qnil);
}

syms_of_frame ()
{
  syms_of_frame_1 ();

  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,

13396:b44cc5a62941

  return Qt;
}


syms_of_frame ()
{
  syms_of_frame_1 ();

  staticpro (&Vframe_list);

  0)
  (frame, alist)
     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))
    IT_set_frame_parameters (XFRAME (frame), alist);
  else

  0)
  ()
{
  return Fcons (Fselected_frame (), Qnil);
}

syms_of_frame ()
{
  syms_of_frame_1 ();

  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,