(x_set_tool_bar_lines): Clear internal border when

tool bar gets smaller.

diff --git a/src/xfns.c b/src/xfns.c
index 5132cd17df5423d0376753226074cd5bd27d6b58..7210678952db785e7de27da2132b2520c39416c4 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2045,6 +2045,21 @@ x_set_tool_bar_lines (f, value, oldval)
       clear_current_matrices (f);
       updating_frame = NULL;
     }
+
+  /* If the tool bar gets smaller, the internal border below it
+     has to be cleared.  It was formerly part of the display
+     of the larger tool bar, and updating windows won't clear it.  */
+  if (delta < 0)
+    {
+      int height = FRAME_INTERNAL_BORDER_WIDTH (f);
+      int width = PIXEL_WIDTH (f);
+      int y = nlines * CANON_Y_UNIT (f);
+
+      BLOCK_INPUT;
+      XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+                 0, y, width, height, False);
+      UNBLOCK_INPUT;
+    }
 }