Mercurial > emacs
changeset 3923:cb16ebff1c44
* xfns.c (Fx_create_frame): Check for internalBorder resource, as
well as internalBorderWidth.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 29 Jun 1993 23:04:11 +0000 |
| parents | f369e7cb3c22 |
| children | 44fe472b66ba |
| files | src/xfns.c |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Tue Jun 29 23:03:21 1993 +0000 +++ b/src/xfns.c Tue Jun 29 23:04:11 1993 +0000 @@ -1742,7 +1742,19 @@ "font", "Font", string); x_default_parameter (f, parms, Qborder_width, make_number (2), "borderwidth", "BorderWidth", number); - /* This defaults to 2 in order to match xterm. */ + /* This defaults to 2 in order to match xterm. We recognize either + internalBorderWidth or internalBorder (which is what xterm calls + it). */ + if (NILP (Fassq (Qinternal_border_width, parms))) + { + Lisp_Object value; + + value = x_get_arg (parms, Qinternal_border_width, + "internalBorder", "BorderWidth", number); + if (! EQ (value, Qunbound)) + parms = Fcons (Fcons (Qinternal_border_width, value), + parms); + } x_default_parameter (f, parms, Qinternal_border_width, make_number (2), "internalBorderWidth", "BorderWidth", number); x_default_parameter (f, parms, Qvertical_scroll_bars, Qt,