diff options
| author | Karl Heuer | 1994-09-28 00:58:45 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-28 00:58:45 +0000 |
| commit | dff9a5389039725dd67023610cf150f243298baa (patch) | |
| tree | 455c96e1c88db972a70b1400b53f3fb2992fbc31 /src | |
| parent | 02a162bf1603e6b395142ad4d18683dfdf958d76 (diff) | |
| download | emacs-dff9a5389039725dd67023610cf150f243298baa.tar.gz emacs-dff9a5389039725dd67023610cf150f243298baa.zip | |
(x_set_scroll_bar_width): Nil now means 2 columns' worth of pixels.
(Fx_create_frame): Default scroll bar width is now nil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xfns.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/xfns.c b/src/xfns.c index 7fdf8bb5204..ff389a2b1a7 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -1388,7 +1388,13 @@ x_set_scroll_bar_width (f, arg, oldval) | |||
| 1388 | struct frame *f; | 1388 | struct frame *f; |
| 1389 | Lisp_Object arg, oldval; | 1389 | Lisp_Object arg, oldval; |
| 1390 | { | 1390 | { |
| 1391 | if (XFASTINT (arg) != FRAME_SCROLL_BAR_PIXEL_WIDTH (f)) | 1391 | if (NILP (arg)) |
| 1392 | { | ||
| 1393 | FRAME_SCROLL_BAR_PIXEL_WIDTH (f) = 0; | ||
| 1394 | FRAME_SCROLL_BAR_COLS (f) = 2; | ||
| 1395 | } | ||
| 1396 | else if (INTEGERP (arg) && XINT (arg) > 0 | ||
| 1397 | && XFASTINT (arg) != FRAME_SCROLL_BAR_PIXEL_WIDTH (f)) | ||
| 1392 | { | 1398 | { |
| 1393 | int wid = FONT_WIDTH (f->display.x->font); | 1399 | int wid = FONT_WIDTH (f->display.x->font); |
| 1394 | FRAME_SCROLL_BAR_PIXEL_WIDTH (f) = XFASTINT (arg); | 1400 | FRAME_SCROLL_BAR_PIXEL_WIDTH (f) = XFASTINT (arg); |
| @@ -2395,7 +2401,7 @@ be shared by the new frame.") | |||
| 2395 | 2401 | ||
| 2396 | x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1), | 2402 | x_default_parameter (f, parms, Qmenu_bar_lines, make_number (1), |
| 2397 | "menuBar", "MenuBar", number); | 2403 | "menuBar", "MenuBar", number); |
| 2398 | x_default_parameter (f, parms, Qscroll_bar_width, make_number (12), | 2404 | x_default_parameter (f, parms, Qscroll_bar_width, Qnil, |
| 2399 | "scrollBarWidth", "ScrollBarWidth", number); | 2405 | "scrollBarWidth", "ScrollBarWidth", number); |
| 2400 | 2406 | ||
| 2401 | f->display.x->parent_desc = ROOT_WINDOW; | 2407 | f->display.x->parent_desc = ROOT_WINDOW; |