From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Sep 1996 04:45:16 +0000 (+0000)
Subject: (Fx_create_frame): Default Qinternal_border_width to 1.
X-Git-Tag: emacs-20.1~3642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dca975928de6e5b95375bfea2424ba020f251d28;p=emacs.git

(Fx_create_frame): Default Qinternal_border_width to 1.

(x_set_scroll_bar_width): Default the width to 3 cols.
Call change_frame_size.
---

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