(x_set_unsplittable): New function.

(x_frame_parms): Add that function to the table.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/xfns.c b/src/xfns.c
index 68102501db5..faeceaa915d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -638,6 +638,7 @@ void x_set_vertical_scroll_bars ();
 void x_set_visibility ();
 void x_set_menu_bar_lines ();
 void x_set_scroll_bar_width ();
+void x_set_unsplittable ();
 
 static struct x_frame_parm_table x_frame_parms[] =
 {
@@ -658,6 +659,7 @@ static struct x_frame_parm_table x_frame_parms[] =
   "visibility", x_set_visibility,
   "menu-bar-lines", x_set_menu_bar_lines,
   "scroll-bar-width", x_set_scroll_bar_width,
+  "unsplittable", x_set_unsplittable,
 };
 
 /* Attach the `x-frame-parameter' properties to
@@ -1618,6 +1620,14 @@ x_set_autolower (f, arg, oldval)
 }
 
 void
+x_set_unsplittable (f, arg, oldval)
+     struct frame *f;
+     Lisp_Object arg, oldval;
+{
+  f->no_split = !NILP (arg);
+}
+
+void
 x_set_vertical_scroll_bars (f, arg, oldval)
      struct frame *f;
      Lisp_Object arg, oldval;