# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861755443 0
# Node ID eb82c4de9deacd52bca554db6c20d20f4560c1eb
# Parent  f5fce49639796aafc591b308d9c2e9aaeaf09a57
(frame_allow_splitting): New variable.
(Fsplit_window): Ignore `unsplittable' if frame_allow_splitting.
(syms_of_window): Set up Lisp var.

diff -r f5fce4963979 -r eb82c4de9dea src/window.c
--- a/src/window.c	Tue Apr 22 23:25:24 1997 +0000
+++ b/src/window.c	Wed Apr 23 00:30:43 1997 +0000
@@ -119,6 +119,9 @@
    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;
@@ -2387,7 +2390,7 @@
 
   if (MINI_WINDOW_P (o))
     error ("Attempt to split minibuffer window");
-  else if (FRAME_NO_SPLIT_P (fo))
+  else if (FRAME_NO_SPLIT_P (fo) && ! frame_override_unsplittable)
     error ("Attempt to split unsplittable frame");
 
   check_min_window_sizes ();
@@ -3767,6 +3770,12 @@
 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);