diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:45:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-23 04:45:16 +0000 |
| commit | d171dca747fe863daa515a337b2dfa62fe682f99 (patch) | |
| tree | 186c0ff552f3513d9aa1b2d66870c9404b3c461b | |
| parent | f2757e2db38c04b09bd41903c49f4296ac3b7599 (diff) | |
| download | emacs-d171dca747fe863daa515a337b2dfa62fe682f99.tar.gz | |
(Fx_create_frame): Default Qinternal_border_width to 1.
(x_set_scroll_bar_width): Default the width to 3 cols.
Call change_frame_size.
| -rw-r--r-- | src/xfns.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/xfns.c b/src/xfns.c index 235081fa3fc..abb639314ea 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1969,7 +1969,7 @@ x_set_scroll_bar_width (f, arg, oldval) if (NILP (arg)) { FRAME_SCROLL_BAR_PIXEL_WIDTH (f) = 0; - FRAME_SCROLL_BAR_COLS (f) = 2; + FRAME_SCROLL_BAR_COLS (f) = 3; if (FRAME_X_WINDOW (f)) x_set_window_size (f, 0, FRAME_WIDTH (f), FRAME_HEIGHT (f)); } @@ -1982,6 +1982,8 @@ x_set_scroll_bar_width (f, arg, oldval) if (FRAME_X_WINDOW (f)) x_set_window_size (f, 0, FRAME_WIDTH (f), FRAME_HEIGHT (f)); } + + change_frame_size (f, 0, FRAME_WIDTH (f), 0, 0); } /* Subroutines of creating an X frame. */ @@ -3202,7 +3204,7 @@ This function is an internal primitive--use `make-frame' instead.") parms = Fcons (Fcons (Qinternal_border_width, value), parms); } - x_default_parameter (f, parms, Qinternal_border_width, make_number (2), + x_default_parameter (f, parms, Qinternal_border_width, make_number (1), "internalBorderWidth", "BorderWidth", number); x_default_parameter (f, parms, Qvertical_scroll_bars, Qleft, "verticalScrollBars", "ScrollBars", boolean); |