From 2a8a07d41bb22655151824743b737079eafc7059 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Sep 1996 06:53:49 +0000 Subject: [PATCH] (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. --- src/xfns.c | 8 ++++++-- 1 file 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); -- 2.39.5