comparison src/frame.c @ 12987:bca5676d8cb9

[!MULTI_FRAME] (Factive_minibuffer_window): New function. [!MULTI_FRAME] (syms_of_frame): defsubr it.

12986:180f04639e71

  Lisp_Object tem;
  XSETFASTINT (tem, 0);
  return tem;
}

DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 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)
  (window)

     make-docfile does not pay attention to #if, for good reason!  */
	       0);
  XSETFASTINT (Vterminal_frame, 0);

  defsubr (&Sselected_frame);
  defsubr (&Swindow_frame);
  defsubr (&Sframe_first_window);
  defsubr (&Sframep);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);

12987:bca5676d8cb9

  Lisp_Object tem;
  XSETFASTINT (tem, 0);
  return tem;
}

DEFUN ("active-minibuffer-window", Factive_minibuffer_window,
       Sactive_minibuffer_window, 0, 0, 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)
  ()
{
  return minibuf_level ? minibuf_window : Qnil;
}

DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 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)
  (window)

     make-docfile does not pay attention to #if, for good reason!  */
	       0);
  XSETFASTINT (Vterminal_frame, 0);

  defsubr (&Sselected_frame);
  defsubr (&Sactive_minibuffer_window);
  defsubr (&Swindow_frame);
  defsubr (&Sframe_first_window);
  defsubr (&Sframep);
  defsubr (&Sframe_char_height);
  defsubr (&Sframe_char_width);