From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 27 Sep 1996 06:53:49 +0000 (+0000)
Subject: (x_set_internal_border_width, Fx_create_frame):
X-Git-Tag: emacs-20.1~3593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a8a07d41bb22655151824743b737079eafc7059;p=emacs.git

(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 --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);