diff options
author | Richard M. Stallman <[email protected]> | 2002-09-12 03:26:23 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-09-12 03:26:23 +0000 |
commit | 6155205e82b591c216784f573f8d300db6186765 (patch) | |
tree | 0feb216af539337a8995afc87e9f52b7642959ed | |
parent | ef3c2c73ce2f3b06400ebc646b1a56444fa62190 (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.c | 10 |
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)); |