(x_set_internal_border_width, Fx_create_frame):

Call widget_store_internal_border.
(Fx_create_frame): Don't use a superclass when
checking for an internalBorder resource.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/xfns.c b/src/xfns.c
index 96592c6decf..76ad6f2412f 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1632,6 +1632,10 @@ x_set_internal_border_width (f, arg, oldval)
   if (f->output_data.x->internal_border_width < 0)
     f->output_data.x->internal_border_width = 0;
 
+  if (f->output_data.x->edit_widget)
+    widget_store_internal_border (f->output_data.x->edit_widget,
+                                  f->output_data.x->internal_border_width);
+
   if (f->output_data.x->internal_border_width == old)
     return;
 
@@ -3201,13 +3205,13 @@ This function is an internal primitive--use `make-frame' instead.")
       Lisp_Object value;
 
       value = x_get_arg (parms, Qinternal_border_width,
-                         "internalBorder", "BorderWidth", number);
+                         "internalBorder", "internalBorder", number);
       if (! EQ (value, Qunbound))
         parms = Fcons (Fcons (Qinternal_border_width, value),
                        parms);
     }
   x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
-                       "internalBorderWidth", "BorderWidth", number);
+                       "internalBorderWidth", "internalBorderWidth", number);
   x_default_parameter (f, parms, Qvertical_scroll_bars, Qleft,
                        "verticalScrollBars", "ScrollBars", boolean);