aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>2002-09-12 03:26:23 +0000
committerRichard M. Stallman <[email protected]>2002-09-12 03:26:23 +0000
commit6155205e82b591c216784f573f8d300db6186765 (patch)
tree0feb216af539337a8995afc87e9f52b7642959ed
parentef3c2c73ce2f3b06400ebc646b1a56444fa62190 (diff)
(x_report_frame_params): If FRAME_SCROLL_BAR_PIXEL_WIDTH is 0
and we have non-toolkit scroll bars, return nil for scroll-bar-width.
-rw-r--r--src/xfns.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/xfns.c b/src/xfns.c
index 8788906e77..e0cc81a3e4 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1295,9 +1295,13 @@ x_report_frame_params (f, alistptr)
store_in_alist (alistptr, Qright_fringe,
make_number (f->output_data.x->right_fringe_width));
store_in_alist (alistptr, Qscroll_bar_width,
- make_number (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
- ? FRAME_SCROLL_BAR_PIXEL_WIDTH(f)
- : 0));
+ (! FRAME_HAS_VERTICAL_SCROLL_BARS (f)
+ ? make_number (0)
+ : FRAME_SCROLL_BAR_PIXEL_WIDTH (f) > 0
+ ? make_number (FRAME_SCROLL_BAR_PIXEL_WIDTH (f))
+ /* nil means "use default width"
+ for non-toolkit scroll bar */
+ : Qnil));
sprintf (buf, "%ld", (long) FRAME_X_WINDOW (f));
store_in_alist (alistptr, Qwindow_id,
build_string (buf));