comparison src/frame.c @ 6986:a39502978078

(Fmodify_frame_parameters, Fframe_parameters): Define even if not MULTI_FRAME.

6985:661bd59bccf2

  change_frame_size (0, XINT (rows), XINT (cols), 0, 0);

  return Qnil;
}

DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 1, 0,
  "Return number of lines available for display on FRAME.\n\
If FRAME is omitted, describe the currently selected frame.")
  (frame)
    Lisp_Object frame;

     make-docfile does not pay attention to #if, for good reason!  */
  0)
  ()
{
  return Fcons (Qnil, Fcons (Qnil, Qnil));
}

syms_of_frame ()
{
  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,

  defsubr (&Sframe_height);
  Ffset (intern ("screen-height"), intern ("frame-height"));
  defsubr (&Sframe_width);
  Ffset (intern ("screen-width"), intern ("frame-width"));
  defsubr (&Smouse_position);
}

keys_of_frame ()
{
}

6986:a39502978078

  change_frame_size (0, XINT (rows), XINT (cols), 0, 0);

  return Qnil;
}

DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 1, 0,
  "Return number of lines available for display on FRAME.\n\
If FRAME is omitted, describe the currently selected frame.")
  (frame)
    Lisp_Object frame;

     make-docfile does not pay attention to #if, for good reason!  */
  0)
  ()
{
  return Fcons (Qnil, Fcons (Qnil, Qnil));
}

DEFUN ("frame-parameters", Fframe_parameters, Sframe_parameters, 0, 1, 0,
  "Return the parameters-alist of frame FRAME.\n\
It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\
The meaningful PARMs depend on the kind of frame.\n\
If FRAME is omitted, return information on the currently selected frame.")
  (frame)
     Lisp_Object frame;
{
  Lisp_Object alist;
  struct frame *f;

  if (EQ (frame, Qnil))
    f = selected_frame;
  else
    {
      CHECK_FRAME (frame, 0);
      f = XFRAME (frame);
    }

  if (f->display.nothing == 0)
    return Qnil;

  alist = Fcopy_alist (f->param_alist);
  store_in_alist (&alist, Qname, f->name);
  store_in_alist (&alist, Qheight, make_number (f->height));
  store_in_alist (&alist, Qwidth, make_number (f->width));
  store_in_alist (&alist, Qmodeline, (f->wants_modeline ? Qt : Qnil));
  store_in_alist (&alist, Qminibuffer,
		  (! FRAME_HAS_MINIBUF_P (f) ? Qnil
		   : (FRAME_MINIBUF_ONLY_P (f) ? Qonly
                   : FRAME_MINIBUF_WINDOW (f))));
  store_in_alist (&alist, Qunsplittable, (f->no_split ? Qt : Qnil));
  store_in_alist (&alist, Qmenu_bar_lines, (FRAME_MENU_BAR_LINES (f)));

  return alist;
}

DEFUN ("modify-frame-parameters", Fmodify_frame_parameters, 
       Smodify_frame_parameters, 2, 2, 0,
  "Modify the parameters of frame FRAME according to ALIST.\n\
ALIST is an alist of parameters to change and their new values.\n\
Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\
The meaningful PARMs depend on the kind of frame; undefined PARMs are ignored.")
  (frame, alist)
     Lisp_Object frame, alist;
{
  return Qnil;
}

syms_of_frame ()
{
  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,

  defsubr (&Sframe_height);
  Ffset (intern ("screen-height"), intern ("frame-height"));
  defsubr (&Sframe_width);
  Ffset (intern ("screen-width"), intern ("frame-width"));
  defsubr (&Smouse_position);
  defsubr (&Sframe_parameters);
  defsubr (&Smodify_frame_parameters);
}

keys_of_frame ()
{
}