diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-27 06:53:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-27 06:53:49 +0000 |
| commit | 78fbba16aa57addc9ca4ae1317a34b5eb31928e0 (patch) | |
| tree | 8ec2f23ade58291010417815ded8112de205bd0e /src | |
| parent | 0ee468f3a05e3691f997ce3a682a58b8afdb5f6b (diff) | |
| download | emacs-78fbba16aa57addc9ca4ae1317a34b5eb31928e0.tar.gz | |
(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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfns.c | 8 |
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); |