comparison src/window.c @ 17540:eb82c4de9dea

(frame_allow_splitting): New variable. (Fsplit_window): Ignore `unsplittable' if frame_allow_splitting. (syms_of_window): Set up Lisp var.

17539:f5fce4963979

Lisp_Object Vwindow_configuration_change_hook;

/* Nonzero means scroll commands try to put point
   at the same screen height as previously.  */
static int scroll_preserve_screen_position;

#define min(a, b) ((a) < (b) ? (a) : (b))

extern int scroll_margin;

      size_int = XINT (size);
    }

  if (MINI_WINDOW_P (o))
    error ("Attempt to split minibuffer window");
  else if (FRAME_NO_SPLIT_P (fo))
    error ("Attempt to split unsplittable frame");

  check_min_window_sizes ();

  if (NILP (horflag))

  DEFVAR_LISP ("window-configuration-change-hook",
	       &Vwindow_configuration_change_hook,
    "Functions to call when window configuration changes.\n\
The selected frae is the one whose configuration has changed.");
  Vwindow_configuration_change_hook = Qnil;

  defsubr (&Sselected_window);
  defsubr (&Sminibuffer_window);
  defsubr (&Swindow_minibuffer_p);
  defsubr (&Swindowp);

17540:eb82c4de9dea

Lisp_Object Vwindow_configuration_change_hook;

/* Nonzero means scroll commands try to put point
   at the same screen height as previously.  */
static int scroll_preserve_screen_position;

/* Non-nil means we can split a frame even if it is "unsplittable".  */
static int frame_override_unsplittable;

#define min(a, b) ((a) < (b) ? (a) : (b))

extern int scroll_margin;

      size_int = XINT (size);
    }

  if (MINI_WINDOW_P (o))
    error ("Attempt to split minibuffer window");
  else if (FRAME_NO_SPLIT_P (fo) && ! frame_override_unsplittable)
    error ("Attempt to split unsplittable frame");

  check_min_window_sizes ();

  if (NILP (horflag))

  DEFVAR_LISP ("window-configuration-change-hook",
	       &Vwindow_configuration_change_hook,
    "Functions to call when window configuration changes.\n\
The selected frae is the one whose configuration has changed.");
  Vwindow_configuration_change_hook = Qnil;

  DEFVAR_BOOL ("frame-override-unsplittable", &frame_override_unsplittable,
    "Non-nil means allow splitting an `unsplittable' frame.\n\
\(That means, a frame whise `unsplittable' parameter is non-nil.)\n\
Packages such as Ispell that work by splitting the selected frame\n\
can bind this, so that they will work when used in an unsplittable frame.");

  defsubr (&Sselected_window);
  defsubr (&Sminibuffer_window);
  defsubr (&Swindow_minibuffer_p);
  defsubr (&Swindowp);