comparison src/frame.c @ 8264:8f227ebb7748

[!MULTI_FRAME] (Fframe_first_window): Defined. (syms_of_frame): Defvar it.

8263:bae811318a57

{
  Lisp_Object tem;
  XFASTINT (tem) = 0;
  return tem;
}
DEFUN ("framep", Fframep, Sframep, 1, 1, 0,
  /* Don't confuse make-docfile by having two doc strings for this function.
     make-docfile does not pay attention to #if, for good reason!  */
  0)
  (object)

  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,
    "The initial frame-object, which represents Emacs's stdout.");
  XFASTINT (Vterminal_frame) = 0;

  defsubr (&Sselected_frame);
  defsubr (&Sframep);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);
  defsubr (&Sframe_pixel_height);
  defsubr (&Sframe_pixel_width);

8264:8f227ebb7748

{
  Lisp_Object tem;
  XFASTINT (tem) = 0;
  return tem;
}

DEFUN ("frame-first-window", Fframe_first_window, Sframe_first_window, 0, 1, 0,
  0)
  (frame)
     Lisp_Object frame;
{
  Lisp_Object w;

  w = FRAME_ROOT_WINDOW (selected_frame);

  while (NILP (XWINDOW (w)->buffer))
    {
      if (! NILP (XWINDOW (w)->hchild))
	w = XWINDOW (w)->hchild;
      else if (! NILP (XWINDOW (w)->vchild))
	w = XWINDOW (w)->vchild;
      else
	abort ();
    }
  return w;
}

DEFUN ("framep", Fframep, Sframep, 1, 1, 0,
  /* Don't confuse make-docfile by having two doc strings for this function.
     make-docfile does not pay attention to #if, for good reason!  */
  0)
  (object)

  DEFVAR_LISP ("terminal-frame", &Vterminal_frame,
    "The initial frame-object, which represents Emacs's stdout.");
  XFASTINT (Vterminal_frame) = 0;

  defsubr (&Sselected_frame);
  defsubr (&Sframe_first_window);
  defsubr (&Sframep);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);
  defsubr (&Sframe_pixel_height);
  defsubr (&Sframe_pixel_width);