# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 843807229 0
# Node ID ac552926fc7eba580196dfe92812ebea6641b5dd
# Parent  773a9eb73ce9e3c89dff113ebc2b03ed56cf3ef6
(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.

diff -r 773a9eb73ce9 -r ac552926fc7e src/xfns.c
--- a/src/xfns.c	Fri Sep 27 06:52:45 1996 +0000
+++ b/src/xfns.c	Fri Sep 27 06:53:49 1996 +0000
@@ -1632,6 +1632,10 @@
   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 @@
       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);