]> git.eshelyaron.com Git - emacs.git/commitdiff
(x_report_frame_params): If FRAME_SCROLL_BAR_PIXEL_WIDTH is 0
authorRichard M. Stallman <rms@gnu.org>
Thu, 12 Sep 2002 03:26:23 +0000 (03:26 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 12 Sep 2002 03:26:23 +0000 (03:26 +0000)
and we have non-toolkit scroll bars, return nil for scroll-bar-width.

src/xfns.c

index 8788906e773604623a0ef28ac36c5034c4a03570..e0cc81a3e47e7b3c33e03b511444d074af66655e 100644 (file)
@@ -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));